Perulangan For-Next pada Visual Basic 6.0
Npm : 23219741 (Ganjil)
Kelas : 1EB01
1. Pembuatan Design Program
a. Buka Aplikasi Microsoft Visual Basic 6.0, klik Standart
Exe pada bagian New. Setelah itu akan keluar form yang berfungsi untuk membuat
aplikasi.
b. Disini yang akan saya buat adalah aplikasi yang
menampilkan barisan Fibonacci atau barisan yang menambahkan kedua bilangan yang
berurutan sebelumnya dan diawali dengan angka 1.
c. Pertama saya mengganti nama pada bagian form (1), dengan
cara klik Caption pada Properties Windows (2) ubah menjadi "For Next"
.
d. Selanjutnya buat Label untuk Keterangan. Caranya klik
Label pada ToolBox (1), lalu buat di area Form (2). Untuk mengubah nama
tampilan klik Caption pada Properties Windows (3) ubah menjadi N =
e. Selanjutnya buat TextBox atau kotak yang akan kita
masukan angka yang akan di proses oleh aplikasi. Caranya klik TextBox pada
ToolBox (1) lalu buat di area Form (2). Untuk menghilangkan tulisan Text1 pada
TextBox klik Text pada Properties Windows (3) lalu Hapus. (Menghapus tulisan
pada TextBox bertujuan agar saat me-Running aplikasi tidak muncul tulisan
selain yang kita ketik)
f. Selanjutnya buat ListBox atau box yang akan menampilkan
barisan angka Fibonacci. Caranya klik ListBox pada ToolBox (1) lalu buatlah di
area form. Untuk menghapus tulisan List1 pada ListBox, klik List pada
Properties Windows(3)klik panah bawah lalu Enter.
g. Terakhir dari pembuatan design ini adalah membuat Command
Button atau Tombol yang akan menjalankan aplikasi yang kita buat. Caranya klik
CommandButton pada ToolBox (1) lalu buat di area Form (2). Untuk mengubah nama
klik Caption pada Properties Windows (2) menjadi Tampilkan Barisan
h. Berikut rincian pengaturan Properties Windows dengan
lebih jelas :
2. Pembuatan Codingan atau Kode Program.
a. Klik 2x pada CommandButton atau Tampilkan Barisan.
Masukkan kode berikut :
Penjelasan :
N = Val (Text1) adalah mengubah text1 menjadi tipe data
numerik.
List1.Clear bertujuan untuk membersihkan isi pada List1.
Suku1 dan Suku2 merupakan penjelasan atas dasar rumus
Fibonacci.
List1.additem untuk menambahkan isi pada List1.
For i = 3 To N merupakan For Variabel = Nilai_Awal To
Nilai_Akhir.
bil merupakan Bilangan.
3. Running Program
Untuk melihat tampilan Running berbentuk video, ada pada
bagian akhir penjelasan ini.
a. Untuk menjalankan aplikasi klik Start pada ToolBar.
b. Setelah klik Start, maka tampilan Running akan seperti
ini.
c. Saya akan coba memasukkan angka 10 pada Textbox. Maka
ListBox akan terisi seperti ini.
Penjelasan :
Deret angka Fibonacci merupakan deret angka yang
menjumlahkan dua angka sebelumnya.
Ketika TextBox diisi angka 10, maka barisan angka yang akan
keluar adalah 10 baris.
Rumus dalam Fibonacci adalah Un = Un2 + Un1.
Komentar
Posting Komentar