CODING_MENGHITUNG_GANJIL_GENAP_VB.NET

Hallo semua...Senang kali ini saya dapat memposting suatu hal lagi. pada kesempatan ini saya membuat suatu aplikasi memisahkan data number kedalam kelompok bilangan genap dan bilangan ganjil dari data yang berada dalam sebuah variabel (berupa array dimensi tunggal). Berikut ini merupakan desain interface aplikasi.

Kalian dapat membuat interface yang lebih menarik lagi. Mungkin dengan cara banyak menonton dan mempraktikkan tutorial yang ada di youtube. Selanjutnya saya akan memberikan set toolbox nya.

Setelah interface dan setting toolbox diselesaikan sekarang kalian dapat membuat coding dari aplikasi ini, berikut coding nya :

Public Class form1
    Dim daftar(5) As Integer
    Dim index As Byte
    Dim jumda As Byte

    Private Sub simda()
        If index <= jumda Then
            daftar(index) = tbdata.Text
            index = index + 1
        Else
            MsgBox("Penyimpanan Sudah Penuh!!!", MsgBoxStyle.Information + vbOKOnly, "Simpan Data")
        End If
        tbdata.Text = ""
        tbdata.Focus()
    End Sub

    Private Sub BtnSimpanData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanData.Click
        simda()
    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        index = 1
        jumda = 5
    End Sub
    Private Sub tamdata()
        Dim daket As Integer
        lbtampil.Items.Clear()

        For daket = 1 To jumda
            lbtampil.Items.Add(daftar(daket))
        Next
    End Sub
    Private Sub setjumlah()
        jumda = Val(tbjum.Text)
        ReDim daftar(jumda)

        index = 1
        tbdata.Focus()
        lbtampil.Items.Clear()
    End Sub
    Private Sub BtnSetJum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSetJum.Click
        setjumlah()
    End Sub
    Private Sub BtnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTampil.Click
        tamdata()
    End Sub
    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        tbdata.Text = ""
        tbjum.Text = ""
        lbtampil.Items.Clear()
        lbgenap.Items.Clear()
        lbganjil.Items.Clear()
    End Sub
    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        lbgenap.Items.Clear()
        lbganjil.Items.Clear()
        For i = 1 To jumda
            If i Mod 2 = 0 Then
                lbgenap.Items.Add(daftar(i))
            Else
                lbganjil.Items.Add(daftar(i))
            End If
        Next
    End Sub
End Class

Setelah semua coding diselesaikan, mari kita coba untuk menjalankan programnya. saya ketik angka 10 pada set jumlah. lalu saya input angka 1-11 pada input data. namun pada saat saya intput angka 11 keluar notice seperti berikut :

Hal ini terjadi karena saya hanya dapat menginput jumlah angka sesuai dengan jumlah data yang saya sudah setting terlebih dahulu. Dan dibawah ini merupakan program yang sudah berhasil di jalankan.

Sekian postingan dari saya. Semoga bermanfaat :)

CODING_PERULANGAN_VISUAL_BASIC10

PERULANGAN (LOOPING) DALAM VISUAL BASIC.NET

Pada kali ini  saya akan menerangkan atau menjelaskan mengenai LOOPING (PERULANGAN PADA VB). Stuktur perulangan merupakan salah satu alat kontrol program yang digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses pengulangan ini dapat dikendalikan jumlahnya oleh aplikasi yang dibuat pada kondisi tertentu.Proses pengulangan akan terus dilakukan selama kondisi yang dibandingkan oleh proses tersebut masih bernilai "Benar atau True". Jika kondisi yang dibandingkan bernilai "Salah atau False", proses pengulangan akan berhenti.

 Bentuk umum pengulangan pada VB.Net, sbb:

1. For Next : digunakan untuk mengulang suatu blok program atau perintah bagi tiap elemen pada   skan suatu koleksi objek.

2. Do While : untuk melakukan pengulangan terus menerus selama kondisi memenuhi syarat(true).

3. Do Until : merupakan struktur pengulangan yang metodenya kebalikan daro Do While.

  

Contoh-Contoh Program Looping Beserta Coding:

1. Program pengulangan dimana yang diulang adalah statementnya.

• Bukalah aplikasi Visual Basic.
• Buatlah New Project pada Visual Basic, sampai muncul kotak kerja Form1.
• Buatlah 1 buah ListBox dan 7 buah Button pada Form.

• Ubahlah ListBox dan Button pada menu properties, dan hias sesuai keinginan kalian. Dan saya juga menyisipkan flowchartnya.

• Setelah itu kalian dapat membuat coding pada aplikasi tersebut. Berikut coding yang saya buat:

2. Pada contoh yang kedua, saya membuat program pengulangan untuk angka ganjil dan genap. Berikut sket, flowchart beserta codingnya.

• Sama seperti langkah di program pertama, ka buka terlebih dahulu program visual basic, lalu pilih New Project.
• Buatlah 4 Label, 2 TextBox, 2 ListBox, dan 3 Button pada Form.

 

• Ubahlah Name dan Text pada ToolBox yang dipilih lalu hias. saya juga menyertakan flowchart dan codingnya.

Berikut saya sertakan hasil dari aplikasi nomer satu dan nomer dua

SEKIAN DAN TERIMAKASIH