Powerpoint Interaktif (dengan VBA) : Penjumlahan Dua Bilangan Pecahan

RBAK_powerfulPPTPada artikel ini saya masih menggunakan script LCM dari http://www.devx.com/vb2themax/Tip/19015 untuk membuat powerpoint interaktif penjumlahan dua bilangan pecahan

gbr_jumlahpecahanBerikut ini tambahan script VBA yang saya berikan untuk mengontrol obyek-obyek pada slide
Private Sub ScrollBar1_Change()
Slide2.ScrollBar1.Max = Val(ScrollBar2)
Slide2.ScrollBar3.Max = Val(ScrollBar4)
Set SLD2 = ActivePresentation.Slides(2)
SLD2.Shapes(“pembilang 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
SLD2.Shapes(“penyebut 1”).TextFrame.TextRange.Text = Val(ScrollBar2)
SLD2.Shapes(“pembilang 2”).TextFrame.TextRange.Text = Val(ScrollBar3)
SLD2.Shapes(“penyebut 2”).TextFrame.TextRange.Text = Val(ScrollBar4)
SLD2.Shapes(“pembilang 3”).TextFrame.TextRange.Text = Val(ScrollBar1)
SLD2.Shapes(“pembilang 4”).TextFrame.TextRange.Text = Val(ScrollBar3)
SLD2.Shapes(“penyebut 3”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4))
SLD2.Shapes(“pengali 1”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar2)
SLD2.Shapes(“pengali 2”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar4)
SLD2.Shapes(“penyebut 4”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4))
SLD2.Shapes(“pembilang 5”).TextFrame.TextRange.Text = (LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar2)) * Val(ScrollBar1) + (LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar4)) * Val(ScrollBar3)
End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub
Private Sub ScrollBar3_Change()
ScrollBar1_Change
End Sub
Private Sub ScrollBar4_Change()
ScrollBar1_Change
End Sub

download : file powerpoint Interaktif

 

Author: Abdul Karim

Integrasi Matematika dan Teknologi merupakan fokus perhatian saya, dalam memberikan kontribusi kepada pendidikan matematika di Indonesi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s