- Back to Home »
- SIMDIK »
- Tutorial Membuat Kalkulator Sederhana dengan Aplikasi Visual Basic (VBA) pada Powerpoint
Posted by : Afdha Alif
Senin, 12 Oktober 2015
Kali ini kita akan belajar
membuat pemrograman sederhana menggunakan Aplikasi Visual
Basic (VBA) pada Powerpoint 2007.
Program yang akan kita buat adalah kalkulator sederhana. Kenapa disebut
kalkulator sederhana? Karena kita hanya akan menggunakan operasi dasar
matematika yaitu penjumlahan (+), pengurangan (-), perkalian (x), pembagian
(/), dan pemangkatan (^). Kelima operasi dasar tersebut akan kita fungsikan
melalui lima buah tombol operasi dan kita lengkapi dengan satu buah tombol
untuk menghapus data input dan data output.
Biar tidak ada kesalahan
dalam memvisualisasikan , ini program yang akan kita buat :
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 ontrol seperti ditunjukkan pada gambar di bawah ini :
(Background saya buat biru agar memudahkan
pembacaan ontrol)
Properties masing-masing ontrol
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 ontrol)
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.
infonya sangat bermanfaat bagi ane
BalasHapustang cucut