Pencabangan On...GoSub dan On…GoTo pada Pemograman Visual Basic 6.0

Pencabangan On…GoSub dan On..GoTo digunakan untuk melakukan pencabangan ke beberapa kemungkinan baris yang ditentukan. Baris Pencangan yang digunakan tergantung dari nilai yang ditemui. Pada On…GoSub, setelah mencabang kontrol akan kembali ke pernyataan yang ada di bawah On...GoSub. Sedangkan pada pencabangan On…GoTo setelah mencabang kontrol tidak akan kembali ke pernyataan yang ada di bawah On...GoTo.

Bentuk penulisan On…GoSub dan On…GoTo adalah sebagai berikut :

On   <ekspresi>   GoSub   <baris - baris>

On   <ekspresi>    GoTo    <baris - baris>

<ekspresi> adalah suatu ekspresi numerik antara 0 s/d 255.

<baris - baris> merupakan tujuan pencabangan yang terdiri dari beberapa nomor baris atau label yang dipisahkan oleh tanda koma ( , ).

Jika ekspresi bernilai 1 maka <baris> yang dilaksanakan adalah <baris> yang berada di urutan pertama, Jika ekspresi bernilai 2 maka <baris> yang dilaksanakan adalah <baris> yang berada di urutan kedua, demikian seterusnya.

Agar lebih jelas, perhatikan contoh di bawah ini :

1. Contoh  On…GoSub

Sub form_activate()

Dim Angka As Integer

    Angka = InputBox("Ketik Pilhan (antara 1 s/d 5):")

    On Angka GoSub Keterangan1, Keterangan2, Keterangan3, Keterangan4, Keterangan5

    Form2.Print Teks

    Exit Sub

Keterangan1:

Teks = "Sub Keterangan 1"

Form2.Print "Anda Sedang Berada di ";

Return

Keterangan2:

Teks = "Sub Keterangan 2"

Form2.Print "Anda Sedang Berada di ":

Return

Keterangan3:

Teks = "Sub Keterangan 3"

Form2.Print "Anda Sedang Berada di "

Print

Return

Keterangan4:

Teks = "Sub Keterangan 4"

Form2.Print "Anda Sedang Berada di "

Print ;

Return

Keterangan5:

Teks = "Sub Keterangan 5"

Form2.Print "Anda Sedang Berada di"

Print:

Return

End Sub

dan

2. Contoh  On…GoTo

Sub form_activate()

Dim Angka As Integer

    Angka = InputBox("Ketik Pilhan (antara 1 s/d 5):")

    On Angka GoTo Keterangan1, Keterangan2, Keterangan3, Keterangan4, Keterangan5

    Form1.Print Teks

   

Keterangan1:

Teks = "Anda Sedang Berada di "

Form1.Print "Sub Keterangan 1"

Keterangan2:

Teks = "Anda Sedang Berada di "

Form1.Print "Sub Keterangan 2"

Keterangan3:

Teks = "Anda Sedang Berada di "

Form1.Print "Sub Keterangan 3"

Keterangan4:

Teks = "Anda Sedang Berada di "

Form1.Print "Sub Keterangan 4"

Keterangan5:

Teks = "Anda Sedang Berada di "

Form1.Print "Sub Keterangan 5"

End Sub