Cara Membuat Kalkulator Melalui Microsoft Power Point

Langkah-langkah pembuatannya adalah sebagai berikut :

·     Pertama, Jalankan program Microsoft Office Powerpoint, pastikan menu developer sudah muncul di deretan menu utama . Jika belum klik menu Office Button- pilih power point option- centang/pilih Show Developer Tab In The Ribbon-lalu klik ok.

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

     

Properties masing-masing kontrol adalah sebagai berikut :

Kontrol	Name	Caption
TextBox1	A
TextBox2	B
TextBox3	Hasil
CommandButton1	Tambah	+
CommandButton2	Kurang	-
CommandButton3	Pangkat	^
CommandButton4	Kali	x
CommandButton5	Bagi	/
CommandButton6	Hapus	Del
CommandButton7	Log	Log
CommandButton8	Akar	V

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

·      Ketiga, 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
tambah	+	Private Sub tambah_Click() Hasil = Val(a) + Val(b) End Sub
Kurang	-	Private Sub kurang_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
Akar	v	Private Sub akar_Click() hasil = (Math.Sqr(B)) End Sub
Log	Log	Private Sub log_click() hasil = (math.log(B)) End Sub

              

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

Cara Membuat Kuis Menggunakan Microsoft Power Point

Berikut cara membuat kuis pada Microsoft Power Point:

1.   Buatlah soal kuis, dengan slide pertama ketik seperti ini :

Slide ke-2, ke-3, ke-4 dan ke-5 berisi pertanyaan yang ingin anda buat kuis. Seperti contoh.

Dan Slide terakhir berisi cek skor kuis. Seperti ini.

2.  Jika sudah tekan alt+F11 lalu akan muncul Microsoft Visual Basic. Pilih menu insert , kemudian pilih module. Jika sudah akan muncul .

3.  Sebelum kita mengisi kotak kosong. Ketik dahulu rumus pada notepad. Caranya klik start-All Program- Accesories – pilih notepad. Jika sudah ketik rumus dibawah ini lalu save di komputer anda.

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai_kuis()

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 + 2

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 cek_skor()

MsgBox (" skor anda adalah " & nilai)

konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.First

End If

If konfirmasi = vbNo Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

4.  Jika sudah di save, lalu anda kembali pada microsoft visual basic lalu copy-paste rumus tersebut pada kotak kosong. Catatan : jika ketikan anda ada yang berwarna merah berarti anda salah mengetik, jika begitu periksa ulang sampai benar.

5.  Jika sudah lalu anda kembali ke Ms. Power Point , lalu klik gambar START Pada slide pertama lalu pilih menu insert-action – pilih Run Macro – lalu pilih “mulai_kuis”.

6.  Setelah itu lakukan berulang pada slide kedua , klik jawaban salah lakukan cara seperti diatas tapi pada run Macro pilih “salah” sedangkan jawaban benar pilih “benar”. Lakukan berulang pada pertanyaan kuis yang anda buat.

7.  Jika sudah lalu lakukan lagi hal yang sama pada slide terakhir seperti cara 5 dengan diklik  gambar SKOR dan pilih “skor” pada Run macro.

8.  Jika sudah selesai, silahkan anda coba kuis nya dengan cara klik Slide Show (F5). Dan jika ingin di simpan agar tidak hilang editan kuisnya maka anda ganti di format type  “Power Point Enable Template”.