Contoh Project Visual Basic Menentukan Jalur Perjalanan dari data yang telah diinputkan

Menentukan Jalur Perjalanan Tidak menggunak menu utama

• Form untuk menentukan perjalana

• Atur Propertis form sesuai dengan data berikut ; 

• Coding untuk menentukan perjalanan

Public Class Latihan_7

    Dim rute, pilih As String

    Sub carirute()

        Select Case (pilih)

            Case "viaudara"

                rute = "Polsky -> Naik kendaraan ke Bandara-> Naik pesawat ke SMB II Plg -> Naik Transmusi ke Simpang Polda -> Transit simpang polda ke Halte dpn PS"

            Case "viadarat"

                rute = "Polsky -> Naik kendaraan ke simpang SMP 8 -> Naik Bis Jurusan Sekayu-Palembang (KM 12) -> Naik Transmusi ke simpang Polda -> Transit dr simpang Polda ke Halte dpn PS"

            Case "viasungai"

                rute = "Polsky -> Naik kendaraan ke Jembatan JM -> Naik Skoci dr Jembatan JM ke Dermaga Tangga Buntung -> Naik kendaraan dr Dermaga ke bawah Ampera -> Naik Transmusi ke simpang Polda -> Transit simpang Polda ke Halte dpn PS"

            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 Bkeluar.Click

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub bUdara_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bUdara.Click

        pilih = "viaudara"

        Call carirute()

    End Sub

    Private Sub bDarat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bDarat.Click

        pilih = "viadarat"

        Call carirute()

    End Sub

    Private Sub bSungai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSungai.Click

        pilih = "viasungai"

        Call carirute()

    End Sub

End Class