Senin, 06 Mei 2013

Algoritma Menampilkan Deret Fibonacci di Visual Basic

Ternyata tidak hanya Algoritma Mencari Bilangan Prima yang ditanyakan pada penulis, Algoritma menampilkan Bilangan (Deret) Fibonacci juga ditanyakan. Apa deret Fibonacci itu, setahu penulis sih sama dengan Fibonacci Retracement yang sering digunakan di Analisa Teknikal Grafik Saham, silakan bagi yang belum tahu atau lupa untuk googling sendiri hehe :D

Hasilnya penulis buatkan di Visual Basic .NET karena VB 6.0 sudah tidak terinstall di komputer. Tetapi coding di bawah ini bisa dipakai untuk Visual Basic 6.0 :

Buat project baru, tambahkan satu buah ListBox dan satu buah Button, pada button tambahakan kode program berikut :



Public Class Form1
    ' http://cariprogram.blogspot.com
    ' nuramijaya@gmail.com
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer = 0
        Dim b As Integer = 1
        Dim fib As Integer = 0

        ListBox1.Items.Clear()
        ListBox1.Items.Add("1")
        Do
            fib = a + b
            a = b
            b = fib
            ListBox1.Items.Add(fib.ToString)
        Loop While fib <= 100

        'di vb 6.0 gunakan 
        'ListBox1.Clear 
        'dan 
        'ListBox1.Add fib
    End Sub
End Class


Hasilnya :


Project selengkapnya silakan didownload disini. Kesulitan dalam mendownload, caranya seperti ini..

Semoga berguna.