Selasa, 02 Oktober 2012

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
        Dim nilai As Integer = 1
Looping_Lagi:
        If nilai <= 100 Then
            ListBox1.Items.Add(nilai)
            nilai = nilai + 1
            GoTo Looping_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 menggunakanGoTo 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 "...." Then GoTo Langsung_Lolos 'Loncat Ke paling Bawah

        If "......" Then
            '......sintak anda
            GoTo Eksekusi_Kodisi 'Loncat Ke Bawah
        Else
            '.......sintak anda
            GoTo Cek_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.

Tidak ada komentar:

Poskan Komentar

Recommended Post Slide Out For Blogger
Related Posts Plugin for WordPress, Blogger...