BUAT PARA PELAJAR, TETAP SEMANGAT BELAJAR DI RUMAH,JANGAN PANIK MENGHADAPI VIRUS CORONA, TAPI JANGAN REMEHKAN KARENA SIAPA SAJA BISA JADI KORBAN, SEMOGA PANDEMI CORONA SEGERA BERAKHIR SELAMAT DATANG DAN SELAMAT BERGABUNG BERSAMA "GARUDA BUKATEJA" DALAM SITUASI PANDEMI COFID 19

CARA MEMBUAT EVALUASI DIGITAL BAGIAN 16



16.   Cara menampilkan dan menyembunyikan lembar kerja (sheet)  secara bergantian sesuai dengan kebutuhan.
            Ada beberapa lembar yang tidak perlu ditampilkan  pada saat siswa mengerjakan, namun lembar kerja tersebut dibutuhkan pada saat guru menuliskan pertanyaan dan jawaban, begitu juga data  siswa dan analisis nilai ulangan harian.  Agar langkah tersebut dapat dilakukan dengan baik maka diperlukan tombol-tombol tertentu yang dapat diaktifkan dengan rumus VBA. Cara membuat tombol dan mengaktifkannya adalah  Klik Developer – Visual Basic – VBAProject (EvaluasiDigital).xslm – Module 4. Untuk mengatur tampilan sheet secara sesuai kebutuhan maka diperlukan beberapa kelompok script yang dimasukkan ke dalam module 4 modul 4, yaitu tombol Form Imput, tombol Buka, tombol Guru, dan tombol Tutup.
Sub FormImput()
Sheets("Database").Visible = True
Sheets("Database").Select
Sheets("S1").Visible = True
Sheets("S1").Select
Sheets("S2").Visible = True
Sheets("S2").Select
Sheets("S3").Visible = True
Sheets("S3").Select
Sheets("S4").Visible = True
Sheets("S4").Select
Sheets("S5").Visible = True
Sheets("S5").Select
Sheets("S6").Visible = True
Sheets("S6").Select
Sheets("S7").Visible = True
Sheets("S7").Select
Sheets("S8").Visible = True
Sheets("S8").Select
Sheets("S9").Visible = True
Sheets("S9").Select
Sheets("S10").Visible = True
Sheets("S10").Select
Sheets("S11").Visible = True
Sheets("S11").Select
Sheets("S12").Visible = True
Sheets("S12").Select
Sheets("S13").Visible = True
Sheets("S13").Select
Sheets("S14").Visible = True
Sheets("S14").Select
Sheets("S15").Visible = True
Sheets("S15").Select
Sheets("S16").Visible = True
Sheets("S16").Select
Sheets("S17").Visible = True
Sheets("S17").Select
Sheets("S18").Visible = True
Sheets("S18").Select
Sheets("S19").Visible = True
Sheets("S19").Select
Sheets("S20").Visible = True
Sheets("S20").Select
Sheets("Nilai anda").Visible = True
Sheets("Nilai anda").Select
Sheets("Penghargaan").Visible = True
Sheets("Penghargaan").Select
Sheets("FormImput").Visible = True
Sheets("FormImput").Select
Sheets("Masuk Guru").Visible = xlSheetVeryHidden
Sheets("Guru").Visible = xlSheetVeryHidden
Sheets("Soal").Visible = xlSheetVeryHidden
Sheets("DataSiswa").Visible = xlSheetVeryHidden
Sheets("Analisis").Visible = xlSheetVeryHidden
End Sub

Tombol tersebut  terletak di Login Guru, dengan tujuan agar siswa yang terjebak  pada login guru dapat kembali ke login siswa. Ada beberapa lembar kerja yang tidak dapat terbuka dengan dikliknya tombol tersebut, yaitu sheet Guru, Soal, Data Siswa, dan Analisis. Pada tombol inilah guru mengakhiri pekerjaannya setelah login guru dipassword kembali. Kemudian masukkan (copy paste) script di bawah ini tepat di bawah script Form Impu (nomor 1)
Sub Buka()
Sheets("FormImput").Visible = True
Sheets("FormImput").Select
Sheets("S1").Visible = True
Sheets("S1").Select
Sheets("S2").Visible = True
Sheets("S2").Select
Sheets("S3").Visible = True
Sheets("S3").Select
Sheets("S4").Visible = True
Sheets("S4").Select
Sheets("S5").Visible = True
Sheets("S5").Select
Sheets("S6").Visible = True
Sheets("S6").Select
Sheets("S7").Visible = True
Sheets("S7").Select
Sheets("S8").Visible = True
Sheets("S8").Select
Sheets("S9").Visible = True
Sheets("S9").Select
Sheets("S10").Visible = True
Sheets("S10").Select
Sheets("S11").Visible = True
Sheets("S11").Select
Sheets("S12").Visible = True
Sheets("S12").Select
Sheets("S13").Visible = True
Sheets("S13").Select
Sheets("S14").Visible = True
Sheets("S14").Select
Sheets("S15").Visible = True
Sheets("S15").Select
Sheets("S16").Visible = True
Sheets("S16").Select
Sheets("S17").Visible = True
Sheets("S17").Select
Sheets("S18").Visible = True
Sheets("S18").Select
Sheets("S19").Visible = True
Sheets("S19").Select
Sheets("S20").Visible = True
Sheets("S20").Select
Sheets("Nilai anda").Visible = True
Sheets("Nilai anda").Select
Sheets("Soal").Visible = True
Sheets("Soal").Select
Sheets("DataSiswa").Visible = True
Sheets("DataSiswa").Select
Sheets("Database").Visible = True
Sheets("Database").Select
Sheets("Analisis").Visible = True
Sheets("Analisis").Select
Sheets("Guru").Visible = True
Sheets("Guru").Select
End Sub

Tombol tersebut juga terdapat pada login guru, berfungsi untuk menampilkan seluruh lebar kerja tombol inilah yang menjadi ruang kerja guru sebelum diberikan kepada siswa. Tombol ini digunakan guru ketika guru hendak mengedit dan memperbaiki soal maupun kunci jawaban.

1.        Sub Guru()
Sheets("FormImput").Visible = True
Sheets("FormImput").Select
Sheets("Masuk Guru").Visible = True
Sheets("Masuk Guru").Select
Sheets("Guru").Visible = x1SheetVeryHidden
Sheets("S1").Visible = x1SheetVeryHidden
Sheets("S2").Visible = x1SheetVeryHidden
Sheets("S3").Visible = x1SheetVeryHidden
Sheets("S4").Visible = x1SheetVeryHidden
Sheets("S5").Visible = x1SheetVeryHidden
Sheets("S6").Visible = x1SheetVeryHidden
Sheets("S7").Visible = x1SheetVeryHidden
Sheets("S8").Visible = x1SheetVeryHidden
Sheets("S9").Visible = x1SheetVeryHidden
Sheets("S10").Visible = x1SheetVeryHidden
Sheets("S11").Visible = x1SheetVeryHidden
Sheets("S12").Visible = x1SheetVeryHidden
Sheets("S13").Visible = x1SheetVeryHidden
Sheets("S14").Visible = x1SheetVeryHidden
Sheets("S15").Visible = x1SheetVeryHidden
Sheets("S16").Visible = x1SheetVeryHidden
Sheets("S17").Visible = x1SheetVeryHidden
Sheets("S18").Visible = x1SheetVeryHidden
Sheets("S19").Visible = x1SheetVeryHidden
Sheets("S20").Visible = x1SheetVeryHidden
Sheets("Soal").Visible = x1SheetVeryHidden
Sheets("DataSiswa").Visible = x1SheetVeryHidden
Sheets("Database").Visible = x1SheetVeryHidden
Sheets("Nilai anda").Visible = x1SheetVeryHidden
Sheets("Penghargaan").Visible = x1SheetVeryHidden
Sheets("Soal").Visible = x1SheetVeryHidden
Sheets("Ana").Visible = x1SheetVeryHidden
End Sub

Tombol tersebut untuk mengamankan data guru, sehingga ketika siswa hendak berbuat tidak baik  dengan menekan tombol tersebut  maka lembar-lembar kerja yang ada akan tersembunyi, dan lembar kerja siswa akan muncul kembali apabila siswa mengklik tombol login siswa yang terdapat di  login Guru.

2.        Sub Tutup()
Sheets("FormImput").Visible = True
Sheets("FormImput").Select
Sheets("Database").Visible = True
Sheets("Database").Select
Sheets("S1").Visible = True
Sheets("S1").Select
Sheets("S2").Visible = True
Sheets("S2").Select
Sheets("S3").Visible = True
Sheets("S3").Select
Sheets("S4").Visible = True
Sheets("S4").Select
Sheets("S5").Visible = True
Sheets("S5").Select
Sheets("S6").Visible = True
Sheets("S6").Select
Sheets("S7").Visible = True
Sheets("S7").Select
Sheets("S8").Visible = True
Sheets("S8").Select
Sheets("S9").Visible = True
Sheets("S9").Select
Sheets("S10").Visible = True
Sheets("S10").Select
Sheets("S11").Visible = True
Sheets("S11").Select
Sheets("S12").Visible = True
Sheets("S12").Select
Sheets("S13").Visible = True
Sheets("S13").Select
Sheets("S14").Visible = True
Sheets("S14").Select
Sheets("S15").Visible = True
Sheets("S15").Select
Sheets("S16").Visible = True
Sheets("S16").Select
Sheets("S17").Visible = True
Sheets("S17").Select
Sheets("S18").Visible = True
Sheets("S18").Select
Sheets("S19").Visible = True
Sheets("S19").Select
Sheets("S20").Visible = True
Sheets("S20").Select
Sheets("Masuk Guru").Visible = True
Sheets("Masuk Guru").Select
Sheets("Guru").Visible = xlSheetVeryHidden
Sheets("Soal").Visible = xlSheetVeryHidden
Sheets("DataSiswa").Visible = xlSheetVeryHidden
Sheets("Analisis").Visible = xlSheetVeryHidden
End Sub
      Tombol tersebut berfungsi untuk menutup  sheet guru,  sheet Soal, sheet Data Siswa dan sheet analisis. Dengan dibuatnya ke empat tombol tersebut diharapkan  lembar kerja yang ditampilkan sesuai kebutuhan.
.................. .NEXT
 
Label: ,
Comments
0 Comments