CARA MEMBUAT PROGRAM APLIKASI PEMINJAMAN BUKU DI PERPUSTAKAAN

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

 

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX KODE BUKU

Private Sub cbokode_Click()
If cbokode.Text = "10" Then
    txtjudul.Text = "SISTEM INFORMASI"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "A1"
ElseIf cbokode.Text = "11" Then
    txtjudul.Text = "MANAJEMEN"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "A2"
ElseIf cbokode.Text = "12" Then
    txtjudul.Text = "VISUAL BASIC"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "A3"
ElseIf cbokode.Text = "13" Then
    txtjudul.Text = "STATISTIK"
    txtpenerbit.Text = "ERLANGGA"
    txtrak.Text = "R3"
End If

txtterlambat.SetFocus

End Sub

KODE TOMBOL PROGRAM KELUAR

Private Sub cmdkeluar_Click()
Unload Me
End Sub

KODE TOMBOL PROGRAM LAGI

Private Sub cmdlagi_Click()

txtjudul.Text = ""

txtpenerbit.Text = ""

txtrak.Text = ""

cbokode.Text = ""

txtnama.Text = ""

txtterlambat.Text = ""

txtdenda.Text = ""

txtnama.SetFocus

End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD

Private Sub Form_Load()

cbokode.AddItem "10"

cbokode.AddItem "11"

cbokode.AddItem "12"

cbokode.AddItem "13"

End Sub

KODE PROGRAM TXT TERLAMBAT

Private Sub txtterlambat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

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

End If
End Sub

KENAPA DISINI SAYA PAKAI KeyPress, KODE INI MEMUDAHKAN KITA UNTUK MENCARI HASIL. TINGGAL TEKAN ENTER SAJA MAKA AKAN KELUAR HASILNYA.

TERAKHIR... coba jalankan programnya seperti ini