Program Pemisah Ganjil Genap

Pada kesempatan kali ini saya akan membuat Program Pemisah Bilangan Ganji Genap.

Berikut Design Form VB, Syntaxnya dan cara kerjanya:

Design Form VB

Keterangan Tool yang digunakan :

1. Label1 : Jumlah Data
2. Label2 : Input Data
3. Label3 : Jumlah Maks Data
4. Label4 : jdata
5. Label5 : Ganjil
6. Label6 : Genap
7. TextBox1 : (Menyimpan Inputan Jumlah Data)
8. TextBox2 : (Menyimpan Inputan Data)
9. Button1 : (Ganti Teks Menjadi Set)
10. Button2 : (Ganti Teks Menjadi Input)
11. Button3 : (Ganti Teks Menjadi Pisahkan Data)
12. GroupBox1: (Ganti Teks Menjadi Data)
13. ListBox1
14. ListBox2

Berikut Syntaxnya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        index = 1

        jdata = 5

    End Sub

    Dim daftar(5) As Integer

    Dim index As Byte

    Dim jdata As Byte

    Private Sub setting()

        jdata = Val(TextBox1.Text)

        ReDim Daftar(jdata)

        index = 1

        TextBox2.Focus()

        TextBox1.Text = ""

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

    End Sub

    Private Sub input()

        If index <= jdata Then

            daftar(index) = TextBox2.Text

            index = index + 1

        Else

            MsgBox("Ruang Sudah Penuh", MsgBoxStyle.Information + vbOKOnly, "Pemberitahuan")

        End If

        TextBox2.Text = ""

        TextBox2.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        input()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label4.Visible = True

        Label4.Text = TextBox1.Text

        setting()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        For i = 1 To jdata

            If daftar(i) Mod 2 = 0 Then

                ListBox2.Items.Add(daftar(i))

            Else

                ListBox1.Items.Add(daftar(i))

            End If

        Next

    End Sub

End Class

Cara kerjanya seperti ini :

Pertama kita input jumlah data lalu pencet button set untuk menyimpannya.

Lalu hasil input jumlah data akan terlihat di GroupBox1 menggantikan label jdata. Yang selanjutnya cursor akan berpindah ke TextBox2 untuk penginputan data dan kalian bisa menginput angka acak.

Namun apabila kalian menginput data melebihi Jumlah Data Maksimal yg sudah kalian set maka akan keluar MessageBox seperti gambar diatas.

Dan gambar diatas merupakan hasil setelah kalian memencet button Pisahkan Data.

Sekian untuk postingan kali ini, semoga bermanfaat untuk semuanya.