Menghitung Denda Keterlambatan Pengembalian Buku Visual Basic


Seperti yang kita ketahui denda adalah sebuah istilah / sanksi yang diberikan kepada seseorang karena orang tersebut tidak menepati apa yang telah di sepakati berupa penambahan (bisa materi maupun non materi) yang tentunya sudah di sepakati, istilah denda ini sering kita jumpai di tempat - tempat pembayaran, seperti Bank, tempat Asuransi, Kredit Kendaraan, dan tempat peminjaman seuatu barang.

Dan untuk program visual basic yang akan buat kali ini, kita akan mengambil konsep peminjaman buku di sebuah perpustakaan, di mana ketika seseorang akan mengembalikan buku ke perpustakaan, pegawai perpustakaan akan mengecek kapan tanggal buku tersebut harus di kembalikan, jika melebihi dari waktu yang sudah di tentukan, maka orang yang mengembalikan buku tersebut akan mendapatkan denda, Baiklah berikut tutorialnya :
Catatan :
karena di tutorial ini menggunakan komponen DTPicker, maka sebelum anda memulai tutorial ini, pastikan anda sudah menambahkan komponen DT Picker terlebih dahulu,
untuk cara menambahkanya, anda bisa melihatnya di tutorial ini :
Cara Menambahkan Komponen Tambahan Di Visual Basic
1. Pertama jalankan VB dengan project standar EXE
2. Lalu tambahkan 4 label, 1 command button, 1 text box dan 2 DTPicker
3. Jika sudah atur tampilan dan propertinya seperti ini :

Tool BoxPropertiesKeterangan
Form 1Statr Up PositionCenter Screen
DTPicker 1EnableFalse
Label 1Caption(JUDUL PROGRAM)
Label 2Caption(Tanggal Hari ini)
Label 3Caption(Tanggal Harus Kembali)
Label 4Caption(Denda)
Text 1Caption(Kosong)
Command 1CaptionCheck
AllFont Size10

sehingga seperti ini :

Catatan :
Untuk gambar tutorial saya buat dengan bahasa inggris, anda bisa menggantinya dengan kata yang mudah anda pahami

4. Lalu tuliskan script berikut :

Private Sub Command1_Click()
mulct = DateDiff("d", DTPicker1.Value, DTPicker2.Value)
If mulct < 0 Then
mulct = mulct * -1
Text1 = "$ " & mulct
Else
MsgBox "Thank You For On Time", vbInformation, "Blues Pedia"
End If
End Sub

Private Sub Form_Load()
DTPicker1.Value = Now
DTPicker2.Value = Now
End Sub

5. Jalankan Program

Ketika program di jalankan maka, isi dari DTPicker adalah tanggal ketika program di jalankan, dan DTPitcker 1 dalam keadaan mati, untuk mecobanya, klik saja DTPicker 2, lalu ubah tanggalnya sesuai keinginan anda

Sekian tutorial kali ini,
Semoga bermanfaat



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Menghitung Denda Keterlambatan Pengembalian Buku Visual Basic"

Post a Comment