Pencabangan GoSub…Return dan GoTo pada Pemograman Visual Basic 6.0

GoSub…Return

Pencabangan GoSub…Return digunakan untuk melakukan pencabangan tanpa syarat ke suatu subrutin yang ditandai dengan baris label atau baris nomor. Setelah melakukan pencabangan ke subrutin yang diinginkan, kontrol program akan kembali ke baris di bawah perintah GoSub.

Bentuk penulisan GoSub…Return adalah sebagai berikut :

                GoSub <baris>

                                …<pernyataan1>…

                                …< pernyataan 2>…

                                …

                <baris>

                …< pernyataan >…

                …< pernyataan >…

                …

                Return

<baris> yang dituju dapat berupa baris label, yaitu suatu teks yang diakhiri titik dua “:” dan harus ditulis pada kolom pertama.

Agar lebih jelas, perhatikan contoh di bawah ini :

Sub form_activate()

Dim Angka As Integer

Dim Hasil As Integer

    Form1.Hide      'agar form tidak ditampilkan pada saat program dijalankan

    Angka = InputBox("Ketik Angka Yang Akan Dicari Nilai Akarnya")

    GoSub Cabang

    Form1.Print Angka

    End

    Exit Sub        'agar baris di bawahnya tidak dilaksanakan

   

Cabang:

    Hasil = Sqr(Angka)

    MsgBox "Akar " & Angka & " adalah : " & Hasil, vbInformation + vbOKOnly, "Nilai Akar"

    Return

End Sub

atau

Sub form_activate()

Dim Angka As Integer

Dim Hasil As Integer

    Form1.Hide      'agar form tidak ditampilkan pada saat program dijalankan

    Angka = InputBox("Ketik Angka Yang Akan Dicari Nilai Akarnya")

    GoSub 1         'bisa juga diganti menjadi GoSub 1:

    Form1.Print Angka

    End

    Exit Sub        'agar baris di bawahnya tidak dilaksanakan

   

1                   'bisa juga diganti menjadi 1:

    Hasil = Sqr(Angka)

    MsgBox "Akar " & Angka & " adalah : " & Hasil, vbInformation + vbOKOnly, "Nilai Akar"

    Return

End Sub

GoTo

Pencabangan GoTo digunakan untuk melalukan pencabangan tanpa syarat ke suatu baris label atau nomor. Setelah mencabang, kontrol program tidak akan kembali ke baris di bawahnya (bedakan dengan perintah GoSub).

Bentuk penulisan GoSub…Return adalah sebagai berikut :

                GoTo <baris>

                                …< pernyataan 1>…

                                …< pernyataan 2>…

                                …

                <baris>

                …< pernyataan 1>…

                …< pernyataan 2>…

                …

Agar lebih jelas, perhatikan contoh di bawah ini :

Sub form_activate()

Dim Angka As Integer

Dim Hasil As Integer

    Form1.Hide      'agar form tidak ditampilkan pada saat program dijalankan

    Angka = InputBox("Ketik Angka Yang Akan Dicari Nilai Akarnya")

    Hasil = Sqr(Angka)

    MsgBox "Akar " & Angka & " adalah : " & Hasil, vbInformation + vbOKOnly, "Nilai Akar"

    GoTo Selesai    'lompat subrutin

Selesai:

Unload Me

End Sub