Membuat program KASIR SEDERHANA dengan Visual Basic 6.0

Program ini akan menghitung total harga dari olie yang dibeli oleh seorang customer. Petugas kasir cukup menginputkan jumlah olie yang dibeli. Saat tombol proses dipilih, program akan menghitung total pembelian,menentukan discount, potongan harga dan pembayaran yang harus dibayar oleh customer. Berikut adalah nama-nama olie yang digunakan dalam program KASIR beserta harga dari masing-masing olie.

Nama Olie	Harga Olie
PENZOIL	Rp. 60.000
YAMALUBE	Rp. 50.000
AGIP	Rp. 38.000
SHELL	Rp. 45.000

Ketentuan lain dari program kasir sederhana :

Total Pembelian  > Rp. 38.000 dan Total Pembelian  <= Rp. 100.000 maka customer tidak akan mendapatkan discount maupun potongan harga.

Total Pembelian  > Rp. 100.000 dan Total Pembelian  <= Rp. 250.000 maka customer akan mendapatkan discount sebesar 5% dan mendapatkan potongan harga (total pembelian * discount).

Total Pembelian  > Rp. 250.000 dan Total Pembelian  <= Rp. 500.000 maka customer akan mendapatkan discount sebesar 15% dan mendapatkan potongan harga (total pembelian * discount).

Total Pembelian  > Rp. 500.000 maka customer akan mendapatkan discount sebesar 20% dan mendapatkan potongan harga (total pembelian * discount).

Inilah kode program tersebut agar program dapat dijalankan dengan benar.

Private Sub Command1_Click()

Text1.Text = "60000"

Text2.Text = "50000"

Text3.Text = "45000"

Text4.Text = "38000"

Text9.Text = Val(Text1.Text * Text5.Text) + Val(Text2.Text * Text6.Text) + Val(Text3.Text * Text7.Text) + Val(Text4.Text * Text8.Text)

If Val(Text9.Text) < 38000 Then

Text10.Text = "0"

Text11.Text = Val(Text9.Text) * Val(Text10.Text)

Text12.Text = Val(Text9.Text) - Val(Text11.Text)

Else

If Val(Text9.Text) >= "38000" And Val(Text9.Text) <= "100000" Then

Text10.Text = "0"

Text11.Text = Val(Text9.Text) * Val(Text10.Text)

Text12.Text = Val(Text9.Text) - Val(Text11.Text)

Else

If Val(Text9.Text) > "100000" And Val(Text9.Text) <= "250000" Then

Text10.Text = "0.05"

Text11.Text = Val(Text9.Text) * Val(Text10.Text)

Text12.Text = Val(Text9.Text) - Val(Text11.Text)

Else

If Val(Text9.Text) > "250000" And Val(Text9.Text) <= "500000" Then

Text10.Text = "0.15"

Text11.Text = Val(Text9.Text) * Val(Text10.Text)

Text12.Text = Val(Text9.Text) - Val(Text11.Text)

Else

If Val(Text9.Text) > "500000" Then

Text10.Text = "0.2"

Text11.Text = Val(Text9.Text) * Val(Text10.Text)

Text12.Text = Val(Text9.Text) - Val(Text11.Text)

End If

End If

End If

End If

End If

End Sub

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

Text6.Text = Clear

Text7.Text = Clear

Text8.Text = Clear

Text9.Text = Clear

Text10.Text = Clear

Text11.Text = Clear

Text12.Text = Clear

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Beginilah contoh tampilan ketika program dijalankan :

Begitulah Tutorial cara membuat “PROGRAM KASIR SEDERHANA”

SELESAI

Tag:
program kasir , membuat program kasir , kasir sederhana , membuat program kasir sederhana , visual basic , visual basic 6 , visual basic 6.0 , membuat kasir , membuat program kasir dengan visual basic , membuat program kasir dengan visual basic 6 , membuat program kasir dengan visual basic 6.0 , membuat sendiri program kasir , membuat program kasir sederhana , membuat program kasir sederhana dengan visual basic 6 , program kasir dengan vb 6 , vb6 , tutorial membuat program kasir sederhana dengan menggunakan visual basic 6