BIMBINGAN KONSELING TIK - MAN 3 PEKALONGAN
Breaking News
Sabtu, 09 November 2019
Minggu, 03 November 2019
Jumat, 06 September 2019
Minggu, 01 September 2019
Ngoprek Menu Dropdown sebagai Link LABEL
Untuk materi kali ini dapat di lihat di video berikut ini :!!
Senin, 26 Agustus 2019
TUGAS THEME BLOG
Theme donload di SINI
Rabu, 14 November 2018
Membuat Soal Pilihan Ganda dan Skor di Microsoft PowerPoint
- Buatlah sebuah soal sejumlah 5 buah
- Untuk slide awal wajib di beri tombol MULAI / START
- Slide terakhir untuk tombol CEK NILAI
- Jadi total slide yang dibuat sejumlah 7
setelah itu buka window macro dengan menekan bersaman ALT + 11 nanti akan keluar jendela Visual Basic .
Dilanjutkan dengan Insert - Module. Isikan Script berikut ini (COPAS saja lah... ) :
=================================================================
Dim nilai As Integer Dim konfirmasi As String Sub mulai() nilai = 0 ActivePresentation.SlideShowWindow.View.Next End Sub Sub benar() konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then nilai = nilai + 20 ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub salah() konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!") If konfirmasi = vbYes Then ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub skor() 'tombol untuk selesai MsgBox (" nilai anda adalah " & nilai) End Sub
=================================================================
setelah itu simpan dengan file type PowerPoint Macro-Enabled Presentasion.
Selamat berkreasi!! jangan lupa di jalankan ya...
Senin, 22 Oktober 2018
Langganan:
Postingan (Atom)