Program untuk Peminjam Buku

KODE PADA KOLOM KODE BUKU

Private Sub cbokode_Click()

If cbokode.Text = "111" Then

txtjudul.Text = "Menjadi Hebat"

txtpenulis.Text = "fina"

txtrak.Text = "3"

ElseIf cbokode.Text = "666" Then

txtjudul.Text = "Wanita Strong"

txtpenulis.Text = "Diana"

txtrak.Text = "87"

ElseIf cbokode.Text = "133" Then

txtjudul.Text = "Ahli Pemograman"

txtpenulis.Text = "firda"

txtrak.Text = "42"

ElseIf cbokode.Text = "550" Then

txtjudul.Text = "Menjadi Diri Sendiri Itu Lebih Baik"

txtpenulis.Text = "Lia"

txtrak.Text = "99"

ElseIf cbokode.Text = "878" Then

txtjudul.Text = "Aku Hebat"

txtpenulis.Text = "Resdiana"

txtrak.Text = "567"

End If

txtterlambat.SetFocus

End Sub

KODE PADA TOMBOL KELUAR

Private Sub cmdkeluar_Click()

Unload Me

End Sub

KODE PADA TOMBOL LAGI 

Private Sub cmdlagi_Click()

txtnama.Text = ""

cbokode.Text = ""

txtjudul.Text = ""

txtpenulis.Text = ""

txtrak.Text = ""

txtterlambat.Text = ""

txtdenda.Text = ""

txtnama.SetFocus

End Sub

KODE UNTUK MEMUNCULKAN KODE BUKU

Private Sub Form_Load()

cbokode.AddItem "111"

cbokode.AddItem "666"

cbokode.AddItem "133"

cbokode.AddItem "550"

cbokode.AddItem "567"

End Sub

KODE UNTUK HASIL LEWAT ENTER

Private Sub txtterlambat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtdenda.Text = Val(txtterlambat.Text) * 3000

End If

End Sub