“ TRANSAKSI PENJUALAN PD WARUNG MAKAN ”

Koding Program Transaksi

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btot.Click
        Dim bayar As Double
        Dim total As Double
        Dim total2 As Double

        total = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        total2 = total - (total * 3 / 100)


        If bns.Checked = True Then
            bayar = total2
        Else
            bayar = total

        End If


        MsgBox("makan  : " & Combomkn.Text & "    jumlah : " & combobli1.Text & vbNewLine & _
                      "minum : " & Combomnm.Text & "    jumlah : " & Combobli2.Text & vbNewLine & _
                      "jumlah  : " & jmlbyr1.Text & vbNewLine & _
                      "Bayar     : " & klii.Text & vbNewLine & _
               "Kembali : Rp " & klii.Text - bayar)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combomkn.SelectedIndexChanged
        If Combomkn.Text = "BAKSO" Then
            hrgmkn.Text = 7000
        ElseIf Combomkn.Text = "MIE AYAM" Then
            hrgmkn.Text = 6500
        ElseIf Combomkn.Text = "NASI GORENG" Then
            hrgmkn.Text = 8000
        ElseIf Combomkn.Text = "GADO-GADO" Then
            hrgmkn.Text = 6000
        ElseIf Combomkn.Text = "RAMES" Then
            hrgmkn.Text = 4000


        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Combomnm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combomnm.SelectedIndexChanged
        If Combomnm.Text = "ES TEH" Then
            hrgmnm.Text = 2500
        ElseIf Combomnm.Text = "ES JERUK" Then
            hrgmnm.Text = 3000
        ElseIf Combomnm.Text = "SOFT DRINK" Then
            hrgmnm.Text = 2500
        ElseIf Combomnm.Text = "SODA GILA" Then
            hrgmnm.Text = 5000
       
        End If

    End Sub

    Private Sub lnn_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub jmlbyr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlbyr1.TextChanged

    End Sub

    Private Sub jmll_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub jmlmnm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub bns_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bns.CheckedChanged

    End Sub

    Private Sub klii_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klii.TextChanged

    End Sub

    Private Sub rst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rst.Click
        Combomkn.Text = ""
        Combomnm.Text = ""
        hrgmkn.Clear()
        combobli1.Text = ""
        hrgmnm.Clear()
        Combobli2.Text = ""
        jmlbyr1.Clear()
        klii.Clear()
        bns.Text = ""



    End Sub

    Private Sub klr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klr.Click
        If MsgBox("Anda Benar-Benar Yakin ? ", vbYesNo + vbQuestion + vbDefaultButton3, "KELUAR") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Combobli2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combobli2.SelectedIndexChanged
        If Combobli2.Text = 1 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 2 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 3 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 4 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 5 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        End If



    End Sub
End Class

Tampilan Keluar

Program Transaksi Penjuanlan pd Warung menggunakan :

1. 9 label untuk makanan, minuman, jml mkn & minum, hrg mkn&minum, diskon, jml byr & kembali.
2. 4 combobox untuk nama makanan, minuman, jlm makanan dan minuman.
3. 4 text box untuk harga satuan makanan dan minuman
4. 1 ceckbox untuk yang mendapat discon
5. 3 botton untuk tombol total, reset, dan keluar

Program ini menggunakan combobox pada  “makanan, minuman, jml makan, jml minum “ dan dengan harga satuan pada masing-masing item makanan dan minuman. Diskon berlaku 3% untuk pembelian > 50.000.

Ket : maaf untuk ket gambar belum bisa diupload karena saya kesulitan dalam memposting gambar, trimakasih.