Mencari bilangan fibonacci dengan VB.net

Saya rasa mengenai pengertian apa itu bilangan Fibonacci tidak perlu saya jelaskan di sini. Silakan gugling sendiri untuk mengetahui penjelasannya. Xixixi

Langsung saja kita buat Program untuk mencari bilangan Fibonacci sampai batas tertentu.

Urutan kerja :

1. Bikin Form


2. Tulis coding

------------------------------------

1. Bikin form

Silakan bikin form dengan penampakan sebagai berikut :

Keterangan

- textbox1, sebagai tempat mengisi BATAS

- button1, sebagai tombol CARI

- button2, sebagai tombol BERSIHKAN

- listbox1, sebagai tempat hasil




2. Tulis  coding

Codingnya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, z As Integer
Dim Batas As String
Batas = Val(TextBox1.Text)

ListBox1.Items.Clear()
If TextBox1.Text = "" Then
ListBox1.Items.Add("Kamu belum memasukkan 'Batas' ")

Else
If CInt(Batas) < 1 Then

ListBox1.Items.Add("Tidak ada")
Else
x = 1
y = 0
z = 1
Do Until x > CInt(Batas)

ListBox1.Items.Add(x)
x = y + z
y = z
z = x
Loop
End If

End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
TextBox1.Text = ""
End Sub

Selesai.... silakan dijalankan.. ;)

Listing di atas juga bisa diterapkan di VB...