Pencabangan On – GoSub dan On – GoTo pada prinsipnya mirip dengan Select Case yang tujuannya adalah untuk mencabang kebeberapa kemungkinan baris atau label yang sudah ditentukan. Penulisannya adalah sebagai berikut:
On (ekspresi) GoSub (baris/label)
On (ekspresi) GoTo (baris/label)
Ada satu perbedaan antara pemakaian pencabangan On – GoSub dengan On – GoTo, yaitu pada pencabangan On – GoSub setelah mencabang, kontrol program akan kembali ke bawah pernyataan On – GoSub.Sedang pada On – GoTo, kontrol program tidak kembali lagi.
Nilai (ekspresi) disebelah kanan kata Onmerupakan suatu ekspresi numerik yang mempunyai rentang nilai 0 – 255. Nilai untuk (ekspresi) jika diisikan bilangan negatif atau lebih besar dari 255 akan menghasilkan suatu kesalahan.
Nilai (baris/label) yang terletak disebelah kanan dari GoSub/GoTo, merupakan blok program yang akan dikerjakan bilai nilai (ekspresi) terpenuhi.
Contoh:
Dim A As Byte
Input "Enter value 0-2 ", A
On A Gosub label1,label2,label3
Print "Returned"
If Portb < 2 Then
On Portb Goto label4,label5
EndIf
End_prog:
End
label1:
Print"0 entered"
Return
label2:
Print"1 entered"
Return
label3:
Print"2 entered"
Return
label4:
Print"P1 = 0"
Goto End_prog
label5:
Print"P1 = 1"
Goto End_prog
0 comments:
Post a Comment