Pertemuan V - 9 maret program menampilkan Bilangan Ganjil, Genap, Prima, dan Fibonaci menggunakan Visual Basic 2010.

helloo, kali ini saya akan membuat sebuah program menampilkan Bilangan Ganjil, Genap, Prima, dan Fibonaci  menggunakan Visual Basic 2010.

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

  

3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

• 2 Buah GroupBox
  • GroupBox1 : Text : Jenis Bilangan
  • GroupBox2 : Text : Hasil
• 1 Buah ComboBox
  • Items :
    • Ganjil
    • Genap
    • Prima
    • Fibonaci
• 1 Buah ListBox : (name) : bilangan
• 2 Buah Button
  • Button 1 : (name) : btnInputBil | Text : Input Bilangan
  • Button 2 : (name) : btnExit | Text : Exit

4. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :

Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click

Dim ganjil, genap, prima As Integer

If (ComboBox1.SelectedIndex.Equals(0)) Then
bilangan.Items.Clear()
ganjil = 1
Do While ganjil <= 20
bilangan.Items.Add(ganjil)
ganjil = ganjil + 2
Loop

ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
bilangan.Items.Clear()
genap = 0
Do While genap <= 20
bilangan.Items.Add(genap)
genap = genap + 2
Loop

ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
bilangan.Items.Clear()

Dim x As Integer
Dim y As Integer
Dim z As Integer

For x = 2 To 100
z = 0
For y = 2 To x
prima = x Mod y
If prima = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
bilangan.Items.Add(x)
End If
Next x

ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
bilangan.Items.Clear()
Dim a As Integer = 0
Dim b As Integer = 1
Dim fib As Integer = 0

bilangan.Items.Add(“1?)
Do
fib = a + b
a = b
b = fib
bilangan.Items.Add(fib.ToString)
Loop While fib <= 100
End If
End Sub

5. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub

6. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Hasil Untuk Ganjil :

 

Hasil Untuk Genap : 

  Hasil untuk Prima :

 

 Hasil untuk Fibonaci :

 

 Sekian dan Terima Kasih.