Tugas III Sessi VII Mata Kuliah PB1

Aplikasi sederhana : Kartu perpustakaan

Aplikasi sederhana ini di gunakan untuk petugas perpustakaan yang akan membuatkan kartu perpustakaan kepada mahasiswa. Aplikasi ini terdiri dari tiga form yang memiliki fungsi yang berbeda beda yaitu :

Form 1 : digunakan untuk admin perpustakaan untuk login kedalam aplikasi kartu perpustakaan ini

Form 2 : digunakan untuk mengisikan borang borang data isian untuk mengisi biodata mahasiswa yang akan membuat kartu perpustakaan

Form 3 : digunakan untuk melihat hasil akhir dari kartu perpustakaan ,dan juga untuk mencetak form3 lewat printer dan langsung menjadi kartu perpustakaan

Gambar 1

Pada gambar 1 ini merupakan form 1,dalam form ini terdapat textbox yang berfungsi untuk memasukan username dari admin dan password yang sudah di set “admin” dan akan mengeluarkan tanda “*****”  seperti gambar berikut ini

Gambar 2

Setelah admin login pada form 1 maka akan keluar message box yang memberitahukan bahwa yang login adalah admin klik ok ,kemudian form 1 akan keluar atau hide dan form 2 akan tampil tunggal,tanpa ada penumpukan form. Seperti gambar berikut ini

Gambar 3

Gambar 4

Gambar 4 merupakan tampilan dari form2 yang didalamnya terdapat beberapa komponen yaitu

Nama lengkap ,npm,tanggal lahir,fakultas dan alamat.

Dimana tanggal lahir dan fakultas disini menggunakan fungsi looping pada combo box seperti gambar di bawah ini

Gambar  5

Gambar  6

Gambar  7

Gambar 8

Kemudian form diisikan sesuai dengan biodata mahasiswa seperti gambar berikut ini

Gambar 9

Didalam form 2 ini terdapat tombol data baru untuk mengosongkan borang dari biodata

Gambar 13

Juga terdapat tombol log out untuk admin untuk kembali ke menu form 1 yang sudah kosong ,siap untuk diisikan username dan password kembali seperti gambar berikut

Gambar 12

Dan akan kembali ke

Gambar 1

Setelah data lengkap admin akan mengklik tombol cetak untuk melihat preview dari kartu perpustakaan yang sudah jadi,maka form 3 akan keluar , seperti gambar berikut yang di tambahkan pada form ini adalah fungsi if dan string yang digunakan pada kolom angkatan apabila dua angka pertama dari npm 11 maka pada kolom angkatan menjadi 2011 dan seterusnya

Gambar 10

Pada form 3 ini terdapat tombol cetak untuk mencetak kartu perpustakaan yang sudah terisi biodata dan akan keluar menu untuk meng print kartu perpustakaan yang sudah jadi seperti  gambar berikut ini

Gambar 11

Pada form 1 terdapat tombol keluar untuk keluar dari aplikasi. Jika ingin keluar maka klik ok pada message box jika tidak jadi maka klik cancel.

Sekian demonstrasi dari aplikasi sederhana dari saya semoga dapat bermanfaat bagi orang banyak.

Terimakasih

Berikut ini adalah source codenya :

Public Class Form1

    Private Sub bmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmasuk.Click

        If Tpass.Text = "admin" Then

            MsgBox("anda login sebagai ADMIN")

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("salah masukkan username or password")

            Tuser.Text = ""

            Tpass.Text = ""

            Tuser.Focus()

        End If

    End Sub

  

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

        Dim y As Integer

        y = MsgBox("anda ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "konfirmasi")

        If y = vbOKCancel Then

            Me.Close()

        End If

    End Sub

End Class

Public Class Form2

    Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Application.Exit()

    End Sub

  

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

        Dim i, s, w As Integer

        For i = 1 To 31

            tanggal.Items.Add(i)

        Next

        For w = 1999 To 1940 Step -1

            tahun.Items.Add(w)

        Next

        For s = 1 To 12

            bulan.Items.Add(MonthName(s))

        Next

    End Sub

    Private Sub Cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cetak.Click

        Form3.Show()

    End Sub

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

        Tnama.Text = ""

        Tnpm.Text = ""

        Talamat.Text = ""

        tanggal.Text = ""

        bulan.Text = ""

        tahun.Text = ""

        fakultas.Text = ""

    End Sub

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

        Form1.Show()

        Form1.Tuser.Text = ""

        Form1.Tpass.Text = ""

        Me.Hide()

    End Sub

End Class

Public Class Form3

   

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

        nama.Text = Form2.Tnama.Text

        npm.Text = Form2.Tnpm.Text

        alamat.Text = Form2.Talamat.Text

        tgal.Text = Form2.tanggal.Text

        bulan.Text = Form2.bulan.Text

        tahun.Text = Form2.tahun.Text

        fakultas.Text = Form2.fakultas.Text

        If Strings.Left(npm.Text, 2) = "11" Then

            angkatan.Text = "2011"

        ElseIf Strings.Left(npm.Text, 2) = "10" Then

            angkatan.Text = "2010"

        ElseIf Strings.Left(npm.Text, 2) = "09" Then

            angkatan.Text = "2009"

        ElseIf Strings.Left(npm.Text, 2) = "08" Then

            angkatan.Text = "2008"

        Else

            MsgBox("input salah")

        End If

    End Sub

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

        Dim printDialog1 As PrintDialog = New PrintDialog

        printDialog1.Document = PrintDocument1

        Dim result As DialogResult = printDialog1.ShowDialog

        If (result = DialogResult.OK) Then

            PrintDocument1.Print()

        End If

    End Sub

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

        Dim y As Integer

        y = MsgBox("anda ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "konfirmasi")

        If y = vbOKCancel Then

            Me.Close()

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class