Menentukan Bilangan 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