Menghentikan Fungsi For Dan Next Dengan Exit For

Sebelumnya kita telah berguru mengenai Cara Mengatur Jumlah Baris Yang Akan di Tampilkan Dengan Pola Fibbonanci, kali ini kita akan berguru cara menghentikan script For dan Next dikala sudah mencapai batas yang sudah di tentukan, untuk menghentikanya, script yang dipakai yaitu "Exit For", sekilas mengenai aktivitas yang akan di buat, kita akan memilih awal dan simpulan sebuah nilai dari sebuah Barisan Bilangan, dengan pola tertentu dan kita akan menghentikannya dikala nilai tersebut sudah melebihi dari nilai yang sudah kita tentukan sebelumnya, sepakat biar anda dapat 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 ibarat ini :

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

4. Lalu tuliskan script berikut di command button, sehingga keseluruhan script ibarat 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, alasannya yaitu Nilai simpulan lebih kecil dari batasan.

Jika batasan = 20, maka barisan nilai hanya di tuliskan hingga 16 saja, alasannya yaitu nilai simpulan lebih besar dari batasan. sehingga barisan bilangan akan ibarat 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, misalnya -1, 2, -3, 4, -5, 6 ......

.

Sekian untuk tutorial kali ini,

Terimakasih