Program Kasir Rental Kaset

source kodenya

(Name) combo box diganti dengan Ckode

(Name)Text Box diganti dengan Txthrg

Private Sub Ckode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ckode.SelectedIndexChanged

If Ckode.Text = “CD” Then

Txthrg.Text = “2000”

ElseIf Ckode.Text = “DVD” Then

Txthrg.Text = “4000”

Else : Txthrg.Text = “”

End If

End Sub

1.(Name) Text Box diganti dengan Txtjdl

2.(Name) Text Box diganti Dengan Txtjml

3.(Name) Text box Diganti Dengan Txttgl

4.(Name) Text box Diganti Dengan Txtbyr

5.(Name) Button Diganti Dengan pinjam

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pinjam.Click

Txtbyr.Text = Txthrg.Text * Txtjml.Text

MsgBox(“Judul Kaset :” & Txtjdl.Text & vbNewLine &

“Kaset :” & Ckode.Text & vbNewLine &

“Harga Per Disk :” & Txthrg.Text & vbNewLine &

“Jumlah kaset :” & Txtjml.Text & vbNewLine &

“Tgl Pnjam :” & Txttgl.Text & vbNewLine &

“Total Yang Harus Di Bayar :” & Txtbyr.Text & vbNewLine)

If Txtbyr.Text >= 10000 And Txtbyr.Text < 15000 Then

MsgBox(“Diskon = 2000 ” & vbOKOnly & vbNewLine &

“Yang Harus Dibayar:” & Txtbyr.Text – 2000)

ElseIf Txtbyr.Text >= 15000 And Txtbyr.Text < 20000 Then

MsgBox(“Diskon = 4000 ” & vbOKOnly & vbNewLine &

“Yang Harus DiBayar:” & Txtbyr.Text – 4000)

ElseIf Txtbyr.Text >= 20000 Then

MsgBox(“Diskon = 6000” & vbOKOnly & vbNewLine &

“yang Harus Dibayar:” & Txtbyr.Text – 6000)

End If

End Sub

(Name) Button Diganti Dengan hapus

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

Txtjdl.Clear()

Txtjml.Clear()

Txttgl.Clear()

Txthrg.Clear()

Txtbyr.Clear()

End Sub

(Name) text box pada judul kaset diganti dengan Pjdl

(Name) text box pada Tgl Pinjam diganti dengan Ptlgp

(Name) text bok padaa Tgl Kembali diganti dengan Ptlgk

(Name) Raadio button telat Diganti dengan t

(Name) Radio Button Pada 1 minggu diganti dengan k1

(Name) Radio Button Pada 2 minggu diganti dengan k2

(Name) Radio Button Pada 3 minggu diganti dengan k3

(Name) Radio Button Pada 1 Bulan Lebih diganti dengan k4

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pengembalian.Click

MsgBox(“Judul Kaset   :” & Pjdl.Text & vbNewLine &

“Tgl pinjam    :” & Ptglp.Text & vbNewLine &

“Tgl Kembali  :” & Ptglk.Text & vbNewLine)

If t.Checked And k1.Checked = True Then

MsgBox(“Denda : 2000”)

ElseIf t.Checked And k2.Checked = True Then

MsgBox(“Denda : 4000”)

ElseIf t.Checked And k3.Checked = True Then

MsgBox(“Denda : 6000”)

ElseIf t.Checked And k4.Checked = True Then

MsgBox(“Denda : 10000 & Pencabutan Member”)

End If

End Sub

Running Program