Cara Membuat Deret Fibonacci dalam VB 2008

Untuk membuat aplikasi deret bilangan VB ini, hal pertama yang harus kalian lakukan adalah membuat desain form VB seperti yang terlihat pada gambar dibawah ini:

Nah, jika sudah, double click button1 atau button proses, lalu ketikkansyntax berikut:


Dim w, y, z As Integer
        y = 0
        z = 1
        ListBox1.Items.Clear()
        ListBox1.Items.Add(y)
        ListBox1.Items.Add(z)
        For x As Integer = _
            1 To NumericUpDown1.Value
            w = y + z
            y = z
            z = w
            If w > NumericUpDown1.Value _
            Then Exit For
            ListBox1.Items.Add(w)
        Next

PENJELASAN:

Variabel w berfungsi untuk menampung hasil penjumlahan dua bilangan sebelumnya dari deret yang tersedia yaitu variabel y dan z. Dan pada saat hasil penjumlahan tersebut telah melebihi batas yang telah ditentukan (dengan perintah IF), maka perulangan akan dikeluarkan dari proses dengan menggunakan perintah Exit For.

Jika sudah, double click button2 atau button Exit dan ketikkan syntax berikut:

End

Selanjutnya tekan F5 untuk compile dan menjalankan program, jika sudah maka akan terlihat hasilnya seperti gambar dibawah ini. Dan nilai maksimal dari numericupdown adalah 100.

Semoga tutorial VB 2008 kali ini  berguna buat teman-teman sekalian.