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 :)