Membuat Aplikasi Untuk Menentukan Bilangan Genap Atau Ganjil Pada Visual Basic 6.0

Membuat Aplikasi Untuk Menentukan Bilangan Genap Atau Ganjil Pada Visual Basic 6.0

Berikut adalah tutorial Membuat aplikasi untuk menentukan apakah bilangan yang dimasukkan adalah bilangan genap atau ganjil.

1. Buat project baru
2. Pada form1, tambahkan komponen-komponen: 2 Label, 2 TextBox dan 1 command button
3. Pada label1, isi property [Caption] dengan Bilangan. Pada label2, isi property [Caption] dengan Keterangan.
4. Pada semua textbox, kosongkan property [Text].
5. Pada Command1, isi property [Caption] dengan Cek.
6. Atur tampilannya seperti gambar 4.1 berikut:

7. Click Command1, tambahkan program untuk mengecek apakah bilangan yang dimasukkan bilangan genap atau ganjil dengan cara : (Jika bilangan habis dibagi dua maka bilangan tersebut genap, jika tidak bilangan tersebut ganji)
Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0 Then
ket = "GENAP"
Else
ket = "GANJIL"
End If
Text2 = ket
End Sub
8. Simpan project ini dengan memilih menu [File] [Save Project].
9. Jalankan program dan uji dengan beberapa bilangan.

Selamat mencoba...!!!