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

1. Pertama Buka aplikasi VISUAL BASIC 2008, 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

Kemudian buat seperti ini

Atributnya antara lain

 * 2 GroupBox:

            GroupBox1 : Text : Jenis Bilangan 

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

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

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

4. Selesai, maka setelah itu jalankan programnya dengan memilih tombol run Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Ganjil

Genap

Prima

Fibonaci

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J