Berikut langkah-langkahnya:

Buka software Visual Basic 6.0 dan pilih Standar.Exe atur sedemikian rupa sehingga Tampilan UI aplikasinya seperti gambar di bawah ini.


Berikut Jenis-jenis dan properti dari setiap tools yang harus 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 adalah kode-kode untuk setiap tools beserta penjelasan 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
Bagian kode ini bekerja ketika button btn_addjenis diklik. Ketika user memilih jenis barang pada combobox, dan mengklik button ini, maka list barang yang bernama list_brg akan di hapus data-datanya dengan menggunakan .Clear dan setelah itu dilakukan pengkondisian jika jenis barang yang dipilih "Rokok", maka list barang akan diisi datanya dengan Dji Sam Soe, Djarum Super, Starmild, Neomild, dan Signature. Jika user memilih jenis "Mie", maka yang akan ditambahkan ke list adalah Indomie, Supermie, Popmie, Sarimie, dan Mie sedap
Private Sub Command1_Click()
lbl_totalbayar.Caption = Val(thrg_brg.Text) * Val(tjml_beli.Text)
End Sub
Bagian kode ini bekerja ketika tombol total bayar diklik, maka akan dilakukan proses perhitungan antara harga barang yang di kalikan dengan jumlah beli. Setelah itu hasilnya akan ditaruh di sebuah label yang bernama lbl_totalbayar.
Private Sub Command2_Click()
thrg_brg.Text = ""
tjenis_brg.Text = ""
tjml_beli.Text = ""
lbl_totalbayar.Caption = ""
End Sub
Bagian kode ini bekerja ketika tombol clear di klik, maka akan di set beberapa tools seperti thrg_brg, tjenis_brg, tjml_beli, dan lbl_totalbayar akan berisi kosong.
Private Sub Command3_Click()
End
End Sub
Bekerja jika tombol Exit di klik, maka program 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
Bagian kode ini akan bekerja jika tombol Add Bayar di klik. Dilakukan pendeklarasian variable total sebagai String yang berisi sama dengan caption dari lbl_totalbayar. Jika db1 kosong, maka db1 akan diisi dengan total, jika db2 yang kosong maka db2 akan diisi dengan total, begitu seterusnya sampai db6. Dan terakhir dengan Else, jika semua texbox atau penampungan total sudah penuh, maka akan dimunculkan sebuah notifikasi yang memberitahu 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
Akan bekerja ketika tombol clear yang berada di sebelah kanan (proses perhitungan semua total) di klik. Maka akan mengeset semua inputan menjadi kosong, yaitu 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 telah berbelanja di Nias market :) :*"
End Sub
Bagian kode ini akan bekerja ketika tombol Total Bayar sebelah kanan diklik. Pertama dilakukan pendeklarasian variable bernama total_beli sebagai type data Double. Setelah itu variable ini diisi dengan hasil penjumlahan dari db1 sampai db6. Setelah itu hasilnya ditaruh sebagai caption di lbl_totalbeli, dan terakhir dimunculkan sebuah 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
Bekerja ketika program dijalankan pada detik pertama. Akan mengisi caption dari lbl_date dan lbl_time tanggal dan waktu yang akan 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
Bagian kode ini akan bekerja ketika list_brg diklik. Awalnya dilakukan 2 buah variable yaitu harga sebagai double, dan jenis sebagai string. Setelah itu dilakukan pengkondisian jika list_jenis barang yang dipilih "Rokok", maka jenis akan diisi "Rokok" dan dilakukan pengkondisian dengan menggunakan metode Select Case. Jika barang yang dipilih adalah Dji Sam Soe, maka harga akan diisi dengan 12000, dan seterusnya sampai Signature. Jika list_jenis yang dipilih user adalah "Mie", maka jenis akan diisi "Mie" dan dilakukan kondisi cabang dengan Select Case. Jika barang yang dipilih "Indomie", maka harga = 1500, dan seterusnya sampai "Mie Sedap". Setelah semua kondisi selesai dieksekusi dan variable harga dan jenis sudah diisi, maka nilai dari variable harga ditaruh di textbox thrg_brg, dan jenis ditaruh di tjenis_brg. Dan terakhir tjml_beli dan lbl_totalbayar di set kosong untuk me-reset jika user memilih barang selanjutnya.

Dan screenshot dibawah ini adalah hasilnya dari setiap event yang dilakukan.
Pilih jenis barang di ComboBox (List_jenis)


Kemudian pilih Tambah Jenis Barang (Btn_addjenis)


Tambah jenis barang menampilkan barang-barang tertentu sesuai jenis barang pada List_brg


Jika barang pada List_brg dipilih maka akan menampilkan Harga Barang dan Jenis Barang pada TextBox didepannya.


Isilah Jumlah beli kemudian klik tombol Total Bayar sebelah kiri, selanjutnya dilakukan perhitungan dari harga barang dengan jumlah barang yang dibeli.


Klik Tombol Add Bayar untuk menambahkan total bayar pada Data beli. Lakukan langkah sebelumnya jika barang yang dibeli lebih dari satu.


Ketika Data Beli penuh makan akan menampilkan notifikasi berikut:


Setelah barang yang dibeli di tambahkan ke Data Beli, selanjutnya klik tombol Total Bayar sebelah kanan untuk menghitung total keseluruhan yang harus di bayar.