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).
kak mau tanya kalau di text box nya gak ada perintah caption gimana ?
BalasHapusMay nanya gimana cara menyimpan agar coding VBAnya juga ikut tersimpan.?
BalasHapus