Membuat Aplikasi Kasir — VB 6.0

Source Code

Private Sub Command1_Click()
  If txtPassword.Text = "123" Then
    Form2.Show
  Else
    MsgBox "Password salah"
    txtPassword.SetFocus
  End If
End Sub

Source Code

Private Sub cmdHitung_Click()
  Dim harga As Currency, total As Currency
  Dim jumlah As Integer
  Dim diskon As Single
  Dim satuan As String

  If List1.Text = "" Then
    MsgBox "Kamu blom pilih barang coy"
    List1.ListIndex = 0
    Exit Sub
  End If

  If Text1.Text = "" Then
    MsgBox "Belum kamu masukkan jumlah nya"
    Text1.SetFocus
    Exit Sub
  End If

  Select Case List1.Text
    Case "Solder"
      harga = 10000
      satuan = "buah"
    Case "Obeng"
      harga = 15000
      satuan = "buah"
    Case "Baut cacing"
      harga = 20000
      satuan = "kotak"
  End Select

  lblBarang.Caption = "Barang: " & List1.Text
  lblHarga.Caption = "Harga: " & Format(harga, "Currency") & "/" & satuan
  lblJumlah.Caption = "Jumlah: " & Text1.Text & " " & satuan
  jumlah = Text1.Text

  Select Case jumlah
    'jika beli dibawah 10
    Case Is < 10
      diskon = 0
    'jika beli dari 10 - 20
    Case 10 To 20
      diskon = 0.1
    'jika lebih dari 20
    Case Else
      diskon = 0.2
  End Select

  total = jumlah * (harga * (1 - diskon))
  lblDiskon.Caption = "Diskon: " & Format(diskon, "0%")
  lblTotal.Caption = "Total Bayar: " & Format(total, "Currency")
End Sub