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!!!
