Belajar Visual Basic - Menentukan Ganjil Genap

Posting kali ini akan membahas bagaimana caranya menentukan sebuah bilangan , apakah itu merupakan bilangan genap atau bilangan ganjil dengan menggunakan Visual Basic 6.0 ..

1. Membuat design di visual basic :

2. Penjelasan :

                      - Menentukan Bilangan Ganjil Dan Genap itu merupakan sebuah frame.

                      - Masukkan Angka (Label)

                      - Texboxt masukkan angka (textbox) : Text1

                      - Proses (Command Button) :  cmd_proses

                      - Ulang (Command Button) : cmd_ulang

                      - Exit (Command Button) : cmd_exit

                      - Bikin Label dengan nama label_hasil

3. Coding :

                      a. Klik 2 kali pada cmd_proses,

                           Private Sub cmd_proses_Click()

                           If Text1.Text = "" Then

                           MsgBox "Silahkan isi dulu", vbOKOnly

                           Text1.SetFocus

                           ElseIf Text1.Text Mod 2 = 0 Then

                           label_hasil.Caption = Text1.Text + "  adalah Bilangan Genap"

                           Else

                           label_hasil.Caption = Text1.Text + " adalah Bilangan Ganjil"

                           End If

                           End Sub

                     b. Klik 2 kali pada cmd_ulang,

                         Private Sub cmd_ulang_Click()

                         Text1.Text = ""

                         label_hasil.Caption = ""

                         Text1.SetFocus

                         End Sub

                    c. Klik 2 kali pada cmd_exit

                        Private Sub cmd_exit_Click()

                        End

                        End Sub

4. Hasilnya :

Gambar yang menunjukkan bilangan ganjil

Gambar yang menunjukkan bilangan genap