PROGRAM UAS

UJIAN AKHIR SEMESTER

NAMA                  : MUHAMMAD ANWAR

NIM                       : 1610 1140 1365

MATA KULIAH   : PEMROGRAMAN II

FAKULTAS           : TEKNIK INFORMATIKA

DOSEN                  : M. ADHARI A. S.ST., M.KOM

Program UAS adalah Program Sederhana yang digunakan untuk mengetahui NIM dan Nama Mahasiswa berdasarkan Jurusan atau Jenjang.

• ·         Tampilan Awal adalah Login User (tidak perlu menggunakan SplashScreen, gunakan saja form biasa) jika berhasil maka akan masuk ke menu utama
• ·         Menu utama (tidak perlu menggunakan MDI, gunakan saja menustrip) di form terdapat menu DATA, LAPORAN dan Keluar
• ·         Di menu DATA terdapat Data Login dan Data Mahasiswa (Fokus ke data mahasiswa)
• ·         Data Mahasiswa form seperti yang terlihat di atas
• ·         Laporan akan menampilkan data berdasarkan pilihan

Ketentuan Form

1.         Program Menggunakan database Mysql dengan nama database dbUAS

2.         dbUAS terdiri dari 2 (dua) tabel, yaitu tblLogin dan tblMahasiswa

3.         tbLoginterdiri dari 2 field saja: user dan Password (untuk tipe data dan size atur sedemikian rupa sehingga tidak memakan memory)

4.         tblMahasiswa terdiri dari 4 field (nim, nama, Jurusan dan jenjang, dimana nim sebagai primary key)

____________________________________________________________ 

Mari kita coba membuat sesuai dengan Acuan diatas :

1. Buka Program Visual Basic 2010 dan pilih New Project Buat Tampilan seperti di bawah ini  terdiri dari 3 Buah Label, 2 TextBox, 2 Button, 1 Progres Barr, dan 1 check Box

                      Masukan Source Code nya :

Public Class login

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

        Me.Close()

    End Sub

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

        Timer1.Start()

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            password.UseSystemPasswordChar = False

        Else

            password.UseSystemPasswordChar = True

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        koneksi()

        str = "select * from tblLogin where username='" & username.Text & "' and password='" & password.Text & "'"

        perintah = New OleDbCommand(str, kon)

        rd = perintah.ExecuteReader

        If rd.Read Then

            ProgressBar1.Increment(10)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                ProgressBar1.Value = 0

                MsgBox("Your Logged", MsgBoxStyle.Information)

                MenuUtama.Show()

            End If

        Else

            Timer1.Start()

            ProgressBar1.Increment(10)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                ProgressBar1.Value = 0

                MsgBox("Login Not Succes", MsgBoxStyle.Critical)

            End If

        End If

    End Sub

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

    End Sub

    Private Sub password_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles password.TextChanged

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

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

    End Sub

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

    End Sub

                End Class 

2. Setelah sudah buat tampilan Login sekarang kita buat tampilan Form Menu Utama             menggunakan Menu Strip, untuk Menu Data terdiri dari Data Login dan Data          Mahasiswa, Menu Laporan dan Keluar Silahkan Buat Seperti dibawah ini :

3.   Kemudian Buat Data Mahasiswa dengan Model Form Seperti dibawah ini dan jgn Lupa Source Codenya

           Untuk Source Code Tombol Simpan :

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smp.Click

        Call simpan()

        Call tampilGrid()

        nim.Clear()

        nama.Clear()

              End Sub

Untuk Source Code Tombol Hapus :

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps.Click

        Call hapus()

        Call tampilGrid()

Untuk Source Code Tombol Ubah :

Private Sub ubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ubah.Click

        Call udt()

        Call tampilGrid()

       End Sub

Untuk Source Code Tombol Keluar :

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

Untuk Source Code Tombol Kembali Ke Menu Utama :

Private Sub kembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kembali.Click

        Me.Close()

       End Sub

4.     Setelah selesai membuat Form Data mahasiswa, sekarang kita buat Form Laporan dan Modelnya seperti dibawah ini dan jangan lupa Buat Source Codenya :

Untuk Source Code Tombol Lihat :

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

        Call lht()

       End Sub

Untuk Source Code Kembali :

Private Sub kembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kembali.Click

        Me.Close()

       End Sub

Setelah selesai mari kita coba dengan menekan tombol pada keyboard F5 / me RUN

 Jika Berhasil maka akan Muncul Notifikasi Login Berhasil

akan muncul Notifikasi Login Gagal silahkan Coba lagi itu menandakan bahwa anda salah memasukan Username dan Password

 Jika berhasil Maka akan Muncul Tampilan Menu Utama dan silahkan pilih Data -> Data Mahasiswa

setelah sudah dipilih maka masukan Data Mahasiswa yang akan di Simpan

 setelah Data Mahasiswa disimpan dan berhasil maka Akan Muncul Tabel di sebelah Kanan dengan Nama Mahasiswa yang tadi sudah disimpan.

 setelah sudah selesai maka kita coba Kembali Ke Menu Utama dan pilih Menu Laporan, Kemudian silahka isi data yang ingin di lihat maka akan muncul seperti digambar dibawah ini

Demikian aplikasi Program UAS yang saya Buat. Mohon Maaf apabila masih ada Kekurangan. Terima Kasih