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 17



17.   Cara memasang dan mengaktifkan timer (countdown)
      Timer dalam evaluasi digital berfungsu untuk membatasi waktu mengerjakan bagi siswa, misalnya untuk mengerjakan soal sebanyak 10 dibatasi waktunya 30 menit, apabila durasi waktu telah mencapai 30 menit maka secara otomatis evaluasi digital akan menutup dengan sendirinya, dan siswa tidak bisa lagi mengerjakan. Timer (countdown) diatur sedemikian rupa agar dapat terlihat jelas oleh siswa ketika sedang mengerjakan evaluasi serta menghentikannya ketika waktu yang ditentukan telah habis.
Langkahnya sama dengan tombol-tombol VBA lainnya. Selain sebagai pengatur  waktu tombol timer (countdown) juga berfungsi sebagai tombol Start, agar ketika diklik maka waktu pengerjaan berjalan. Untuk membuat start acak maka tombol timer dibuat 4 macam dan keempatnya dicopy 4 kali yaitu button5, button 6, button7, dan button8, kemudian disatukan diedit tulisan Start. Apabila mau mengubah nama button maka jangan lupa ubah juga assign button yang digunakan. Ada sedikit perbedaan antara tombol start acak 1 , 2, 3, dan 4. Yaitu terletak pada Range select. Start acak satu =(“A”), start acak 2 =(“A55”), start acak 3 =(“A95”), dan start acak 4 =(“A135”).
Cara membuat tombol timer dan cara mengaktifkannya dengan cara :  klik Developer – Visual Basic – VBAProject(EvaluasiDigital.xlsm.) – Module 5 . Masukkan script di bawah ini ke dalam module 5:
Sub Button5_Click()
    Pausetime = Cells(34, 7)
    Sheets("S1").Select
                 Range("A1").Select
                 ActiveCell.FormulaR1C1 = ""
    Start = Timer
    Do While Timer < Start + Pausetime
                 DoEvents
                 Cells(25, 14) = Start + Pausetime - Timer
                 Cells(65, 14) = Start + Pausetime - Timer
                 Cells(105, 14) = Start + Pausetime - Timer
                 Cells(145, 14) = Start + Pausetime - Timer
   Loop
    Sheets("Nilai anda").Select
    Sheets("Nilai anda").Select
    Range("K3").Select
    MsgBox "Waktu anda telah habis, berhentilah bekerja dan klik Simpan untuk mengakhiri pekerjaan atau Remidial untuk memperbaiki nilai anda !", vbInformation, "Terima kasih !"
End Sub

Sub Button6_Click()
    Pausetime = Cells(34, 7)
    Sheets("S1").Select
                 Range("A55").Select
                 ActiveCell.FormulaR1C1 = ""
    Start = Timer
    Do While Timer < Start + Pausetime
                 DoEvents
                 Cells(25, 14) = Start + Pausetime - Timer
                 Cells(65, 14) = Start + Pausetime - Timer
                 Cells(105, 14) = Start + Pausetime - Timer
                 Cells(145, 14) = Start + Pausetime - Timer
    Loop
    Sheets("Nilai anda").Select
    Sheets("Nilai anda").Select
    Range("K3").Select
    MsgBox "Waktu anda telah habis, berhentilah bekerja dan klik Simpan untuk mengakhiri pekerjaan atau Remidial untuk memperbaiki nilai anda !", vbInformation, "Terima kasih !"
End Sub

Sub Button7_Click()
    Pausetime = Cells(34, 7)
    Sheets("S1").Select
                 Range("A135").Select
                  ActiveCell.FormulaR1C1 = ""
    Start = Timer
    Do While Timer < Start + Pausetime
                 DoEvents
                 Cells(25, 14) = Start + Pausetime - Timer
                 Cells(65, 14) = Start + Pausetime - Timer
                 Cells(105, 14) = Start + Pausetime - Timer
                 Cells(145, 14) = Start + Pausetime - Timer
    Loop
    'Sheets("Nilai anda").Select
    Sheets("Nilai anda").Select
    Range("K3").Selec
    MsgBox "Waktu anda telah habis, berhentilah bekerja dan klik Simpan untuk mengakhiri pekerjaan atau Remidial untuk memperbaiki nilai anda !", vbInformation, "Terima kasih !"
End Sub

Sub Button8_Click()
    Pausetime = Cells(34, 7)
    Sheets("S1").Select
                 Range("A135").Select
                 ActiveCell.FormulaR1C1 = ""
    Start = Timer
    Do While Timer < Start + Pausetime
                 DoEvents
                 Cells(25, 14) = Start + Pausetime - Timer
                 Cells(65, 14) = Start + Pausetime - Timer
                 Cells(105, 14) = Start + Pausetime - Timer
                 Cells(145, 14) = Start + Pausetime - Timer
    Loop
    'Sheets("Nilai anda").Select
    Sheets("Nilai anda").Select
    Range("K3").Select
    MsgBox "Waktu anda telah habis, berhentilah bekerja dan klik Simpan untuk mengakhiri pekerjaan atau Remidial untuk memperbaiki nilai anda !", vbInformation, "Terima kasih !"
End Sub
Demikianlah cara membuat timer (countdown) yang sekaligus berfungsi sebagai tombol start. Dan langkah terakhir  (bagian 18) adalah membuat tampilan evaluasi digital menjadi full screen.  ...... NEXT.
Label: ,
Comments
0 Comments