MENENTUKAN RUTE PERJALANAN DARI POLSKY KE PALEMBANG SQUARE
ASSALAMU'ALAIKUM WARAHMATULLAHI WABAROKATUH :)
SELAMAT DATANG DI BLOG SAYA, SAYA AKAN MEMPOSTING
MENGENAI PROGRAM VISUAL BASIC 10 YANG
SAYA BUAT
PROJECT LATIHAN 7
BERIKUT ADALAH CODING MENENTUKAN RUTE PERJALANAN DARI POLSKY KE PALEMBANG SQUARE_LATIHAN 7
Public Class latihan7
Dim rute, pilih As String
Sub pilihrute()
Select Case (pilih)
Case "Via
Udara"
rute = "polsky -> naik ojek ke
bandara -> pesawat take off menuju palembang-> dari bandara sultan mahmud
badarudin naik taxi ke jalan angkatan 45 -> jalan kaki menuju PS"
Case "Via
Darat"
rute = "naik ojek dari polsky ke
terminal-> naik bis menuju KM 12 Plg-> naik taxi dari KM 12 ke jalan
angkatan 45 langsung ke PS"
Case "Via
Sungai"
rute = "naik ojek dari polsky ke
dermaga -> naik kapal dari dermaga ke benteng kuto besak -> naik
Transmusi ke jalan angkatan 45 Plg -> jalan kaki ke PS"
Case Else
rute = "salah rute"
End Select
MsgBox(rute, vbOKOnly, "rute polsky -
PalembangSquer")
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Call pilihrute()
pilih = "Via Udara"
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Call pilihrute()
pilih = "Via Darat"
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Call pilihrute()
pilih = "Via Sungai"
End Sub
Private Sub
latihan7_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
utama.Enabled = True
utama.Show()
Me.Hide()
End Sub
End Class
