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
Comments
Posting Komentar