Cara Looping Dengan GoTo (Tanpa For..Next/Do..Loop) VB6/VBNET
Terkadang anda akan menemukan sebuah kasus yang mengharuskan looping secara logika bukan secara sintak, salah satu caranya adalah dengan mengunakan fungsi GoTo, Contoh :
'Looping dengan menggunakan GoTo
Dimnilai As Integer= 1
Looping_Lagi:
Ifnilai <= 100 Then
ListBox1.Items.Add(nilai)
nilai = nilai + 1
GoToLooping_Lagi
End If
'Sintak Diatas Sama Dengan Anda menulis For..Next/Do..Loop
For i As Integer = 1 To 100
ListBox1.Items.Add(nilai)
Next
Contoh diatas hanya contoh kecil, sebenarnya fungsi GoTo ini nantinya dapat anda gunakan untuk mengatasi
kasus lain yang jauh lebih rumit dan besar yang tidak dapat ditangani lagi oleh looping biasa seperti
For..Next /Do..Loop atau bahkan mungkin mengharuskan anda menggunakan GoTo didalam For..Next/Do..Loop. Contoh dibawah ini adalah kasus yang cukup rumit dan mungkin terjadi :
For..Next /Do..Loop atau bahkan mungkin mengharuskan anda menggunakan GoTo didalam For..Next/Do..Loop. Contoh dibawah ini adalah kasus yang cukup rumit dan mungkin terjadi :
Cek_Kondisi_Kagi:
'.... sintak anda untuk cek kondisi 1
If "...." ThenGoTo Langsung_Lolos 'Loncat Ke paling Bawah
If "......" Then
'......sintak anda
GoToEksekusi_Kodisi 'Loncat Ke Bawah
Else
'.......sintak anda
GoToCek_Kondisi_Kagi 'Loncat ke Atas / Looping lagi
End If
Eksekusi_Kodisi:
'......Sintak untuk Eksekusi Kodisi
Langsung_Lolos:
'.....Sintak Jika Lolos Final
Contoh kondisi yang saya tulis diatas, pernah saya alami waktu membuat sebuah aplikasi di kantor saya, semoga dapat bermanfaat untuk anda semua.
Tags:
cara menggunakan for next, cara menggunakan do loop, cara menggunakan do until, perulangan di vb, jenis2 looping di vb, for next atau do loop atau do until, cara menggunakan GoTo X Y vb, tutorial vbnet, cara loncat di vbnet, cara loncat kondisi vb,
Posting Komentar untuk "Cara Looping Dengan GoTo (Tanpa For..Next/Do..Loop) VB6/VBNET"