Chemistry is a branch of physical science that studies the composition, structure, properties and change of matter. Chemistry is chiefly concerned with atoms and molecules and their interactions and transformations.

Sunday, 7 December 2014

On 13:35 by Ischan Afsita Varadela in    No comments
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).

http://nikenseptiyanti14.blogspot.com/2014/01/cara-membuat-kalkulator-melalui.html

0 comments:

Post a Comment