/> Cara Membuat Soal Pilihan Ganda Di Powerpoint dan Menampilkan Nilainya

Cara Membuat Soal Pilihan Ganda Di Powerpoint dan Menampilkan Nilainya





Untuk mempermudah  silahkan copy script dibawah ini 

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

Posting Komentar

0 Komentar