SELAMAT DATANG

"Selamat Datang di blog saya, semoga blog ini dapat bermanfaat bagi anda"

Kamis, 19 Mei 2011

Membuat Program Barisan Fibonacci Dengan Visual Basic

1.) kita harus buat designnya terlebih dahulu, terserah, seperti apa yang anda inginkan,,
2.) kalau sudah, double klik button1 atau button proses, lalu ketik sintaksnya, sintaksnya:

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

penjelasannya:

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.

3.) klo udah, double click button2 atau button Exit dan ketikkan syntax berikut:

End

4.) kemudian tekan f5 untuk compile dan untuk menjalankan program,
perlu diingat, batas maksimal angkanya hanya 100.

Tidak ada komentar:

Posting Komentar