Menentukan Barisan Bilangan dengan Fungsi For dan Next

Di tutorial sebelumnya saya telah membahas mengenai fungsi dari percabangan For dan Next, Pada tutorial kali ini kita akan membuat program sederhana yang berkaitan dengan for dan next, sengaja saya buatkan program ini, agar anda yang sedang belajar VB, terutama mengenai fungsi For dan Next, agar anda bisa lebih memahaminya, untuk progam pertama yang akan saya jelaskan untuk fungsi ini, adalah menentukan barisan bilangan dengan pola / interval maju (bertambah) dan mundur (Berkurang), baiklah berikut tutorialnya :

1. Seperti biasa, jalankan VB dengan project Standar EXE
2. lalu tambahkan 2 label, 2 text box, 1 command button dan 1 list box, dan atur tampilannya, contohnya seperti ini :

3. Lalu ubah Propertienya, namun disini saya hanya merubah caption / textnya saja, untuk properties lainya, silahkan sesuai kreatifitas anda masing masing.
Tool BoxPropertiesKeterangan
Label 1CAPTIONNilai Awal
Label 2Nilai Akhir
Command 1Lihat Barisan
Text 1TextKosong
Text 2
Sehingga seperti ini :

4. Setelah itu, tuliskan script berikut :

Private Sub Command1_Click()
awal = Val(Text1) 'Nilai dari text 1 akan di simpan di memori dengan nama awal
akhir = Val(Text2)
List1.Clear 'List 1 dalam keadaan bersih / kosong
For barisan = awal To akhir Step 1 'Barisan adalah dari awal sampai akhir
List1.AddItem barisan 'Setiap nilai yang ada di barisan akan di tambahkan di List 1
Next barisan
End Sub
Catatan :
Script diatas, adalah script untuk pola maju dengan pertambahan 1, untuk pola mundur silahkan ganti Step 1 dengan Step -1 atau dengan angka lainya,
Jika ingin barisan bilangan hanya untuk bilangan ganjil dan genap, ganti saja angka 1 menjadi 2.
dan jika anda ingin barisan bilangan berdasarkan kelipatan, ganti saja angka 1 dengan kelipatan yang di inginkan.
5. Setelah itu silahkan jalankan programnya.
Pola Maju
Pola Mundur
Itualah program sederhana untuk mengaplikasikan fungsi For dan Next, untuk tutorial selanjutnya masih dengan tema yang sama (Fungsi for dan next) akan saya bahas cara untuk Menuliskan Huruf dari A Sampai Z Secara Otomatis
Sekian tutorial kali ini, selamat mencoba
Terimakasih

0 Response to "Menentukan Barisan Bilangan dengan Fungsi For dan Next"

Post a Comment