Powerpoint Interaktif (dengan VBA) : Menentukan KPK dari 2 Bilangan

RBAK_powerfulPPTKali ini saya memanfaatkan  script VB dari http://www.devx.com/vb2themax/Tip/19015 untuk membuat powerpoint interaktif menentukan KPK dari 2 bilangan.
gbr_KPKBerikut ini tambahan script VBA yang saya berikan untuk mengontrol obyek-obyek pada slide

Private Sub ScrollBar1_Change()
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 = LCM(Val(ScrollBar1), Val(ScrollBar2))
End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

download : file powerpoint KPK

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