CONTOH PROGRAM PENJUALAN BARANG

Kita mulai saja ya  menjalan kan program nya...

Pertama-tama kita buka misrosoft visual studio nya.

Lalu desian sesuai keinginan anda.

 

Keterangan:

From diatas terdiri dari texbox,combobox,label,button.

Setelah selesai mengubah name pada texbox,combobox dan button… selanjut nya kita akan memasukan perintah dengan lahkah-langkah sebagai berikut:

1.  klik double pada from dan masukan perintah di bawah ini:

Public Class penjualan_tv_sony

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

        nama.Items.Add("Sony Lcd 1")

        nama.Items.Add("Sony Lcd 2")

        nama.Items.Add("Sony Lcd 32")

        nama.Items.Add("Sony Lcd 40")

        nama.Items.Add("Sony Lcd 60")

        nama.Items.Add("Sony Lcd 80")

End Sub

2.  klik double pada combobox nama barang dan masukan perintah di bawah ini:

Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged

        Select Case (nama.Text)

            Case "Sony Lcd 1"

                harga.Text = "18000000"

            Case "Sony Lcd 2"

                harga.Text = "24000000"

            Case "Sony Lcd 32"

                harga.Text = "31000000"

            Case "Sony Lcd 40"

                harga.Text = "35000000"

            Case "Sony Lcd 60"

                harga.Text = "40000000"

            Case "Sony Lcd 80"

                harga.Text = "50000000"

        End Select

End Sub

3.  klik double pada texbox jumlah jual dan masukan perintah di bawah ini, selectedindexchanged di ganti menjadi keypress

Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        If e.KeyChar = Chr(13) Then

            total.Text = Val(harga.Text * jumlah.Text)

            If total.Text > 25000000 Then

                diskon.Text = Val(harga.Text * 0.1)

            Else

                diskon.Text = "0"

            End If

        End If

End Sub

4.  klik double pada button1 dan masukan perintah di bawah ini:

   

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

        Totalbayar.Text = Val(total.Text - diskon.Text)

End Sub

5.  klik double pada button2 dan masukan perintah di bawah ini:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        nama.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        Totalbayar.Text = ""

        diskon.Text = ""

End Sub

6.  klik double pada button3 dan masukan perintah di bawah ini:

rivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

End Sub

7.  klik pada texbox discon dan masukan perintah di bawah ini:

rivate Sub diskon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles diskon.TextChanged

    End Sub

End Class

Dan ini lah hasil yang kita buat!!!