Cara Membuat Deret Fibonacci dalam VB 2008

"Om Swastiastu"

Setelah lama tidak sempat membuat postingan artikel karena sakit dan laptop yang bermasalah, kali ini akhirnya saya bisa melakukan aktivitas blog dengan normal lagi. Pada kesempatan ini saya ingin memberikan sedikit ilmu mengenai  deret bilangan fibonacci dalam VB 2008. Deret fibonacci merupakan deret bilangan yang memiliki rumus bahwa bilangan berikutnya merupakan hasil penjumlahan dari dua bilangan sebelumnya, kecuali dua bilangan pertama yang sealu diisi dengan angka nol dan satu.

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.

"Om Santhi, Santhi, Santhi, Om"