June 7, 2014 – ABDUL KARIM

Pada posting ini, saya akan menjelaskan bagaimana membuat animasi Interaktif Penjumlahan (Visual).

Untuk bilangan pertama, insert 40 shapes rectangle; bilangan kedua insert shapes 40 rectangle dan untuk hasil penjumlahan bilangan pertama dan kedua insert shapes 40 rectangle. Kemudian insertkan dua buah scrollbar dan tiga buah textbox.

Selanjutnya, View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()
For i = 1 To 40
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoFalse
Next

For i = 1 To 80
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoFalse
Next

For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next

For i = 1 To Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoTrue
Next

For i = 1 To Val(ScrollBar1) + Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoTrue
Next

ActivePresentation.Slides(2).Shapes(“TextBox 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“TextBox 2”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“TextBox 3”).TextFrame.TextRange.Text = Val(ScrollBar1) + Val(ScrollBar2)

End Sub

Private Sub ScrollBar2_Change()

ScrollBar1_Change

End Sub

download : file animasi interaktif

Kali ini kita akan membuat animasi interaktif Mengenal Bilangan 1 – 10.

Pertama, kita insert shapes 10 buah Oval, 1 TextBox untuk tempat menampilkan bilangan dan sebuah ScrollBar – ActiveX Control (pada tab Developer)

Seleksi ScrollBar atur (Poperties) nilai minimum (min) sama dengan 1 dan nilai maksimum (max) sama dengan 10 kemudian pilih View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 10
ActivePresentation.Slides(2).Shapes(i).Fill.BackColor.RGB = RGB(255, 255, 255)
ActivePresentation.Slides(2).Shapes(i).Fill.ForeColor.RGB = RGB(255, 255, 255)
Next

For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Fill.BackColor.RGB = RGB(255, 0, 0)
ActivePresentation.Slides(2).Shapes(i).Fill.ForeColor.RGB = RGB(255, 0, 0)
Next

ActivePresentation.Slides(2).Shapes(“TextBox 1”).TextFrame.TextRange.Text = Val(ScrollBar1)

End Sub

download : file animasi interaktif

Day: June 7, 2014

Animasi Interaktif Penjumlahan (Visual) dengan Powerpoint

Animasi Interaktif dengan Powerpoint Mengenal Bilangan 1 – 10