Cara Menghentikan Fungsi For dan Next dengan Exit For di VB6

Pada tutorial kali ini saya akan menulis sebuah artikel tentang bagaimana Cara Menghentikan Fungsi For dan Next dengan Exit For di VB6.

Kode ini adalah membuat sebuah kelipatan angka dengan menggunakan perulangan For dan Next dan akan di hentikan oleh fungsi For.

Dimana ketika kita akan menentukan kelipatan angka awal terlebih dahulu, misalnya angka awal yang ditampilkan 10 dan interval kelipatannya adalah 10 maka hasilnya akan seperti ini 10-20-30-40-50-60-70-80-90-100-110-120 dan seterusnya dan kita juga bisa memberikan batas akhir dari kelipatan, dalam contoh ini kita masukan angka 100 sampai menunggu ada perintah untuk menghentikan atau men-stop perulangan tersebut sampai angka yang telah ditentukan oleh pengguna, misal si pengguna menghentikan pada posisi 80, maka hasilnya menjadi 10-20-30-40-50-60-70 karena kita menstop perulangannya sampai angka 80 dan batas akhir 100 akan diabaikan.

Untuk lebih mudah memahami langsung aja kita ke tutorialnya :

Cara Menghentikan Fungsi For dan Next dengan Exit For di VB6

Seperti biasa langkah awal adalah buka form VB6 Anda dan pilih standar Exe

Pada form tanamkan 4 Label, 4 Tetbox, 2 Commandbuton dan 1 Listbox

Desainlah form seperti gambar dibawah ini :

Desain Form

Langkah selanjutnya kita akan menulis kodenya dengan cara double klik Command1 dan ketik kode dibawah ini di bagian Command1 :

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" Then

MsgBox "Data belum terisi lengkap", vbOK, "Perhatian"

Text1.SetFocus

Else

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 If

End Sub

Ketik juga kode pada Command 2 seperti dibawah ini :

Private Sub Command2_Click()

List1.Clear

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Setelah Anda mengetikan kodenya sekarang coba Anda jalankan program Anda, jika tidak ada error coba masukan angka pada masing-masing textbox. 

Lebih kurang seperti gambar dibawah ini.

Output Form

Catatan :

Anda bisa mencobanya dengan angka lain,silahkan di ekspresikan

Sekian artikel dari saya tentang Cara Menghentikan Fungsi For dan Next dengan Exit For di VB6, Semoga artikel ini bermanfaat buat kita semua. Amin

Related Post: Looping Matematika