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 BoxPropertiesKeterangan
Form 1Star Up PostitionCenter Screen
Label 1CaptionBilangan
Label 2Bilangan
Text 1NameText1
EnabledTrue
Text(Kosongkan saja)
Text 2NameTextWaktu
EnabledFalse
Text(Kosongkan saja)
Command 1CaptionCHECK
FrameCaptionKelipatan
List BoxEnabledFalse
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.
5. Jalankan Program dan lihat hasilnya :


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

0 Response to "Menentukan Bilangan Genap / Ganjil dan Kelipatanya Visual Basic"

Post a Comment