Learn to Code : Hitung Perkalian dengan Powerpoint

Bagaimanakah caranya membuat hitung perkalian dengan  powerpoint? Simak dan ikuti tutorial pada video ini.

download : video tutorial hitung perkalian

Script VBA ‘Hitung Perkalian”

‘script untuk tombol soal baru

Sub Soalbaru()
ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text = Int((999999 – 111111) * Rnd + 111111)
ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text = Int((999999 – 111111) * Rnd + 111111)
ActivePresentation.Slides(1).Shapes(“hasilkali”).TextFrame.TextRange.Text = “”
End Sub

‘script untuk tombol hitung

Sub hitung_perkalian()
ActivePresentation.Slides(1).Shapes(“hasilkali”).TextFrame.TextRange.Text = _
Val(ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text) * Val(ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text)
End Sub

download : file latihan untuk membuat hitung perkalian

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