program pemesanan suatu tour dengan vb.net

aplikasi sederhana sebenarnya hanya saya buat untuk memenuhi tugas PBO, langkah pertama yang harus kalian buat adalah mendisain form terlebih dahulu.
desainlah form sesuka hati kamu.

kemudia kalian buat sebuah class;


Public Class wisata
    'atribut
    Private NamaPemesan As String
    Private Alamat As String
    Private JumlahAnggota As Single
    Private TujuanWisata As String
    Private UangMuka As Single
   
    'property
    Public Property mJumlahAnggota() As Single
        Get
            Return JumlahAnggota
        End Get
        Set(ByVal value As Single)
            JumlahAnggota = value
        End Set
    End Property
    Public Property mTujuanWisata() As String
        Get
            Return TujuanWisata
        End Get
        Set(ByVal value As String)
            TujuanWisata = value
        End Set
    End Property
    Public Property mNamaPemesan() As Single
        Get
            Return NamaPemesan
        End Get
        Set(ByVal value As Single)
            NamaPemesan = value
        End Set
    End Property
    Public Property mAlamat() As String
        Get
            Return Alamat
        End Get
        Set(ByVal value As String)
            Alamat = value
        End Set
    End Property
    Public Property mUangMuka() As Single
        Get
            Return UangMuka
        End Get
        Set(ByVal value As Single)
            UangMuka = value
        End Set
    End Property

    'method
    Public Function BiayaPerPaket(ByVal mTujuanWisata As String) As Long
        If mTujuanWisata = "Jawa Timur" Then
            Return 65000
        ElseIf mTujuanWisata = "Jawa Tengah" Then
            Return 70000
        ElseIf mTujuanWisata = "Jawa Barat" Then
            Return 75000
        ElseIf mTujuanWisata = "Bali" Then
            Return 95000
        ElseIf mTujuanWisata = "Madura" Then
            Return 65000
        ElseIf mTujuanWisata = "Jogjakarta" Then
            Return 80000
        ElseIf mTujuanWisata = "DKI Jakarta" Then
            Return 85000
        End If
    End Function
    Public Function Diskon(ByVal mJumlahAnggota As Single) As Single
        If mJumlahAnggota = 1 Then
            Return 0
        End If
        If mJumlahAnggota > 5 Then
            Return 18000
        Else
            Return 7000
        End If
    End Function
    Public Function Jumlah(ByVal mBiayaPerpaket As Single, ByVal mJumlahAnggota As Single) As Single
        Return mBiayaPerpaket * mJumlahAnggota
    End Function
    Public Function TempatWisata(ByVal mTujuanWisata As String) As Single

    End Function
    Public Function TiketMasuk(ByVal mTujuanWisata As String) As Single
        If mTujuanWisata = "Jawa Timur" Then
            Return 23000
        ElseIf mTujuanWisata = "Jawa Tengah" Then
            Return 27000
        ElseIf mTujuanWisata = "Jawa Barat" Then
            Return 25000
        ElseIf mTujuanWisata = "Bali" Then
            Return 35000
        ElseIf mTujuanWisata = "Madura" Then
            Return 22000
        ElseIf mTujuanWisata = "Jogjakarta" Then
            Return 27000
        ElseIf mTujuanWisata = "DKI Jakarta" Then
            Return 32000
        End If
    End Function
    Public Function BayarTiket(ByVal mTiketMasuk As Single, ByVal mJumlahAnggota As Single) As Single
        Return mJumlahAnggota * mTiketMasuk
    End Function
    Public Function TotalBiaya(ByVal mJumlah As Single, ByVal mDiskon As Single, ByVal mBayarTiket As Single)
        Return mJumlah + mBayarTiket - mDiskon
    End Function
    Public Function SisaPembayaran(ByVal mUangMuka As Single, ByVal mTotalBiaya As Single) As Single
        Return mUangMuka - mTotalBiaya
    End Function 
End Class



kemudian masukkan code pada button hitung


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objhitung As New wisata

        With objhitung
            .mTujuanWisata = ComboBox1.Text
            .mJumlahAnggota = TextBox1.Text

            Label8.Text = .BiayaPerPaket(.mTujuanWisata)
            Label9.Text = .Diskon(.mJumlahAnggota)
            Label32.Text = .TiketMasuk(.mTujuanWisata)
            Label26.Text = .BayarTiket(.TiketMasuk(.mTujuanWisata), .mJumlahAnggota)
            Label10.Text = .Jumlah(.BiayaPerPaket(.mTujuanWisata), .mJumlahAnggota)
            Label11.Text = .TotalBiaya(.Jumlah(.BiayaPerPaket(.mTujuanWisata), .mJumlahAnggota), .Diskon(.mJumlahAnggota), .BayarTiket(.TiketMasuk(.mTujuanWisata), .mJumlahAnggota))
        End With
    End Sub


cukup di sini tutorial yang saya berikan
selamat mencoba,.