Aplikasi Menentukan Jalur Perjalanan
- Form Design
- Code
Dim rute As String
Dim pilih As String
Sub carirute()
Select Case (pilih)
Case "melaluiudara"
rute = "polsky-> naik kendaraan-> naik pesawat ke SMBII palembang-> naik transmusi-> sampai palembang square mall"
Case "melaluidarat"
rute = "polsky-> niak bis-> sampai km12 palembang->naik taxsi->sampai palembang square mall"
Case "melaluisungai"
rute = "polsky-> naik ojek-> sampai jm-> naik speed board-> sampai ampera-> naik taxsi->sampai palembang square mall"
Case Else
rute = "salah Rute"
End Select
MsgBox(rute, vbOKOnly, "Rute polsky-> palembang square")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pilih = "melaluiudara"
Call carirute()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
pilih = "melaluidarat"
Call carirute()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
pilih = "melaluisungai"
Call carirute()
End Sub
Private Sub TUTUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP.Click
utama.Enabled = True
utama.Show()
Me.Hide()
End Sub
- Start Debugging
