Program Sederhana Perpustakaan Menggunakan Visual Basic

Form Peminjaman buku

Tampilan Program

Listing Program :

judul = "aku rindu dia"

penerbit = "gudang hati"

rak = "R4"

End Select

txtjudul.Text = judul

txtpenerbit.Text = penerbit

txtRak.Text = rak

End Sub

Private Sub cmdkeluar_Click()

Dim pesan As String

pesan = MsgBox("Anda Yakin Ingin Keluar?", vbYesNo + vbQuestion, "Pesan!")

If pesan = vbYes Then

End

End If

End Sub

Private Sub Form_Load()

Cbokd.AddItem "001"

Cbokd.AddItem "002"

Cbokd.AddItem "003"

txtjudul.Enabled = True

txtpenerbit.Enabled = True

txtRak.Enabled = True

End Sub

Private Sub txtpenerbit_Change()

End Sub

Form Pengembalian Buku 

 

Tampilan Program

Listing Program :

Private Sub Cbokd_Click()

kd = Cbokd.Text

Select Case kd

Case "001"

judul = "cinta ku bertepuk sebelah tangan"

Case "002"

judul = "kapan dia nembak aku lagi"

Case "003"

judul = "aku rindu dia"

End Select

Txtjudul.Text = judul

End Sub

Private Sub Form_Load()

Cbokd.AddItem "001"

Cbokd.AddItem "002"

Cbokd.AddItem "003"

Txtjudul.Enabled = True

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Txtnama_Click()

Txtnama.Text = ""

Txtnama.Enabled = True

End Sub

Private Sub Txtnpm_Click()

Txtnpm.Text = ""

End Sub

Private Sub Txtpeminjaman_Click()

Txtpeminjaman.Text = " "

End Sub

Private Sub Txtppengembalian_Click()

Txtpeminjaman.Enabled = True

Txtppengembalian.Text = " "

End Sub

Private Sub Txtsem_Click()

Txtsem.Text = ""

End Sub

Form Denda

 Tampilan Program 

 Listing Program :

KODE = CBOKODE.Text

Select Case KODE

Case "1HARI"

TANGGAL_KADALUARSA = 1

HARGA_DENDA = 1000

Case "2HARI"

TANGGAL_KADALUARSA = 2

HARGA_DENDA = 2000

Case "3HARI"

TANGGAL_KADALUARSA = 3

HARGA_DENDA = 3000

End Select

Txtkadaluarsa.Text = TANGGAL_KADALUARSA

Txthd.Text = HARGA_DENDA

Txttd.Text = TOTAL_DENDA

Txttd = Txtkadaluarsa * Txthd

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

CBOKODE.AddItem "1HARI"

CBOKODE.AddItem "2HARI"

CBOKODE.AddItem "3HARI"

Txthd.Enabled = True

End Sub

Private Sub Txtkembali_Change()

End Sub

Sumber : Tugas Kami (Nurahmah & Juneda)