Day: October 7, 2013

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat ilustrasi “mengenal bilangan”

Langkah pertama : buat TextBox biasa kemudian beri nama “angka”, selanjutnya insert picture “mobil” kemudian copy 9 kali sehingga jumlahnya menjadi 10 dan beri nama mobil1, mobil2, mobil3 sampai dengan mobil10. Tambahkan satu obyek ActiveX Control “SpinButton1”

Langkah kedua :

Ketikkan pada module (pada microsoft vba editor insert module) , prosedur berikut ini :

Sub hideMobil()

For i = 1 To 10

ActivePresentation.Slides(1).Shapes(i).Visible = msoFalse

Next

End Sub

Langkah ketiga :

Klik kanan pada SpinButton1, kemudian pilih view code akan tampil editor vba pada slide1, ketikkan script berikut :

Private Sub SpinButton1_Change()

hideMobil

For i = 1 To Val(SpinButton1)

ActivePresentation.Slides(1).Shapes(i).Visible = msoTrue

Next

ActivePresentation.Slides(1).Shapes(“angka”).TextFrame.TextRange.Text = Val(SpinButton1)

End Sub

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat powerpoint untuk menentukan penyelesaian sistem persamaan linear dua variabel (SPLDV).

Langkah pertama : buat TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6 dengan TextBox (ActiveX Control), kemudian buat TextBox “nilaiX” dan “nilaiY” dengan Text Box biasa. Dan buat tampilan seperti pada gambar berikut ini.

 

Langkah kedua :

Ketikkan script berikut ini pada module, kemudian run macro untuk prosedur “hapus” dengan tombol clear, dan prosedur “hitung_x_y dengan tombol hitung.

Sub hapus()

Slide1.TextBox1.Text = “-“

Slide1.TextBox2.Text = “-“

Slide1.TextBox3.Text = “-“

Slide1.TextBox4.Text = “-“

Slide1.TextBox5.Text = “-“

Slide1.TextBox6.Text = “-“

ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = “…”

ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = “…”

End Sub

Sub hitung_x_y()

Dim a, b, c, d, p, q As Integer

a = Val(Slide1.TextBox1.Text)

b = Val(Slide1.TextBox2.Text)

p = Val(Slide1.TextBox3.Text)

c = Val(Slide1.TextBox4.Text)

d = Val(Slide1.TextBox5.Text)

q = Val(Slide1.TextBox6.Text)

If a * d – b * c <> 0 Then

ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = (d * p – b * q) / (a * d – b * c)

ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = (a * q – c * p) / (a * d – b * c)

Else

MsgBox (“SPLDV tidak mempunyai penyelesaian tunggal”)

End If

End Sub

Ketika kita mengetik soal pilihan ganda pada slide powerpoint, seringkali kita menjumpai masalah “bagaimana menempatkan gambar dengan ukuran yang sesuai, tetapi sayangnya ruang untuk gambar tidak cukup lagi. Salah satu trik untuk mengatasi masalah tersebut adalah dengan menyembunyikan gambar tersebut dan digantikan dengan sebuah tombol (toggle button) , sedangkan untuk menampilkannya kita klik “toggle button”. Pada tutorial ini, akan dijelaskan langkah-langkah untuk melakukan hal tersebut.

Langkah pertama : sisipkan sebuah toggle button – Developer – Toggle Button (Active X Control), kemudian seleksi Toggle Button – klik kanan – properties – pada bagian Caption ketikkan “lihat gambar”

Langkah kedua : Sisipkan gambar yang akan ditampilkan/sembunyikan, Insert –  Picture – kemudian klik pada gambar pilih menu format –  Selection Pane sehingga tampil panel Selection and Visibility, beri nama “gambar 1”

Langkah ketiga

Klik kanan Toggle Button pilih View Code sehingga tampil VBA editor dan ketikkan

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = False Then

ActivePresentation.Slides(1).Shapes(“gambar 1”).Visible = msoFalse

Else

ActivePresentation.Slides(1).Shapes(“gambar 1”).Visible = msoTrue

End If

End Sub

Pada tutorial kali ini akan dijelaskan bagaimana cara menampilkan huruf dari A sampai dengan Z dalam TextBox pada slide powerpoint menggunakan Visual Basic for Application.

Langkah pertama : buat sebuah TextBox dengan nama “kotakhuruf” dan sebuah Spin Button (ActiveX Control seperti pada gambar. Adapun cara untuk memberi nama, lakukan langkah berikut : klik TextBox yang berisi “K” kemudian pilih Tab Format > klik Selection Pane > pada kotak “Selection and Visibility” ubah nama sesuai dengan yang diinginkan.

Langkah kedua :

Ketikkan script berikut ini pada Slide 1, untuk menampilkan Visual Basic Editornya, klik “SpinButton1” kemudian pada Tab Developer pilih (klik) View Code

Private Sub SpinButton1_Change()

Dim huruf As Variant

Dim i As Integer

huruf = Array(“A”, “B”, “C”, “D”, “E”, “F”, _

“G”, “H”, “I”, “J”, “K”, “L”, _

“M”, “N”, “O”, “P”, “Q”, “R”, _

“S”, “T”, “U”, “V”, “W”, “X”, _

“Y”, “Z”)

i = Val(SpinButton1)

ActivePresentation.Slides(1).Shapes(“kotakhuruf”).TextFrame.TextRange.Text = huruf(i)

End Sub

 

 

Pada tutorial ini akan dijelaskan bagaimana membuat simulasi penjumlahan dua bilangan (10 – 99) pada powerpoint menggunakan Visual Basic for Application.

Langkah pertama : buat lima buah TextBox dan dua buah Action Button : Custom. Kemudian tiga buah TextBox diberi nama “bilangan 1”, “bilangan 2” dan “hasil” seperti pada gambar. Adapun cara untuk memberi nama, lakukan langkah berikut : klik TextBox yang berisi angka 61 kemudian pilih Tab Format > klik Selection Pane > pada kotak “Selection and Visibility” ubah nama sesuai dengan yang diinginkan.

 

Langkah kedua :

Ketikkan script berikut ini pada module Visual basic Editor (Alt + F11) > Insert module

Sub jawab()

ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = InputBox(“Hasilnya sama dengan”)

If ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = _

Val(ActivePresentation.Slides(1).Shapes(“bilangan 1”).TextFrame.TextRange.Text) + _

Val(ActivePresentation.Slides(1).Shapes(“bilangan 2”).TextFrame.TextRange.Text) Then

MsgBox (“Jawaban kamu benar!”)

Else

MsgBox (“Jawaban kamu salah!”)

End If

End Sub

 

Sub soal()

ActivePresentation.Slides(1).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Int(89 * Rnd + 10)

ActivePresentation.Slides(1).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Int(89 * Rnd + 10)

ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = ” “

End Sub

 

Langkah ke tiga : untuk menjalankan script VBA, lakukan secara berturut-turut insert > action > run macro , prosedur soal untuk tombol soal dan prosedur jawab untuk tombol jawab.

Selamat mencoba!