Membuat Kalkulator Dengan VBA Powerpoint

Membuat Kalkulator Dengan VBA PowerPoint Oleh : Eko Budiana http://www.facebook.com/ek http://www.facebook.com/eko.budiana o.budiana

Preview program :

Langkah – langkah pembuatannya : 1. Sebelumnya aktifkan macro powerpoint powerpoint dengan cara klik developer – macro security – enable enable all macros –OK. Kemudian kita mulai dengan klik Developer – Klik Text Box

2. Kemudian klik dan drag ke area kerja powerpoint sehingga menjadi seperti berikut :

3. Atur textbox dengan klik texbox – developer – properties – pada bagian Border Style pilih 1fmBorderSyleSingle

4. Sehingga tampilannya menjadi seperti ini :

5. Ubah besar huruf atau angka di text box dengan klik text box – klik developer – properties kemudian pilih Font

6. Pilih jenis huruf dan ukurannya

7. Buatlah tombol untuk angka 1 dengan cara klik developer – command button

8. Klik dan drag di area powerpoint

9. Klik command button yang baru saja di buat –klik developer – properties – pada bagian Caption gantilah tulisan CommandButton1 dengan dengan angka 1

10. Untuk membesarkan font silahkan klik commandbuttonnya – klik developer – properties – font ( di samping font ) – pilih ukuran huruf. Hasilnya menjadi seperti ini :

11. Untuk membuat tombol – tombol angka yang lain dengan ukuran yang sama maka cukup klik tombol angka 1 kemudian pilih copy dan paste, dan lakukan langkah 7 – 9 sehingga hasilnya seperti berikut :

12. Dengan cara yang sama seperti langkah 11, buatlah tombol koma(.), tombol clear ( C ), tombol tambah (+ ), tombol kurang (- ), tombol kali (x), tombol bagi (/), tombol bilangan kuadrat ( x^2), dan tombol hasil (=) seperti pada gambar berikut :

13. Kemudian buatlah tombol backspace ( ← ) , seper langkah 7 – 9, hanya pada bagian Caption di kosongkan. Sehingga tampak seperti berikut :

14. Untuk memberikan tanda panah ke kiri pada tombol backspace maka perlu disiapkan dulu sebuah gambar anak panah dengan ukuran secukupnya sesuaikan dengan ukuran tombol backspace , hal in bisa dilakukan dengan menggambar di paint kemudian simpan dengan format bitmap. 15. Klik command button (tombol) yang akan diberi tanda panah, klik developer – propertie s – picture ( klik disamping picture ) :

16. Carilah gambar tanda panah yang sudah disiapkan :

17. Kalau sudah terpilih, kemudian klik open, dan pada bagian properties aturlah posisi gambar dengan klik picture position.

Kemudian hasilnya seperti gambar berikut :

18. Untuk membuat tombol akar ( √   ) lakukan seperti pada langkah 14 – 17, hasilnya seperti berikut :

19. Beri nama objek tombol 1 dengan cara klik Home – Select

20. Kemudian klik Selection Pane

21. Klik tombol 1, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton1

Kemudian ubah nama objeknya m enjadi tombol1

22. Klik tombol 2, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton2, kemudian ubah nama objeknya menjadi tombol2 23. Klik tombol 3, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton3, kemudian ubah nama objeknya menjadi tombol3 24. Klik tombol 4, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton4, kemudian ubah nama objeknya menjadi tombol4 25. Klik tombol 5, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton5, kemudian ubah nama objeknya menjadi tombol5 26. Klik tombol 6, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton6, kemudian ubah nama objeknya menjadi tombol6 27. Klik tombol 7, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton7, kemudian ubah nama objeknya menjadi tombol7 28. Klik tombol 8, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton8, kemudian ubah nama objeknya menjadi tombol8 29. Klik tombol 9, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton9, kemudian ubah nama objeknya menjadi tombol9 30. Klik tombol 0, pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton10, kemudian ubah nama objeknya menjadi tombol0 31. Dan hasilnya seperti gambar berikut :

32. Klik tombol koma , pada bagian Shapes on this Slide, klik dua kali tulisan CommandButton11

Kemudian ubah nama objeknya me njadi tombol_koma

33. Dengan cara yang sama seperti langkah 32 - 33, ubahlah nama objek untuk tombol C, tombol ←, tombol +, tombol -, tombol x, tombol /, tombol x^2, tombol √   ,dan tombol =. Nama objek tombol C gantilah menjadi tombol_C, nama objek tombol ← ganlah menjadi tombol_backspace, nama objek tombol + gantilah menjadi tombol_tambah, nama objek tombol – gantilah menjadi tombol_kurang, nama objek tombol x gantilah menjadi tombol_kali, nama objek tombol / gantilah menjadi tombol_bagi, nama objek tombol x^2 gantilah menjadi tombol_kuadrat, nama objek tombol √  gantilah menjadi tombol_akar, dan nama objek tombol = gantilah menjadi tombol_hasil. Kemudian save dan exit. Selanjutnya open lagi , sehingga menjadi seperti di bawah ini :

34. Sekarang kita mulai dengan memasukkan kode program, klik dua kali tombol 1, sehingga tampil  jendela vba editor seperti berikut :

Kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "1" sehingga menjadi seperti ini :

35. Pada bagian atas jendela vba editor Ketik kode : Option Explicit Dim bil1 As Double Dim bil2 As Double Dim jawab As String Dim operasi As Integer Sehingga menjadi seperti ini :

36. Minimize jendela vba editor, kembali ke area kerja powerpoint dan klik dua kali tombol 2 sehingga tampak seperti berikut :

Kemudian tuliskan kode: TextBox1.Text = TextBox1.Text + "2" Sehingga tampak seperti ini :

37. Minimize jendela vba editor, kembali ke area kerja powerpoint dan klik dua kali tombol3 sehingga tampak seperti berikut :

Kemudian tuliskan kode: TextBox1.Text = TextBox1.Text + "3" Sehingga tampak seperti ini :

38. Seperti langkah 36 – 37 : Klik dua kali tombol 4, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "4" Klik dua kali tombol 5, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "5" Klik dua kali tombol 6, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "6" Klik dua kali tombol 7, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "7" Klik dua kali tombol 8, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "8" Klik dua kali tombol 9, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "9" Klik dua kali tombol 0, kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "0" Hasilnya tampak seperti berikut :

39. Seperti langkah 36 – 37 : Klik dua kali tombol koma(.), kemudian tuliskan kode : TextBox1.Text = TextBox1.Text + "." Hasilnya seperti berikut :

40. Seperti langkah 36 – 37 : Klik dua kali tombol clear ( C ), kemudian tuliskan kode : TextBox1.Text = "" Hasilnya seperti berikut :

41. Seperti langkah 36 – 37 : Klik dua kali tombol hasil (=), kemudian tuliskan kode : bil2 = Val(TextBox1.Text) Select Case operasi Case 1  jawab = bil1 + bil2 Case 2  jawab = bil1 - bil2 Case 3  jawab = bil1 * bil2 Case 4 If bil2 <> 0 Then  jawab = bil1 / bil2 End If If bil2 = 0 Then  jawab = "Tak terdefinisi" End If End Select TextBox1.Text = jawab

Hasilnya seperti berikut :

42. Seperti langkah 36 – 37 : Klik dua kali tombol tambah (+), kemudian tuliskan kode : operasi = 1 bil1 = Val(TextBox1.Text) TextBox1.Text = "" Hasilnya seperti berikut :

43. Seperti langkah 36 – 37 : Klik dua kali tombol kurang (-), kemudian tuliskan kode : operasi = 2 bil1 = Val(TextBox1.Text) TextBox1.Text = ""

Hasilnya seperti berikut :

44. Seperti langkah 36 – 37 : Klik dua kali tombol kali (x ),kemudian tuliskan kode : operasi = 3 bil1 = Val(TextBox1.Text) TextBox1.Text = "" Hasilnya seperti gambar berikut :

45. Seperti langkah 36 – 37 : Klik dua kali tombol bagi (/),,kemudian tuliskan kode : operasi = 4 bil1 = Val(TextBox1.Text) TextBox1.Text = "" Hasilnya seperti gambar berikut :

46. Seperti langkah 36 – 37 : Klik dua kali tombol bilangan kuadrat ( x^2),kemudian tuliskan kode : bil1 = Val(TextBox1.Text)  jawab = bil1 * bil1 TextBox1.Text = jawab Hasilnya seperti gambar berikut :

47. Seperti langkah 36 – 37 : Klik dua kali tombol backspace ( ← ),kemudian tuliskan kode : If TextBox1.Text <> "" Then TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) End If Hasilnya seperti gambar berikut :

48. Seperti langkah 36 – 37 : Klik dua kali tombol akar ( √   ), kemudian tuliskan kode : bil1 = Val(TextBox1.Text)  jawab = Sqr(bil1) TextBox1.Text = jawab

49. Membuat casing kalkulator, dengan klik insert – shapes – rectangle – drag ke area kerja powerpoint seperti pada gambar berikut :

50. Buatlah tombol Exit, dengan cara klik insert – textbox – klik area kerja powerpoint dan ketik huruf “X”, kemudian klik huruf x – format – pilih effect yang diinginkan.

Hasilnya seperti gambar berikut :

51. Klik shapes huruf X tadi kemudian klik insert – action – hyperlink to – end show - OK

52. Membuat presentasinya berjalan sesuai keinginan walau terjadi klik yang tidak tepat pada area tombol maka presentasi akan lebih interaktif dengan cara klik slide show – set up slide show – centang pada bagian browsed at kiosk.

Tambahkan kreasi, bisa dengan m enambah tulisan “ PowerPoint “ di kalkulatornya. Selamat mencoba. Referensi : ebook : Agung Novian. “Menggali Lebih Dalam Visual Basic 6” http://temonsoejadi.com/2013/03/26/membuat-kalkulator-dengan-visual-basic-6-0/