No title

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi

APLIKASI UJIAN DIGITAL VB 6 Peminat silakan hubungi : Email : [email protected] Facebook : [email protected] (Uus Rusmawan) Phone : 0812 8438 1118 Pada bab ini akan dibahas tentang sebuah aplikasi sederhana tentang PSB (Penerimaan Siswa Baru). Fokus pembahasan adalah pada soal ujian bagi para calon siswa dimana ujian saringan dilakukan dengan menjawab soal-soal dalam bentuk aplikasi (Ujian digital). Untuk memulainya ikutilah langkah-langkah di bawah ini.

5.6.1 Membuat Database Dan Tabel

5.6.2 Membuat Form Operator

1


Gambar 5.50 Form Operator

5.6.3 Membuat Form Siswa

Gambar 5.51 Form Siswa

2

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Dalam pengolahan data siswa beberapa bagian dibuat secara otomatis sesuai kebutuhan sistem, yang diperlukan disini hanyalah mengisi nama dan password siswa yang akan digunakan untuk login ketika akan menjawab soal-soal ujian. NIM dibentuk secara otomatis (terus bertambah) sesuai jurusan. Kelas akan dibatasi sesuai kapasitas dan daya tampung masing-masing kelas.

5.6.4 Membuat Form Mata Kuliah

Gambar 5.52 Form Mata Kuliah

5.6.5 Membuat Form Soal

3


Gambar 5.53 Form Soal Ujian

5.6.6 Membuat Form Ujian

4

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Gambar 5.54 Form Ujian

5.6.7 Membuat Form Laporan

Gambar 5.55 Form Laporan

Koding : Private Sub Form_Load() Call KoneksI RSHasil.Open "select distinct nim,idkuliah from hasilujian", Conn Combo5.Clear Do While Not RSHasil.EOF Combo5.AddItem RSHasil!nim RSHasil.MoveNext Loop Conn.Close Call KoneksI RSHasil.Open "select distinct idkuliah from hasilujian", Conn Combo2.Clear Combo4.Clear Combo6.Clear Do While Not RSHasil.EOF Combo2.AddItem RSHasil!idkuliah Combo4.AddItem RSHasil!idkuliah Combo6.AddItem RSHasil!idkuliah RSHasil.MoveNext Loop Conn.Close Call KoneksI RSHasil.Open "select distinct kelas from mata_kuliah,siswa,hasilujian where hasilujian.nim=siswa.nim and mata_kuliah.idkuliah=hasilujian.idkuliah", Conn Combo3.Clear Combo5.Clear Do While Not RSHasil.EOF Combo3.AddItem RSHasil!kelas

5

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Combo5.AddItem RSHasil!kelas RSHasil.MoveNext Loop Conn.Close

Call KoneksI RSHasil.Open "select distinct keterangan from hasilujian", Conn Combo7.Clear Do While Not RSHasil.EOF Combo7.AddItem RSHasil!keterangan RSHasil.MoveNext Loop Conn.Close End Sub Private Sub Combo1_Click() Call KoneksI RSSiswa.Open "select * from siswa where nim='" & Combo1 & "'", Conn If Not RSSiswa.EOF Then LblNamamhs = RSSiswa!nama Else MsgBox "nim tidak terfdaftar" Combo5.SetFocus End If End Sub Private Sub Combo2_Click() Call KoneksI RSKuliah.Open "select * from mata_kuliah where idkuliah='" & Combo2 & "'", Conn If Not RSKuliah.EOF Then Lblmatakuliah = RSKuliah!Matakuliah Else MsgBox "id mata kuliah tidak terfdaftar" Combo2.SetFocus End If End Sub Private Sub Combo3_Click() Call KoneksI RSSiswa.Open "select * from siswa where kelas='" & Combo3 & "'", Conn If Not RSSiswa.EOF Then LblJurusan = RSSiswa!jurusan Else MsgBox "kelas tidak terfdaftar" Combo3.SetFocus End If End Sub Private Sub Combo4_Click() Call KoneksI RSKuliah.Open "select * from mata_kuliah where idkuliah='" & Combo4 & "'", Conn If Not RSKuliah.EOF Then Lblkuliah1 = RSKuliah!Matakuliah Else MsgBox "id mata kuliah tidak terfdaftar" Combo2.SetFocus End If End Sub Private Sub Combo5_Click() Call KoneksI RSSiswa.Open "select * from siswa where kelas='" & Combo5 & "'", Conn If Not RSSiswa.EOF Then Lbljurusan1 = RSSiswa!jurusan

6

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Else MsgBox "kelas tidak terfdaftar" Combo5.SetFocus End If End Sub Private Sub Combo6_Click() Call KoneksI RSKuliah.Open "select * from mata_kuliah where idkuliah='" & Combo6 & "'", Conn If Not RSKuliah.EOF Then Lblkuliah2 = RSKuliah!Matakuliah Else MsgBox "id mata kuliah tidak terfdaftar" Combo6.SetFocus End If End Sub Private Sub Command1_Click() If Combo1 = "" Or Combo2 = "" Then MsgBox "Data tidak lengkap" Exit Sub End If CR.SelectionFormula = "({siswa.nim})='" & Combo1 & "' and ({mata_kuliah.idkuliah})='" & Combo2 & "'" CR.ReportFileName = App.Path & "\lap ujian5.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 CR.Reset End Sub Private Sub Command2_Click() If Combo3 = "" Or Combo4 = "" Then MsgBox "Data tidak lengkap" Exit Sub End If CR.SelectionFormula = "({siswa.kelas})='" & Combo3 & "' and ({mata_kuliah.idkuliah})='" & Combo4 & "'" CR.ReportFileName = App.Path & "\lap per kelas.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 CR.Reset End Sub Private Sub Command3_Click() If Combo5 = "" Or Combo6 = "" Or Combo7 = "" Then MsgBox "Data tidak lengkap" Exit Sub End If CR.SelectionFormula = "({siswa.kelas})='" & Combo5 & "' and ({mata_kuliah.idkuliah})='" & Combo6 & "' and ({hasilujian.keterangan})='" & Combo7 & "'" CR.ReportFileName = App.Path & "\lap per kelas.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 CR.Reset End Sub

7


Gambar 5.56 Laporan per NIM dan Mata Kuliah

Gambar 5.57 Laoran Per Kelas dan Mata Kuliah

8


Gambar 5.58 Laporan Per Keterangan (Lulus atau Gagal)

9

No title

Recommend Documents