Editor
Tugas membuat contoh program penjualan barang dengan menggunakan Visual Basic
Dalam program ini dilengkapi dengan beberapa fasilitas umum yang bisa digunakan selayaknya program penjualan sederhana yang meliputi:
Lihat juga
Lihat juga
- Contoh pemograman tiket bioskop dengan dilengkapi fitur diskon dan penentuan diskon dengan formula If else
- Contoh program penjualan baju muslim dilengkapi dengan tampilan gambar atau pilihan gambar baju
- Kode Barang
- Nama Barang
- Harga Barang
- Qty , Jumlah Barang
- Total Pembayaran
Penginputan data diterapkan pada TextBox, dan diproses sesuai fungsi masing-masing fitur applikasi penjualan, berikut contoh hasil screenshot applikasi program penjualan barang sederhana menggunakan visual basic
 |
| applikasi program penjualan barang sederhana menggunakan visual basic |
Langkah
- Klik tombol mulai guna mengosongkan semua Objek TextBox
- Klik tombol simpan guna menyimpan hasil input dari TextBox
Total Otomatis (Output) formula
Total=Harga * Qty
Klik Selesai akan keluar dari Modus Start /Run
Total=Harga * Qty
Klik Selesai akan keluar dari Modus Start /Run
Berikut Kode Source applikasi pemograman penjualan
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
On Error GoTo TakAdaFile
Dim Var4 As Object
Dim Var3 As Object
Dim Var2 As Object
Dim Var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "F:\Tugas.CSV", OpenMode.Input)
Do While Not EOF(noFile) ' Loop until end of file.
Input(noFile, Var1)
Input(noFile, Var2)
Input(noFile, Var3)
Input(noFile, Var4)
ListBox1.Items.Add(Var1 & "--" & Var2 & "--" & Var3 & "--" & Var4)
Loop
FileClose(noFile)
Exit Sub
TakAdaFile:
MsgBox("File Tidak ada")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
Dim var5 As Object
Dim Var4 As Object
Dim Var3 As Object
Dim Var2 As Object
Dim Var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "F:\Tugas.csv", OpenMode.Append)
Var1 = TextBox1.Text
Var2 = TextBox2.Text
Var3 = TextBox3.Text
Var4 = TextBox4.Text
var5 = TextBox5.Text
ListBox1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)
WriteLine(1, Var1, Var2, Var3, Var4, var5)
FileClose(1)
End Sub
Private Sub TextBox4_TextChanged(ByVal eventSender AsSystem.Object, ByVal eventArgs As System.EventArgs) HandlesTextBox4.TextChanged
If Not Len(TextBox4.Text) = 0 Then
TextBox5.Text = CStr(CDbl(TextBox3.Text) *CDbl(TextBox4.Text))
End If
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim var5 As Object
Dim Var4 As Object
Dim Var3 As Object
Dim Var2 As Object
Dim Var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "F:\Tugas.csv", OpenMode.Input)
Do While Not EOF(noFile)
Input(1, Var1)
Input(1, Var2)
'Input(1, Var3)
'Input(1, Var4)
'Input(1, var5)
ListBox1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)
Loop
FileClose(noFile)
End Sub
End Class
Silahkan dicoba semoga bermanfaat
Lihat juga
- Daftar infrastruktur pemograman basic java yang wajib dipelajari sebagai seorang pemula
- Contoh pemograman tiket bioskop dengan dilengkapi fitur diskon dan penentuan diskon dengan formula If else
- Contoh program penjualan baju muslim dilengkapi dengan tampilan gambar atau pilihan gambar baju