BAB IV IMPLEMENTASI DAN PENGUJIAN

BAB IV IMPLEMENTASI DAN PENGUJIAN Implementasi adalah tahap yang dilakukan setelah perancangan, implementasi merupakan pengkodean dari hasil perancangan. Aplikasi Penghasil Grafik Untuk Data Akademik Sekolah Dasar XYZ. 4.1

Implementasi Database Pada implementasi database komputer penulis telah terinstal SQL Server.

Berikut tampilan halaman SQL Server :

Gambar 4.1 Halaman utama SQL Server Tabel-tabel yang di rancang dalam bab sebelumnya diimplementasikan menggunakan SQL Server dalam lingkungan sistem operasi Microsoft Windows XP.

63

http://digilib.mercubuana.ac.id/

64

Berikut tampilan halaman database:

Gambar 4.2 Halaman database pada SQL Server Untuk menghubungkan sistem dengan dengan database di SQL Server maka di gunakan sintak seperti berikut ini. Public Sub BukaDatabase() Set DbKoneksi = New ADODB.Connection DbKoneksi.CursorLocation = adUseClient StrKoneksi = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=vianney;Data Source=saranabelajar" If DbKoneksi.State = adStateOpen Then DbKoneksi.Close Set DbKoneksi = New ADODB.Connection DbKoneksi.Open StrKoneksi Else DbKoneksi.Open StrKoneksi End If End Sub


65

Dalam melakukan koneksi, Vianney adalah nama database yang akan di akses oleh sistem. 4.2

Implementasi Program

A.

Implementasi Form Login Form login adalah form yang pertama kali akan tampil saat aplikasi akan

digunakan oleh pengguna atau admin. Pada form ini terdapat kotak isian nama dan password. Kotak isian nama diisi dengan nama pengguna dan kotak password diisi dengan password pengguna. Apabila pengguna belum memiliki password maka harus menghubungi administrator untuk melakukan pendaftaran. Berikut ini adalah tampilan form login.

Gambar 4.3 Form Login


66

Syntax dari form login diatas adalah : SQL = "Select * from login where " _ & " nama= '" & txtnama.Text & "' " Set Rs_CekPegawai = DbKoneksi.Execute(SQL) If Not Rs_CekPegawai.EOF Then SQL = "select * from login where " _ & " password='" & txtpswd.Text & "' " Set Rs_CekPegawai = DbKoneksi.Execute(SQL) If Not Rs_CekPegawai.EOF Then If Rs_CekPegawai!status = "ADMIN" Then Konfirmasi = MsgBox("Koneksi berhasil " _ & "masuk dalam sistem !", vbOKCancel + vbInformation, "Anda adalah Administrator") If Konfirmasi = vbOK Then With form_utama .Enabled = True .Show Unload Me End With End If ElseIf Rs_CekPegawai!status = "NON" Then Konfirmasi = MsgBox("Koneksi berhasil " _ & "masuk dalam sistem user!", vbOKCancel + vbInformation, "User Pegawai") If Konfirmasi = vbOK Then With form_utama .Enabled = True .Show form_utama.mn_akademik.Visible = False Unload Me End With End If

B.

Implementasi Menu Utama Menu utama adalah form yang muncul setelah login dilakukan. Pada form

ini terdapat semua menu dari aplikasi. Semua menu tersusun berdasarkan fungsinya. Dibawah ini tampilan menu utama dengan login sebagai administrator.


67

Gambar 4.4 Form Utama C.

Implementasi Form Biodata Siswa Form Biodata Siswa dipanggil oleh pengguna dari menu Pendaftaran

submenu Siswa Baru. Fungsi dari form Biodata Siswa ini adalah untuk memasukkan data-data siswa baru yang belum pernah diinput ke sistem. Pada form ini pengguna diminta memasukkan data-data sesuai permintaan pada form. Setelah datanya lengkap maka pengguna harus menekan tombol simpan. Berikut ini tampilan form Biodata Siswa.


68

Gambar 4.5 Form Biodata Siswa Syntax dari form diatas adalah : SqlInsert = "Insert into siswa " _ & " (nis,nama_siswa, " _ & " alamat,jk,orang_tua,telp,tgllahir) " _ & "values ('" & txt_nis.Text & "','" & txtnama.Text & "','" & txt_alamat.Text & "','" _ & jenis & " ','" & txt_orangtua.Text & "','" & txt_telp.Text & "','" & tgl.Text & "')" DbKoneksi.Execute SqlInsert, , adCmdText

D. Implementasi Form Tahun Ajaran Form tahun ajaran digunakan oleh admin untuk memasukan atau merubah periode aktif tahun ajaran. Menunya ada didalam submenu akademik. Tujuan dari form ini adalah untuk menentukan tahun ajaran yang aktif dan tidak aktif. Data


69

pada form ini merupakan acuan dari semua data yang ditampilkan di aplikasi ini. Berikut tampilan form tahun ajaran.

Gambar 4.6 Form Tahun Ajaran Syntax dari form diatas adalah : Private Sub Form_Load() BukaDatabase Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3 Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "select idtahun,tahunajaran,case validasi when 1 then 'Aktif' else 'Tidak aktif' end as Status from periode order by tahunajaran" _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set grid.DataSource = Rs_siswa

E. Implementasi Form Pemetaan Siswa Form Pemetaan Siswa dipanggil dari menu Akademik. Form ini digunakan oleh admin untuk menentukan kelas yang akan ditempati oleh siswa. Admin memilih tahun ajaran, nis dan kelas setelah data lengkap admin akan menekan tombol simpan. Berikut tampilan form pemetaan siswa.


70

Gambar 4.7 Form Pemetaan Siswa Syntax dari form diatas adalah : SqlInsert = "Insert into absen " _ & " (idkelas,nis,idtahun) " _ & "values ('" & ID & "','" & txtnis.Text & "','" & idtahun & "')" DbKoneksi.Execute SqlInsert, , adCmdText

F. Implementasi Form Mata Pelajaran Form Mata Pelajaran ada pada sub menu akademik.. Form ini digunakan untuk memetakan mata pelajaran berdasarkan kelas. Admin memasukan nama mata pelajaran, kelas dan KKM. Setelah data lengkap admin menekan tombol simpan. Berikut tampilan formnya.


71

Gambar 4.8 Form Mata Pelajaran Syntax dari form diatas adalah : SqlInsert = "Insert into matpel " _ & " (matapelajaran,idkelas,kkm) " _ & "values ('" & txt_matpel.Text & "','" & ID & "','" & txt_kkm.Text & "')" DbKoneksi.Execute SqlInsert, , adCmdText

G. Implementasi Form Kelas Form Kelas digunakan oleh admin untuk memasukan nama-nama yang ada pada SD XYZ ke dalam sistem. Form ini ada pada submenu akademik. Berikut tampilan form Kelas.

Gambar 4.9 Form Kelas


72

Sintax dari form diatas adalah : SqlInsert = "Insert into kelas " _ & " (namakelas) " _ & "values ('" & txt_kls.Text & "')" DbKoneksi.Execute SqlInsert, , adCmdText

H. Implementasi Form Staf Pengajar Form Staf Pengajar berfungsi untuk memasukan data-data pengajar yang ada di SD XYZ. Form Staf Pengajar ada pada menu akademik. Berikut tampilan dari form Staf Pengajar.

Gambar 4.10 Form Staf Pengajar Syntax dari form diatas adalah : SqlInsert = "Insert into guru " _ & " (nuk,nama,jk,alamat,telp,status) " _ & "values ('" & txt_nuk.Text & "','" & txt_nama.Text & "','" & jenis & "','" _ & txt_alamat.Text & " ','" & txt_telp.Text & "','" & statuspegawai & "')" DbKoneksi.Execute SqlInsert, , adCmdText


73

I. Implementasi Form Jabatan Form Jabatan berfungsi untuk memasukan nama-nama jabatan pengajar di SD XYZ seperti Guru Bidang Studi, Wali Kelas, Kepala Sekolah dan lain-lain. Form jabatan ada pada menu akademik. Berikut tampilan dari form Jabatan.

Gambar 4.11 Form Jabatan Syntax dari form diatas adalah : SqlInsert = "Insert into jabatan " _ & " (jabatan) " _ & "values ('" & txt_jabatan.Text & "')" DbKoneksi.Execute SqlInsert, , adCmdText

J. Implementasi Form Referensi Jabatan Form Referensi Jabatan berfungsi untuk memetakan jabatan para pengajar di SD XYZ. Berikut tampilan dari form Referensi Jabatan.


74

Gambar 4.12 Form Referensi Jabatan K. Implementasi Form Pengguna Baru Form Pengguna Baru digunakan oleh admin untuk memasukkan namanama pengguna aplikasi sistem akademik di SD XYZ. Data-data yang diperlukan pada form ini adalah nama lengkap pengguna, login, password dan level pengguna. Untuk level terdiri dari dua kategori yaitu admin dan non admin. Berikut adalah tampilan formnya.

Gambar 4.13 Form Pengguna Baru


75

Syntax dari form diatas adalah : SqlInsert = "Insert into login " _ & " (nama,username,password,status) " _ & "values ('" & Text1.Text & "','" & Text3.Text & "','" & Text2.Text & "','" _ & cmblevel.Text & " ')" DbKoneksi.Execute SqlInsert, , adCmdText

L.

Implementasi Form Daftar Pengguna Form daftar pengguna berfungsi untuk menginformasikan nama-nama

prngguna sistem akademik SD XYZ. Form ini juga berfungsi untuk mengubah status aktifasi pengguna aplikasi. Berikut tampilan dari form daftar pengguna.

Gambar 4.14 Form Daftar Pengguna Syntax dari form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "select idlogin,nama,username,password,status from login where validasi=1" _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set gridlogin.DataSource = Rs_siswa


76

M.

Implementasi Form Daftar Siswa Form daftar siswa berfungsi untuk menginformasikan data nama-nama

siswa yang masuk ke SD XYZ. Bergikut tampilan formnya

Gambar 4.15 Tampilan form daftar siswa Syntax form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "select nis,nama_siswa,alamat,case jk when 1 then 'Laki Laki' else 'Perempuan' end as kelamin,orang_tua,telp from siswa where validasi=1" _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set griddatasiswa.DataSource = Rs_siswa

N.

Implementasi Form Data Guru Form daftar guru berfungsi untuk menginformasikan data nama-nama guru

yang mengajar ke SD XYZ. Bergikut tampilan formnya


77

Gambar 4.16 Tampilan form daftar pengajar Syntax form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "SELECT nuk,nama,case jk when 1 then " _ & " 'Laki Laki' else 'Perempuan' end as kelamin,alamat,telp,case status when 1 then 'Tetap' else 'Honor' end as status FROM guru where validasi=1" _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set griddaftar.DataSource = Rs_siswa

O.

Implementasi Form daftar Jabatan Guru Form ini berguna untuk menginformasikan nama pengajar di SD XYZ

beserta jabatannya. Berikut tampilan formnya


78

Gambar 4.17 Tampilan form jabatan guru Syntax form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "select nama,jabatan,namakelas from ref_jabatan A " _ & " inner join guru B on a.idguru=B.idguru " _ & " inner join jabatan C on A.IDjabatan=C.IDjabatan" _ & " Inner join kelas D on A.idkelas=D.idkelas " _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set daftarguru.DataSource = Rs_siswa

P.

Implementasi Form daftar KKM Form ini berfungsi untuk menginformasikan standar nilai bidang studi berdasarkan kelas. Berikut tampilan formnya :


79

Gambar 3.18 Tampilan form daftar KKM Syntax dari form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "SELECT MATAPELAJARAN,NAMAKELAS,KKM FROM MATPEL A INNER JOIN KELAS B ON A.IDKELAS=B.IDKELAS" _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set gridkkm.DataSource = Rs_siswa

Q.

Form Penilaian Siswa Form Penilaian Siswa digunakan oleh pengguna untuk memasukkan nilai-

nilai siswa per mata pelajaran. Setiap siswa harus mempunyai Nilai Ulangan harian, Nilai Pengamatan, Nilai Tugas, Nilai UTS, dan Nilai UAS untuk setiap mata pelajaran.


80

Gambar 4.19 Form Penilaian Siswa Syntax dari form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "select b.idabsen,idnilai,nama_siswa,nu1,nu2,nu3,nu4,nu5,rata2nu,p1, p2,p3,rata2amat,nt1,nt2,nt3,nt4,rata2nt,rata2b,uts,uas,rapor t" _ & " from nilai a " _ & " inner join absen b on a.idabsen=b.idabsen " _ & " inner join siswa c on b.nis=c.nis " _ & " where idmatpel='" & ID & "' and a.idabsen='" & IDABS & "' " _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic With grid If ColIndex = 0 Then .Columns(1).Value = grid.Columns(1).Value End If End With

Untuk memasukan nilai siswa pada sistem dilakukan dengan cara double click pada nama siswa sehingga akan tampil proses penilaian seperti form berikut ini.


81

Gambar 4.20 Form Proses Penilaian Syntax dari form diatas adalah : SqlInsert = "INSERT INTO NILAI " _ & "(idmatpel,idabsen,nu1,nu2,nu3,nu4,nu5,rata2nu,p1,p2,p3,rata 2amat,nt1,nt2,nt3,nt4,rata2nt,rata2b,uts,uas,raport)" _ & " values ('" & Label21.Caption & "','" & Label1.Caption & "','" _ & txtnu1.Text & "','" & txtnu2.Text & "','" & txtnu3.Text & "','" & txtnu4.Text & "','" _ & txtnu5.Text & "','" & Label23.Caption & "','" & txtnp1.Text & "','" & txtnp2.Text & "','" _ & txtnp3.Text & "','" & Label24.Caption & "','" & txtnt1.Text & "','" & txtnt2.Text & "','" _ & txtnt3.Text & "','" & txtnt4.Text & "','" & Label25.Caption & "','" & Label26.Caption & "','" _ & txt_uts.Text & "','" & txt_uas.Text & "','" & txt_raport.Text & "')" DbKoneksi.Execute SqlInsert, , adCmdText ' Rs_Pegawai.Requery MsgBox "Data sukses disimpan", vbInformation + vbOKOnly, "Informasi"


82

R.

Form Daftar Nilai Form daftar nilai berfungsi untuk menampilkan hasil proses penilaian

siswa dalam suatu kelas berdasarkan bidang studi tertentu. Berikut tampilan formnya.

Gambar 4.21 Form tampilan hasil proses nilai siswa Syntax dari form diatas adalah : Set Rs_siswa = New ADODB.Recordset Rs_siswa.Open "select a.idabsen,nama_siswa,nu1,nu2,nu3,nu4,nu5,rata2nu,p1,p2,p3,ra ta2amat,nt1," _ & " nt2 , nt3, nt4, rata2nt, raport from nilai a " _ & " inner join absen b on a.idabsen=b.idabsen " _ & " inner join kelas c on b.idkelas=c.idkelas" _ & " inner join siswa d on b.nis=d.nis" _ & " inner join matpel e on c.idkelas=e.idkelas where matapelajaran ='" & cmbmatpel.Text & "' and namakelas='" & cmbkelas.Text & "'" _ , DbKoneksi, adOpenDynamic, adLockBatchOptimistic Set grid.DataSource = Rs_siswa


83

S.

Form Grafik Penilaian Form grafik penilaian bertujuan untuk menampilkan nilai satu bidang

studi terhadap kelas. Data grafik diambil dari tabel daftar nilai, tabel matpel, dan tabel kelas. Grafik yang ditampilkan berdasarkan perbandingan rata-rata nilai suatu kelas dengan kelas yang lain terhadap satu bidang studi. Data nilai sumbu X pada grafik adalah data kelas sedangkan data sumbu Y pada grafik adalah ratarata nilai siswa secara keseluruhan dalam satu bidang studi pada satu kelas dibagi dengan jumlah siswa. Berikut tampilan formnya.

Gambar 4.22 Grafik Penilaian Syntax form di atas adalah : With Chart MSChart1.chartType = VtChChartType2dBar MSChart1.AllowSelections = False MSChart1.ColumnCount = 1 MSChart1.RowCount = 12 MSChart1.Row = 1 MSChart1.RowLabel = "I A"


84

MSChart1.Data = a MSChart1.Row = 2 MSChart1.RowLabel MSChart1.Data = b MSChart1.Row = 3 MSChart1.RowLabel MSChart1.Data = c MSChart1.Row = 4 MSChart1.RowLabel MSChart1.Data = d MSChart1.Row = 5 MSChart1.RowLabel MSChart1.Data = e MSChart1.Row = 6 MSChart1.RowLabel MSChart1.Data = f MSChart1.Row = 7 MSChart1.RowLabel MSChart1.Data = g MSChart1.Row = 8 MSChart1.RowLabel MSChart1.Data = h MSChart1.Row = 9 MSChart1.RowLabel MSChart1.Data = i MSChart1.Row = 10 MSChart1.RowLabel MSChart1.Data = j MSChart1.Row = 11 MSChart1.RowLabel MSChart1.Data = k MSChart1.Row = 12 MSChart1.RowLabel MSChart1.Data = l End With

= "I B" = "II A" = "II B" = "III A" = "III B" = "IV A" = "IV B" = "V A" = "V B" = "VI A" = "VI B"


85

T.

Form Absensi Siswa

Form ini digunakan untuk mencetak absensi siswa berdasarkan kelas. Berikut tampilannya :

Gambar 4.23 Form cetak absensi Syntax form diatas adalah : If cmbabsenkls.Text = "" Then MsgBox "Tentukan kategori anda dulu", vbCritical + vbOKOnly, "Informasi" Exit Sub Else CrystalReport2.RecordSelectionFormula = "{ado.namakelas}='" & frm_absensi.cmbabsenkls.Text & "'" laporanabsensisiswa.Show End If

Hasilnya sepert dibawah ini :

Gambar 4.24 Form Cetakan absensi siswa.


86

U.

Form Cetak Nilai Siswa

Form ini digunakan untuk mencetak nilai siswa berdasarkan mata pelajaran. Berikut tampilannya :

Gambar 4.25 Form cetak nilai siswa Syntax form diatas adalah : Private Sub Command1_Click() If cmbkelas.Text = "" Then MsgBox "Tentukan kategori anda dulu", vbCritical + vbOKOnly, "Informasi" Exit Sub Else CrystalReport4.RecordSelectionFormula = "{ado.matapelajaran}='" & frm_nilai_cetak.cmbmatpel.Text & "'" frm_cetak_nilai.Show End If End Sub

Hasilnya sepert dibawah ini :

Gambar 4.26 Form Cetakan absensi siswa.


87

4.3

Pengujian Black Box Pengujian black box ini bertujuan untuk menunjukkan fungsi perangkat

lunak tentang cara beroperasinya, apakah pemasukan data keluaran telah berjalan sebagaimana yang diharapkan. Metode pengujian black box ini merupakan metode pengujian dengan program kasus pengujian yang berbasis spesifikasi, dan dapat di mulai pada saat pengembangan sistem.

Gambar 4.27 Metode Pengujian Black Box

Pengujian metode black box bertujuan menemukan kesalahan dalam kategori: 1.

Fungsi-fungsi yang tidak benar atau hilang.

2.

Kesalahan tampilan.

3.

Kesalahan dalam struktur data.

4.

Kesalahan kinerja


88

Skenario pengujian dapat dilihat pada tabel berikut ini. Tabel 4.1 Skenario pengujian


89

Tabel 4.2 Hasil Pengujian


90

Tabel 4.2 Skenario Hasil Pengujian (lanjutan)


91

4.4

Cara Menggunakan Aplikasi

1.

Compile project ke dalam bentuk file executable. File executable akan berada di desktop dan akan terbentuk seperti gambar dibawah ini jika compile sukses dilakukan

Gambar 4.28 icon Aplikasi 2.

Salin file executable ke desktop di komputer pengguna yang akan menggunakan aplikasi ini.

3.

Klik icon executable yang ada di dekstop. Setelah diklik akan tampil form login.

Gambar 4.29 Form login 4.

Setelah tampil form login masukkan user name dan password anda. Jika user name dan password anda salah maka ada pesan penolakan akses. Tapi jika user name dan password terdaftar tampil form utama.


92

Gambar 4.30 Halaman utama 5.

Aplikasi siap digunakan.


BAB IV IMPLEMENTASI DAN PENGUJIAN

Recommend Documents