Latihan "Program Menampilkan Bilangan Ganjil, Genap, Prima, dan Fibonaci menggunakan Microsoft Visual Basic 2010"

Kali ini saya akan membuat tutorial cara menampilkan deret bilangan ganjil, genap, prima, dan Fibonaci menggunakan visual  basic 2010.

Langkah-langkahnya adalah sebagai berikut :

1.       Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya terserah. Kemudian klik ok.

2.      Kemudian buat tampilan seperti di bawah ini, yang terdiri dari 2 Buah GroupBox, 1 Buah ComboBox, 1 Buah ListBox, 2 Buah Button.

Kemudian ubah semua nama text sesuai kebutuhan.

·         2 Buah GroupBox

o    GroupBox1 : Text : Jenis Bilangan

o    GroupBox2 : Text : Hasil

·         1 Buah ComboBox

o    Items :

§  Ganjil

§  Genap

§  Prima

§  Fibonaci

·         1 Buah ListBox : (name) : bilangan

·         2 Buah Button

o    Button 1 : (name) : btnInputBil | Text : Input Bilangan

o    Button 2 : (name) : btnExit | Text : Exit

3.       Setelah itu kemudian masukan source kodenya ke masing-masing button.

·         Button input bilangan source kodenya adalah sebagai 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

·         Button Exit source kodenya adalah sebagai berikut :

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

End Sub

4.      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 :

Tombol exit di gunakan untuk keluar dari program.

Sekian dan Terima Kasih.