"PROGRAM MENCARI BILANGAN GENAP & GANJIL"

 
 Langkah mencari bilangan genap atau ganjil:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Genap atau Ganjil”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL, dan Label3 diganti namanya menjadi HASIL. Lalu klik dan drag-drop TextBox sebanyak 1kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan Txt_angka.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan Cmd_Proses, Command2 dengan Cmd_Ulang dan Command3 dengan Cmd_Exit.


• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub cmd_proses_Click()
If Val(txt_angka.Text) Mod 2 = 0 Then
hasil.Caption = "genap"
Else
hasil.Caption = "ganjil"
End If
cmd_ulang.Enabled = True
cmd_proses.Enabled = False
End Sub

Private Sub cmd_ulang_Click()
txt_angka.Text = ""
hasil.Caption = ""
txt_angka.SetFocus
cmd_proses.Enabled = True
cmd_ulang.Enabled = False
End Sub

Private Sub cmd_exit_Click()
End
End Sub