Pengulangan menggunakan For dan Next adalah bentuk pengulangan terkendali dengan variabel yang terus berjalan maju atau mundur. Format umum penulisannya adalah :
For variabel = nilai_awal To nilai_akhir Step interval
<Proses yang akan terjadi>
Next variabel
For Barisan =1 To 6 Step 1
<Proses untuk yang akan terjadi>
Next Barisan
Karena intervalnya 1, maka penulisan script pun tidak harus menggunakan step 1
untuk menambahkan angka 1 sampai 6, jika tanpa fungsi for dan next , maka akan seperti ini scriptnya:
Private Sub Form_Load()
Combo1.Additem "1"
Combo1.Additem "2"
Combo1.Additem "3"
Combo1.Additem "4"
Combo1.Additem "5"
Combo1.Additem "6"
End Sub
Dengan fungsi for dan next, kita bisa mempersingkat penulisan scriptnya, sehingga seperti ini :
Private Sub Form_Load()
For angka = 1 To 6 'Untuk nilai dari angka adalah 1 sampai 6
Combo1.AddItem angka 'Combo1 di tambahkan item berdasarkan nilai dari angka
Next angka
End Sub
For variabel = nilai_awal To nilai_akhir Step interval
<Proses yang akan terjadi>
Next variabel
Contohnya :
Untuk menuliskan barisan bilangan dari 1, 2, 3, 4, 5, dan 6, maka barisan bilangan tersebut memiliki nilai awal 1 dan nilai akhir 6, dengan interval 1 (jarak antara angka sebelum dengan sesudahnya, seperti 1 dan 2), maka untuk menuliskan barisan bilangan tersebut, kita tidak perlu menuliskan 1 sampai 6, kita hanya perlu menuliskan script berikut :
For Barisan =1 To 6 Step 1
<Proses untuk yang akan terjadi>
Next Barisan
Karena intervalnya 1, maka penulisan script pun tidak harus menggunakan step 1
Agar lebih memahaminya, kita akan mengaplikasikan fungsi ini, ke sebuah program, sebagai contohya, masih dengan contoh diatas, Buat project baru dengan standar EXE, lalu tambahkan 1 combo box, dan kosongkan captionya,
untuk menambahkan angka 1 sampai 6, jika tanpa fungsi for dan next , maka akan seperti ini scriptnya:
Combo1.Additem "1"
Combo1.Additem "2"
Combo1.Additem "3"
Combo1.Additem "4"
Combo1.Additem "5"
Combo1.Additem "6"
End Sub
Dengan fungsi for dan next, kita bisa mempersingkat penulisan scriptnya, sehingga seperti ini :
Private Sub Form_Load()
For angka = 1 To 6 'Untuk nilai dari angka adalah 1 sampai 6
Combo1.AddItem angka 'Combo1 di tambahkan item berdasarkan nilai dari angka
Next angka
End Sub
Mungkin, kalau 1 sampai 6 tidak masalah untuk penulisan script pertama, tapi jika sampai 100, anda di haruskan menuliskan script Combo1.Additem "1" sampai Combo1.Additem "100", terbayangkan banyaknya script yang harus anda tulis, belum lagi script lainya, dengan fungsi for dan next anda hanya tinggal mengganti angka 6, menjadi angka 100 atau angka terakhir dari barisan.
Bagaimana anda sudah mengerti mengenai fungsi for dan next,
agar anda lebih memahaminya, saya telah membuatkan sebuah program sederhana sebagai pembelajaran bagi anda yang belum mengerti dan ingin mendalaminya : berikut tutorialnya :
Sekian tutorial kali ini, semoga bermanfaat
0 Response to "Percabangan For dan Next Visual Basic"
Post a Comment