MENENTUKAN RUTE PERJALANAN DARI POLSKY KE PALEMBANG SQUARE_LATIHAN 7

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