Menghentikan Fungsi For dan Next Dengan Exit For

Sebelumnya kita telah belajar mengenai Cara Mengatur Jumlah Baris Yang Akan di Tampilkan Dengan Pola Fibbonanci, kali ini kita akan belajar cara menghentikan script For dan Next ketika sudah mencapai batas yang sudah di tentukan, untuk menghentikanya, script yang digunakan adalah "Exit For", sekilas mengenai program yang akan di buat, kita akan menentukan awal dan akhir sebuah nilai dari sebuah Barisan Bilangan, dengan pola tertentu dan kita akan menghentikannya ketika nilai tersebut sudah melebihi dari nilai yang sudah kita tentukan sebelumnya, baiklah agar anda bisa lebih memahaminya, berikut tutorialnya :

1. Buka Visual Basic dengan Program Standar EXE
2. Lalu tambahkan 4 Label, 4 Text Box, 1 Command Button, dan 1 List Box, aturlah sehingga tampilannya seperti ini :

3. Untuk Propertiesnya, di sini saya hanya mengubah Caption dan Textnya saja, sehingga seperti ini :

4. Lalu tuliskan script berikut di command button, sehingga keseluruhan script seperti ini :

Private Sub Command1_Click()
List1.Clear 'Mengkosongkan Area List 1
For i = Val(Text1) To Val(Text2) Step Val(Text3) 'Jumlah Barisan di tentukan dari nilai text1 dan nilai text2, dan juga dari interval text3
If i >= Val(Text4) Then Exit For 'Jika nilai i Lebih dari nilai di text4 maka, Fungsi dari For Berhenti
List1.AddItem i 'List 1 di tambahkan nilai dari i
Next i
End Sub

Private Sub Command1_Click() List1.Clear 'Mengkosongkan Area List 1 For i = Val(Text1) To Val(Text2) Step Val(Text3) 'Jumlah Barisan di tentukan dari nilai text1 dan nilai text2, dan juga dari interval text3 If i >= Val(Text4) Then Exit For 'Jika nilai i Lebih dari nilai di text4 maka, Fungsi dari For Berhenti List1.AddItem i 'List 1 di tambahkan nilai dari i Next i End Sub

5. Jalankan Program,

Jika Text1 (Nilai Awal) = 4 dan Text2 (Nilai Akhir) = 40, dengan Text4 (interval) = 4, maka akan di peroleh barisan bilangan 4, 8, 12, 16, 20, 24, 28, 32, 36, dan 40.

Jika Text4 (Batas / STOP) = 60, maka barisan nilai tersebut di tuliskan secara lengkap, karena Nilai akhir lebih kecil dari batasan.

Jika batasan = 20, maka barisan nilai hanya di tuliskan sampai 16 saja, karena nilai akhir lebih besar dari batasan. sehingga barisan bilangan akan seperti ini :

Itulah pembahasan mengenai Fungsi dari Script Exit For, yang di gunakan untuk menghentikan script For dan Next, Untuk tutorial selanjutnya kita akan membahas mengenai Cara Membuat Barisan Bilangan Secara Bergiliran Negatif dan Positif, contohnya -1, 2, -3, 4, -5, 6 ......

.

Sekian untuk tutorial kali ini,

Terimakasih