Menentukan Jumlah Baris Bilangan Fibbonanci Dengan Fungsi For - Next

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

1. Jalankan VB dengan agenda Standar EXE

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

atur tampilanya, sehingga menyerupai ini :

3. Lalu ubah Properti Caption di Label, menjadi "Jumlah Baris" dan Command Button = "Lihat Barisan", sehingga menyerupai 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 hingga text 1, jadi bila 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 semoga nilai suku berikutnya ialah -

suku2 = MulaiDari 'Penjumlahan dari nilai 2 suku sebelumnya

Next JumlahBaris

End Sub

5. Selanjutnya Coba Jalankan programnya,

Contohya disini aku menuliskan 10 di Text 1, maka jumlah baris yang akan ada di list 1 = 10, sehingga baris bilanganya menyerupai 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 menciptakan sebuah barisan bilangan di mana saat sudah mencapai batas yang sudah di tentukan, maka fungsi For dan Next tersebut akan berhenti.

Sekian tutorial kali ini, Selamat Mencoba

Terimakasih