Menentukan Bilangan Genap / Ganjil dan Kelipatanya Visual Basic

Bilangan Genap adalah bilangan yang bisa di bagi 2, artinya bilangan yang apabila di bagi 2 menghasilkan bilangan yang bukan desimal (koma), sedangkan bilangan ganjil adalah bilangan yang tidak bisa di bagi 2, setiap bilangan yang di bagi 2 akan menghasilkan bilangan desimal, contohnya 10 : 2 = 5 (karena tidak ada koma, maka 10 adalah bilangan genap), 5 : 2 = 2.5, maka 5 termasuk bilangan ganjil, karena menghasilkan bilangan desimal, untuk program visual basic kali ini, kali ini kita akan membuat program untuk menentukan suatu bilangan genap atau ganjil, tapi tak hanya itu, kita juga bisa menentukan kelipatanya, baiklah ayo kita mulai tutorialnya :

1. Seperti biasa, jalankan VB dan pilih Standar EXE,
2. Lalu tambahkan 2 Label, 3 text box, 1 command button, 1 frame dan 1 list box, atur seperti ini :

3. Lalu ubah propertiesnya seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Postition	Center Screen
Label 1	Caption	Bilangan
Label 2		Bilangan
Text 1	Name	Text1
	Enabled	True
	Text	(Kosongkan saja)
Text 2	Name	TextWaktu
	Enabled	False
	Text	(Kosongkan saja)
Command 1	Caption	CHECK
Frame	Caption	Kelipatan
List Box	Enabled	False

sehingga seperti ini :

4. lalu tuliskan script berikut :
Private Sub Command1_Click() 'Ketika Command 1 di click
List1.Clear 'List 1 dalam keadaan kosong
bil = Val(Text1) 'Bil = nilai dari text 1
If bil Mod 2 = 0 Then 'Jika bila bisa di bagi 2 maka
ket = "GENAP" 'ket = Genap
List1.AddItem "Kelipatan 2" 'List 1 di tambahkan kata "Kelipatan 2"
Else '|Jika Tidak
ket = "GANJIL" 'Ket = ganjil
End If
Text2 = ket 'Apapun hasil dari ket. maka akan di tampilkan di text 2

kelipatan = Val(Text1)
If kelipatan Mod 3 = 0 Then 'Jika bila bisa di bagi 3 maka
List1.AddItem "Kelipatan 3" 'List 1 di tambahkan kata "Kelipatan 3"
End If

If kelipatan Mod 4 = 0 Then
List1.AddItem "Kelipatan 4"
End If

If kelipatan Mod 5 = 0 Then
List1.AddItem "Kelipatan 5"
End If

If kelipatan Mod 6 = 0 Then
List1.AddItem "Kelipatan 6"
End If

If kelipatan Mod 7 = 0 Then
List1.AddItem "Kelipatan 7"
End If

If kelipatan Mod 8 = 0 Then
List1.AddItem "Kelipatan 8"
End If

If kelipatan Mod 9 = 0 Then
List1.AddItem "Kelipatan 9"
End If
End Sub

Di program ini saya hanya menuliskan sampai kelipatan sembilan saja, anda bisa mengganti / menambahkan kelipatanya bebas, sesuai kreatifitas dan kemaun anda.

Private Sub Command1_Click() 'Ketika Command 1 di click List1.Clear 'List 1 dalam keadaan kosong bil = Val(Text1) 'Bil = nilai dari text 1 If bil Mod 2 = 0 Then 'Jika bila bisa di bagi 2 maka ket = "GENAP" 'ket = Genap List1.AddItem "Kelipatan 2" 'List 1 di tambahkan kata "Kelipatan 2" Else '|Jika Tidak ket = "GANJIL" 'Ket = ganjil End If Text2 = ket 'Apapun hasil dari ket. maka akan di tampilkan di text 2 kelipatan = Val(Text1) If kelipatan Mod 3 = 0 Then 'Jika bila bisa di bagi 3 maka List1.AddItem "Kelipatan 3" 'List 1 di tambahkan kata "Kelipatan 3" End If If kelipatan Mod 4 = 0 Then List1.AddItem "Kelipatan 4" End If If kelipatan Mod 5 = 0 Then List1.AddItem "Kelipatan 5" End If If kelipatan Mod 6 = 0 Then List1.AddItem "Kelipatan 6" End If If kelipatan Mod 7 = 0 Then List1.AddItem "Kelipatan 7" End If If kelipatan Mod 8 = 0 Then List1.AddItem "Kelipatan 8" End If If kelipatan Mod 9 = 0 Then List1.AddItem "Kelipatan 9" End If End Sub

5. Jalankan Program dan lihat hasilnya :


Itulah Program sederhana untuk menentukan bilangan ganjil / genap dan kelipatanya
Sekian dan terimakasih