VISUAL BASIC FOR APLICATION PRESENTASI POWERPOINT

 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(38)
If persen >= kkm Then
.Shapes(1).TextFrame.TextRange.Text = "Selamat " & nama & " Telah Lulus ! Nilai Anda adalah" & persen
Else
.Shapes(1).TextFrame.TextRange.Text = "Mohon Maaf " & nama & " Harus 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
End With
End Sub

Sumber Data :
https://www.researchgate.net/publication/337917944_Coding_VBA_Macr