aplikasi penjualan

PROGRAM PENJUALAN

Saya ucapkan terima kasih kepada ALLAH SWT,yang telah membantu saya sehingga tugas ini bisa terselesaikan dengan baik,

 

Berhubung dengan adany tugas yang diberikan oleh dosen dan wajib untuk nilai nantinya,
saya di sini membuat aplikasi penjualan sederhana yang mungkin agan semua bisa untuk mencobanya dirumah dengan bahasa VISUAL BASIC 2010.

 

sort VB2010:

Public Class Form1

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


        With ComboBox1
            .Items.Add("Beras IR 64")
            .Items.Add("Beras Pandan Wangi")
            .Items.Add("Beras HT")
            .Items.Add("Beras Super Rice")
            .Items.Add("Beras Raja Lele")

        End With

    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged


        If ComboBox1.Text = ("Beras IR 64") Then TextBox1.Text = ("7200")
        If ComboBox1.Text = ("Beras Pandan Wangi") Then TextBox1.Text = ("8000")
        If ComboBox1.Text = ("Beras HT") Then TextBox1.Text = ("6500")
        If ComboBox1.Text = ("Beras Super Rice") Then TextBox1.Text = ("8200")
        If ComboBox1.Text = ("Beras Raja Lele") Then TextBox1.Text = ("7000")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim total As Single

        total = (TextBox1.Text * TextBox2.Text)
        TextBox3.Text = Format(total, "#.#")

    End Sub

   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox4.Text = "" Then

            MessageBox.Show(TextBox4, "Anda Belum Membayar")

        ElseIf TextBox4.Text < TextBox2.Text Then

            MessageBox.Show(TextBox4, "Uang Tidak Mencukupi")

        ElseIf TextBox4.Text > TextBox2.Text Then
            TextBox5.Text = TextBox4.Text - TextBox3.Text

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        TextBox3.Text = Nothing
        TextBox4.Text = Nothing
        TextBox5.Text = Nothing
        ComboBox1.Text = Nothing

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub
End Class
 

 

dengan hasil sebagai berikut :

1. ini merupakan hasil dari tampilan awal pada saat pertama kali menjalankannya,disini kita diberi pilihan untuk memilih jeni beras apa saja (beras IR64,beras pandan wangi,dll) sesuai dengan keingginan masing-masing,
2. harga yang telah disesuaikan pada saat pemrograman, (beras pandan wangi - 8000) disaat kita memilih beras maka harga akan langsung muncul
3. jumlah (KG) pengisian berapa pelanggan membeli beras
4. total hasil dari harga x jumlah
5. Bayar merupakan jumlah uang yang dibayarkan oleh pelanggan
6. sisa merupakan kembalian dari pembayaran yang telah di kurangi total
7. hapus untuk menghapus semuanya
8. exit keluar dari program

gambar diatas merupakan hasil kerja dari program ini.

kesalahan eror apabila user lupa mengisikan pembayaran dari pelanggan.

kesalahan yang terjadi karena uang yang dibayarkan kurang dari total.


didalam program ini masih banyak kekurangan seperti halnya pada saat pengisian pembayaran,sehingga masih terjadi kesalahan,mohon sekirany buat semua untuk memperbaiki aplikasi ini sehingga bisa jauh lebih optimal,....

TERIMAKASIH