Membuat Aplikasi Penjumlahan Pada Powerpoint

Pada postingan yang lalu saya membahas penggunaan Ms Excel untuk menguji keterampilan berhitung. Kali ini akan saya bahas cara membuat aplikasi penjumlahan dengan Powerpoint. Hebatnya cukup 2 slide dapat digunakan untuk ribuan soal penjumlahan.
Langsung saja Kita mulai.
1. Jalankan Ms.Powerpoint
2. Atur warna background sesuka Anda.
3. Pada Slide pertama buatlah tampilan seperti berikut ini.

      Gunakan WordArt atau Textbox untuk membuat tulisan. Sedangkan untuk membuat tombol "Mulai" gunakan Insert -> Shape, kemudian beri tulisan"Mulai". Tombol "Mulai" ini kita beri Action --> Hyperlink --> Next Slide
5.  Sedangkan pada Slide 2, seperti gambar berikut:

            Pada slide 2 ini terdapat 2 buah Label (yang bertuliskan 301 dan 773), 3 buah TextBox (Active ControlX) yaitu 1 kotak transparan dibawah angka 773 dan 2 kotak dibawah tulisan benar dan salah serta 2 buah CommandButton yaitu tombol Next dan Close. Lebih jelasnya lihat gambar berikut:

Label, TextBox dan CommondButton tersebut terdapat pada kelompok Control. Terlihat pada gambar berikut:

Atur masing-masing Propertiesnya sebagai berikut:

  6. Kemudian klik developer --> view code --> insert --> module --> ketik script berikut:
Private Sub Close_Click()
salah = 0
nilai = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub

Private Sub soal_cmd_Click()
If jwb = Val(pil1) + Val(pil2) Then
point = 1
Else
pin = 1
End If
salah = salah + pin
nilai = nilai + point
pil1 = Int(999 * Rnd * 1)
pil2 = Int(999 * Rnd * 1)
If pil1 < 100 Then
pil1 = Int(999 * Rnd * 1)
End If
If pil2 < 100 Then
pil2 = Int(999 * Rnd * 1)
End If
jwb = ""
End Sub



 Contoh Filenya dapat didownload di sini --> PENJUMLAHAN ACAK