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	Caption	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.

5. Jalankan Program dan lihat akhirnya :