Pada artikel ini akan dijelaskan bagaimana membuat animasi interaktif “perkalian sebagai penjumlahan berulang”
Susun obyek-obyek seperti pada gambar di atas : 2 buah scrollbar dan 27 buah textbox – beri nama sesuai dengan yang tertera pada selection pane. (lihat pada file contoh)
Pada module ketikkan script berikut :
Option Base 1
Public kelipatan As Variant
Public tambah As Variant
Sub perkalian()
Set SLD = ActivePresentation.Slides(2)
kelipatan = Array(SLD.Shapes(“bilangan 2_1”), SLD.Shapes(“bilangan 2_2”), SLD.Shapes(“bilangan 2_3”), SLD.Shapes(“bilangan 2_4”), SLD.Shapes(“bilangan 2_5”), SLD.Shapes(“bilangan 2_6”), SLD.Shapes(“bilangan 2_7”), SLD.Shapes(“bilangan 2_8”), SLD.Shapes(“bilangan 2_9”), SLD.Shapes(“bilangan 2_10”))
tambah = Array(SLD.Shapes(“simb_tambah 1”), SLD.Shapes(“simb_tambah 2”), SLD.Shapes(“simb_tambah 3”), SLD.Shapes(“simb_tambah 4”), SLD.Shapes(“simb_tambah 5”), SLD.Shapes(“simb_tambah 6”), SLD.Shapes(“simb_tambah 7”), SLD.Shapes(“simb_tambah 8”), SLD.Shapes(“simb_tambah 9”))
End Sub
Klik kanan salah satu ScrollBar kemudian pilih View Code dan ketikkan script berikut :
Private Sub ScrollBar1_Change()
perkalian
ActivePresentation.Slides(2).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“hasil”).TextFrame.TextRange.Text = Val(ScrollBar1) * Val(ScrollBar2)
For i = 1 To 19
ActivePresentation.Slides(2).Shapes(4 + i).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
kelipatan(i).Visible = msoTrue
kelipatan(i).TextFrame.TextRange.Text = Val(ScrollBar2)
Next
For i = 1 To Val(ScrollBar1) – 1
tambah(i).Visible = msoTrue
Next
End Sub
Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub
download : file perkalian sebagai penjumlahan berulang
ABDUL KARIM 