Menentukan Bilangan Genap / Ganjil Dan Kelipatanya Visual Basic

Bilangan Genap yakni bilangan yang dapat di bagi 2, artinya bilangan yang apabila di bagi 2 menghasilkan bilangan yang bukan desimal (koma), sedangkan bilangan ganjil yakni bilangan yang tidak dapat di bagi 2, setiap bilangan yang di bagi 2 akan menghasilkan bilangan desimal, misalnya 10 : 2 = 5 (karena tidak ada koma, maka 10 yakni bilangan genap), 5 : 2 = 2.5, maka 5 termasuk bilangan ganjil, alasannya menghasilkan bilangan desimal, untuk kegiatan visual basic kali ini, kali ini kita akan menciptakan kegiatan untuk memilih suatu bilangan genap atau ganjil, tapi tak hanya itu, kita juga dapat memilih kelipatanya, oke 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 menyerupai ini :

3. Lalu ubah propertiesnya menyerupai 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 menyerupai ini :

4. kemudian 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 jikalau dapat 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 jikalau dapat 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 kegiatan ini aku hanya menuliskan hingga kelipatan sembilan saja, anda dapat 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 jikalau dapat 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 jikalau dapat 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 akhirnya :


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