Code VBA Powerpoint Game Matematika Satuan Panjang

bySaria Bakti •
0
Hai para VBA coder…. Apakah kalian menunggu untuk code VBA yang satu ini?. Apa kalian masih ingat dengan video demo game satuan panjang yang dulu pernah saya bagikan?. Jika kalian lupa, kalian bisa cek lagi di blog ini dengan mengikuti tautan berikut.
Video Demo Game Matematika Satuan Panjang

Kali ini saya sedang baik hati hehe… ya, saya akan membagikan code VBA yang saya gunakan untuk membuat Game Matematika Satuan Panjang. Untuk itu saya sudah menyiapkan file Powerpoint dari game satuan panjang tersebut yang terdiri dari 1 (satu) slide. Sengaja saya beri 1 (satu) slide saja supaya kalian bisa memahami bagaimana code ini dijalankan. Sengaja pula saya hilangkan animasi yang ada pada game tersebut supaya kalian bisa mempelajari code ini dengan baik. Ingatlah satu hal bahwa code VBA dari game matematika satuan panjang ini asli buatan saya sendiri. Saya kerjakan cukup lama sekitar 1 minggu melalui proses trial dan error. Jadi tidak salah jika kalian ingin belajar VBA Powerpoint maka di sinilah tempat yang tepat.

Code VBA untuk membuat game matematika dengan materi satuan panjang ini sangat banyak. Untuk itu dibutuhkan ketelitian dan kesabaran yang luar biasa untuk membuatnya. Namun dari game VBA Powerpoint inilah saya mendapatkan banyak pengalaman. Sehingga saya bisa membuat game VBA Powerpoint lainnya.

game matematika satuan panjang
Game Matematika Satuan Panjang

Baik, tanpa berpanjang kata lagi, silahkan simak code VBA dari game satuan panjang berikut. Salinlah code VBA berikut ke slide tempat game tersebut dimainkan. Harap siapkan diri ya hehe...



Dim w As String
Dim cekjawaban As String
Dim answer As String
Dim x As Long
Dim y As String
Dim konfirmasikuis As String
Dim z As Integer
Dim char As Integer

Private Sub CommandButton1_Click()
If y = "km" Then
If a = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
If y = "hm" Then
If b = x Then
If a = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If c = x Then
If b = x / 10 Then
If a = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
End If
End If
If y = "m" Then
If d = x Then
If c = x / 10 Then
If b = x / 100 Then
If a = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "dm" Then
If e = x Then
If d = x / 10 Then
If c = x / 100 Then
If b = x / 1000 Then
If a = x / 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
End If
End If
End If
End If
If y = "cm" Then
If f = x Then
If e = x / 10 Then
If d = x / 100 Then
If c = x / 1000 Then
If b = x / 10000 Then
If a = x / 100000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End If
If y = "mm" Then
If g = x Then
If f = x / 10 Then
If e = x / 100 Then
If d = x / 1000 Then
If c = x / 10000 Then
If b = x / 100000 Then
If a = x / 1000000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub CommandButton2_Click()
If y = "hm" Then
If b = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
End If
End If
If y = "km" Then
If a = x Then
If b = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
End If
End If
End If
If y = "dam" Then
If c = x Then
If b = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If d = x Then
If c = x / 10 Then
If b = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
End If
End If
End If
End If
If y = "dm" Then
If e = x Then
If d = x / 10 Then
If c = x / 100 Then
If b = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "cm" Then
If f = x Then
If e = x / 10 Then
If d = x / 100 Then
If c = x / 1000 Then
If b = x / 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
End If
End If
End If
End If
End If
End If
If y = "mm" Then
If g = x Then
If f = x / 10 Then
If e = x / 100 Then
If d = x / 1000 Then
If c = x / 10000 Then
If b = x / 100000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End If
End Sub
Sub benar()
cekjawaban = MsgBox("Hebat, jawabanmu benar.", vbInformation, "Cek Jawaban !")
Shapes("Picture19").ActionSettings(ppMouseClick).SoundEffect.Name = "Applause"
Shapes("Picture19").ActionSettings(ppMouseClick).SoundEffect.play
End Sub
Sub salah()
cekjawaban = MsgBox("Tetap semangat yaa. Jawabanmu kurang tepat.", vbCritical, "Cek Jawaban !")
Shapes("Picture20").ActionSettings(ppMouseClick).SoundEffect.Name = "OHNO.WAV"
Shapes("Picture20").ActionSettings(ppMouseClick).SoundEffect.play
End Sub
Private Sub CommandButton3_Click()
If y = "dam" Then
If c = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
If y = "km" Then
If a = x Then
If b = 10 * x Then
If c = 100 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
End If
End If
If y = "hm" Then
If b = x Then
If c = x * 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If d = x Then
If c = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If e = x Then
If d = x / 10 Then
If c = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
End If
End If
If y = "cm" Then
If f = x Then
If e = x / 10 Then
If d = x / 100 Then
If c = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "mm" Then
If g = x Then
If f = x / 10 Then
If e = x / 100 Then
If d = x / 1000 Then
If c = x / 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End Sub

Private Sub CommandButton4_Click()
If y = "m" Then
If d = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
If y = "km" Then
If a = x Then
If b = 10 * x Then
If c = 100 * x Then
If d = 1000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "hm" Then
If b = x Then
If c = x * 10 Then
If d = x * 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
End If
End If
If y = "dam" Then
If c = x Then
If d = x * 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If e = x Then
If d = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If f = x Then
If e = x / 10 Then
If d = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
End If
End If
If y = "mm" Then
If g = x Then
If f = x / 10 Then
If e = x / 100 Then
If d = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
End If
End If
End If
End If
End If
End Sub

Private Sub CommandButton5_Click()
If y = "dm" Then
If e = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
If y = "km" Then
If a = x Then
If d = 1000 * x Then
If e = 10000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
End If
End If
If y = "hm" Then
If b = x Then
If c = x * 10 Then
If d = x * 100 Then
If e = x * 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "dam" Then
If c = x Then
If d = x * 10 Then
If e = x * 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
End If
End If
If y = "m" Then
If d = x Then
If e = x * 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If f = x Then
If e = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If g = x Then
If f = x / 10 Then
If e = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
End If
End If
End If
End If
End Sub

Private Sub CommandButton6_Click()
If y = "cm" Then
If f = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
If y = "km" Then
If a = x Then
If b = 10 * x Then
If c = 100 * x Then
If d = 1000 * x Then
If e = 10000 * x Then
If f = 100000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End If
If y = "hm" Then
If b = x Then
If c = x * 10 Then
If d = x * 100 Then
If e = x * 1000 Then
If f = x * 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
End If
End If
End If
End If
If y = "dam" Then
If c = x Then
If d = x * 10 Then
If e = x * 100 Then
If f = x * 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "m" Then
If d = x Then
If e = x * 10 Then
If f = x * 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
End If
End If
If y = "dm" Then
If e = x Then
If f = x * 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If g = x Then
If f = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
End If
End If
End If
End Sub

Private Sub CommandButton7_Click()
If y = "mm" Then
If g = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
If y = "cm" Then
If f = x Then
If g = x * 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If e = x Then
If f = x * 10 Then
If g = x * 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
End If
End If
If y = "m" Then
If d = x Then
If e = x * 10 Then
If f = x * 100 Then
If g = x * 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
End If
End If
End If
If y = "dam" Then
If c = x Then
If d = x * 10 Then
If e = x * 100 Then
If f = x * 1000 Then
If g = x * 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
End If
End If
End If
End If
If y = "hm" Then
If b = x Then
If c = x * 10 Then
If d = x * 100 Then
If e = x * 1000 Then
If f = x * 10000 Then
If g = x * 100000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End If
If y = "km" Then
If a = x Then
If b = x * 10 Then
If c = x * 100 Then
If d = x * 1000 Then
If e = x * 10000 Then
If f = x * 100000 Then
If g = x * 1000000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Sub reset()
a = ""
b = ""
c = ""
d = ""
e = ""
f = ""
g = ""
ActivePresentation.Slides(1).Shapes("Rectangle_txt").TextFrame.TextRange.Text = ""
ActivePresentation.Slides(1).Shapes("Rectangle2_txt").TextFrame.TextRange.Text = ""
ActivePresentation.Slides(1).Shapes("Rectangle3_txt").TextFrame.TextRange.Text = ""
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
End Sub
Sub soal()
x = Int(99 * Rnd + 1)
char = Int(6 * Rnd + 1)
z = (char + (Int(6 * Rnd + 1)))
If char = 1 Then y = "km"
If char = 2 Then y = "hm"
If char = 3 Then y = "dam"
If char = 4 Then y = "m"
If char = 5 Then y = "dm"
If char = 6 Then y = "cm"
If z = 2 Then w = "hm"
If z = 3 Then w = "dam"
If z = 4 Then w = "m"
If z = 5 Then w = "dm"
If z = 6 Then w = "cm"
If z = 7 Then w = "mm"
If z = 8 Then w = "mm"
If z = 9 Then w = "mm"
If z = 10 Then w = "mm"
If z = 11 Then w = "mm"
If z = 12 Then w = "mm"
jawab = MsgBox("   " & x & " " & y & " = ....... " & " " & w, vbOKOnly + vbQuestion, "Soal")
ActivePresentation.Slides(1).Shapes("Rectangle2_txt").TextFrame.TextRange.Text = x & " " & y & " = ... " & " " & w
ActivePresentation.Slides(1).Shapes("Rectangle3_txt").TextFrame.TextRange.Text = "  ? "
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
a = ""
b = ""
c = ""
d = ""
e = ""
f = ""
g = ""
End Sub
Sub Soal2()
x = Int(99 * Rnd + 1)
char = Int(6 * Rnd + 1)
z = (char + (Int(6 * Rnd + 1)))
If char = 1 Then y = "mm"
If char = 2 Then y = "cm"
If char = 3 Then y = "dm"
If char = 4 Then y = "m"
If char = 5 Then y = "hm"
If char = 6 Then y = "km"
If z = 2 Then w = "cm"
If z = 3 Then w = "dm"
If z = 4 Then w = "m"
If z = 5 Then w = "dam"
If z = 6 Then w = "hm"
If z = 7 Then w = "km"
If z = 8 Then w = "km"
If z = 9 Then w = "km"
If z = 10 Then w = "km"
If z = 11 Then w = "km"
If z = 12 Then w = "km"
jawab = MsgBox("   " & x & " " & y & " = ....... " & " " & w, vbOKOnly + vbQuestion, "Soal")
ActivePresentation.Slides(1).Shapes("Rectangle2_txt").TextFrame.TextRange.Text = x & " " & y & " = ... " & " " & w
ActivePresentation.Slides(1).Shapes("Rectangle3_txt").TextFrame.TextRange.Text = "  ? "
ActivePresentation.Slides(1).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture3").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture4").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture5").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture6").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture7").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture8").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture9").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture10").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture11").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture12").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture13").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture14").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
a = ""
b = ""
c = ""
d = ""
e = ""
f = ""
g = ""
End Sub
Sub jawaban()
answer = InputBox("Tulis Jawabanmu. Gunakan tanda titik (.) untuk tanda desimal", "Konfirmasi Jawaban")
ActivePresentation.Slides(1).Shapes("Rectangle3_txt").TextFrame.TextRange.Text = answer & " " & w
If y = "km" Then
If w = "km" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "km" Then
If w = "hm" Then
If answer = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "km" Then
If w = "dam" Then
If answer = 100 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "km" Then
If w = "m" Then
If answer = 1000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "km" Then
If w = "dm" Then
If answer = 10000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "km" Then
If w = "cm" Then
If answer = 100000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "km" Then
If w = "mm" Then
If answer = 1000000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "hm" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "km" Then
If answer = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "dam" Then
If answer = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "m" Then
If answer = 100 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "dm" Then
If answer = 1000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "cm" Then
If answer = 10000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "hm" Then
If w = "mm" Then
If answer = 100000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "dam" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "hm" Then
If answer = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "km" Then
If answer = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "m" Then
If answer = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "dm" Then
If answer = 100 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "cm" Then
If answer = 1000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dam" Then
If w = "mm" Then
If answer = 10000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "m" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "dam" Then
If answer = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "hm" Then
If answer = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "km" Then
If answer = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "dm" Then
If answer = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "cm" Then
If answer = 100 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "m" Then
If w = "mm" Then
If answer = 1000 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "dm" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "m" Then
If answer = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "dam" Then
If answer = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "hm" Then
If answer = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "km" Then
If answer = x / 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "cm" Then
If answer = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "dm" Then
If w = "mm" Then
If answer = 100 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "cm" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "dm" Then
If answer = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "m" Then
If answer = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "dam" Then
If answer = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "hm" Then
If answer = x / 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "km" Then
If answer = x / 100000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "cm" Then
If w = "mm" Then
If answer = 10 * x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "mm" Then
If answer = x Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "cm" Then
If answer = x / 10 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "dm" Then
If answer = x / 100 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "m" Then
If answer = x / 1000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "dam" Then
If answer = x / 10000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "hm" Then
If answer = x / 100000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
If y = "mm" Then
If w = "km" Then
If answer = x / 1000000 Then
benar
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoFalse
Else
salah
ActivePresentation.Slides(1).Shapes("Picture20").Visible = msoTrue
ActivePresentation.Slides(1).Shapes("Picture19").Visible = msoFalse
End If
End If
End If
End Sub



Untuk lebih jelas lagi, kalian bisa mengunduh file Powerpointnya pada tautan berikut.
DOWNLOAD

Untuk melihat code VBA dalam VBA project, gunakan password: supervbaok

Ada kelebihan dari code VBA dari game VBA Powerpoint ini. Kelebihannya adalah dengan melakukan sedikit modifikasi pada code di atas maka kalian sudah bisa membuat game Matematika yang lain. Seperti game Matematika satuan berat, satuan luas, dan satuan volume.

Nah begitulah postingan kali ini, semoga bermanfaat. Silahkan ikuti informasi perkembangan blog kami melalui fanspage facebook kami di Supervba.

Tags:
Saria Bakti

Seorang Blogger sejak 2015. Senang berbagi informasi yang dapat meningkatkan Imunitas Tubuh.

Posting Komentar

Lebih baru Lebih lama