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
Hii thanks for sharing this