Pengulangan memakai For dan Next ialah bentuk pengulangan terkendali dengan variabel yang terus berjalan maju atau mundur. Format umum penulisannya ialah :
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 memakai step 1
untuk menambahkan angka 1 hingga 6, kalau tanpa fungsi for dan next , maka akan menyerupai 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 dapat mempersingkat penulisan scriptnya, sehingga menyerupai ini :
Private Sub Form_Load()
For angka = 1 To 6 'Untuk nilai dari angka ialah 1 hingga 6
Combo1.AddItem angka 'Combo1 di tambahkan item menurut 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 mempunyai nilai awal 1 dan nilai selesai 6, dengan interval 1 (jarak antara angka sebelum dengan sesudahnya, menyerupai 1 dan 2), maka untuk menuliskan barisan bilangan tersebut, kita tidak perlu menuliskan 1 hingga 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 memakai step 1
Agar lebih memahaminya, kita akan mengaplikasikan fungsi ini, ke sebuah program, sebagai contohya, masih dengan pola diatas, Buat project gres dengan standar EXE, kemudian tambahkan 1 combo box, dan kosongkan captionya,
untuk menambahkan angka 1 hingga 6, kalau tanpa fungsi for dan next , maka akan menyerupai 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 dapat mempersingkat penulisan scriptnya, sehingga menyerupai ini :
Private Sub Form_Load()
For angka = 1 To 6 'Untuk nilai dari angka ialah 1 hingga 6
Combo1.AddItem angka 'Combo1 di tambahkan item menurut nilai dari angka
Next angka
End Sub
Mungkin, kalau 1 hingga 6 tidak duduk kasus untuk penulisan script pertama, tapi kalau hingga 100, anda di haruskan menuliskan script Combo1.Additem "1" hingga 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,
biar anda lebih memahaminya, aku telah berbagi sebuah jadwal sederhana sebagai pembelajaran bagi anda yang belum mengerti dan ingin mendalaminya : berikut tutorialnya :
Sekian tutorial kali ini, semoga bermanfaat
Comments
Post a Comment