1 Perpustakaan Universitas Gunadarma BARCODE Nomor Pengunggahan BUKTI UNGGAH DOKUMEN PENELITIAN PERPUSTAKAAN UNIVERSITAS GUNADARMA SURAT KETERANGAN Nomor: 600/PERPUS/UG/2021 Surat ini menerangkan bahwa: Nama Penulis : M.S. HERAWATI, SKOM., MMSI Nomor Penulis : Penulis : Alamat Penulis : Villa Pertiwi Blok i-1 no.5 Cimanggis - Depok Jawa Barat dengan penulis lainnya sebagai berikut: Penulis ke-2/nomor/ M. S. HARLINA, SKOM., MM / / Telah menyerahkan hasil penelitian/ penulisan untuk disimpan dan dimanfaatkan di Perpustakaan Universitas Gunadarma, dengan rincian sebagai berikut : Nomor Induk Judul Penelitian Tanggal Penyerahan : 05 / 07 / 2021 : FILKOM/KA/PENELITIAN/600/2021 : Pembuatan Aplikasi Sederhana Data Siswa Baru Dengan menggunakan Database Macro Excell Demikian surat ini dibuat untuk dipergunakan seperlunya dilingkungan Universitas Gunadarma dan Kopertis Wilayah III. Dicetak pada: 18/06/ :52:29 PM, IP: Halaman 1/1
2 Pembuatan Aplikasi Sederhana Data Siswa Baru Dengan menggunakan Database Macro Excell Disusunoleh : MS Herawati, SKom., MMSI NIP : MS Harlina, SKom.,MM NIP : FAKULTAS ILMU KOMPUTER UNIVERSITAS GUNADARMA DEPOK, DEPOK, 05 JULI
3 Pembuatan Aplikasi Sederhan Data Siswa Baru Dengan menggunakan Database Macro Excell 1 M.S HERAWATI Sistem Informasi, Fakultas Ilmu Komputer dan Teknologi Informasi, Universitas Gunadarma 2 M.S HARLINA Sistem Informasi, Fakultas Ilmu Komputer dan Teknologi Informasi, Universitas Gunadarma ABSTRAKSI Pendaftaran Siswa Baru pada sebagian Sekolah Dasar masih dilakukan secara konvensional, yaitu orang tua murid harus datang ke sekolah untuk mendaftarkan anaknya dan mengisi berbagai formulir dan kelengkapan data yang diperlukan dan selama ini masih dilakukan secara manual yang mana memungkinkan terjadinya kesalahan, sehingga proses pendataan siswa tidak effisien, berjalan sangat lama dan sering terjadi kesalahan data. Sulitnya melakukan proses pencarian data yang akan dilakukan dengan cepat membuat manajemen sekolah kesulitan dalam melakukan proses pendataan, pengolahan dan pencarian datanya. Hal ini juga menyebabkan keterlambatan dalam penyajian data, informasi siswa baru dan laporan pada saat laporan data tersebut diperlukan. Oleh karena itu, diperlukan sebuah sistem yang terkomputerisasi yang dapat digunakan oleh manajemen sekolah untuk mempermudah proses pengolahan data siswa baru serta penyajian informasi dengan efektif dan efisien. Pembuatan aplikasi pengolahan data ini menggunakan metode pengumpulan data yaitu observasi, study literatur dan wawancara. Pembuatan aplikasinya menggunakan Microsoft Macro Excell, dengan harapan dapat mengatasi kesulitan yang dialami oleh manajemen sekolah dalam proses pencarian data dan aplikasi ini juga diharapkan dapat menghasilkan Sistem Informasi Pengelolaan data siswa yang lebih effektif, effien dan terupdate. Kata Kunci : Sistem Informasi, Pengelolaan Data, Macro Excell dan Data Siswa PENDAHULUAN Kemajuan dibidang teknologi informasi belakangan ini berkembang sangat cepat apalagi diiringi dengan makin maraknya internet dikalangan masyarakat. Sekolah Dasar Putra bangsa 2
4 merupakan salah satu bagian dari sekolah umum milik swasta ini merupakan lembaga pendidikan yang bertugas menangani kegiatan-kegiatan yang berkaitan dengan pendidikan, Tujuan utama dari pendirian sekolah ini adalah sesuai dengan program Pemerintah yaitu untuk mencerdaskan kehidupan bangsa. Pendidikan juga merupakan modal utama bagi suatu bangsa dalam upaya meningkatkan kualitas sumber daya manusia yang dimilikinya. Dalam instansi pendidikan, khususnya Sekolah Dasar Putra Bangsa, selalu membutuhkan sistem untuk mengumpulkan, mengolah, menyimpan serta memberikan informasi. Salah satu pengelolaan data yang dilakukan Sekolah Dasar Putra Bangsa adalah pengelolaan data siswa meliputi data siswa baru, siswa aktif, data alumni, data nilai siswa, data mata pelajaran dan informasi terkait lainnya. Dalam pembuatan aplikasi ini, pengolahan data ditujukan dalam proses penerimaan siswa baru. Informasi merupakan satu-satunya sumber yang dibutuhkan seorang pemimpin lembaga pendidikan. Informasi dapat diolah dari sumber lain yang dipengaruhi oleh organisasi yang sangat kompleks dan perangkat komputer yang dimiliki. Informasi dapat memperkuat kinerja lembaga pendidikan, layaknya kinerja usaha lembaga bisnis [Rochati, 2009]. Informasi yang baik adalah informasi yang disajikan tepat pada saat dibutuhkan. Informasi yang terlambat menjadi tidak ada nilainya karena berkaitan erat dalam pengambilan keputusan [Hartono, 2013]. Pengolahan data terdiri dari kegiatan-kegiatan penyimpanan data dan penanganan data, yaitu penyimpanan data yang meliputi pekerjaan pengumpulan, pencarian dan pemeliharaan dan penanganan data yang meliputi berbagai kegiatan seperti pemeriksaan, perbandingan, pemilihan, pringkasan dan penggunaan [Sutabri, 2005]. Data siswa merupakan salah satu hal yang penting dan harus diperhatikan dalam suatu instansi pendidikan. Namun, saat ini proses pengolahan data siswa pada Sekolah Dasar Putra bangsa masih dilakukan secara konvensional, yaitu pengolahan data siswa masih dicatat pada buku besar, sehingga proses pendataan berjalan sangat lama, sering terjadi kesalahan data, sulit dalam pencarian data serta pencarian data yang kurang begitu cepat, sehingga menyebabkan keterlambatan dalam penyajian laporan data pada saat laporan data tersebut diperlukan. Oleh karena itu, diperlukan sebuah sistem yang terkomputerisasi yang dapat digunakan pihak sekolah untuk mempermudah proses pengolahan data siswa serta penyajian informasi dengan efektif dan efisien. Berlatar belakang pada pokok permasalahan di atas, maka penulis mencoba membantu mengatasi permasalahan yang dialami oleh pihak Sekolah dengan membuat aplikasi Data Siswa Putra Bangsa, khususnya dalam proses penerimaan siswa baru dengan menyediakan menu-menu dan tampilan menu aplikasi yang sangat berguna untuk mengatasi proses pengolahan data siswanya. Untuk mempermudah pemahaman dan memberikan gambaran serta menyamakan persepsi antara penulis dan pihak sekolah. Tujuan dari pembuatan aplikasi ini adalah membuat sebuah sistem informasi pengelolaan data siswa baru yang dapat mempermudah Manajemen Sekolah dalam mengelola data dan penyajian informasi, khususnya untuk siswa baru. 3
5 Microsoft Excel Microsoft Excel atau Microsoft Office Excel adalah sebuah program aplikasi lembar kerja spreadsheet yang dibuat dan didistribusikan oleh Microsoft Corporation yang dapat dijalankan pada Microsoft Windows dan Mac OS. Aplikasi ini memiliki fitur kalkulasi dan pembuatan grafik yang canggih, dengan menggunakan strategi marketing Microsoft yang agresif, menjadikan Microsoft Excel sebagai salah satu program komputer yang populer digunakan di dalam komputer mikro hingga saat ini. Bahkan, saat ini program ini merupakan program spreadsheet paling banyak digunakan oleh banyak pihak, baik di platform PC berbasis Windows maupun platform Macintosh berbasis Mac OS, semenjak versi 5.0 diterbitkan pada tahun Aplikasi ini merupakan bagian dari Microsoft Office System, dan versi terakhir adalah versi Microsoft Office Excel 2013 yang diintegrasikan di dalam paket Microsoft Office System Pada awal-awal peluncurannya, Excel menjadi sasaran tuntutan perusahaan lainnya yang bergerak dalam bidang industri finansial yang telah menjual sebuah perangkat lunak yang juga memiliki nama Excel. Akhirnya, Microsoft pun mengakhiri tuntutan tersebut dengan kekalahan dan Microsoft harus mengubah nama Excel menjadi "Microsoft Excel" dalam semua rilis pers dan dokumen Microsoft. Meskipun demikian, dalam prakteknya, hal ini diabaikan dan bahkan Microsoft membeli Excel dari perusahaan yang sebelumnya menuntut mereka, sehingga penggunaan nama Excel saja tidak akan membawa masalah lagi. Microsoft juga sering menggunakan huruf XL sebagai singkatan untuk program tersebut, yang meskipun tidak umum lagi, ikon yang digunakan oleh program tersebut masih terdiri atas dua huruf tersebut [meski diberi beberapa gaya penulisan]. Selain itu, ekstensi default dari spreadsheet yang dibuat oleh Microsoft Excel hingga versi 11.0 [Excel 2003] adalah *.xls sedangkan mulai Microsoft Office Excel 2007 [versi 12.0] ekstensi default-nya adalah *.xlsx yang mendukung format HTML namun dengan isi yang sama memiliki ukuran file yang lebih kecil jika dibandingkan dengan versi-versi Excel sebelumnya. Sejak tahun 1993, Excel telah memiliki bahasa pemrograman Visual Basic for Applications [VBA], yang dapat menambahkan kemampuan Excel untuk melakukan automatisasi di dalam Excel dan juga menambahkan fungsi-fungsi yang dapat didefinisikan oleh pengguna [user-defined functions/udf] untuk digunakan di dalam worksheet. Dalam versi selanjutnya, bahkan Microsoft menambahkan sebuah integrated development environment [IDE] untuk bahasa VBA untuk Excel, sehingga memudahkan programmer untuk melakukan pembuatan program buatannya. Selain itu, Excel juga dapat merekam semua yang dilakukan oleh pengguna untuk menjadi [macro], sehingga mampu melakukan automatisasi beberapa tugas. VBA juga mengizinkan pembuatan form dan kontrol yang terdapat di dalam worksheet untuk dapat berkomunikasi dengan penggunanya. Bahasa VBA juga mendukung penggunaan DLL ActiveX/COM, meski tidak dapat membuatnya. Versi VBA selanjutnya menambahkan dukungan terhadap [class module] sehingga mengizinkan penggunaan teknik pemrograman berorientasi objek dalam VBA. Fungsi automatisasi yang disediakan oleh VBA menjadikan Excel sebagai sebuah target virus-virus macro. Ini merupakan problem yang sangat serius dalam dunia korporasi hingga para pembuat antivirus mulai menambahkan dukungan untuk mendeteksi dan membersihkan virusvirus macro dari berkas Excel. Akhirnya, meski terlambat, Microsoft juga mengintegrasikan fungsi untuk mencegah penyalahgunaan macro dengan menonaktifkan macro secara 4
6 keseluruhan, atau menngaktifkan macro ketika mengaktifkan workbook, atau mempercayai macro yang dienkripsi dengan menggunakan sertifikat digital yang tepercaya. Macro Macro adalah sederetan fungsi dan perintah program yang disimpan dalam menu Visual Basic. Microsoft Excel menyediakan fitur untuk merekam aktivitas yang dilakukan oleh penggunanya melalui tools lalu macro kemudian record new macro. Record new macro berguna untuk merekam aktivitas yang dilakukan dan merubahnya menjadi baris-baris program. Namun macro juga dapat digunakan oleh user untuk membuat perintah atau procedure melalu bahasa VBA atau Visual Basic for Application yang cukup populer, sederhana dan mudah untuk dipelajari. Semakin besar pemahaman anda tentang bahasa VBA maka semakin banyak dan canggih pula prosedur atau perintah-perintah yang dapat anda buat untuk memudahkan perkerjaan anda dengan Microsoft Excel. Contoh sederhana dari fungsi atau kegunaan macro adalah apabila akan melakukan pekerjaan yang banyak tapi monoton. Dari pada membuang-buang waktu dengan mengerjakan pekerjaan yang monoton secara manul, kenapa tidak merekamnya saja dengan macro kemudian melakukan sedikit modifikasi. Pekerjaan yang sebelumnya dikerjakan berjam-jam dapat selesai hanya dengan sekali klik. Contoh lain adalah apabila ingin membuat fungsi yang belum tersedia pada fungsi standard yang disediakan oleh excel, maka akan dapat membuat fungsi yang diinginkan melalui Macro berupa User Defined Function [UDF]. Untuk dapat menggunakan macro, harus terlebih dahulu melakukan setting terhadap macro security level pada Microsoft Excel. Caranya adalah melalui tools lalu macro kemudian security setelah itu set security level pada level Medium. Jangan gunakan low apabila kita sering menerima file dalam bentuk excel karena kemungkinan akan mendapat file excel yang mengandung virus macro menjadi sangat tinggi. Dengan level medium dapat menentukan apakah kita akan meng-enable atau Disable macro yang terdapat pada file excel yang akan dibuka. Namun jika macro security level di set pada level Low maka tidak akan mendapat pemberitahuan bahwa file yang akan dibuka berisi macro atau tidak. PEMBAHASAN Dalam pembuatan Aplikasi Data Siswa Putra Bangsa Dengan Menggunakan Macro ini terdiri atas Logika Program dan Listing Program, Sheet tampilan Excell dan Tampilan Form Isian Data Siswa, yaitu : 1. Logika Program Gambar 1. List Program Umur 5
7 Dim irow as long untuk mendeklarasikan variable irow yang mempunyai tipe data long Listing program pada combobox4[tahun Lahir] apabila combobox4 kondisinya kurang dari 2006 maka di textbox13 akan muncul text Umur Melebihi Batas Kriteria dan apabila combobox4 kondisinya lebih dari 2009 maka akan mengeksekusi statement di textbox13 Umur Kurang Dari Batas Kriteria selanjutnya apabila kondisi di combobox4 tidak memenuhi kondisi 1 dan kondisi 2 maka akan menjalankan statement textbox13 Umur Mencukupi Kriteria Gambar 2. List Program Kelengkapan Data pada listing program di atas, pada butoon7 [button Proses] apabila pada combobox5 dan combobox4 terisi kalimat Choose maka akan mucul messagebox Data Belum Lengkap dan apabila kondisinya salah makan akan menjalankan perintah Data Lengkap. Gambar 3. List Program Kondisi Benar/Salah Pada listing program di atas menggunakan percabangan if..else. maksud listing di atas, jika kondisi yang diuji bernilai benar maka program akan menjalankan pernyataan 6
8 tertentu. Pada listing di atas apabila kondisi 1 [pada combobox5 dan combobox4] bernilai benar maka akan menjalankan statement 1 jika bernilai salah maka akan menguji kondisi selanjutnya dan menjalankan statement tersebut apabila kondsinya bernilai benar. Gambar 4. List Program Cek Penerimaan Siswa Percabangan if di atas, akan di jalankan setelah menekan button proses. Jika kondisi pada textbox 14 berisi Diterima di SD PUTRA BANGSA maka akan menjalankan perintah SELAMAT!! SILAHKAN SEGERA LENGKAPI ADMINISTRASI ANDA apabila kondisi pada textbox14 berisi Tidak Diterima di SD PUTRA BANGSA maka akan menjalankan perintah MAAF ANDA BELUM DI TERIMA Gambar 5. List Program Input Data 7
9 Pada listing program di atas, cell pada kolom 1 pada worksheet Datasiswa sama dengan textbox1, jadi apapun yg di input pada textbox1 akan muncul di kolom 1 setelah klik button add. Dan begitu seterusnya sampai pada kolom 19. Gambar 6. List Program Input Data Listing progam di atas, textbox1-textbox14 akan bersih kembali setelah penginputan data berhasil di jalankan. Dan pada combobox 1 - combobox6 akan muncul kata Choose setelah button add di jalankan. Gambar 7. List Program Pilihan Pada button 2 atau button edit, pada kolom 1 sampai kolom 19 yang hanya dapat dipilih atau yang dapat di edit. 8
10 Gambar 8. List Program Pada button 3 atau button edit. Apabila salah satu cell di pilih dan button delete di klik maka cell tersebut akan terhapus dan data dibawahnya akan naik menempati cell di data yang telah di hapus tadi. Gambar 9. List Program Pada button 4 atau button exit, apabila muncul message box berisi Yakin Ingin keluar dari program? apabila klik ok maka program akan tertutup dan apabila klik cancel maka akan tetap di dalam program. Gambar 10. List Program Pada listing program di atas, pada button 5 atau button previous. Untuk kembali atau pindah ke cell berikutnya 9
11 Gambar 11. List Program Pada listing program di atas atau pada button 6, apabila di klik makan cell atau data yang tampil akan berpindah ke cell berikutnya Gambar 12. List Program Pada listing program di atas digunakan untuk mengisi combobox1. Dan akan muncul setelah program di run 2. Listing Program If Me.ComboBox5.Value = "Jakarta Pusat" And 2009 < Me.ComboBox4.Value < 2006 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" If Me.ComboBox5.Value = "Jakarta Utara" And Me.ComboBox4.Value < 2006 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" If Me.ComboBox5.Value = "Jakarta Utara" And Me.ComboBox4.Value > 2009 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" If Me.ComboBox5.Value = "Jakarta Utara" And 2009 < Me.ComboBox4.Value < 2006 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" 10
12 If Me.ComboBox5.Value = "Jakarta Selatan" And Me.ComboBox4.Value < 2006 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" If Me.ComboBox5.Value = "Jakarta Selatan" And Me.ComboBox4.Value > 2009 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" If Me.ComboBox5.Value = "Jakarta Selatan" And 2009 < Me.ComboBox4.Value < 2006 Then TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" If Me.ComboBox5.Value = "Choose..." And Me.ComboBox4.Value = "Choose..." Then TextBox14.Text = "" TextBox14.Text = "Diterima di SD PUTRA BANGSA" Dim irow As Long Private Sub ComboBox4_Change[] If Me.ComboBox4.Value < 2006 Then TextBox13.Text = "Umur Melebihi Batas Kriteria" If Me.ComboBox4.Value > 2009 Then TextBox13.Text = "Umur Kurang Dari Batas Kriteria" TextBox13.Text = "Umur Mencukupi Kriteria" End Sub If TextBox14.Text = "Diterima di SD PUTRA BANGSA" Then MsgBox "Selamat!!! Silahkan Segera Lengkapi Administrasi Anda", vbokonly If TextBox14.Text = "Tidak Diterima di SD PUTRA BANGSA" Then MsgBox "Maaf Anda Belum Diterima", vbokonly End Sub Private Sub CommandButton1_Click[] Dim ws As Worksheet Set ws = Worksheets["DATASISWA"] irow = ws.cells[rows.count, 1] _.End[xlUp].Offset[1, 0].Row If Trim[Me.textbox1.Value] = "" Then Me.textbox1.SetFocus MsgBox "Masukan Nama Anda" Exit Sub ws.cells[irow, 1].Value = Me.textbox1.Value ws.cells[irow, 2].Value = Me.ComboBox1.Value ws.cells[irow, 3].Value = Me.ComboBox6.Value ws.cells[irow, 4].Value = Me.textbox2.Value ws.cells[irow, 5].Value = Me.ComboBox2.Value ws.cells[irow, 6].Value = Me.ComboBox3.Value ws.cells[irow, 7].Value = Me.ComboBox4.Value ws.cells[irow, 8].Value = Me.TextBox3.Value ws.cells[irow, 9].Value = Me.TextBox4.Value ws.cells[irow, 10].Value = Me.TextBox5.Value ws.cells[irow, 12].Value = Me.TextBox6.Value ws.cells[irow, 12].Value = Me.TextBox7.Value ws.cells[irow, 13].Value = Me.TextBox8.Value ws.cells[irow, 14].Value = Me.TextBox9.Value ws.cells[irow, 15].Value = Me.ComboBox5.Value ws.cells[irow, 16].Value = Me.TextBox11.Value ws.cells[irow, 17].Value = Me.TextBox12.Value ws.cells[irow, 18].Value = Me.TextBox13.Value Me.textbox1.Value = "" 11
13 Me.ComboBox1.Value = "Choose..." Me.ComboBox6.Value = "Choose..." Me.textbox2.Value = "" Me.ComboBox2.Value = "Choose..." Me.ComboBox3.Value = "Choose..." Me.ComboBox4.Value = "Choose..." Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.ComboBox5.Value = "Choose..." Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox13.Value = "" Me.TextBox14.Value = "" Me.textbox1.SetFocus End Sub Private Sub CommandButton2_Click[] Sheet1.Activate Range[Cells[irow, 1], Cells[irow, 19]].Select Cells[irow, 1].Value = Me.textbox1.Text Cells[irow, 2].Value = Me.ComboBox1.Value Cells[irow, 3].Value = Me.ComboBox6.Value Cells[irow, 4].Value = Me.textbox2.Text Cells[irow, 5].Value = Me.ComboBox2.Value Cells[irow, 6].Value = Me.ComboBox3.Value Cells[irow, 7].Value = Me.ComboBox4.Value Cells[irow, 8].Value = Me.TextBox3.Text Cells[irow, 9].Value = Me.TextBox4.Text Cells[irow, 10].Value = Me.TextBox5.Text Cells[irow, 11].Value = Me.TextBox6.Text Cells[irow, 12].Value = Me.TextBox7.Text Cells[irow, 13].Value = Me.TextBox8.Text Cells[irow, 14].Value = Me.TextBox9.Text Cells[irow, 15].Value = Me.ComboBox5.Value Cells[irow, 16].Value = Me.TextBox11.Text Cells[irow, 17].Value = Me.TextBox12.Text Cells[irow, 18].Value = Me.TextBox13.Text Cells[irow, 19].Value = Me.TextBox14.Text End Sub Private Sub CommandButton3_Click[] Selection.Clear irow = irow + 1 lastrow = WorksheetFunction.CountA[Range["A:A"]] + 3 Range[Cells[irow, 1], Cells[irow, 19]].Cut irow = irow - 1 lastrow = lastrow - 1 Range[Cells[irow, 1], Cells[lastrow, 19]].Select ActiveSheet.Paste End Sub Private Sub CommandButton4_Click[] If MsgBox["Yakin Ingin Keluar Dari Program", vbokcancel] = vbok Then Unload Me End Sub Private Sub CommandButton5_Click[] lastrow = WorksheetFunction.CountA[Range["A:A"]] irow = irow - 1 If irow < 4 Then irow = 4 Range[Cells[irow, 1], Cells[irow, 19]].Select textbox1.text = Cells[irow, 1].Value ComboBox1.Text = Cells[irow, 2].Value ComboBox6.Text = Cells[irow, 3].Value textbox2.text = Cells[irow, 4].Value ComboBox2.Text = Cells[irow, 5].Value ComboBox3.Text = Cells[irow, 6].Value ComboBox4.Text = Cells[irow, 7].Value TextBox3.Text = Cells[irow, 8].Value TextBox4.Text = Cells[irow, 9].Value TextBox5.Text = Cells[irow, 10].Value TextBox6.Text = Cells[irow, 11].Value TextBox7.Text = Cells[irow, 12].Value TextBox8.Text = Cells[irow, 13].Value TextBox9.Text = Cells[irow, 14].Value ComboBox5.Text = Cells[irow, 15].Value TextBox11.Text = Cells[irow, 16].Value TextBox12.Text = Cells[irow, 17].Value TextBox13.Text = Cells[irow, 18].Value TextBox14.Text = Cells[irow, 19].Value End Sub Private Sub CommandButton6_Click[] lastrow = WorksheetFunction.CountA[Range["A:A"]]
14 irow = irow + 1 If irow > lastrow Then irow = 4 If irow < 4 Then irow = 4 Range[Cells[irow, 1], Cells[irow, 19]].Select textbox1.text = Cells[irow, 1].Value ComboBox1.Text = Cells[irow, 2].Value ComboBox6.Text = Cells[irow, 3].Value textbox2.text = Cells[irow, 4].Value ComboBox2.Text = Cells[irow, 5].Value ComboBox3.Text = Cells[irow, 6].Value ComboBox4.Text = Cells[irow, 7].Value TextBox3.Text = Cells[irow, 8].Value TextBox4.Text = Cells[irow, 9].Value TextBox5.Text = Cells[irow, 10].Value TextBox6.Text = Cells[irow, 11].Value TextBox7.Text = Cells[irow, 12].Value TextBox8.Text = Cells[irow, 13].Value TextBox9.Text = Cells[irow, 14].Value ComboBox5.Text = Cells[irow, 15].Value TextBox11.Text = Cells[irow, 16].Value TextBox12.Text = Cells[irow, 17].Value TextBox13.Text = Cells[irow, 18].Value TextBox14.Text = Cells[irow, 19].Value End Sub Private Sub UserForm_Initialize[] With Me.ComboBox1.AddItem "LAKI-LAKI".ComboBox1.AddItem "PEREMPUAN" End With With ComboBox2.AddItem "1".AddItem "2".AddItem "3" AddItem "4".AddItem "5".AddItem "6".AddItem "7".AddItem "8".AddItem "9".AddItem "10".AddItem "11".AddItem "12".AddItem "13".AddItem "14".AddItem "15".AddItem "16".AddItem "17".AddItem "18".AddItem "19".AddItem "20".AddItem "21".AddItem "22".AddItem "23".AddItem "24".AddItem "25".AddItem "26".AddItem "27".AddItem "28".AddItem "29".AddItem "30".AddItem "31" End With With ComboBox3.AddItem "Januari".AddItem "Februari".AddItem "Maret".AddItem "April".AddItem "Mei".AddItem "Juni".AddItem "Juli".AddItem "Agustus".AddItem "September".AddItem "Oktober".AddItem "November".AddItem "Desember" End With With ComboBox4.AddItem "2000".AddItem "2001".AddItem "2002".AddItem "2003".AddItem "2004".AddItem "2005".AddItem "2006".AddItem "2007".AddItem "2008".AddItem "2009".AddItem "2010".AddItem "2011".AddItem "2012" 13
15 .AddItem "2013".AddItem "2014" End With With ComboBox5.AddItem "Jakarta Timur".AddItem "Jakarta Barat".AddItem "Jakarta Pusat".AddItem "Jakarta Utara".AddItem "Jakarta Selatan" End With With ComboBox6.AddItem "Islam".AddItem "Protestan".AddItem "Katolik".AddItem "Hindu".AddItem "Budha" End With End Sub 14
16 3. Output Program Setelah di run maka akan tampil form 2 atau form log in, dan isikan password dan username yang sesuai, berikut Tampilannya : Gambar 13. Tampilan Menu Log In Setelah masuk ke form 1 atau form data siswa, maka isikan data sesuai dengan nama siswa. Contoh: disini menggunakan nama widy. Apabila Tahun Kelahiran dan Kota sesuai dengan criteria atau syarat maka tampilannya seperti berikut : Gambar 14. Tampilan Menu Input Apabila Kota Siswa tersebut diganti, maka tampilannya seperti berikut : 15
17 Gambar 15. Tampilan Menu Biodata Siswa Apabila kota diganti menjadi Jakarta Timur dan Tahun Kelahiran diganti maka tampilannya seperti berikut : Gambar 16. Tampilan Menu Biodata Siswa Setelah data di atas selesai diproses, lalu klik button add dan data tersebut akan muncul pada laporan di excel : Gambar 17. Spredsheet Data Input 16
18 Setelah data berhasil di add, maka jika ingin mengedit atau memperbaiki data dengan cara pilih cell mana yang akan di edit. Gambaran 18. Biodata Siswa Lalu lakukan pembenaran pada data tersebut, setelah selesai lalu klik button edit. Maka tampilannya seperti berikut : Gambar 19. Spredsheet Data Edit Apabila ingin menghapus data pada cell tersebut dengan mengklik button delete maka tampilannya seperti berikut : Gambar 20. Tampilan Menu Input Lengkap 17
19 KESIMPULAN Proses Penerimaan siswa baru merupakan kegiatan sekolah yang terjadi setiap tahun bahkan di pertengahan tahun mengajar. Aplikasi ini merumuskan bagaimana membuat aplikasi sistem penerimaan siswa baru sekolah berbasis komuterisasi pada sekolah Putra Bangsa. Metode yang digunakan dalam pembuatan aplikasi ini adalah teknik pengumpulan data dimana ada pengamatan, wawancara, dan studi pustaka. Sistem informasi penerimaan siswa baru ini dibangun dengan menggunakan Microsof Macro Excell. Dengan adanya aplikasi ini diharapkan dapat membantu calon siswa baru dan petugas penerimaan siswa baru dalam proses pendaftaran siswa baru di sekolah Putra Bangsa. Melalui sistem penerimaan siswa baru berbasis Komputer ini, diharapkan dapat dikembangkan untuk berbasis web, sehingga calon siswa tidak harus datang langsung untuk melakukan pendaftaran dan konfirmasi pembayaran sehingga lebih efisien dalam segi waktu dan biaya, Sistem penerimaan siswa baru ini dapat memudahkan admin untuk mengolah data penerimaan siswa baru dan mempercepat proses verifikasi pendaftaran dan pembayaran. Dengan proses pendaftaran yang dilakukan secara online maka pengadaan kertas formulir pendaftaran bisa dikurangi karena pengisiannya tidak perlu lagi dilakukan secara manual. Dengan adanya sistem ini pembuatan laporan menjadi lebih efektif dan effisien. DAFTAR PUSTAKA [1] Jogiyanto, HM Analisis dan Desain. Andi:Yogyakarta [2] Karnadi dan Devi S, [2012], Tingkatan Kinerja Excel Anda dengan VBA Excel, Jakarta : PT. Elex Media Komputindo [3] Nurul Azizah Yaoma Ramadhani [2012], Pembangunan Sistem Informasi Penerimaan Siswa Baru Di Sekolah Menengah Kejuruan ALIRSYAD TEGAL, Jurnal Indonesian Jurnal on Computer Science - Speed [IJCSS] 15 FTI UNSA Vol 10 No 1 Februari ijcss.unsa.ac.id [4] Rifki Mufrizal, [2012], Program Seleksi Masuk Bersama Perguruan Tinggi Dengan Menggunakan Macro Excel 2013, Tugas Kuliah di Semester ATA 2012/2013. [5] Belajar Menguasai Program Excel dan VBA, Sabtu 8 Februari 2014 jam