Day: October 24, 2013

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