==================================Start_here=====================================
Dim nilai As Integer
Dim konfirmasi As String
Dim hitung As Integer
Dim hitungx As Integer
Dim kkm As Integer
Dim persen As Integer
Dim nama As String
Dim nis As String

Sub mulai()
nilai = 0
hitung = 0
kkm = 75
nama = InputBox("Masukan Nama Lengkap anda")
nis = InputBox("Masukan Nomor Induk Siswa anda")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox("yakin dengan jawaban anda ?", vbYesNo, " Cek jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 1
hitung = hitung + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub Salah()
konfirmasi = MsgBox("Yakin dengan jawaban anda ?", vbYesNo, "Cek jawaban !")
If konfirmasi = vbYes Then
hitung = hitung + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub jawab()
ActivePresentation.SlideShowWindow.View.Next
persen = (nilai * 100) / hitung
hitungx = hitung - nilai
tampilkan
End Sub

Sub tampilkan()
With ActivePresentation.Slides(8)
If persen >= kkm Then
.Shapes(1).TextFrame.TextRange.Text = "Selamat " & nama & " anda Lulus ! nilai anda " & persen
Else
.Shapes(1).TextFrame.TextRange.Text = "Mohon Maaf " & nama & " anda Remedial ! karena nilai anda hanya" & persen & " tidak mencapai KKM : " & kkm
End If
.Shapes(2).TextFrame.TextRange.Text = kkm
.Shapes(3).TextFrame.TextRange.Text = nis
.Shapes(4).TextFrame.TextRange.Text = nama
.Shapes(5).TextFrame.TextRange.Text = persen
.Shapes(6).TextFrame.TextRange.Text = nilai
.Shapes(7).TextFrame.TextRange.Text = hitung
.Shapes(8).TextFrame.TextRange.Text = hitungx
.Shapes(16).TextFrame.TextRange.Text = "Find more at http://www.umboh.net/"
End With
End Sub
==================================EoF=====================================