Rizky's: March 2012

Program Kasir Toko Sederhana

Di dalam ini program yang berisikan inputbox fungsi if dan fungsi string

ini ada lah tampilan awal pada saat program dijalankan untuk memasukan kode barang anda bisa mengklik input kode lalu akan muncul

anda dapat memasukan barang dengan ketemtuan kode produk lalu harga contoh m1500 itu menandakan bahwa produk yang dibeli adalah makanan dengan harga 1500 USD

setelah selesai menginput tekan ok lalu akan muncul tampilan

lalu anda dapat memasukan jumlah barang yang di pesan

setelah menginput tekan tombol hitung lalu aplikasi akan menghitung total yang anda pesan dan yang anda bayarkan

setelah selesai menggukan aplikasi anda bisa mengklik selesai lalu akan muncul confirmation box spt

tekan yes untuk keluar dari aplikasi :D
terima kasih telah menggunakan aplikasi ini
berikut ini source code program ini

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim v As Integer
        If Jumlah.Text = 0 Then
            jumlahh.Text = "Jumlah Yang Dipesan Anda Tidak Memesan Apa-apa."
        ElseIf Jumlah.Text = 1 Then
            jumlahh.Text = "Jumlah Yang Dipesan Anda Memesan 1 Buah."
        Else
            jumlahh.Text = "Jumlah Yang Dipesan Anda Memesan " & Jumlah.Text & " Buah."
        End If
        v = (TextBox3.Text * Jumlah.Text)
        total.Text = Strings.FormatCurrency(v)

    End Sub

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Jumlah.LostFocus
        Dim x As String
        Dim z As Integer
        z = Strings.Mid(Textbox1.Text, 2)
        TextBox3.Text = Strings.FormatCurrency(z)
        x = Strings.Left(Textbox1.Text, 1)
        If x = "M" Then
            TextBox2.Text = "Makanan"
        ElseIf x = "E" Then
            TextBox2.Text = "Elektronik"
        ElseIf x = "P" Then
            TextBox2.Text = "Pakaian"
        Else
            TextBox2.Text = "Kode Salah"
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim c As String
        c = InputBox("Masukan Kode Produk (M,E,P) & Masukan Kode Harga ")
        Textbox1.Text = Strings.UCase(c)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim d As Integer
        d = MsgBox("Anda Sudah Selesai ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")
        If d = vbYes Then
            Me.Close()
        End If
    End Sub
End Class
Klik disini untuk melihat blog saya