Perancangan Aplikasi Nilai Mahasiswa


                 "Assalamu’alaikum Warahmatullahi Wabarokatuh "


Dalam rangka  memenuhi tugas Ujian Tengah Semester Mata Kuliah Rekayasa Perangkat Lunak. Disini akan saya paparkan tentang pembuatan Aplikasi Nilai Mahasiswa menggunakan Microsoft Visual Studio 2012.

Nama Project   : Aplikasi Nilai Mahasiswa
Nama               : Samso Supriyatna
NIM                 : 161021700424
Mata Kuliah     : Rekayasa Perangkat Lunak
STMIK Eresha


1.     Analisa Kebutuhan
Aplikasi ini berfungsi untuk mengolah data dan menyimpan data nilai Mahasiswa
Mempermudah dalam menghitung Nilai Akhir dan Grade Mahasiswa
Menggantikan sistem manual yang dianggap kurang efisien, dengan adanya Aplikasi Nilai Mahasiswa ini informasi yang dihasilkan tepat, akurat dan memperoleh laporan yang lebih cepat.
Mempermudah Mahasiswa dalam melihat dan mengakses nilai.
Memperoleh dalam memasukan data diantaranya :
·         Data Mahasiswa
·         Data Dosen
·         Data Mata Kuliah
·         Data Nilai
2.     Perancangan
a.                Perancangan Database, Pertama kita buat database pada Microsoft Access , Caranya Create Db lalu kita berinama Database seuai yang diinginkan. Dalam kasus disini saya berinama dengan dblogin. Dan seterusnya kita buat Tabel, disini saya buat Tabel dengan nama tbllogin dan tblnilainmhs. Berikut saya tampilkan gambarnya sebagai berikut :

       Tampilan Dari tbllogin






           Tampilan Dari tblnilaimhs





3.     Desain Tmpilan Form Login

Login.vb [Design]*


4.     Source Code Dari Login.cb*
      Berikut saya lampirkan source code dari login, dalam login ini kami batasi dengan tiga kali kesalahan apabila 3 kali melakukan kesalahan dalam penulisan username dan password maka otomatis akan keluar dari halaman login.

 Login.cb*
Imports System.Data.OleDb

Public Class FrmLogin
    Dim id, msg As String
    Dim i As Integer

    Sub Cari()
        Cmd = New OleDbCommand("select username,password from tblogin " & _
                                      "where username='" & Trim(TxtID.Text) & "'" & _
                                      " and password='" & _
                                      Trim(TxtPassword.Text) & "'", Conn)
        DR = Cmd.ExecuteReader

    End Sub

    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        i = 0

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        i = i + 1
        If i = 3 Then
            MsgBox("Anda telah 3 kali melakukan kesalahan. Program akan ditutup.", _
                       MsgBoxStyle.Critical, "Konfirmasi")
            End
        Else
            Call Cari()
            If TxtID.Text.Trim() = "" And TxtPassword.Text.Trim() = "" Then
                msg = MsgBox("Masukan username dan Password", MsgBoxStyle.Information, "Konfirmasi")
                TxtID.Focus()
            ElseIf TxtID.Text = "" Then
                msg = MsgBox("Masukan Username ", MsgBoxStyle.Information, "Konfirmasi")
                TxtID.Focus()
            ElseIf TxtPassword.Text = "" Then
                msg = MsgBox("Masukan password ", MsgBoxStyle.Information, "Konfirmasi")
                TxtPassword.Focus()
            Else
                Try
                    If DR.Read = False Then
                        MsgBox("Login Tidak Diterima.", MsgBoxStyle.Critical, "Konfirmasi")
                    Else
                        FrmKonfirmasiLogin.Show()
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        End If

    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        End
    End Sub

    Private Sub TxtID_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtID.KeyDown
        If e.KeyCode = Keys.Enter Then
            BtnOK_Click(Nothing, Nothing)
        End If

    End Sub

    Private Sub TxtPassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtPassword.KeyDown
        If e.KeyCode = Keys.Enter Then
            BtnOK_Click(Nothing, Nothing)
        End If

    End Sub

    'disini la fungsi dari checkboxnya nanti '
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        CheckBox2.Visible = True
        CheckBox2.Checked = False
        TxtPassword.UseSystemPasswordChar = False
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        TxtPassword.UseSystemPasswordChar = True
        CheckBox1.Visible = True
        CheckBox1.Checked = False
    End Sub

    Private Sub TxtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtPassword.TextChanged

    End Sub

    Private Sub TxtID_TextChanged(sender As Object, e As EventArgs) Handles TxtID.TextChanged

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click


    End Sub
End Class



6.     Source Code KonfirmasiLogin.vb*
Public Class FrmKonfirmasiLogin

    Private Sub FrmKonfirmasiLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 5
        If ProgressBar1.Value = 500 Then
            Timer1.Dispose()
            Me.Hide()
            FrmLogin.Hide()
            frmMenuUtama.Show()
        End If

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub
End Class




7.     Tampilan Menu Utma atau Dashboard Sebelum Running
      Sebelum di Running kotak Tabel mahasiswa masih kosong dikarenakan data belum terpanggil.



8.    Source Code Dari Tampilan_Utama
       Berikut kami lampirkan Source Code Full dari frmMenuUtama, dimana disitu terdapat source code Button Proses yaitu untuk memproses Nilai Akhir dan Grade, Seterusnya ada tombol Simpan yang berfungsi menyimpan data ke Database


Public Class frmMenuUtama
    Sub Kosongkanform()
        TxtNama.Text = ""
        TxtNIM.Text = ""
        TxtNilaiTugas.Text = ""
        TxtNilaiHadir.Text = ""
        TxtNilaiUTS.Text = ""
        TxtNilaiUAS.Text = ""
        TxtNilaiAkhir.Text = ""
        TxtGrade.Text = ""
        TxtNIM.Focus()
    End Sub

    Sub MatikanForm()
        TxtNama.Enabled = False
        TxtNIM.Enabled = False
        TxtNilaiTugas.Enabled = False
        TxtNilaiHadir.Enabled = False
        TxtNilaiUTS.Enabled = False
        TxtNilaiUAS.Enabled = False
        TxtNilaiAkhir.Enabled = False
        TxtGrade.Enabled = False

    End Sub

    Sub HidupkanForm()
        TxtNama.Enabled = True
        TxtNIM.Enabled = True
        TxtNilaiTugas.Enabled = True
        TxtNilaiHadir.Enabled = True
        TxtNilaiUTS.Enabled = True
        TxtNilaiUAS.Enabled = True
        TxtNilaiAkhir.Enabled = True
        TxtGrade.Enabled = True

    End Sub

    Sub TampilkanData()
        Call Koneksi()
        DA = New OleDb.OleDbDataAdapter("Select* from tblnilaimhs ", Conn)
        DS = New DataSet
        DA.Fill(DS)
        DGV.DataSource = DS.Tables(0)
        DGV.ReadOnly = True
    End Sub


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

    End Sub


    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.LblJudul.Left < 1000 Then
            Me.LblJudul.Left = Me.LblJudul.Left + 4
        Else

            Me.LblJudul.Left = Me.LblJudul.Left - 1400

        End If
    End Sub
    Private Sub FrmMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call MatikanForm()
        Call TampilkanData()



    End Sub

    Private Sub Label14_Click(sender As Object, e As EventArgs) Handles LblJudul.Click

    End Sub

    Private Sub LaporanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabelMenuItem.Click

    End Sub

    Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click

    End Sub

    Private Sub Menu_Click(sender As Object, e As EventArgs) Handles MenuMenuItem.Click

    End Sub

    Private Sub DataPengembalianToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataDosenItem.Click

    End Sub


    Private Sub ButtonProses_Click(sender As Object, e As EventArgs) Handles ButtonProses.Click

        TxtNilaiAkhir.Text = Val((TxtNilaiHadir.Text) * 20 / 100) + Val((TxtNilaiTugas.Text) * 20 / 100) + Val((TxtNilaiUTS.Text) * 30 / 100) + Val((TxtNilaiUAS.Text) * 30 / 100)
        If TxtNilaiAkhir.Text > 85 Then
            TxtGrade.Text = "A"
        ElseIf TxtNilaiAkhir.Text > 75 Then
            TxtGrade.Text = "B"
        ElseIf TxtNilaiAkhir.Text > 60 Then
            TxtGrade.Text = "C"
        Else
            TxtGrade.Text = "D"

        End If
    End Sub

    Private Sub CmbBoxSemester_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbBoxSemester.SelectedIndexChanged
      
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)

    End Sub

    Private Sub ButtonKeluar_Click(sender As Object, e As EventArgs) Handles ButtonKeluar.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call HidupkanForm()
        Call Kosongkanform()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)
        Call MatikanForm()
        Call Kosongkanform()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If TxtNIM.Text = "" Or TxtNama.Text = "" Or CmbBoxSemester.Text = "" Or CmbBoxJenjang.Text = "" Or CmbBoxJurusan.Text = "" Or CmbBoxMataKuliah.Text = "" Or TxtNilaiAkhir.Text = "" Or TxtGrade.Text = "" Then
            MsgBox("Data Belum Lengkap .....!")
            Exit Sub
        Else
            Call Koneksi()
            Cmd = New OleDb.OleDbCommand("select* from tblnilaimhs where NIM ='" & TxtNIM.Text & "'", Conn)
            DR = Cmd.ExecuteReader
            DR.Read()
            If Not DR.HasRows Then
                Call Koneksi()
                Dim Simpan As String
                Simpan = "insert into tblnilaimhs values('" & TxtNIM.Text & "','" & TxtNama.Text & "','" & CmbBoxSemester.Text & "','" & CmbBoxJenjang.Text & "','" & CmbBoxJurusan.Text & "','" & CmbBoxMataKuliah.Text & "','" & TxtNilaiAkhir.Text & "','" & TxtGrade.Text & "')"
                Cmd = New OleDb.OleDbCommand(Simpan, Conn)
                Cmd.ExecuteNonQuery()
                MsgBox("Data Sukses Ditambahkan .....!")
            Else
                MsgBox("NIM Teman Sudah Digunakan ....!")

            End If

        End If
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub ButtonHapus_Click(sender As Object, e As EventArgs) Handles ButtonHapus.Click
        Call Kosongkanform()

    End Sub
End Class




9.     Tampilan Menu Utma atau Dashboard Setelah Running








Jadi Aplikasi Nilai Mahasiswa ini bersifat otomatis apabila kita klik proses maka Nilai akhir dan Grade akan muncul, dan apabila kita Simpan maka akan tersimpan di Database.

Sekian Aplikasi yang saya buat sebagai tugas dari nilai UTS semoga mendapat nilai yang memuaskan.


Terimakasih.

Komentar

Posting Komentar

Postingan populer dari blog ini

UAS Audit Teknologi Informasi Menggunakan ACL

Gambar
Audit Command Language Software STMIK Eresha/Sistem Informasi/ Samso Supriyatna/ 161021700424 Assalamu'alaikum Wr. Wb Untuk memenuhi tugas Ujian Akhir Semester 7 Mata Kuliah Audit IT , membuat Study Kasus dan melakukan audit dengan software ACL. ACL  adalah sebuah program untuk membantu akuntan dalam melakukan  pemeriksaan di lingkungan sistem informasi berbasis komputer atau Pemrosesan Data Elektronik. ACL secara khusus dirancang untuk menganalisa data, memanipulasi data dan mengekspor data sehingga membuatnya menjadi lebih berguna bagi auditor. Tabel yang digunakan dalam kasus-kasus diantaranya : Tabel DATA_BUKU    Tabel DATA_PETUGAS Tabel DATA_PEMINJAM Tabel DATA_TRANSAKSI Tabel AUDIT_PEMINJAMAN Kasus 1 Mengaudit peminjaman buku dengan jangka waktu lebih dari 5 hari, dengan jenis buku komputer. Bagaimana auditor melakukan pemeriksaan apabila memerlukan nama buku, jenis buku dan jangka waaktu peminjaman buku menggunakan ACL? ...
Baca selengkapnya

Web Service

Gambar
Apa itu web service? Pertanyaan ini terus menghantui di saat permintaan akan hal tersebut. Web service  adalah aplikasi sekumpulan data (database), perangkat lunak (software) atau bagian dari perangkat lunak yang dapat diakses secara remote oleh berbagai piranti dengan sebuah perantara tertentu. Secara umum, web service  dapat diidentifikasikan dengan menggunakan URL seperti hanya  web  pada umumnya Web Service merupakan teknologi yang sesuai untuk menyediakan solusi integrasi proses dan data. Web service saat ini terdiri dari teknologi: Simple Object Access Protocol (SOAP) yang merupakan teknologi transportasi dan pertukaran dokumen XML. Web Service Definition Language (WSDL) merupakan antar muka web service yang menyatakan parameter masukan dan keluaran untuk pemanggilan servis secara eksternal, struktur penanda fungsi yakni cara pemanggilan (apakah hanya pemanggilan saja, pemanggilan dan pembalikan hasil dan sebagainya) Universal Desciption, Discover, a...
Baca selengkapnya

Cara menjalankan kode Python dari dalam Visual Studio Code

Gambar
Oleh : Samso Supriyatna S.Kom Berikut adalah cara Mengkonfigurasi Pelari Tugas dalam Visual Studio Code untuk menjalankan file py. Di konsol Anda, tekan  Ctrl +  Shift +  P (Windows) atau  Cmd +  Shift +  P (Apple) dan ini memunculkan kotak pencarian tempat Anda mencari "Configure Task Runner" Klik create lalu pilij create new blank notebook Selanjutnya dapat membuka file py Anda dan menjalankannya dengan baik dengan shortcut  Ctrl +  Shift +  B (Windows) atau  Cmd +  Shift +  B (Apple) Sumber: https://code.visualstudio.com/docs/editor/extension-marketplace https://jagongoding.com/python/vscode-untuk-python/
Baca selengkapnya