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:
Komentar (Atom)