Tutorial VB tugas tambahan modul 3 "Perpustakaan"

Konsep "The Ifd Library"

Pada Ifd's Library ini memiliki ketentuan dalam peminjaman dan pengembalian buku sebagai berikut :
1. PEMINJAM HARUS MENJAGA BUKU 
    DENGAN BAIK JANGAN SAMPAI RUSAK
2. LAMA PEMINJAMAN ADALAH
    MAKSIMAL SELAMA 7 HARI
3. APABILA PADA SAAT PENGEMBALIAN PEMINJAMAN BUKU
     MELEBIHI BATAS WAKTU YANG DITENTUKAN 
     MAKA AKAN DIKENAKAN DENDA 
     SEBESAR 
     - RP 500,00 PER HARINYA UNTUK BUKU PELAJARAN
     - RP 1.000,00 PER HARINYA UNTUK  MAKALAH
     - RP 250,00 PER HARINYA UNTUK MAJALAH
     - RP 1500,00 PER HARI UNTUK KP DAN TA
4. PEMINJAM HARUS MENAATI SEMUA PERATURAN 
    YANG KAMI BERIKAN
Data yang diinputkan pada form 2 akan diproses dan muncul pada data grid

TUTORIAL PEMBUATAN THE IFD’S LIBRARY

1.       Buka halaman awal Microsoft Visual Basic 2010, dan pilih new form

2.       Masukkan komponen toolbox berikut ini :

KOMPONEN	PROPERTIES	KETERANGAN
Form 1	Name	Form 1
	Text	IFD LIBRARY
Label1	Name	Label1
	Text	WELCOME TO THE IFD’S LIBRARY
Listbox1	Name	Listbox1
Button 1	Name	Button 1
	Text	ENTER
Button 2	Name	Button 2
	Text	QUIT
Form2	Name	Form2
	Text	IFD LIBRARY
Label1	Name	Label1
	Text	NAMA
Label2	Name	Label2
	Text	JUDUL BUKU
Label3	Name	Label3
	Text	LAMA PEMINJAMAN
Label4	Name	Label4
	Text	PENGARANG
Label5	Name	Label5
	Text	PENERBIT
Label6	Name	Label6
	Text	WAKTU PENGEMBALIAN
Label7	Name	Label7
	Text	WAKTU PINJAM
Label8	Name	Label8
	Text	MASUKKAN DATA ANDA LENGKAP
Label9	Name	Label9
	Text	=
Label10	Name	Label10
	Text	=
Label11	Name	Label11
	Text	=
Label12	Name	Label12
	Text	=
Label13	Name	Label13
	Text	=
Label14	Name	Label14
	Text	=
Label15	Name	Label15
	Text	=
Label16	Name	Label16
	Text	=
Label17	Name	Label17
	Text	DENDA TERLAMBAT
Label18	Name	Label18
	picture	HARI
Label19	Name	Label19
	Text	KATEGORI BUKU
Label20	Name	Label20
	Text	=
Label21	Name	Label21
	Text	KETERLAMBATAN
Label22	Name	Label22
	Text	=
TextBox1	Name	TextBox1
	Text
TextBox2	Name	TextBox2
	Text
TextBox3	Name	TextBox3
	Text
TextBox4	Name	TextBox4
	Text
TextBox5	Name	TextBox5
	Text
TextBox6	Name	TextBox6
	Text
TextBox7	Name	TextBox7
	Text
Combobox1	Name	Combobox1
Button1	Name	Button1
	Text	REFRESH
Button2	Name	Button2
	Text	BACK
Button3	Name	Button3
	Text	PROCESS
Button4	Name	Button4
	Text	HISTORY
Datagridview1	Name	Datagridview1

3.       Kombinasikan seluruh komponen toolbox tersebut seperti gambar berikut ini :

4.       Masukkan listing program berikut :

1.       Form 1 :

a.       Button1

Dalam hal ini button 1 berfungsi untuk memasuki program menuju form2

               Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button1.Click

               Form2.Show()

               Me.Hide()

               End Sub

b.      Button2

Dalam hal ini button2 berfungsi untuk keluar dari aplikasi IFD LIBRARY

               Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button2.Click

               Close()

               End Sub

2.       Form2

a.       Button1

Dalam hal ini button 1 berfungsi untuk merefresh semua textbox, xombobox, dan datetimepicker yang ada pada form 2 sehngga kembali ke tampilan semula

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As      System.EventArgs) Handles Button1.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        ComboBox1.Text = ""

        DateTimePicker1.Text = ""

        DateTimePicker2.Text = ""

  End Sub

b.      Button2

Dalam hal ini button2 berfungsi untuk kembali ke form1

              Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button2.Click

              Form1.Show()

              Me.Hide()

              End Sub

               

c.       Button3

Dalam hal ini button 3 berfungsi untuk memproses dari data yang input dan menghasilkan output lama peminjaman, keterlambatan, dan denda terlambat

              Private Sub day()

              TextBox6.Text = DateDiff("d", DateTimePicker1.Text,                               DateTimePicker2.Text)

              End Sub

              Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button3.Click

              Call day()

              TextBox7.Text = TextBox6.Text - 7

              If ComboBox1.Text = ("BUKU PELAJARAN") Then TextBox5.Text =                       TextBox7.Text * 500

              If ComboBox1.Text = ("MAKALAH") Then TextBox5.Text = TextBox7.Text *              1000

              If ComboBox1.Text = ("KP") Then TextBox5.Text = TextBox7.Text * 1500

              If ComboBox1.Text = ("TA") Then TextBox5.Text = TextBox7.Text * 1500

              If ComboBox1.Text = ("MAJALAH") Then TextBox5.Text = TextBox7.Text * 250

              End Sub

d.      Button4

dalam hal ini button 4 berfungsi untuk menampilkan semuat data yang tercantum agar tampil ke dalam data grid view

              Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button4.Click

              With Me.DataGridView1.Rows.Add(Me.TextBox1.Text, Me.TextBox2.Text,                Me.TextBox3.Text, Me.TextBox4.Text, Me.ComboBox1.Text,                                   Me.DateTimePicker1.Text, Me.DateTimePicker2.Text, Me.TextBox6.Text,               Me.TextBox7.Text, Me.TextBox5.Text)

              End With

              End Sub

e.       End Class

Adapun listing End Class adalah menyatakan listing akhir yang merupakan listing penutup dari listing program.