Pada tutorial ini akan dijelaskan bagaimana membuat simulasi penjumlahan dua bilangan (10 – 99) pada powerpoint menggunakan Visual Basic for Application.
Langkah pertama : buat lima buah TextBox dan dua buah Action Button : Custom. Kemudian tiga buah TextBox diberi nama “bilangan 1”, “bilangan 2” dan “hasil” seperti pada gambar. Adapun cara untuk memberi nama, lakukan langkah berikut : klik TextBox yang berisi angka 61 kemudian pilih Tab Format > klik Selection Pane > pada kotak “Selection and Visibility” ubah nama sesuai dengan yang diinginkan.
Langkah kedua :
Ketikkan script berikut ini pada module Visual basic Editor (Alt + F11) > Insert module
Sub jawab()
ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = InputBox(“Hasilnya sama dengan”)
If ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = _
Val(ActivePresentation.Slides(1).Shapes(“bilangan 1”).TextFrame.TextRange.Text) + _
Val(ActivePresentation.Slides(1).Shapes(“bilangan 2”).TextFrame.TextRange.Text) Then
MsgBox (“Jawaban kamu benar!”)
Else
MsgBox (“Jawaban kamu salah!”)
End If
End Sub
Sub soal()
ActivePresentation.Slides(1).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Int(89 * Rnd + 10)
ActivePresentation.Slides(1).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Int(89 * Rnd + 10)
ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = ” “
End Sub
Langkah ke tiga : untuk menjalankan script VBA, lakukan secara berturut-turut insert > action > run macro , prosedur soal untuk tombol soal dan prosedur jawab untuk tombol jawab.
Selamat mencoba!
