Berikut langkah-langkahnya:
Buka software Visual Basic 6.0 dan pilih Standar.Exe atur sedemikian rupa sehingga Tampilan UI aplikasinya menyerupai gambar di bawah ini.
Berikut Jenis-jenis dan properti dari setiap tools yang mesti diatur.
| Type | Name | Caption | Text | Extras |
|---|---|---|---|---|
| Label | Label1 | Jenis Barang | - | - |
| ComboBox | List_jenis | - | (empty) | List: - Rokok - Mie |
| CommandButton | Btn_addjenis | Tambah Jenis Barang | - | - |
| ListBox | List_brg | - | - | - |
| Label | Label2 | Harga Barang | - | - |
| TextBox | Thrg_brg | - | (empty) | - |
| Label | Label3 | Jenis Barang | - | - |
| TextBox | Tjenis_brg | - | (empty) | - |
| Label | Label4 | Jumlah beli | - | - |
| TextBox | Tjml_beli | - | (empty) | - |
| CommandButton | Command1 | Total Bayar | - | - |
| Label | Lbl_totalbayar | (empty) | - | - |
| CommandButton | Command2 | Clear | - | - |
| CommandButton | Command3 | Exit | - | - |
| CommandButton | Command4 | Add Bayar | - | - |
| Timer | Timer1 | - | - | Interval : 1000 |
| CommandButton | Command5 | Clear | - | - |
| Frame | Frame1 | Data Beli | - | - |
| TextBox | Db1 | - | (empty) | - |
| TextBox | Db2 | - | (empty) | - |
| TextBox | Db3 | - | (empty) | - |
| TextBox | Db4 | - | (empty) | - |
| TextBox | Db5 | - | (empty) | - |
| TextBox | Db6 | - | (empty) | - |
| CommandButton | Command6 | Total Bayar | - | - |
| Label | Label6 | Rp | - | - |
| Label | Lbl_totalbeli | (empty) | - | - |
| Label | Lbl_thanks | (empty) | - | - |
| Frame | Frame2 | Tanggal | - | - |
| Label | Lbl_date | (empty) | - | - |
| Frame | Frame3 | Waktu | - | - |
| Label | Lbl_time | (empty) | - | - |
Berikut ini merupakan kode-kode untuk setiap tools beserta klarifikasi dan logikanya.
Private Sub btn_addjenis_Click()
list_brg.Clear
If list_jenis.Text = "Rokok" Then
list_brg.AddItem "Dji Sam Soe"
list_brg.AddItem "Djarum Super"
list_brg.AddItem "Starmild"
list_brg.AddItem "Neomild"
list_brg.AddItem "Signature"
ElseIf list_jenis.Text = "Mie" Then
list_brg.AddItem "Indomie"
list_brg.AddItem "Supermie"
list_brg.AddItem "Popmie"
list_brg.AddItem "Sarimie"
list_brg.AddItem "Mie Sedap"
End If
End Sub
list_brg.Clear
If list_jenis.Text = "Rokok" Then
list_brg.AddItem "Dji Sam Soe"
list_brg.AddItem "Djarum Super"
list_brg.AddItem "Starmild"
list_brg.AddItem "Neomild"
list_brg.AddItem "Signature"
ElseIf list_jenis.Text = "Mie" Then
list_brg.AddItem "Indomie"
list_brg.AddItem "Supermie"
list_brg.AddItem "Popmie"
list_brg.AddItem "Sarimie"
list_brg.AddItem "Mie Sedap"
End If
End Sub
Bagian instruksi ini melakukan pekerjaan saat button btn_addjenis diklik. Ketika user menegaskan jenis barang pada combobox, dan mengklik button ini, maka list barang yang berjulukan list_brg akan di hapus data-datanya dengan menggunakan .Clear dan sehabis itu ditangani pengkondisian jikalau jenis barang yang diseleksi "Rokok", maka list barang akan diisi datanya dengan Dji Sam Soe, Djarum Super, Starmild, Neomild, dan Signature. Jika user menegaskan jenis "Mie", maka yang hendak disertakan ke list merupakan Indomie, Supermie, Popmie, Sarimie, dan Mie sedap
Private Sub Command1_Click()
lbl_totalbayar.Caption = Val(thrg_brg.Text) * Val(tjml_beli.Text)
End Sub
lbl_totalbayar.Caption = Val(thrg_brg.Text) * Val(tjml_beli.Text)
End Sub
Bagian instruksi ini melakukan pekerjaan saat tombol total bayar diklik, maka akan ditangani proses perkiraan antara harga barang yang di kalikan dengan jumlah beli. Setelah itu balasannya akan diletakkan di suatu label yang berjulukan lbl_totalbayar.
Private Sub Command2_Click()
thrg_brg.Text = ""
tjenis_brg.Text = ""
tjml_beli.Text = ""
lbl_totalbayar.Caption = ""
End Sub
thrg_brg.Text = ""
tjenis_brg.Text = ""
tjml_beli.Text = ""
lbl_totalbayar.Caption = ""
End Sub
Bagian instruksi ini melakukan pekerjaan saat tombol clear di klik, maka akan di set beberapa tools menyerupai thrg_brg, tjenis_brg, tjml_beli, dan lbl_totalbayar akan berisi kosong.
Private Sub Command3_Click()
End
End Sub
End
End Sub
Bekerja jikalau tombol Exit di klik, maka kegiatan akan berhenti dengan menggunakan syntax End.
Private Sub Command4_Click()
Dim total As String
total = lbl_totalbayar.Caption
If db1.Text = "" Then
db1.Text = total
ElseIf db2.Text = "" Then
db2.Text = total
ElseIf db3.Text = "" Then
db3.Text = total
ElseIf db4.Text = "" Then
db4.Text = total
ElseIf db5.Text = "" Then
db5.Text = total
ElseIf db6.Text = "" Then
db6.Text = total
Else
MsgBox "Data bayar sudah penuh!"
End If
End Sub
Dim total As String
total = lbl_totalbayar.Caption
If db1.Text = "" Then
db1.Text = total
ElseIf db2.Text = "" Then
db2.Text = total
ElseIf db3.Text = "" Then
db3.Text = total
ElseIf db4.Text = "" Then
db4.Text = total
ElseIf db5.Text = "" Then
db5.Text = total
ElseIf db6.Text = "" Then
db6.Text = total
Else
MsgBox "Data bayar sudah penuh!"
End If
End Sub
Bagian instruksi ini akan melakukan pekerjaan jikalau tombol Add Bayar di klik. Dilakukan pendeklarasian variable total selaku String yang berisi sama dengan caption dari lbl_totalbayar. Jika db1 kosong, maka db1 akan diisi dengan total, jikalau db2 yang kosong maka db2 akan diisi dengan total, begitu seterusnya hingga db6. Dan terakhir dengan Else, jikalau semua texbox atau penampungan total sudah penuh, maka akan dimunculkan suatu notifikasi yang memberi tahu user bahwa semua textbox sudah penuh.
Private Sub Command5_Click()
db1.Text = ""
db2.Text = ""
db3.Text = ""
db4.Text = ""
db5.Text = ""
db6.Text = ""
lbl_totalbeli.Caption = ""
lbl_thanks.Caption = ""
End Sub
db1.Text = ""
db2.Text = ""
db3.Text = ""
db4.Text = ""
db5.Text = ""
db6.Text = ""
lbl_totalbeli.Caption = ""
lbl_thanks.Caption = ""
End Sub
Akan melakukan pekerjaan saat tombol clear yang berada di sebelah kanan (proses perkiraan semua total) di klik. Maka akan mengeset semua inputan menjadi kosong, yakni db1-db6, lbl_totalbeli, dan lbl_thanks.
Private Sub Command6_Click()
Dim total_beli As Double
total_beli = Val(db1.Text) + Val(db2.Text) + Val(db3.Text) + Val(db4.Text) + Val(db5.Text) +Val(db6.Text)
lbl_totalbeli.Caption = total_beli
lbl_thanks.Caption = "Terimakasih sudah membeli di Nias market :) :*"
End Sub
Dim total_beli As Double
total_beli = Val(db1.Text) + Val(db2.Text) + Val(db3.Text) + Val(db4.Text) + Val(db5.Text) +Val(db6.Text)
lbl_totalbeli.Caption = total_beli
lbl_thanks.Caption = "Terimakasih sudah membeli di Nias market :) :*"
End Sub
Bagian instruksi ini akan melakukan pekerjaan saat tombol Total Bayar sebelah kanan diklik. Pertama ditangani pendeklarasian variable berjulukan total_beli selaku type data Double. Setelah itu variable ini diisi dengan hasil penjumlahan dari db1 hingga db6. Setelah itu balasannya diletakkan selaku caption di lbl_totalbeli, dan terakhir dimunculkan suatu ucapan terimakasih di lbl_thanks.
Private Sub Timer1_Timer()
lbl_date.Caption = Format(Now, "d mmmm yyyy")
lbl_time.Caption = Format(Now, "hh : mm : ss")
End Sub
lbl_date.Caption = Format(Now, "d mmmm yyyy")
lbl_time.Caption = Format(Now, "hh : mm : ss")
End Sub
Bekerja saat kegiatan dijalankan pada detik pertama. Akan mengisi caption dari lbl_date dan lbl_time tanggal dan waktu yang hendak running secara dinamis setiap detiknya tergantung dari propertis interval pada Timer1 yang disetting.
Private Sub list_brg_Click()
Dim harga As Double
Dim jenis As String
If list_jenis.Text = "Rokok" Then
jenis = "Rokok"
Select Case list_brg.Text
Case "Dji Sam Soe"
harga = 12000
Case "Djarum Super"
harga = 10000
Case "Starmild"
harga = 11000
Case "Neomild"
harga = 10500
Case "Signature"
harga = 14000
End Select
ElseIf list_jenis.Text = "Mie" Then
jenis = "Mie"
Select Case list_brg.Text
Case "Indomie"
harga = 1500
Case "Supermie"
harga = 1400
Case "Popmie"
harga = 6000
Case "Sarimie"
harga = 1300
Case "Mie Sedap"
harga = 1200
End Select
End If
thrg_brg.Text = harga
tjenis_brg.Text = jenis
tjml_beli.Text = ""
lbl_totalbayar.Caption = ""
End Sub
Dim harga As Double
Dim jenis As String
If list_jenis.Text = "Rokok" Then
jenis = "Rokok"
Select Case list_brg.Text
Case "Dji Sam Soe"
harga = 12000
Case "Djarum Super"
harga = 10000
Case "Starmild"
harga = 11000
Case "Neomild"
harga = 10500
Case "Signature"
harga = 14000
End Select
ElseIf list_jenis.Text = "Mie" Then
jenis = "Mie"
Select Case list_brg.Text
Case "Indomie"
harga = 1500
Case "Supermie"
harga = 1400
Case "Popmie"
harga = 6000
Case "Sarimie"
harga = 1300
Case "Mie Sedap"
harga = 1200
End Select
End If
thrg_brg.Text = harga
tjenis_brg.Text = jenis
tjml_beli.Text = ""
lbl_totalbayar.Caption = ""
End Sub
Bagian instruksi ini akan melakukan pekerjaan saat list_brg diklik. Awalnya ditangani 2 buah variable yakni harga selaku double, dan jenis selaku string. Setelah itu ditangani pengkondisian jikalau list_jenis barang yang diseleksi "Rokok", maka jenis akan diisi "Rokok" dan ditangani pengkondisian dengan menggunakan tata cara Select Case. Jika barang yang diseleksi merupakan Dji Sam Soe, maka harga akan diisi dengan 12000, dan seterusnya hingga Signature. Jika list_jenis yang diseleksi user merupakan "Mie", maka jenis akan diisi "Mie" dan ditangani keadaan cabang dengan Select Case. Jika barang yang diseleksi "Indomie", maka harga = 1500, dan seterusnya hingga "Mie Sedap". Setelah semua keadaan selesai dihukum dan variable harga dan jenis sudah diisi, maka nilai dari variable harga diletakkan di textbox thrg_brg, dan jenis diletakkan di tjenis_brg. Dan terakhir tjml_beli dan lbl_totalbayar di set kosong untuk me-reset jikalau user menegaskan barang selanjutnya.
Dan screenshot dibawah ini merupakan balasannya dari setiap event yang dilakukan.
Pilih jenis barang di ComboBox (List_jenis)
Pilih jenis barang di ComboBox (List_jenis)
Kemudian pilih Tambah Jenis Barang (Btn_addjenis)
Tambah jenis barang memperlihatkan barang-barang tertentu sesuai jenis barang pada List_brg
Jika barang pada List_brg diseleksi maka akan memperlihatkan Harga Barang dan Jenis Barang pada TextBox didepannya.
Isilah Jumlah beli lalu klik tombol Total Bayar sebelah kiri, berikutnya ditangani perkiraan dari harga barang dengan jumlah barang yang dibeli.
Klik Tombol Add Bayar untuk menyertakan total bayar pada Data beli. Lakukan langkah sebelumnya jikalau barang yang dibeli lebih dari satu.
Ketika Data Beli sarat makan akan memperlihatkan notifikasi berikut:
Setelah barang yang dibeli di tambahkan ke Data Beli, berikutnya klik tombol Total Bayar sebelah kanan untuk menjumlah total keseluruhan yang mesti di bayar.
