Cara Membuat Program Fibonacci dengan Visual Basic 2010

halo sobat blogger yang gaul abis :DD hehehe

udah lama ya saya ga ngepost lagi, ada yang kangen sama postan saya ga ya?

oke langsung aja kita mulai, cara membuat programnya..

Fibonacci

1. buat lah design seperti gambar di atas ini. yang terdiri dari 6 Label,
3 textbox, 2 button dan 1 listbox

2. setelah selesai membuat design sama seperti yang di atas lalu ganti lah nama-nama dari mereka semua. yang terdapat pada bagian properties masing masing tool

tampilan properties pada label 1

3. setelah semua label telah di ganti namanya menjadi yang seharusnya, selanjutnya mengganti variabel untuk textbox 1 sampai dengan textbox 3

ganti lah variabel  : 

textbox 1 dengan : Deret1

textbox 2 dengan : Deret2

textbox 3 dengan : Jumlahderet

4. maka tampilan akan seperti ini, dan tambah kan desain sesuai keinginan anda.

5. lalu double kick di button "Proses" dan masukan kode berikut

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'Pembuatan program fibonacci sederhana
        Dim X, Y, Z, n As Double
        X = Deret1.Text 'mokingjay-art.blogspot.com
        Y = Deret2.Text  
        n = Jumlahderet.Text
        Hasil.Items.Add(X) 
        Hasil.Items.Add(Y) 
        'pengulangan for
        'mokingjay-art.blogspot.com
        For i = 3 To n
            Z = Val(X) + Val(Y)
            Hasil.Items.Add(Z)
            X = Y
            Y = Z
        Next i
keterangan

6.  dan double kick juga button Keluar dan tambah kan kode

End

setelah selesai tekan F5 untuk menjalankan program, jika terjadi error cek semua variabel yang ada. jangan sampai variabel dengan kode yang kita masukan berbeda.

terima kasih atas perhatiannya :D
jangan mudah menyerah, terjadi error itu biasa. hehehe