Public Class Form1
Private Sub btulangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btulangi.Click
txtbuku.Text = ""
txtdenda.Text = ""
txtharga.Text = ""
txtlama.Text = ""
txtbanyak.Text = ""
txtbuku.Focus()
End Sub
Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
Dim total As Double
total = ((Val(txtharga.Text) * Val(txtbanyak.Text)) * Val(txtlama.Text)) + Val(txtdenda.Text)
MsgBox(" Judul Buku : " & txtbuku.Text & vbNewLine &
" Banyak Buku : " & txtbanyak.Text & vbNewLine &
" lama pinjam : " & txtlama.Text & vbNewLine &
" Harga sewa : " & txtharga.Text & vbNewLine &
" Denda : " & txtdenda.Text & vbNewLine &
" Total Bayar : Rp." & total)
End Sub
Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
End
End Sub
Private Sub txtbuku_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbuku.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub txtlama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlama.TextChanged
End Sub
End Class
Deskripsi
Program transaksi peminjaman buku, tujuan dibuatnya program ini untuk mempermudah transaksi peminjaman buku, sebagai pengganti alat kalkulator dan menghitung denda peminjaman buku.
Fungsi
1. Button : tombol digunakan untuk perintah
2. Text box : kotak inputan / digunakan untuk menampilkan hasil
3. Labels : untuk memberikan keterangan
4. Function : untuk memberikan nilai balik saat dipanggil
5. Back color : untuk memberikan warna latar belakang
6. Tab stop : dilewati kursor
7. Text aligh : untuk penataan/penampilan naskah tulisan
8. Multi line : untuk menata baris
9. Append text : untuk penambahan tulisan
