Contoh Program Visual Basic 2010 : Latihan 7

'Latihan 7 (Menentukan Jalur Perjalanan)

            'Tampilan Form

'Coding

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 Button1.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

    Private Sub Latihan_7_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub Latihan_7_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

End Class