Learn to Code : Hitung Penjumlahan Interaktif dengan Powerpoint

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

download : video tutorial penjumlahan

‘Script VBA  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)
Slide1.TextBox1.Text = “”
End Sub

‘Script VBA  untuk tombol periksa

Sub periksa_penjumlahan()
If Slide1.TextBox1.Text = _
Val(ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text) + Val(ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text) Then
MsgBox (“Jawaban kamu benar”)
Else
MsgBox (“Jawaban kamu salah”)
End If
End Sub

download : file latihan membuat hitung penjumlahan

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