Selamat malam, kali ini saya menshare satu tutorial lagi tentang pemograman, seperti dibawah ini.
SHARING404.NET | Seperti yang terlihat pada gambar diatas, kali ini saya kan share bagaimna cra membuat sebuah program penjualan dan harga barang menggunkan Visual Basic 6.0 ataupun VB, pada kali ini yang saya share adalah cara untuk membuat program untuk kasir lengkap dengan harga serta nama barang didalamnya.
Program seperti ini sangat banyak diperlukan toko-toka besar yang lengkap dengan kasirnya, untuk program seperti ini biasa dibeli dengan harga jutaan, tergantung tingkat kesulitannya. Namun disini saya akan share yang sederhana dulu, agar pada saat merancang sebuah program dengan tingkat kesulitan tertentu jadi nggak pusing.
Baiklah, disini kita akan terlebih dahulu akan membuar form dengan menggunakan standar EXE di VB6, setelah itu designlah sedemikian rupa agar tampilannya menarik.
Okeys, menu-menu yang diperlukan untuk membuat program penjualan seperti diatas adalah :
- 10 Label
- 2 Timer
- 2 CommandButton
- 1 Listview dan satu TexBox dan garis yang melingkar itu adalah sebuah shapes
Ket :
Label digunakan untuk menuliskan text seperti Jenis barang, Jumlah dll seperti pada gambar diatas, Textbox digunakan untuk memasukkan jumlah barang dan Listvies untuk menampilan nama barang, serta CommandButton untuk Ok dan Exit.
Sudah taukan, apa saja menu yang digunakan serta untuk apa fungsi dari menu tersebut ?
Nah, jika sudah dan rancangan tampilan nya juga sudah dilakukan, kemudian klik pada menubar View dan klik Code, dan hapus semua kode didalamnya, kemudian pastekan syntax dibawah ini kedalam menu Code tersebut :
Private Sub Command1_Click()
Dim harga As Currency, Total As Currency
Dim jumlah As Integer
Dim satuan As String
If List1.Text = "" Then
MsgBox "anda belum memilih barang !!"
List1.ListIndex = 0
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "anda belum mengisi jumlah barang !!"
Text1.SetFocus
Exit Sub
End If
Select Case List1.Text
Case "Pensil"
harga = 1000
satuan = "pensil"
Case "Buku 25 Lembar"
harga = 2500
satuan = "buku"
Case "Pulpen"
harga = 1500
satuan = "pulpen"
Case "Kertas"
harga = 200
satuan = "kertas"
Case "Tipe-x"
harga = 5000
satuan = "tipe-x"
Case "Penggaris"
harga = 4000
satuan = "Penggaris"
Case "Runcing"
harga = 1000
satuan = "runcing"
Case "Pensil 2B"
harga = 2000
satuan = "pensil 2b"
Case "Pulpen Snowman"
harga = 2000
satuan = "pulpen snowman"
Case "Buku 30 Lembar"
harga = 3000
satuan = "Buku"
Case "Buku 50 Lembar"
harga = 4000
satuan = "Buku"
Case "Penggaris Tabel"
harga = 5000
satuan = "penggaris"
Case "Penghapus 2B"
harga = 4000
satuan = "penghapus"
End Select
DayatzBarang.Caption = "Barang : " & List1.Text
DayatzHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan
DayatzJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan
jumlah = Text1.Text
Select Case jumlah
Case Is < 10
diskon = 0
Case 10 To 20
diskon = 0.15
Case Else
diskon = 0.2
End Select
Total = jumlah * (harga * (1 - diskon))
DayatzTotal.Caption = "Total Harga : " & Format(Total, "Currency")
End Sub
Private Sub Commond2_Click()
End
End Sub
Private Sub Command2_Click()
p = MsgBox("Tinggalkan HANDAYANI STORE?", vbInformation + vbYesNo, "Handayani Store")
If p = vbYes Then
End
Else
Me.Show
End If
End Sub
Private Sub Form_Load()
List1.AddItem "Pensil"
List1.AddItem "Buku 25 Lembar"
List1.AddItem "Pulpen"
List1.AddItem "Kertas"
List1.AddItem "Tipe-x"
List1.AddItem "Penggaris"
List1.AddItem "Runcing"
List1.AddItem "Pensil 2B"
List1.AddItem "Pulpen Snowman"
List1.AddItem "Buku 30 Lembar"
List1.AddItem "Buku 50 Lembar"
List1.AddItem "Penggaris Tabel"
List1.AddItem "Penghapus 2B"
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub
Private Sub Timer2_Timer()
Label9.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
End Sub
Jika, sudah anda pastekan syntax ini kemudian coba jalankan program yang anda buat tersebut berjalan apa error dengan cara tekan F5 di keyboard anda, jika berjalan maka programnyapun selesai, dan jika terdapat error bisa ditanyakan ke kolom komentar, hanya sekian yang dapat saya share, semoga bermanfaat. Terus lah mencoba karena dari mencoba kita akan sukses.
Terimakasih
