Scribd
Upload
3 views2 pages

Java Console Book Borrowing Program

This program is a library book borrowing program for the Pintar Library. It asks the user to input their member number and book code to determine the book type. It then asks for the book publication date, borrow date, and return date to calculate any late fees based on the number of days late. It displays the fee amount or that none is due, and asks if the user wants to repeat the process.

Uploaded by

varrafauziah
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
3 views2 pages

Java Console Book Borrowing Program

This program is a library book borrowing program for the Pintar Library. It asks the user to input their member number and book code to determine the book type. It then asks for the book publication date, borrow date, and return date to calculate any late fees based on the number of days late. It displays the fee amount or that none is due, and asks if the user wants to repeat the process.

Uploaded by

varrafauziah
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

Dim ULANG As Char

Dim JENIS, KODE, M1, B1, B2, B3, F1, NO As String


Dim A, B, C, D, E, F, TGL As Byte
Sub MAIN()
Do Until ULANG = "N" Or ULANG = "n"
[Link]()
[Link]("PROGRAM PEMINJAMAN BUKU PERPUSTAKAAN PINTAR")
[Link]("PERIODE OKTOBER : OKTOBER 2013")
[Link]("===========================================")
[Link]("MASUKKAN NOMOR ANGGOTA : ")
NO = [Link]()
[Link]("MASUKKAN KODE BUKU : ")
KODE = [Link]()
If KODE = M1 Then
[Link]("JENIS BUKU : MATEMATIKA ")
ElseIf KODE = B1 Then
[Link]("JENIS BUKU : BAHASA INDONESIA ")
ElseIf KODE = B2 Then
[Link]("JENIS BUKU : BAHASA INGGRIS ")
ElseIf KODE = B3 Then
[Link]("JENIS BUKU : BIOLOGI ")
ElseIf KODE = F1 Then
[Link]("JENIS BUKU : FISIKA ")
Else
[Link]("KODE BUKU TIDAK ADA")
[Link]()
End
End If
[Link]("TANGGAL TERBIT BUKU : ")
TGL = [Link]()
[Link]("TANGGAL PINJAM : ")
A = [Link]()
[Link]("TANGGAL KEMBALI : ")
B = [Link]()
C = B - A
If C > 20 Then
D = (C * 5000) + 100000
ElseIf C > 3 Then
D = C * 5000
Else
D = 0
End If
[Link]("DENDA : " & D)
[Link]("JUMLAH BAYAR : ")
E = [Link]()
F = E - D
[Link]("SISA :" & F)
[Link]("===========================================")
[Link]("TERIMA KASIH DAN SELAMAT BELAJAR")
[Link]()
[Link]()
[Link]("APAKAH ANDA INGIN MENGULANG [Y/N]? : ")
ULANG = [Link]()
Loop
[Link]()
[Link]("TEKAN ENTER UNTUK KELUAR")

[Link]()
End Sub
End Module

You might also like