Membuat Program Penjualan Catring

 Lama banget uda gak ada posting lagi kangen juga rasanya untuk memposting lagi..
pada kesempatan kali ini penulis akan memposting bagai mana cara membuat Program Penjualan Catring pada rumah makan dengan aplikasi Visual Basic Net. ketentuannya sebagai berikut..

Kasir itu diinputkan (Nama kasirnya sudah di tentukan dalam program ini)
Pemesan diinputkan
Pilihan menu diinputkan ( menunya dalam program ini : Nasi bungkus, Nasi Kotak & Pramesan)
Harga itu tidak diinputkan
Porsi diinputkan
Jenis pesan diinputkan (didalam program ini jenis pesanya ada 2 : Diantar sama Dijemput)
Biaya pesan, Total Biaya, Discount, sama Total Bayar itu tidak di inputkan..

Syntak untuk Proses ( kilk dua kali pada Button Prosesnya)

        Dim KSR As String
        Dim Pemesan As String
        Dim PM As String
        Dim Harga As Integer
        Dim Porsi As Integer
        Dim JP As String
        Dim BP As Integer
        Dim TBA As Integer
        Dim Dis As Integer
        Dim TBR As Integer

        KSR = ComboBox1.Text
        Pemesan = txtPesanan.Text
        PM = ComboBox2.SelectedItem
        If PM = "Nasi Bungkus" Then
            Harga = 12000
        ElseIf PM = "Nasi Kotak" Then
            Harga = 14000
        Else
            Harga = 20000
        End If
        txtHarga.Text = Harga
        Porsi = Val(txtPorsi.Text)

        JP = ComboBox3.SelectedItem
        If JP = "Diantar" Then
            BP = 0.02 * Porsi * Harga
        Else
            BP = 0
        End If
        txtBP.Text = BP
        TBA = Harga * Porsi + BP
        txtTBA.Text = TBA
        Dis = Val(txtDIS.Text)
        If TBA > 1000000 Then
            Dis = (TBA * 0.05)
        End If
        txtDIS.Text = Dis
        TBR = TBA - Dis
        txtTBR.Text = TBR

Syntak untuk Button Bersih ( klik dua kali pada Button Bersihnya)

        ComboBox1.Text = ""
        txtPesanan.Text = ""
        ComboBox2.Text = ""
        txtHarga.Text = ""
        txtPorsi.Text = ""
        ComboBox3.Text = ""
        txtBP.Text = ""
        txtTBA.Text = ""
        txtDIS.Text = ""
        txtTBR.Text = ""

Syntak untuk Button Keluar (klik dua kali pada Button keluarnya)

Me.Close()

dan dibawah ini adalah tampilannya dari program diatas:
supaya lebih jelas gambarnya diklik saja..

 

Selamat mencoba semoga bisa bermanfaat..

sumber : materi kuliah.