Ads 468x60px

Minggu, 14 April 2013

Membuat program KASIR SEDERHANA dengan Visual Basic 6.0


Soal Nomer 3.

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 J

2 celotehan:

  1. gan,kok harga totalnya malah sama kayak harga sebelum di diskon sih??

    BalasHapus