Makalah Aplikasi Program Penerimaan Mahasiswa Baru

BAB I

PENDAHULUAN

A.Latar Belakang Masalah

Seiring perkembangan zaman dewasa ini system komputerisasi merupakan suatu hal yang dibutuhkan dalam instansi pendidikan. Untuk mengelola data mahasiswanya haruslah didukung dengan suatu teknologi informasi yang memadai dan sanggup menyajikan suatu informasi yang cepat, akurat dan mudah dalam mengaksesnya, selain itu harus didukung pula oleh sumber daya manusia bermutu yang dapat mengelola data dengan baik. Dalam menjalankan kegiatan kegiatan kesiswaan diperlukan suatu sistem yang dapat dijadikan sebagai pedoman dalam menjalankan kegiatan pendidikan. Peranan komputer didunia pendidikan khususnya di STMIK Pranata Indonesia sebagai faktor utama dalam kegiatan pengelolaan data kemahasiswaan.

Didalam paper ini penulis ingin memfokuskan pada pemograman Penerimaan Mahasiswa Baru.

Berdasarkan latar belakang diatas maka penulis merumuskan dalam suatu judul yakni : “APLIKASI PROGRAM PENERIMAAN MAHASISWA BARU”.

B.Identifikasi Masalah dan Pembatan Masalah

Identifikasi Masalah

Berdasarkan pengamatan penulis terhadap sistem penerimaan mahasiswa STMIK Pranata Indonesia maka diidefinisikan gejala permasalahan sebagai berikut :

1.    Penerimaan Mahasiswa baru di STMIK Pranata Indonesia masih manual.

2.    Tidak adanya sistem yang dapat menampilan informasi kemahasiswaan.

3.    Standar yang ada (manual data) tidak terupdate secara realtime.

Pembatasan Masalah

Dalam melakukan suatu penelitian diperlukan batasan-batasan masalah agar tidak menyimpang dari pokok permasalahan yang sebenarnya sehingga tujuan yang inginkan dapat tercapai. Dalam penelitian ini penulis memberikan batasan-batasan yang digunakan sebagai berikut :

·         Melakukan analisis dengan perancangan sistem untuk membuat program data calon mahasiswa dan mahasiswa diterima

C.Tujuan dan Manfaat Penelitian

Tujuan Penelitian

Melihat latar belakang munculnya masalah yang ada di STMIK Pranata Indonesia, maka tujuan peneliatan ini adalah :

1.    Dapat mendata calon mahasiswa baru dengan sistem komputerisasi.

2.    Dapat menampilkan data mahasiswa dengan cepat dan akurat.

3.    Dapat menampilkan informasi-informasi yang dibutuhkan oleh lembaga.

Manfaat Penelitian

Manfaat yang diharapkan dari penelitian yang dilakukan adalah :

1.    Dapat menjadi suatu bahan pertimbangan untuk mengatasi terjadinya kesalahan-kesalahan dalam input data mahasiswa.

2.    Mengurangi waktu yang terbuang dalam pengimputan manual.

3.    Setiap staf dapat mencari informasi data mahasiswa dengan cepat dan mudah.

  

BAB II

LANDASAN TEORI

A.Sekilas Mengenai Visual Basic 6.0

Microsoft Visual Basic adalah salah satu bahasa pemograman visual berdasarkan objek (Graphical User Interface/GUI) yang bekerja pada system operasi windows. Visual Basic merupakan pengembangan dari bahasa pemograman tingkat tinggi, yaitu bahasa BASIC (Beginner’s All Purpose Symbolic Intruction Code).

Visual Basic selain disebut sebagai sebuah bahasa pemograman, disebut juga sebagai sarana (tool) untuk menghasilkan program-program aplikasi berbasis windows. Visual Basic merupakan event driven programingyang artinya program menunggu sampai adanya respon dari pemakai yang berupa event terdeteksi, kode yang berhubungan dengan event (prosedur event) akan dijalankan. Didalam Visual Basic semuanya sudah disediakan dalam pilihan-pilihan yang tinggal diambil sesuai kebutuhan bagi pemula dan tingkat lanjut.

Visual Basic 6.0 umumnya mempunyai tiga edisi. Pertama adalah Standard Editionyang merupakan produk dasar. Yang kedua adalah Profesional Editionyang berisi tambahan untuk database. Dan yang ketiga adalah Enterprise Edition yang merupakan edisi client-server(1)

Persyaratan Menggunakan Visual Basic 6.0

Ada jumlah syarat minimal yang harus dipenuhi agar anda dapat menggunakan Microsoft Visual Basic 6.0 secara maksimal :

Perangkat Keras (Hardware)

Perangkat keras (Hardware) ideal harus dipenuhi untuk menjalankan Microsoft Visual Basic 6.0 dengan maksimal adalah :

·         Prosessor Pentium II atau diatasnya.

·         Memory RAM berkapasitas 32 MHZ atau diatasnya.

·         Hard disk dengan ruang kosong minimal 75 MB

·         Mouse dan Keyboard

·         CD-ROM drive untuk instalasi Microsoft Visual Basic 6.0

Perangkat Lunak (Software)

Selain perangkat keras, yang tidak kalah pentingnya adalah perangkat lunak (Software). Perangkat lunak yang harus dimiliki bila ingin menjalankan Microsoft Visual Basic 6.0 adalah :

·         Sistem Operasi, yang diperlukan adalah Microsoft Windows 9x, Windows 2000, Windows ME, Windows XP, Windows Vista, Windows 7 dan Windows 8.

Perangkat Lunak Bahasa

Perangkat lunak bahasanya adalah Microsoft Visual Basic 6.0. Microsoft Visual Basic 6.0 dikemas dalam bentuk CD-ROM (Compact Disk-Read Only Memory) dan terdapat pula contoh program yang telah disediakan.

B.Manfaat Microsoft Visual Basic

a.    Untuk membuat program aplikasi berbasis windows.

b.    Untuk membuat obyek-obyek pembentuk program, misalnya control ActiveX, file help, aplikasi internet, dan lain-lain.

c.    Menguji program (debugging) dan menghasilkan program akhir berakhiran EXE yang bersifat executable atau dapat dijalankan langsung.

Keistimewaan Microsoft Visual Basic

a.    Menggunakan Platform pembuatan program yang diberi nama Developer Studio, yang memiliki tampilan dan saran yang sama dengan C++ dan Visual J++

b.    Memiliki compiler handal yang dapat menghasilkan file executable yang lebih cepat dan efisien dari sebelumnya.

c.    Memiliki beberapa tambahan sarana wizard yang baru.

d.    Tambahan kontrol-kontrol baru yang lebih canggih dan peningkatan kaidah struktur bahasa visual basic.

e.    Kemampuan membuat ActiveX dan fasilitas internet yang lebih banyak.

f.     Saranan akses data yang lebih cepat dan handal untuk membuat aplikasi database yang berkemampuan tinggi.

g.    Visual Basic 6.0 memiliki beberapa versi atau edisi yang sesuai dengan kebutuhan user.

C.Metodologi dan Teknik Pengumpulan Data

Metode yang digunakan penulis adalah deskriptif analitis, yaitu metode mengumpulkan data, menyajikan serta menganalisa data sehingga dapat memberikan gambaran yang cukup jelas mengenai permasalahan yang ada. Metode penelitian tersebut dengan menggunakan teknik pengumpulan data sebagai berikut :

1.    Metode Browsing

Metode Browsing adalah metode pengumpulan data yang dilakukan dengan cara mendownload informasi-informasi yang ada di internet.

2.    Metode Observasi

Metode Observasi adalah metode pengumpulan data yang dilakukan dengan cara mengamati secara langsung dan data-data yang digunakan dalam sistem yang berlaku.

3.    Studi Kepustakaan

Metode Kepustakaan adalah metode pengumpulan data yang dilakukan dengan cara mempelajari atau membaca buku yang berhubungan dengan masalah-masalah yang menjadi pokok bahasan sehingga data dapat diambil untuk mewakili data yang sebenarnya.

Sistematika Penulisan

Untuk memberikan arah pengertian sesuai dengan ruang lingkup masalah, maka paper ini akan disusun dengan sitematika sebagai berikut :

BAB I Pendahuluan

Bab pertama akan membahas latar belakang masalah, identifikasi masalah, pembatasan masalah, tujuan dan manfaat penelitian, metode dan teknik pengumpulan data serta sistematika penulisan.

BAB II Landasan Teori

Bab ini akan membahas landasan teori yang digunakan dalam paper antara lain yaitu : teori-teori umum tentang sistem, simulasi dan database, serta teori-teori yang mendukung dalam penulisan paper.

BAB III Perancangan Sistem

Bab ini menguraikan tentang gambaran umum sistem. Setelah perancangan sistem sudah dilakukan maka akan diimplementasikan dan diuji. Di bab ini dijelaskan spesifikasi sistem, dan analisis hasil implementasi.

BAB IV Penutup

Pada bagian akhir akan dipaparkan kesimpulan secara keseluruhan pada bab-bab sebelumnya dan juga berisi saran atau masukan dalam rangka pengembangan paper ini lebih lanjut dikemudian hari.

  

BAB III

RANCANGAN SISTEM

Gambaran Umum Sistem

Sistem yang akan dibangun merupakan system untuk membuat program bahasa pemograman Visual Basic 6.0

Rancangan Sistem

Prosedur Sistem Simulasi

Adapun Prosedur system simulasi yang akan dirancang yaitu :

a.    Input data yang akan diperlukan yaitu Daftar Calon Mahasiswa Baru

b.    Database yang berisi Data Calon, Data mahasiswa diterima dan Data Rayon

c.    Output yang dihasilkan adalah informasi Data Calon, Data diterima dan Data Calon

Step by Step Program

Didalam perancangan system penerimaan calon mahasiswa baru terbagi atas :

1.    Input data rayon

2.    Input data calon mahasiswa baru

3.    Input data mahasiswa diterima

Untuk lebih memperjelas langkah demi langkah prosesnya kerja sistemnya maka penulis memberikan contoh kasus sebagai berikut :

Struktur Database

Struktur Database merupakan data yang berhubungan satu dengan yang lainnya yang membentuk komponen yang penting dalam sebuah system informasi dan dapat berfungsi sebagai informasi kepada para pemakainya.

Database pada intinya mempunyai tugas sebagai berikut :

1.    Menyimpan informasi Data Rayon

2.    Menyimpan dan menampilkan informasi Data Calon Mahasiswa dan Data Mahasiswa diterima, oleh karena itu, penulis membuat sebuah database yang terdiri dari 3 (tiga) buah table yakni :

A Tabel Rayon

Tabel ini mempunyai struktur database sebagai berikut :

Nama table : Rayon

Fungsi : Tempan menyimpan nama sekolah asal rayon

B.Tabel Calon

Tabel ini mempunyai struktur database sebagai berikut :

Nama table : Calon

Fungsi : Tempat menyimpan informasi Calon Mahasiswa

Kunci : No_Daftar

Rancangan Input dan Output

Dalam sub bab ini menguraikan rancangan antar muka atau desaign form aplikasi penerimaan mahasiswa baru di STMIK Pesona Bangsa

Perancangan Input (Masukan)

Pada perancangan input ini akan terlihat gambaran mengenai rancangan pemasukan data yang akan memudahkan pengguna atau user dalam menggunakan aplikasi penerimaan mahasiswa baru. Rancangan ini diperoleh dari model analis. Struktur menu perancangan input antar muka tersebut dapat dilihat pada gambar di bawah ini

Tabel 1 Menu Utama

Tabel 2 Menu Data Sekolah

Tabel 3 Menu Data Calon Mahasiswa

Tabel 4 Menu Data Mahasiswa Baru

 Listing Program

MAIN MENU

Dim msg As Integer

Private Sub mnaut_Click()

frmAbout.Show

End Sub

Private Sub Mnbaru_Click()

DataMahasiswaBaru.Show

End Sub

Private Sub mncadangan_Click()

LapMahasiswaCadangan.Show

End Sub

Private Sub mncalon_Click()

DataCalonMahasiswaBaru.Show

End Sub

Private Sub mncbaru_Click()

LapCalonMahasiswa.Show

End Sub

Private Sub mnkel_Click()

msg = MsgBox("Anda Akan Keluar Aplikasi Penerimaan Mahasiswa Baru???", vbExclamation + vbOKCancel, "WARNING!!!!")

End

End Sub

Private Sub mnsek_Click()

DataSekolah.Show

End Sub

Private Sub mnsiswa_Click()

LapMahasiswaBaru.Show

End Sub

Private Sub mnterima_Click()

LapMahasiswaDiterima.Show

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(1) = Format(Time & Date, "dd/MM/yyyy hh:nn:ss AM/PM")

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1

DataSekolah.Show

Case 2

DataMahasiswaBaru.Show

Case 3

DataCalonMahasiswaBaru.Show

Case 4

msg = MsgBox("Anda Akan Keluar Aplikasi Penerimaan Mahasiswa Baru???", vbExclamation + vbOKCancel, "WARNING!!!!")

End

End Select

End Sub

Private Sub MDIForm_Load()

Call Timer1_Timer

End Sub

DATA CALON MAHASISWA BARU

Public dbrayon As Database

Public rsrayon As Recordset

Public dbcalon As Database

Public rscalon As Recordset

Private Sub asal_Click()

rsrayon.Seek "=", asal.Text

If Not rsrayon.NoMatch Then

  rayon.Text = rsrayon(1)

 End If

End Sub

Private Sub koreksi_Click()

 rscalon.Edit

rscalon(0) = daftar.Text

rscalon(1) = nama.Text

rscalon(2) = alamat.Text

rscalon(3) = Kelamin.Text

rscalon(4) = tempat.Text

rscalon(5) = tanggal.Value

rscalon(6) = asal.Text

rscalon(7) = Nem.Text

rscalon(8) = rayon.Text

  rscalon.Update

  Call bersih

End Sub

Private Sub hapus_Click()

rscalon.Delete

Call bersih

End Sub

Private Sub keluar_Click()

Unload Me

End Sub

Private Sub simpan_Click()

 rscalon.AddNew

rscalon(0) = daftar.Text

rscalon(1) = nama.Text

rscalon(2) = alamat.Text

rscalon(3) = Kelamin.Text

rscalon(4) = tempat.Text

rscalon(5) = tanggal.Value

rscalon(6) = asal.Text

rscalon(7) = Nem.Text

rscalon(8) = rayon.Text

  rscalon.Update

  Call bersih

 End Sub

Private Sub bersih()

daftar.Text = ""

nama.Text = ""

alamat.Text = ""

Kelamin.Text = ""

tempat.Text = ""

asal.Text = ""

rayon.Text = ""

Nem.Text = ""

daftar.SetFocus

End Sub

Private Sub Form_Load()

Set dbrayon = OpenDatabase(App.Path & "\Siswa baru.mdb")

Set rsrayon = dbrayon.OpenRecordset("Rayon")

rsrayon.Index = "CARI"

Set dbcalon = OpenDatabase(App.Path & "\Siswa baru.mdb")

Set rscalon = dbcalon.OpenRecordset("calon")

rscalon.Index = "cari1"

Do While Not rsrayon.EOF

asal.AddItem (rsrayon(0))

rsrayon.MoveNext

Loop

daftar = ""

End Sub

Private Sub daftar_Change()

If Len(daftar.Text) < 5 Then

nama.Text = ""

alamat.Text = ""

Kelamin.Text = ""

tempat.Text = ""

asal.Text = ""

rayon.Text = ""

Nem.Text = ""

    Else

    rscalon.Seek "=", daftar.Text

    If rscalon.NoMatch Then

    simpan.Enabled = True

    Hapus.Enabled = False

    Koreksi.Enabled = False

    ElseIf Not rscalon.NoMatch Then

    nama.Text = rscalon(1)

    alamat.Text = rscalon(2)

    Kelamin.Text = rscalon(3)

    tempat.Text = rscalon(4)

    tanggal.Value = rscalon(5)

    asal.Text = rscalon(6)

    Nem.Text = rscalon(7)

rayon = rscalon(8)

    simpan.Enabled = False

    Hapus.Enabled = True

    Koreksi.Enabled = True

    End If

End If

End Sub

DATA MAHASISWA BARU

Public dbcalon As Database

Public rscalon As Recordset

Public dbsiswa As Database

Public rssiswa As Recordset

Private Sub daftar_Click()

rscalon.Seek "=", daftar.Text

If Not rscalon.NoMatch Then

 nis.Text = ""

 nama.Text = rscalon(1)

 alamat.Text = rscalon(2)

 Kelamin.Text = rscalon(3)

 tempat.Text = rscalon(4)

 tanggal.Value = rscalon(5)

 daftar.Enabled = False

 nama.Enabled = False

 alamat.Enabled = False

 Kelamin.Enabled = False

 tempat.Enabled = False

  tanggal.Enabled = False

 Else

 nis.Text = ""

 nama.Text = ""

 alamat.Text = ""

 Kelamin.Text = ""

 tempat.Text = ""

 'tanggal.Value = ""

End If

End Sub

Private Sub koreksi_Click()

 rssiswa.Edit

rssiswa(0) = nis.Text

rssiswa(1) = nama.Text

rssiswa(2) = alamat.Text

rssiswa(3) = Kelamin.Text

rssiswa(4) = tempat.Text

rssiswa(5) = tanggal.Value

rssiswa(6) = wali.Text

   rssiswa.Update

  Call bersih

End Sub

Private Sub hapus_Click()

rssiswa.Delete

Call bersih

End Sub

Private Sub keluar_Click()

Unload Me

End Sub

Private Sub nis_Change()

    rssiswa.Seek "=", nis.Text

    If rssiswa.NoMatch Then

    wali = ""

    simpan.Enabled = True

    Hapus.Enabled = False

    Koreksi.Enabled = False

    ElseIf Not rssiswa.NoMatch Then

    nama.Text = rssiswa(1)

    alamat.Text = rssiswa(2)

    Kelamin.Text = rssiswa(3)

    tempat.Text = rssiswa(4)

    tanggal.Value = rssiswa(5)

    wali.Text = rssiswa(6)

    nama.Enabled = True

 Kelamin.Enabled = True

 alamat.Enabled = True

 tempat.Enabled = True

  tanggal.Enabled = True

    simpan.Enabled = False

    Hapus.Enabled = True

    Koreksi.Enabled = True

End If

End Sub

Private Sub simpan_Click()

 rssiswa.AddNew

rssiswa(0) = nis.Text

rssiswa(1) = nama.Text

rssiswa(2) = alamat.Text

rssiswa(3) = Kelamin.Text

rssiswa(4) = tempat.Text

rssiswa(5) = tanggal.Value

rssiswa(6) = wali.Text

  rssiswa.Update

  Call bersih

 End Sub

Private Sub bersih()

daftar.Text = ""

nis.Text = ""

nama.Text = ""

alamat.Text = ""

Kelamin.Text = ""

tempat.Text = ""

wali.Text = ""

daftar.Enabled = True

daftar.SetFocus

End Sub

Private Sub Form_Load()

Set dbcalon = OpenDatabase(App.Path & "\Siswa baru.mdb")

Set rscalon = dbcalon.OpenRecordset("calon")

rscalon.Index = "cari1"

Set dbsiswa = OpenDatabase(App.Path & "\Siswa baru.mdb")

Set rssiswa = dbsiswa.OpenRecordset("siswa")

rssiswa.Index = "cari"

rscalon.MoveFirst

While Not rscalon.EOF

daftar.AddItem (rscalon(0))

rscalon.MoveNext

Wend

End Sub

DATA SEKOLAH

Public dbcalon As Database

Public rscalon As Recordset

Public dbsiswa As Database

Public rssiswa As Recordset

Private Sub daftar_Click()

rscalon.Seek "=", daftar.Text

If Not rscalon.NoMatch Then

 nis.Text = ""

 nama.Text = rscalon(1)

 alamat.Text = rscalon(2)

 Kelamin.Text = rscalon(3)

 tempat.Text = rscalon(4)

 tanggal.Value = rscalon(5)

 daftar.Enabled = False

 nama.Enabled = False

 alamat.Enabled = False

 Kelamin.Enabled = False

 tempat.Enabled = False

  tanggal.Enabled = False

 Else

 nis.Text = ""

 nama.Text = ""

 alamat.Text = ""

 Kelamin.Text = ""

 tempat.Text = ""

 'tanggal.Value = ""

End If

End Sub

Private Sub koreksi_Click()

 rssiswa.Edit

rssiswa(0) = nis.Text

rssiswa(1) = nama.Text

rssiswa(2) = alamat.Text

rssiswa(3) = Kelamin.Text

rssiswa(4) = tempat.Text

rssiswa(5) = tanggal.Value

rssiswa(6) = wali.Text

   rssiswa.Update

  Call bersih

End Sub

Private Sub hapus_Click()

rssiswa.Delete

Call bersih

End Sub

Private Sub keluar_Click()

Unload Me

End Sub

Private Sub nis_Change()

    rssiswa.Seek "=", nis.Text

    If rssiswa.NoMatch Then

    wali = ""

    simpan.Enabled = True

    Hapus.Enabled = False

    Koreksi.Enabled = False

    ElseIf Not rssiswa.NoMatch Then

    nama.Text = rssiswa(1)

    alamat.Text = rssiswa(2)

    Kelamin.Text = rssiswa(3)

    tempat.Text = rssiswa(4)

    tanggal.Value = rssiswa(5)

    wali.Text = rssiswa(6)

    nama.Enabled = True

 Kelamin.Enabled = True

 alamat.Enabled = True

 tempat.Enabled = True

  tanggal.Enabled = True

    simpan.Enabled = False

    Hapus.Enabled = True

    Koreksi.Enabled = True

End If

End Sub

Private Sub simpan_Click()

 rssiswa.AddNew

rssiswa(0) = nis.Text

rssiswa(1) = nama.Text

rssiswa(2) = alamat.Text

rssiswa(3) = Kelamin.Text

rssiswa(4) = tempat.Text

rssiswa(5) = tanggal.Value

rssiswa(6) = wali.Text

  rssiswa.Update

  Call bersih

 End Sub

Private Sub bersih()

daftar.Text = ""

nis.Text = ""

nama.Text = ""

alamat.Text = ""

Kelamin.Text = ""

tempat.Text = ""

wali.Text = ""

daftar.Enabled = True

daftar.SetFocus

End Sub

Private Sub Form_Load()

Set dbcalon = OpenDatabase(App.Path & "\Siswa baru.mdb")

Set rscalon = dbcalon.OpenRecordset("calon")

rscalon.Index = "cari1"

Set dbsiswa = OpenDatabase(App.Path & "\Siswa baru.mdb")

Set rssiswa = dbsiswa.OpenRecordset("siswa")

rssiswa.Index = "cari"

rscalon.MoveFirst

While Not rscalon.EOF

daftar.AddItem (rscalon(0))

rscalon.MoveNext

Wend

End Sub

LAPORAN CALON MAHASISWA

Public dbcalon As Database

Public rscalon As Recordset

Public dblaporan As Database

Public rslaporan As Recordset

Private Sub HapusTabel()

If rslaporan.RecordCount <> 0 Then

Do While Not rslaporan.EOF

    rslaporan.Delete

    rslaporan.MoveNext

Loop

End If

End Sub

Private Sub cmdBatal_Click()

Unload Me

End Sub

Private Sub cmdProses_Click()

Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")

Set rslaporan = dblaporan.OpenRecordset("lap1")

HapusTabel

 rscalon.MoveFirst

    Do While Not rscalon.EOF

           rslaporan.AddNew

rslaporan(0) = Tahun

rslaporan(1) = rscalon(0)

rslaporan(2) = rscalon(1)

rslaporan(3) = rscalon(5)

rslaporan(4) = rscalon(3)

rslaporan(5) = rscalon(6)

rslaporan(6) = rscalon(7)

        rslaporan.Update

    rscalon.MoveNext

Loop

dblaporan.Close

lap.ReportFileName = App.Path & "\lap1.rpt"

lap.DataFiles(0) = App.Path & "\laporan.mdb"

lap.WindowState = crptMaximized

lap.WindowTitle = "Laporan Daftar Calon Siswa"

lap.Action = 28

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Set dbcalon = OpenDatabase(App.Path & "\siswa baru.mdb")

Set rscalon = dbcalon.OpenRecordset("calon")

rscalon.Index = "cari1"

End Sub

LAPORAN MAHASISWA BARU

Public dbsiswa As Database

Public rssiswa As Recordset

Public dblaporan As Database

Public rslaporan As Recordset

Private Sub HapusTabel()

If rslaporan.RecordCount <> 0 Then

Do While Not rslaporan.EOF

    rslaporan.Delete

    rslaporan.MoveNext

Loop

End If

End Sub

Private Sub cmdBatal_Click()

Unload Me

End Sub

Private Sub cmdProses_Click()

Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")

Set rslaporan = dblaporan.OpenRecordset("lap3")

HapusTabel

 rssiswa.MoveFirst

    Do While Not rssiswa.EOF

           rslaporan.AddNew

rslaporan(0) = Tahun

rslaporan(1) = rssiswa(0)

rslaporan(2) = rssiswa(1)

rslaporan(3) = rssiswa(4)

rslaporan(4) = rssiswa(5)

rslaporan(5) = rssiswa(3)

rslaporan(6) = rssiswa(2)

rslaporan(7) = rssiswa(6)

        rslaporan.Update

    rssiswa.MoveNext

Loop

   dblaporan.Close

lap.ReportFileName = App.Path & "\lap4.rpt"

lap.DataFiles(0) = App.Path & "\laporan.mdb"

lap.WindowState = crptMaximized

lap.WindowTitle = "Laporan Daftar siswa Siswa"

lap.Action = 28

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Set dbsiswa = OpenDatabase(App.Path & "\siswa baru.mdb")

Set rssiswa = dbsiswa.OpenRecordset("siswa")

'rssiswa.Index = "cari1"

End Sub

Private Sub Tahun_Change()

End Sub

LAPORAN MAHASISWA CADANGAN

Public dbcalon As Database

Public rscalon As Recordset

Public dblaporan As Database

Public rslaporan As Recordset

Public dbrayon As Database

Public rsrayon As Recordset

Private Sub HapusTabel()

If rslaporan.RecordCount <> 0 Then

Do While Not rslaporan.EOF

    rslaporan.Delete

    rslaporan.MoveNext

Loop

End If

End Sub

Private Sub cmdBatal_Click()

Unload Me

End Sub

Private Sub cmdProses_Click()

Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")

Set rslaporan = dblaporan.OpenRecordset("lap2")

HapusTabel

rscalon.MoveFirst

    Do While Not rscalon.EOF

    If (rscalon(8) = "C" And rscalon(7) <= 33) Or (rscalon(8) <> "C" And rscalon(7) <= 43) Then

            rslaporan.AddNew

rslaporan(0) = Tahun

rslaporan(1) = rscalon(0)

rslaporan(2) = rscalon(1)

rslaporan(3) = rscalon(3)

rslaporan(4) = rscalon(7)

             rslaporan.Update

    End If

    rscalon.MoveNext

Loop

dblaporan.Close

lap.ReportFileName = App.Path & "\lap3.rpt"

lap.DataFiles(0) = App.Path & "\laporan.mdb"

lap.WindowState = crptMaximized

lap.WindowTitle = "Laporan Daftar Calon Siswa Yang Diterima"

lap.Action = 28

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Set dbcalon = OpenDatabase(App.Path & "\siswa baru.mdb")

Set rscalon = dbcalon.OpenRecordset("calon")

Set dbrayon = OpenDatabase(App.Path & "\siswa baru.mdb")

Set rsrayon = dbcalon.OpenRecordset("rayon")

rscalon.Index = "cari1"

End Sub

Private Sub Tahun_Change()

End Sub

LAPORAN MAHASISWA DITERIMA

Public dbcalon As Database

Public rscalon As Recordset

Public dblaporan As Database

Public rslaporan As Recordset

Public dbrayon As Database

Public rsrayon As Recordset

Private Sub HapusTabel()

If rslaporan.RecordCount <> 0 Then

Do While Not rslaporan.EOF

    rslaporan.Delete

    rslaporan.MoveNext

Loop

End If

End Sub

Private Sub cmdBatal_Click()

Unload Me

End Sub

Private Sub cmdProses_Click()

Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")

Set rslaporan = dblaporan.OpenRecordset("lap2")

HapusTabel

rscalon.MoveFirst

    Do While Not rscalon.EOF

    If (rscalon(8) = "C" And rscalon(7) >= 33) Or (rscalon(8) <> "C" And rscalon(7) >= 43) Then

            rslaporan.AddNew

rslaporan(0) = Tahun

rslaporan(1) = rscalon(0)

rslaporan(2) = rscalon(1)

rslaporan(3) = rscalon(3)

rslaporan(4) = rscalon(7)

             rslaporan.Update

    End If

    rscalon.MoveNext

Loop

dblaporan.Close

lap.ReportFileName = App.Path & "\lap2.rpt"

lap.DataFiles(0) = App.Path & "\laporan.mdb"

lap.WindowState = crptMaximized

lap.WindowTitle = "Laporan Daftar Calon Siswa Yang Diterima"

lap.Action = 28

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Set dbcalon = OpenDatabase(App.Path & "\siswa baru.mdb")Set rscalon = dbcalon.OpenRecordset("calon")

Set dbrayon = OpenDatabase(App.Path & "\siswa baru.mdb")

Set rsrayon = dbcalon.OpenRecordset("rayon")

rscalon.Index = "cari1"

End Sub

Private Sub Tahun_Change()

End Sub 

BAB IV

PENUTUP

A.     Kesimpulan

Setelah dilakukan penelitian, maka dapat ditarik kesimpulan sebagai berikut :

1.    Di instasi pendidikan telah banyak sistem yang sudah diaplikasikan tapi disana belum memanfaatkan sistem komputer secara efektif dalan hal Penerimaan Mahasiswa Baru.

2.    Dengan dikembangkannya Sistem Simulasi program penerimaan mahasiswa maka permasalahan-permasalahan yang timbul dapat ditekan seminimal mungkin karena sistem ini dapat mencegah terjadinya kesalahan pada data kemahasiswaaan.

3.    Dalam pengembangan aplikasi yang menggunakan bahasa pemograman Visual Basic ini memudahkan dalam proses instalasi dan pengembangan sistem selanjutnya, dikarenakan sistem ini telah mendukung sistem jaringan sehingga dapat diintegrasikan dengan sistem-sistem lain yang telah ada dan setiap orang bisa menggunakannya sepanjang telah mendapat Authority dari administratornya.

B.    Saran

Berdasarkan kesimpulan dan melakukan pengamatan secara langsung terhadap sistem yang ada, peneliti mengajukan saran sebagai berikut :

1.     Dalam perancangan sistem ini aspek keamanan sistem (security system) secara detail belum dibicarakan. Maka diharapkan untuk peneliti berikutnya dapat menambah dan melengkapi kekurangan-kekurangan yang ada.

2.     Untuk dapat mengoperasikan komputer secara maksimal dibutuhkan sumber daya manusia yang bisa menggunakan komputer, sehingga sistem yang digunakan dapat dimanfaatkan secara optimal.

3.     Sistem usulan ini dirancang dalam lingkungan LAN (Local area Network) sebagai saran bagi peneliti selanjutnya perancangan ini dapat dibuat dalam lingkungan internet yang lebih luas.

DAFTAR PUSTAKA