Menentukan Jumlah Baris Bilangan Fibbonanci Dengan Fungsi For - Next

Di tutorial sebelumnya, mengenai Fungsi For dan Next, kita telah belajar membuat program untuk menuliskan Huruf Alfabet dari A sampai Z dan a sampai z, kali ini (masih dengan tema yang sama) kita akan membuat sebuah program, di mana kita bisa membuat barisan bilangan Fibbonanci (nilai terakhir adalah jumlah dari nilai dua suku sebelumnya, sebanyak N (Jumlah Baris), contohnya 4, 9 X, maka nilai x adalah 13 (4 + 9), Baiklah berikut tutorialnya :

1. Jalankan VB dengan program Standar EXE

2. Lalu tambahkan 1, Label, 1 Text Box, 1 Command Button, dan 1 List Box dan 

atur tampilanya, sehingga seperti ini :

3. Lalu ubah Properti Caption di Label, menjadi "Jumlah Baris" dan Command Button = "Lihat Barisan", sehingga seperti ini :

4. Lalu tuliskan script berikut, di command button:

Private Sub Command1_Click()

List1.Clear 'Mengkosongkan List

suku1 = 1 

suku2 = 1

For JumlahBaris = 1 To Text1 'Jumlah Baris mulai dari 1 sampai text 1, jadi jika text 1 = 7, maka akan ada 7 baris angka di list 1

MulaiDari = suku1 + suku2 'Nilai di mulai dari jumlah dari suku1 dan suku2 (2)

List1.AddItem MulaiDari 'Penambahan nilai dari Mulai Dari

suku1 = suku2 'Script agar nilai suku berikutnya adalah -

suku2 = MulaiDari 'Penjumlahan dari nilai 2 suku sebelumnya

Next JumlahBaris

End Sub

5. Selanjutnya Coba Jalankan programnya,

Contohya disini saya menuliskan 10 di Text 1, maka jumlah baris yang akan ada di list 1 = 10, sehingga baris bilanganya seperti ini, 2, 3, 5, 8, 13, 21, 34, 55, 89, 114

Itulah tutorial kali ini mengenai Cara Membuat Barisan Bilangan dengan format Fibbonanci, untuk tutorial selanjutnya, kita akan membuat sebuah barisan bilangan di mana ketika sudah mencapai batas yang sudah di tentukan, maka fungsi For dan Next tersebut akan berhenti.

Sekian tutorial kali ini, Selamat Mencoba

Terimakasih