Powerpoint Interaktif (dengan VBA) : Penjumlahan dalam Lambang Bilangan Romawi

RBAK_powerfulPPTPada artikel ini, saya memanfaatkan Procedure function pada link http://www.vb-helper.com/howto_roman_arabic.html untuk membuat powerpoint interaktif “penjumlahan dalam lambang bilangan romawi”
gbr_romanAdapun tambahan script yang saya berikan untuk mengontrol obyek-obyek pada slide adalah sebagai berikut :

Private Sub ScrollBar1_Change()
Set SLD = ActivePresentation.Slides(2)
SLD.Shapes(“TextBox 1”).TextFrame.TextRange.Text = ArabicToRoman(Val(ScrollBar1))
SLD.Shapes(“TextBox 2”).TextFrame.TextRange.Text = ArabicToRoman(Val(ScrollBar2))
SLD.Shapes(“TextBox 3”).TextFrame.TextRange.Text = ArabicToRoman(Val(ScrollBar1) + Val(ScrollBar2))
SLD.Shapes(“TextBox 4”).TextFrame.TextRange.Text = Val(ScrollBar1)
SLD.Shapes(“TextBox 5”).TextFrame.TextRange.Text = Val(ScrollBar2)
SLD.Shapes(“TextBox 6”).TextFrame.TextRange.Text = Val(ScrollBar1) + Val(ScrollBar2)

End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

Private Sub ToggleButton1_Click()

Set SLD = ActivePresentation.Slides(2)
If ToggleButton1.Value = True Then
ToggleButton1.Caption = “sembunyikan angka arab”
SLD.Shapes(“TextBox 4”).Visible = msoTrue
SLD.Shapes(“TextBox 5”).Visible = msoTrue
SLD.Shapes(“TextBox 6”).Visible = msoTrue
Else
ToggleButton1.Caption = “tampilkan angka arab”
SLD.Shapes(“TextBox 4”).Visible = msoFalse
SLD.Shapes(“TextBox 5”).Visible = msoFalse
SLD.Shapes(“TextBox 6”).Visible = msoFalse
End If
End Sub

download file : Jumlah bilangan romawi

Author: Abdul Karim

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

1 thought on “Powerpoint Interaktif (dengan VBA) : Penjumlahan dalam Lambang Bilangan Romawi”

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