Membuat Kalkulator Sederhana dengan Aplikasi Visual Basic (VBA) pada Powerpoint

Langkah-langkah pembuatannya adalah sebagai berikut :

Pertama, Jalankan program Microsoft Office Powerpoint, pastikan menu developer sudah muncul di deretan menu utama ya...

Kedua, ubah layout slide 1 menjadi blank

Ketiga, Pasang tiga buah TextBox  dan enam buah Command Button di slide 1 dan ubah properties masing-masing kontrol seperti ditunjukkan pada gambar di bawah ini :

(Background saya buat biru agar memudahkan pembacaan kontrol)

Properties masing-masing kontrol adalah sebagai berikut :

Kontrol	Name	Caption
TextBox1	a
TextBox2	b
TextBox3	Hasil
CommandButton1	plus	+
CommandButton2	minus	-
CommandButton3	pangkat	^
CommandButton4	kali	x
CommandButton5	bagi	/
CommandButton6	Hapus

(sahabat juga bisa mengatur jenis dan ukuran font tiap kontrol)

Keempat, 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
plus	+	Private Sub plus_Click() Hasil = Val(a) + Val(b) End Sub
minus	-	Private Sub minus_Click() Hasil = a - b End Sub
pangkat	^	Private Sub pangkat_Click() Hasil = a ^ b End Sub
kali	x	Private Sub kali_Click() Hasil = a * b End Sub
bagi	/	Private Sub bagi_Click() Hasil = a / b End Sub
Hapus		Private Sub Hapus_Click() a = "" b = "" Hasil = "" End Sub

Kelima, sisipkan background dan berbagai shape untuk mempercantik desain. Jalankan Powerpoint dengan klik Slide Show (atau F5).

Program Kalkulator sederhana menggunakan VBA pada Powerpoint sudah jadi. Mudah bukan....ayo coba buat dan kembangkan untuk berbagai pemrograman lainnya..... Jangan lupa tinggalkan komentar di bawah posting ini ya..... Semoga bermanfaat. 

Cara Membuat Kuis Interaktif pada Ms. Powerpoint

Cara Membuat Kuis Interaktif pada Ms. Powerpoint

1. Bukalah Ms Powerpoint dan buatlah Slide baru.

• Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.

• Pilih menu Insert, Module dan Copy-paste lah script VB berikut:

Dim nilai As Integer
Dim konfirmasi As String
Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ” Cek Jawaban!”)
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ” Cek Jawaban!”)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub jawab()
‘tombol untuk selesai
MsgBox (” skor anda adalah ” & nilai)
End Sub

 

2. Pada Slide 1 kita buat shapes yang akan menghubungkan ke slide kuis. Caranya klik Insert >> Shapes >> Oval. Lalu buat lingkaran pada slide 1 dengan mendrag dan menekan shift agar bentuknya simetri.

contohnya seperti gambar berikut

 

   

3. Berilah Add text "Go" pada shapes tersebut, kemudian beri action. Caranya klik shapes (bukan tulisannya tapi lingkaran atau shapesnya) >> Insert >> Action >> Run Macro >> Mulai >> OK.

  

4. Pada slide 2-11 (disini saya membuat 10 soal pilihan ganda) buat soal pilihan ganda. Contohnya seperti berikut 

 

keterangan: pilihan ganda harus berupa shapes. Caranya Insert >> Shapes >> Round Diagonal Corner Rectangle >> Drag ke power point

5. Berilah Action untuk masing-masing jawaban pilihan ganda. Untuk A caranya Insert >> Action >> Run Macro >> Benar >> OK. Sedangkan untuk B, C, D caranya Insert >> Action >> Run Macro >> Salah >> OK. Seperti yang diperlihatkan pada gambar berikut

Untuk memberikan animasi pada shapes saat di klik berilah ceklis pada Highlight clik lalu Ok
Pada Soal no 2- 10 caranya sama.

6. Pada slide terakhir, buatlah  shapes yang memuat text "Score". Caranya seperti langkah 2 diatas.

   

7. Berilah Action shapes tersebut, caranya Klik shapes score >> Insert >> Action >> Run macro >> Jawab >> Ok.

 

GOOD LUCK !!!