Cara Mencari Deret Angka Fibonacci di VB6

Pada artikel kali saya akan menampilkan sebuah Deret Angka Fibonacci di Visual Basic 6.0

Sebelum kita memperaktekan bagaimana menempilkan Deret Fibonacci alangkah baiknya kita cari tau dulu pengertian deret angka Fibonacci.

Fibonacci adalah suatu barisan bilangan yang merupakan hasil penjumlahan dua bilangan sebelumnya.

Bilangan Fibonacci diperkenalkan pertama kali oleh Leonardo da Pisa atau yang lebih dikenal dengan Fibonacci pada abad ke 13

Dia menemukan sederet angka unik yang disebut deret Fibonacci misalnya 1,1,2,3,5,8,13,21,34,55,89…..dst

Deret ini dimulai dari 1 diikuti angka ke 2 dan kemudian menambahkan  angka 1 dan 2 untuk mendapatkan angka ke 3.Kemudian menambahkan angka 2 dan 3 untuk mendapatkan angka ke 5 dan seterusnya.

Biasanya deret angka Fibonacci ini digunakan untuk para trader untuk membeli atau menjual di area yang sama.

Nah seperti itulah sekilas tentang deret angka Fibonacci.

Lalu bagaimna cara menghitung deret angka Fibonacci di Visual Basic 6.0 berikut adalah langkah-langkahnya :

Buka Form VB6 Anda pilih Standar EXE

Tanamkan 3 Label, 3 Textbox, 2 Commandbuton dan 1 Listbox

Kemudian desainlah seperti gambar dibawah ini :

Desain Form Deret Fibonacci

Setelah Anda mendesain form silahkan ketik kode dibawah ini pada masing Commandbuton :

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

MsgBox "Isi Data secara lengkap", vbOKOnly, "Data tidak lengkap"

Text1.SetFocus

Else

Dim a, b, c, n As Integer

a = Text1.Text

b = Text2.Text

n = Text3.Text

List1.AddItem a

List1.AddItem b

For i = 3 To n

c = Val(a) + Val(b)

List1.AddItem c

a = b

b = c

Next i

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Tambahkan juga  kode dibawah ini dibagian Form_Load, untuk mengosongkan textbox

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Kemudian jalankan program Anda, jika tidak ada erorr maka hasilnya akan tampak pada gambar dibawah ini : 

Ouput Deret Fibonacci VB6

Demikian artikel kali ini tentang Cara Mencari Deret Angka Fibonacci di VB6, semoga artikel bermnafaat buat kita semua.Amin

Selamat mencoba semoga sekses

Related Post: Uncategories