Apa kabar sahabat ?, pada kesempatan ini kita akan belajar kembali mengenai pemrograman pada powerpoint menggunakan visual basic for aplication (VBA). Kali ini kita akan membuat program yang sangat sederhana, yaitu media berhitung untuk anak yang memuat penjumlahan dan pengurangan seperti ditunjukkan pada gambar di bawah ini :
Untuk membuatnya ikuti langah-langkah di bawah ini :
- Bukalah Program Microsoft Office Powerpoint kemudian pilih layout blank
- Klik menu developer dan insert delapan buah Text Box, dan tiga buah Command Button, lalu atur properties masing-masing :
| Kontrol | Name | Caption |
| TextBox1 | a | |
| TextBox2 | b | |
| TextBox3 | c | |
| TextBox4 | keterangan | |
| TextBox5 | d | |
| TextBox6 | e | |
| TextBox7 | f | |
| TextBox8 | keterangan2 | |
| CommandButton1 | cek | CEK |
| CommandButton2 | cek2 | CEK |
| CommandButton3 | Reset | RESET |
- Pasang kode VBA di masing-masing CommandButton dengan cara klik dua kali pada masing-masing tombol dan ketikkan kode VBA sebagai berikut :
| Nama Kontrol | Caption | Kode VBA |
| CommandButton1 | CEK | Private Sub Cek_Click()Call RumusEnd Sub |
| CommandButton2 | CEK | Private Sub Cek2_Click()Call Rumus2End Sub |
| CommandButton3 | RESET | Private Sub Reset_Click()a = “”b = “”c = “”d = “”e = “”f = “”keterangan = “”keterangan2 = “”End Sub |
- Pasang juga kode VBA di bagian General sebagai berikut :
Sub Rumus()
If c = Val(a) + Val(b) Then keterangan = “benar”
If c <> Val(a) + Val(b) Then keterangan = “salah”
End Sub
Sub Rumus2()
If f = Val(d) – Val(e) Then keterangan2 = “benar”
If f <> Val(d) – Val(e) Then keterangan2 = “salah”
End Sub
- Atur tampilan agar lebih menarik dengan menambahkan background, shape, maupun picture yang kita inginkan.
- Simpan file dalam format pptm
- Jalankan program yang telah anda buat.
Sumber: http://www.sangpengajar.com/2012/03/tutorial-membuat-media-berhitung-untuk.html