Program Pinjam Buku Perpustakaan

Pada post kali ini saya akan membuat Tutorial Input Peminjaman Buku di Perpustakaan. Pada kesempatan kali ini saya mencoba untuk membuat program “Pinjam Buku Perpustakaan” menggunakan konsep percabangan dan perulangan. Dimana kita harus menginput Nama, NIM, Nama Buku, Jenis Buku, Rak, Bulan dan Tanggal Pinjam. Perulangan saya gunakan untuk menampilkan tanggal pinjam dan percabangan saya gunakan pada saat ada data yang akan diinput belum terisi dan untuk mencari tanggal pengembalian buku. (nb : untuk tanggal saya buat sampai 31).

Berikut desain tampilan program yang akan saya buat :

Dan dibawah ini merupakan desain sistemnya :

Desain program pada Visual Studio :

Tool – tool yang digunakan :

·         8 Label.

·         3 Text Box.

·         4 Combo Box.

·         2 Group Box.

·         2 Button.

·         1 List Box.

Yang harus di edit pada tool – tool diatas :

·      Label1 : ubah teksnya menjadi Pinjam Buku Perpustakaan.

·      Label2 : ubah teksnya menjadi Nama.

·      Label3 : ubah teksnya menjadi NIM.

·      Label4 : ubah teksnya menjadi Nama Buku.

·      Label5 : ubah teksnya menjadi Jenis.

·      Label6 : ubah teksnya menjadi Rak.

·      Label7 : ubah teksnya menjadi Bulan.

·      Label8 : ubah teksnya menjadi Tanggal.

·      Text Box1 : ganti nama menjadi txtnama.

·      Text Box2 : ganti nama menjadi txtnim.

·      Text Box3 : ganti nama menjadi txtbuku.

·      Combo Box1 : ganti nama menjadi cmbjenis.

·      Combo Box2 : ganti nama menjadi cmbrak.

·      Combo Box3 : ganti nama menjadi cmbbln.

·      Combo Box4 : ganti nama menjadi cmbtgl.

·      Button1 : ganti nama menjadi btnsmpn dan teksnya menjadi Simpan.

·      Button2 : ganti nama menjadi btnkeluar dan teksnya menjadi Keluat.

·      Group Box1 : ubah teks menjadi Input Buku Yang Akan Dipinjam.

·      Group Box2 : ubah teks menjadi List Buku Yang Dipinjam.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListView1.GridLines = True

        ListView1.View = View.Details

        ListView1.Columns.Add("Nama Peminjam", 150)

        ListView1.Columns.Add("NIM", 90)

        ListView1.Columns.Add("Nama Buku", 100)

        ListView1.Columns.Add("Jenis Buku", 100)

        ListView1.Columns.Add("Rak", 90)

        ListView1.Columns.Add("Bulan", 90)

        ListView1.Columns.Add("Tanggal Pinjam", 120)

        ListView1.Columns.Add("Tanggal Kembalikan", 150)

        txtnama.Focus()

        For i = 1 To 31

            cmbtgl.Items.Add(i)

        Next

    End Sub

    Private Sub btnsmpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsmpn.Click

        If txtnama.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            txtnama.Focus()

        ElseIf txtnim.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            txtnim.Focus()

        ElseIf txtbuku.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            txtbuku.Focus()

        ElseIf cmbjenis.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            cmbjenis.Focus()

        ElseIf cmbrak.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            cmbrak.Focus()

        ElseIf cmbbln.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            cmbbln.Focus()

        ElseIf cmbtgl.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            cmbtgl.Focus()

        Else

            Dim Arr(8) As String

            Arr(1) = txtnama.Text

            Arr(2) = txtnim.Text

            Arr(3) = txtbuku.Text

            Arr(4) = cmbjenis.Text

            Arr(5) = cmbrak.Text

            Arr(6) = cmbbln.Text

            Arr(7) = cmbtgl.Text

            Dim x As Integer

            If Arr(7) = 25 Then

                x = 1

            ElseIf Arr(7) = 26 Then

                x = 2

            ElseIf Arr(7) = 27 Then

                x = 3

            ElseIf Arr(7) = 28 Then

                x = 4

            ElseIf Arr(7) = 29 Then

                x = 5

            ElseIf Arr(7) = 30 Then

                x = 6

            ElseIf Arr(7) = 31 Then

                x = 7

            Else

                x = Arr(7) + 7

            End If

            Arr(8) = Str(x)

            Dim listitem As ListViewItem

            listitem = New ListViewItem

            listitem = ListView1.Items.Add(Arr(1))

            listitem.SubItems.Add(Arr(2))

            listitem.SubItems.Add(Arr(3))

            listitem.SubItems.Add(Arr(4))

            listitem.SubItems.Add(Arr(5))

            listitem.SubItems.Add(Arr(6))

            listitem.SubItems.Add(Arr(7))

            listitem.SubItems.Add(Arr(8))

            txtnama.Text = ""

            txtnim.Text = ""

            txtbuku.Text = ""

            cmbjenis.Text = ""

            cmbrak.Text = ""

            cmbbln.Text = ""

            cmbtgl.Text = ""

            txtnama.Focus()

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class

Berikut hasil programnya :

Ketika ada data yang belum terisi maka akan keluar message box dan cursor akan fokus pada tool yang belum terisi.

Apabila sudah di isi semua maka outputnya akan seperti ini.

Hal tersebut terjadi karena script ini : 

        ElseIf cmbjenis.Text = "" Then

            MsgBox("Ada kolom yg masih kosong!", MsgBoxStyle.Information + vbOKOnly)

            cmbjenis.Focus()

Tanggal Kembalikan di dapat dari script berikut :

Dim x As Integer

            If Arr(7) = 25 Then

                x = 1

            ElseIf Arr(7) = 26 Then

                x = 2

            ElseIf Arr(7) = 27 Then

                x = 3

            ElseIf Arr(7) = 28 Then

                x = 4

            ElseIf Arr(7) = 29 Then

                x = 5

            ElseIf Arr(7) = 30 Then

                x = 6

            ElseIf Arr(7) = 31 Then

                x = 7

            Else

                x = Arr(7) + 7

            End If

            Arr(8) = Str(x)

Sekian program Tutorial Input Peminjaman Buku di Perpustakaan, Terima Kasih.