Supervba: Tutorial VBA Powerpoint
Showing posts with label Tutorial VBA Powerpoint. Show all posts
Showing posts with label Tutorial VBA Powerpoint. Show all posts

Saturday, 1 October 2016

Code VBA Powerpoint Game Matematika Satuan Panjang

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.

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.

Friday, 31 July 2015

Menonton Video Menggunakan Windows Media Player Di Powerpoint

Windows Media Player (WMP) merupakan salah satu aplikasi pemutaran video di komputer. Selain menggunakan Windows Media Player, kita juga bisa menggunakan KMP Player, Media Player Classic, GOM Player dan lain sebagainya.

Bisakah kita memutar video menggunakan Windows Media Player di Powerpoint?. Tentu bisa. Caranya adalah kita akan memasukkan aplikasi Windows Media Player sebagai sebuah objek VBA Powerpoint.

Jika anda baru berkunjung ke blog kami, maka sebelumnya silahkan aktifkan dahulu Tab Developer. Jika sudah, sekarang silahkan ikuti langkah-langkah berikut. Langkah-langkah berikut ini akan menjelaskan cara untuk memutar video menggunakan windows media player di Powerpoint. Silahkan disimak dan alangkah baiknya jika langsung dipraktikkan.


Menonton Video Menggunakan Windows Media Player Di Powerpoint


Adapun tahap-tahapnya sebagai berikut.

1. Menggunakan Shapes Untuk Memperindah Tampilan WMP 

Silahkan buat tampilan seperti yang ada pada gambar di bawah. Perhatikan bahwa kegiatan ini tidak wajib, hanya berfungsi untuk memperindah tampilan saja. Silahkan anda buat sesuai selera ya.

shapes wmp


2. Menggunakan Menu More Controls.

Untuk menggunakan Aplikasi Windows Media Player di Powerpoint, kita harus menambahkannya sebagai sebuah Objek VBA Powerpoint. Untuk menemukan WMP, kita harus menggunakan menu Controls.

Sekarang, untuk mengakses Menu Controls, silahkan Klik Tab Developer>>More Controls. Lakukan klik pada Menu More Controls. Temukan objek Windows Media Player pada jendela More Controls yang muncul. Silahkan gulung ke bawah untuk menemukannya. Jika sudah terlihat, Klik Windows Media Player. Kemudian klik OK.

shapes wmp

shapes wmp

Sekarang, silahkan buat controls WMP di dalam bingkai yang sudah kita siapkan. Atur supaya ukuran WMP pas dengan bingkai kita.

shapes wmp

3. Mengakses Menu Properties WMP

Selanjutnya, silahkan klik kanan pada WMP>>>Properties untuk memunculkan jendela dari properties WMP. Pada properties WMP ini kita bisa atur sesuka kita, tapi hati-hati ya jika masih kurang mengerti.

shapes wmp

Sekarang, lakukan double klik pada Menu Custom untuk memunculkan jendela baru yaitu WMP Properties. Silahkan klik Browse untuk mencari lokasi penyimpanan file video yang akan kita tonton.

shapes wmp

shapes wmp

4. Pengaturan Pada WMP Properties.

Coba perhatikan kembali gambar di atas. Pada Playback Options, pilihan AutoStart itu tercentang secara otomatis. Jika kita biarkan ini maka saat kita melakukan Slideshow, video akan terputar secara otomatis. Nah, supaya video tidak mulai secara otomatis saat kita lakukan SlideShow, silahkan hilangkan tanda centangnya. Seperti tampak pada gambar berikut. Silahkan klik OK jika sudah sesuai.

shapes wmp

5. Script VBA untuk Membuat tampilan WMP fullscreen

Untuk membuat tampilan WMP menjadi fullscreen, kita bisa atur pada jendel Properties. Kita juga bisa mengaturnya dengan menggunakan script VBA. Jika menggunakan script VBA, kita bisa mengatur tampilan fullscreen WMP kapanpun kita mau. Sekarang, lakukan double klik pada objek WMP untuk masuk ke VBE. Kemudian, salin script VBA berikut ini pada slide1 karena WMP ada di Slide1.


Sub besarkan()
'untuk membesarkan layar wmp menjadi fullscreen
WindowsMediaPlayer1.fullScreen = True
End Sub


''Silahkan ganti teks berwarna biru dengan nama Sub Macro yang anda sukai. Sesuaikan juga Nama Sub Macro yang baru dengan langkah kerja yang ada di bawah ini.'

6. Run Macro pada Shapes Untuk Membuat Tampilan WMP Menjadi Fullscreen

Untuk membuat tampilan WMP menjadi fullscreen menggunakan script VBA di atas. kita bisa menggunakan sebuah Shapes sebagai tombolnya. Silahkan, klik pada Shape berwarna merah. Kemudian, klik Insert>>Action. Pada Tab Mouse Click, pilih Run macro ‘slide1.besarkan’. Jika sudah selesai, klik OK.

shapes wmp

7. Lakukan SlideShow

Untuk memeriksa apakah semua pengaturan kita sudah benar, sekarang silahkan lakukan SlideShow. Kemudian klik Button Fullscreen untuk membuat tampilan WMP menjadi fullscreen.

shapes wmp

8. Simpan File Dalam Format .pptm atau .ppsm

Untuk mendokumentasikan hasil latihan kita ini, silahkan simpan file tersebut di komputer kita. Untuk menyimpannya, silahkan simpan dalam format .pptm atau .ppsm supaya script VBA bisa berfungsi dengan baik.

Kode VBA Powerpoint Untuk WMP

Untuk mengontrol perilaku dari WMP, selain dengan memanfaatkan jendela Properties WMP, kita juga dapat menggunakan Kode VBA untuk melakukannya. Berikut beberapa kode VBA yang terkait dengan perilaku WMP. Silahkan tempatkan kode ini pada Slide dimana objek WMP itu tersimpan, misalkan pada Slide1 seperti contoh latihan di atas.



Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
'supaya WMP tidak main otomatis. Settingan ini ada pada WMP Properties
WindowsMediaPlayer1.settings.autoStart = False
End Sub

Sub main()
'untuk memainkan WMP
WindowsMediaPlayer1.Controls.Play
End Sub

Sub temukanURL()
'untuk menuliskan URL posisi video dalam folder komputer dan memainkannya
WindowsMediaPlayer1.Url = "E:\NamaFolder\NamaSubFolder\NamaFile(ex:video.avi)"
WindowsMediaPlayer1.Controls.Play
End Sub
Sub henti() 'untuk menghentikan WMP WindowsMediaPlayer1.Controls.stop End Sub Sub hentisebentar() 'untuk berhenti sejenak WindowsMediaPlayer1.Controls.pause End Sub
Sub tempilkanWMP()
'untuk menampilkan WMP yang disembunyikan
WindowsMediaPlayer1.Visible = True
End Sub
Sub sembunyikanWMP()
'untuk menyembunyikan WMP
WindowsMediaPlayer1.Visible = False
End Sub
Sub buatFullscreen()
'untuk membesarkan layar WMP menjadi fullscreen
WindowsMediaPlayer1.fullScreen = True
End Sub



''Silahkan ganti teks berwarna biru dengan nama Sub Macro yang anda sukai. Sesuaikan juga Nama Sub Macro yang baru dengan opsi Run Macro yang kita berikan pada Shapes.'


Unduhan

Untuk mencoba file latihan VBA kali ini, silahkan unduh filenya secara gratis. Untuk melihat VBA Project, gunakan password yang sudah saya sediakan di bawah ya.

Nama file:

Memutar Video Menggunakan WMP di Powerpoint

Password VBA Project : supervba

''Ingat ya, untuk menggunakannya terlebih dahulu harus mengaktifkan (enable) macronya supaya kode VBA bisa berfungsi dengan baik. Selain itu, supaya Propeties WMP dapat di akses, silahkan Unlock dahulu VBA Project menggunakan Password di atas.''

Begitulah cara kita memasukkan aplikasi WMP ke dalam Powerpoint. Ikuti informasi perkembangan blog kami melalui Fanspage Facebook kami di Supervba. Semoga bermanfaat.

Teknik Single Slide Untuk Presentasi Powerpoint Dengan VBA

VBA Powerpoint memang luar biasa. Banyak sekali manfaat dari VBA Powerpoint jika kita dapat memaksimalkannya dengan optimal. Berikut ini salah satunya.

Powerpoint merupakan aplikasi yang paling banyak digunakan untuk melakukan presentasi. Untuk menyusun sebuah presentasi Powerpoint, kita membutuhkan minimal 2 Slide atau bahkan lebih. Ya, Biasanya, sebuah file presentasi mengandung beberapa Slide di dalamnya.

Kali ini, Supervba akan berbagi bagaimana cara membuat presentasi menggunakan Teknik Single Slide. Ya, kita akan membuat presentasi Powerpoint menggunakan 1 (Satu) Slide saja. Bagaimana bisa?. Tentu bisa. Dengan memanfaatkan VBA Powerpoint, kita bisa membuatnya.

Teknik Single Slide Untuk Presentasi Powerpoint Dengan VBA


Silahkan perhatikan dahulu gambar berikut yang merupakan file presentasi Powerpoint dari Supervba yang hanya berisi 1 Slide.

slide powerpoint 2007

Kalau cuma 1 Slide, terus bagaimana dengan materi presentasi yang akan kita sampaikan?. Apakah kita harus menghapalnya?. Dimana letaknya?.

Supaya anda tidak penasaran, silahkan unduh file latihan ini. Untuk melihat rahasianya, gunakan password yang sudah saya sediakan di bawah ya.

Nama file:

Presentasi Powerpoint dengan Single Slide Versi Notebook

Presentasi Powerpoint dengan Single Slide Versi Laptop

OPENEXCEL

Password VBA Project : superkeren


''Ingat ya, untuk menggunakannya terlebih dahulu harus mengaktifkan (enable) macronya supaya kode VBA bisa berfungsi dengan baik. Untuk mencoba membuka file Excel di atas, harap meletakkan file sesuai alamat file yang ada pada kode VBA itu.''

Sekarang, saya akan menjelaskan beberapa kode VBA Powerpoint yang terdapat dalam file presentasi di atas. Simak baik-baik ya.

Code VBA Powerpoint Untuk UserForm

Dalam file latihan ini, kita menggunakan beberapa Userform. Untuk mengaktifkan (menampilkan) Userform, gunakan kode VBA Powerpoint berikut.


Private Sub CommandButton1_Click()
NameOfUserForm.Show
End Sub



Sedangkan, untuk menutup Userform kita menggunakan kode VBA Powerpoint berikut.


Private Sub CommandButton1_Click()
Unload NameOfUserForm
End Sub


''Silahkan ganti teks yang berwarna biru dengan nama UserForm kita. Nama UserForm dapat dilihat pada Properties>>Name"

Code VBA Powerpoint Untuk Membuka File Excel

Dalam file latihan ini kita, ada saat dimana kita akan membuka file Excel. Berikut ini kode VBA Powerpoint untuk membuka file Excel dari Powerpoint.


Private Sub CommandButton6_Click()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open "E:\VBA\OPENEXCEL.xlsx", True, False
End Sub

Teks yang berwarna biru di atas menunjukkan alamat file Excel kita. Silahkan ubah dengan format seperti ini.

"NamaDrive:\NamaFolder\NamaSubFolder\NamaFile"

Begitulah cara kita membuat sebuah presentasi dengan Teknik Single Slide menggunakan VBA Powerpoint. Jangan ragu untuk bertanya kepada kami. Ikuti informasi perkembangan blog kami melalui Fanspage Facebook kami di Supervba. Terima kasih.

Thursday, 23 July 2015

Menambahkan Gambar Pada UserForm VBA Powerpoint dengan Mudah

Userform merupakan salah satu Objek VBA yang terdapat  di dalam VBE (Visual Basic for Applications Editor) Powerpoint. Kali ini kita akan membuat VBA Project tentang menambahkan gambar ke dalam UserForm.

Untuk menambahkan gambar ke dalam UserForm1, ikuti langkah-langkah berikut.

1. Masuk ke VBE. Pada VBE yang masih kosong, Klik Insert>>UserForm. Kita akan diberikan UserForm1. Seketika itu juga, kita akan menemukan sebuah ToolBox yang berfungsi sebagai perpustakaan objek VBA bagi UserForm1. Jadi, semua objek dalam Toolbox dapat kita tambahkan ke dalam UserForm. Toolbox merupakan bagian yang tidak terpisahkan dari sebuah UserForm. Perhatikan gambar berikut.

userform vba powerpoint
Contoh Userform

userform
Jendela Visual Basic Editor
userform
Menambahkan UserForm1

2. Menggunakan Objek Image. Untuk menambahkan gambar, kita bisa menggunakan objek Frame atau Image. Pada kesempatan ini, kita kan menggunakan Objek Image. Sekarang, silahkan klik objek Image pada toolbox. Kemudian gambar sebuah kotak untuk bingkai dari gambar kita nanti.

userform vba
UserForm1
userform
UserForm1

Sekarang, silahkan atur ukuran Userform1 dan Objek Image supaya tampilannya lebih nyaman untuk kita lihat. Caranya dengan klik UserForm dan seret saja ke kanan dan ke bawah supaya lebih besar. Sebaliknya, seret ke kiri dan ke atas supaya ukurannya lebih kecil. Kita bisa menggeser objek image dengan drag and drop ke posisi yang diinginkan. Beginilah hasilnya sekarang.

userform
UserForm1

Klik kanan objek image>>properties. Kita akan mendapakan properties dari objek Image.

userform
UserForm1
userform
UserForm1

3. Menambahkan gambar. Klik pada picture, klik pada tombol di pinggirnya hingga muncul jendela baru. Carilah lokasi gambar kita. Klik open untuk menambahkan gambar ke UserForm.

userform
Menambahkan gambar
userform
Menambahkan gambar

Jika kita berusaha membuka gambar, tapi gambarnya tidak mau terbuka. Maka mungkin inilah salah satu alasannya. Inilah format gambar yang dapat kita gunakan dalam UserForm. Saya akan menggunakan gambar dengan format .JPEG.

userform
Menambahkan gambar

Silahkan lihat keterangan pada properties objek image berubah, dari sebelumnya none, sekarang menjadi bitmap.

Sekarang kita akan menghilangkan bingkai pada gambar di atas. Silahkan klik pada borderstyle. Pada menu tarik-turun, kita pilih 0-fmborderstylenone. Hasilnya:

userform
Properties UserForm1
Jika kita perhatikan baik-baik, background gambar tidak seperti gambar aslinya. Supaya background gambar aslinya muncul, sekarang klik backstyle, pilih 0-fmbackstyletransparent.

userform vba
Properties UserForm1

Selain setelan di atas, kita juga dapat mengatur perataan dan mode tampilan gambar. Untuk perataan gambar, coba perhatikan gambar berikut. Silahkan atur sesuai selera kita masing-masing.

userform
Properties UserForm1

Yang menarik disini adalah adanya beberapa mode tampilan gambar. Berikut ini tampilan gambar menggunakan mode clip.

userform
Properties UserForm1

Yang ini tampilan gambar menggunakan mode stretch.

userform
Properties UserForm1

Sedangkan, yang satu ini tampilan gambar menggunakan mode zoom.

userform
Properties UserForm1

Coba perhatikan kembali Properties Image1 di atas, masih banyak lagi yang dapat kita atur. Silahkan dicoba saja. Tidak usah takut salah (error).

4. Menambahkan tombol untuk menutup UserForm1. Sekarang klik UserForm1 supaya toolboxnya muncul. Klik commandbutton, silahkan gambar CommandButton di UserForm.

userform
Properties UserForm1
userform
Properties UserForm1

Pada Properties Commandbutton, ganti Caption jadi OK. Kemudian klik Font dan tombol sebelah kanannya untuk munculkan setelan Font.

userform
Properties UserForm1

Sekarang, tutup jendela properties, klik kanan pada CommandButton1, klik View Code. Silahkan tulis kode VBA Powerpoint berikut ini. Kode ini berfungsi untuk menutup UserForm1.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Sebenarnya, tanpa memasang tombol OK ini pun, kita bisa keluar dari UserForm1. Hanya saja, tombol OK ini membuat tampilan UserForm kita menjadi lebih menarik.

Jika masih kurang jelas tentang cara penulisannya, silahkan perhatikan gambar berikut.

userform
Code VBA untuk UserForm1

Kemudian, klik kanan UserForm1>>View Object untuk melihat kembali objek UserForm1.

userform
Code VBA untuk UserForm1

Terakhir, silahkan klik kanan UserForm1>>Properties untuk membuka properties dari UserForm1 .

userform
Properties UserForm1

Silahkan ubah Caption dengan kalimat kita sendiri yang penting happy, hehe.

userform
Properties UserForm1

Selamat, kita sudah berhasil menambahkan gambar ke dalam UserForm.

Apakah anda masih kesulitan?. Coba simak tutorial lengkapnya melalui Video Tutorial Menambahkan Gambar Ke UserForm.

Semoga postingan kali ini bermanfaat. Ikuti informasi perkembangan blog kami melalui fanspage facebook kami di Supervba. Selamat mencoba.

Wednesday, 22 July 2015

Animasi Gambar Berputar dengan VBA Powerpoint 2007

Memutar gambar dengan VBA Powerpoint merupakan salah satu VBA Project yang menarik untuk kita kerjakan. VBA Project ini lahir tanpa direncanakan. Tapi merupakan permintaan salah seorang anggota grup saya pada forum diskusi tentang VBA Powerpoint di Facebook. Tutorial ini pun mungkin saya buat sebagai jawaban dari permintaannya. Sebelumnya saya harus berterima kasih kepadanya karena saya bisa berkreasi lagi dengan VBA Powerpoint.

Tutorial ini dibuat menggunakan Aplikasi Powerpoint 2007. Sehingga bagi anda yang menggunakan Aplikasi Powerpoint dengan versi yang lebih baru supaya dapat menyesuaikan.

memutar gambar dengan vba
Game Memutar Gambar

Memutar Gambar dengan VBA Powerpoint 2007

Baiklah mari kita mulai membuatnya. Project VBA kita kali ini cukup unik. Ini agak berbeda dengan project VBA yang pernah saya kerjakan. Kita tidak hanya butuh code VBA saja tapi juga butuh trik.

Ikuti langkah-langkah berikut dengan baik.

1. Siapkan 3 slide.  Tambahkan beberapa gambar yang diperlukan supaya memiliki tampilan seperti pada gambar berikut ini.

Slide 1
memutar gambar dengan vba powerpoint
Slide1

Pada Slide 1 ini kita menggunakan gambar Welcome, Next, dan Exit. Dua buah shapes yang dipakai adalah Rounded Rectangle dan Callout.

Slide2
memutar gambar dengan vba powerpoint
Slide 2
Pada Slide 2 ini kita menggunakan gambar Lingkaran, Pushpin, Home, Next, dan Exit. Satu buah shapes yang dipakai adalah Rounded Rectangle. Selain itu, kita juga menggunakan 2 buah Action Button berupa Action Button:Custom dan Action Button: Forward or Next. Untuk Action Button dapat ditemukan dengan klik Insert>>Action Button.

Di saat kita menambahkan obyek Action Button ke Slide, pasti akan muncul jendela Action Settings. Oleh karena kita akan memberikan Macro (Code VBA) ke dalamnya, maka kita perlu pengaturan berikut saat pertama kali menambahkan Action Button tersebut. Perhatikan gambar.
memutar gambar dengan vba
action settings slide 2
memutar gambar dengan vba
action settings slide 2


Jadi, kita berikan Action on Click-nya berupa None. Terus klik OK.

Slide3
memutar gambar dengan vba
Slide 3
Pada Slide 3 ini kita menggunakan gambar Thank you, Button : Home, Back, dan Exit.

2. Pengaturan Nama Shapes. Sebelum kita lanjut ke VBE, kita perlu mengatur nama dari shapes atau gambar yang terkait langsung dengan kode VBA yang kita gunakan. Tidak perlu semua shapes dan gambar. Di sini, kita hanya perlu mengatur 1 buah gambar Lingkaran dengan nama 'Picture1' dan 1 buah shapes dnegan nama 'AB' karena nama-nama ini kita gunakan di dalam sintaks VBA kita. perhatikan gambar.
memutar gambar dengan vba
Nama Shapes
memutar gambar dengan vba
Nama Shapes

Jika anda kurang suka dengan nama-nama yang saya gunakan, anda dapat menggantinya. Dengan catatan, anda juga harus merubah sedikit sintaks VBA-nya. Terserah, mau pilih cara yang mana.

3. Masuk ke VBE. Oleh karena kita menggunakan Shapes, kita bisa menulis code VBA pada Module, tepatnya Module1. Lakukan Insert>>Module dalam VBE. Salin code VBA Powerpoint berikut ini.


Sub Anim()
Dim oEffect As Effect
Dim oShpA As Shape
Dim oShpB As Shape
With ActivePresentation.Slides(2)
    'Set the shapes in slide 2.
    'Setel shapes pada Slide2
    Set oShpA = .Shapes("Picture1")
    Set oShpB = .Shapes("AB")
    ' Assign an interactive animation to shape A
    'Memberikan animasi ke shape A
    Set oEffect = .TimeLine.InteractiveSequences.Add _
                .AddEffect(Shape:=oShpA, effectId:=msoAnimEffectSpin, _
                trigger:=msoAnimTriggerOnShapeClick)
End With
' Define the triggering shape. If you omit this line then the animation will be triggered by clicking on the shape A itself
'Setel Shape B. Animasi Shape A akan aktif saat kita klik Shape B.
oEffect.Timing.TriggerShape = oShpB
oEffect.Timing.RepeatCount = 999
End Sub

Sub pauseshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub

Sub runshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub

'Teks yang diberi warna biru merupakan nama shapes (gambar) yang sudah kita atur sebelumnya. Jika anda punya nama gambar sendiri,berbeda dengan nama di atas, silahkan ganti teks yang berwarna biru itu sesuai nama gambar (shapes) kita.'

4. Run Macro. Dari VBE kita kembali ke Slide powerpoint. Silahkan berikan Macro yang bersesuaian dengan shapes

Hyperlink pada Slide 1. Pada Slide 1 kita hanya menggunakan Hyperlink biasa yaitu End Show dan Next Slide. Silahkan Copy-Paste gambar Exit yang sudah diberi hyperlink ke Slide 2 dan 3. Juga Copy-Paste gambar Next yang sudah diberi hyperlink ke Slide2. Gambar berikut memperlihatkan cara insert hyperlink ke shapes (gambar).
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings
Run Macro pada Slide 2. Pada Slide 2 kita memberikan 3 Macro yaitu Anim, runshow, dan pauseshow. Perhatikan gambar.
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings

Hyperlink pada Slide 3. Pada slide ini kita hanya memberikan hyperlink berupa Firs Slide ke Button Home, Previous Slide ke gambar tombol Back. Lihat gambar.
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings
4. Sekarang kita lihat hasilnya dengan menekan F5 untuk melakukan Slideshow.
5. Supaya hyperlink untuk tombol Exit, Next, dan Previous bisa berjalan optimal, kita harus Setup Slideshow.
6. Jika semua sudah benar, silahkan simpan file project VBA kita dalam format .pptm atau .ppsm.

Apakah anda masih kesulitan membuatnya?. Silahkan simak tutorialnya melalui Video Tutorial Membuat Game Sederhana Memutar Objek (Gambar/Shapes) menggunakan VBA Powerpoint.

Untuk melihat project kami, silahkan di sini.

Nama File :
Game Sederhana Memutar Gambar dengan VBA Powerpoint 2007

Password : supervbaok

Begitulah caranya untuk membuat game sederhana menggunakan VBA Powerpoint. Semoga dapat dipahami dengan baik.

Jika anda suka dengan artikel kami, silahkan share kepada yang lain dengan menggunakan tombol share yang ada di bawah postingan ini. Kunjungi Fanspage Facebook kami di Supervba untuk mendapat pemberitahuan artikel-artikel terbaru kami dengan cara klik Suka untuk mengikuti kami. Terima kasih.

Printer

3R

Teknologi