TUGAS 1 VB
MEMBUAT PROGRAM PENJUALAN SEDERHANA
Kali ini saya akan mencoba membuat sebuah program penjualan alat tulis sederhana menggunakan aplikasi microsoft visual studio 2010, berikut adalah tampilan awal program yang sudah saya buat, selamat mencoba
Pada program yang saya buat saya hanya menggunakan Commons Control combo box, label, text box dan button. Combo box saya gunakan untuk mencantumkan nama-nama barang yang akan dijual, untuk kolom yang lainnya menggunakan text box. Tulisan seperti nama barang, harga barang jumlah dll menggunakan label, sedangkan yang lainnya menggunakan button.
Hal pertama yang dilakukan adalah menentukan Commons Control yang harus kita gunakan lalu desain sesuai kebutuhan tempatnya, contohnya seperti gambar di atas.
Daftar textbox :
1. Harga barang
2. Jumlah
3. Total
4. Bayar
5. Kembali
Daftar Label :
1.Nama barang
2. Harga barang
3. Jumlah
4. Total
5. Bayar
6. Kembali
Daftar Combobox :
1. Nama Barang
Daftar Button
1. Hitung
2. Kembalian
3. Tampilkan
4. Bersihkan
5. Keluar
Berikut akan saya tampilkan listing program yang saya bikin.
Public Class Form1
Dim totbyr As Double
Dim diskon As Double
Dim hrg As Double
Dim jmlbrg As Double
Dim total As Double
Dim uang As Double
Dim kembali As Double
Private Sub
btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btok.Click
hrg =
txtharga.Text
jmlbrg
= txtjml.Text
total
= hrg * jmlbrg
txttot.Text = total
End Sub
Private Sub
btkembalian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub
txtuang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub
btbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btbersih.Click
txtnama.Clear()
txtharga.Clear()
txtjml.Clear()
txtharga.Clear()
txttot.Clear()
txtnama.Focus()
End Sub
Private Sub
btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btkeluar.Click
If MsgBox("Anda
yakin ", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
Private Sub
txtkembali_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub
Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
dan ini adalah hasil tampilannya.
demikin hasil program saya,,, terimakasih.
