 |
| Kursus Komputer Jarak Jauh Via Online di asianbrilliant |
Langkah-langkah pembuatannya adalah sebagai berikut :
1. 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.
 |
| Kursus Komputer Jarak Jauh Via Online di asianbrilliant |
2. Lalu 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 :
 |
| Kursus Komputer Jarak Jauh Via Online di asianbrilliant |
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)
3. 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
|
 |
| Kursus Komputer Jarak Jauh Via Online di asianbrilliant |
4. Sisipkan background dan berbagai shape untuk mempercantik desain. Jalankan Powerpoint dengan klik Slide Show (atau F5).
Jika artikelnya bermanfaat, tolong dishare yaa :)
Tidak ada komentar:
Posting Komentar