Pertemuan 5, 16 Maret 2015 : Menampilkan Deret Bilangan Ganjil, Genap, Prima, dan Fibonaci Menggunakan Visual Basic

Berikut contoh
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 :