Misi dari proyek ini adalah membuat dan menyediakan 5000 bahan ajar interaktif berbasis powerpoint untuk guru dan siswa SD – SMP – SMA di Indonesia, yang dapat di download gratis (rencana akan ada website khusus).
Petunjuk Penggunaan file powerpoint macro enabled show (ppsm), jika di klik file powerpoint yang menggunakan VBA (ppsm), maka akan muncul dialog box seperti pada gambar di bawah. Pilih “enable content for this session” kemudian klik “OK
Script VBA untuk Simulasi Penyelesaian Sistem Persamaan Linear Dua Variabel
‘script untuk tombol hapus
Sub hapus()
Slide1.TextBox1.Text = “-”
Slide1.TextBox2.Text = “-”
Slide1.TextBox3.Text = “-”
Slide1.TextBox4.Text = “-”
Slide1.TextBox5.Text = “-”
Slide1.TextBox6.Text = “-”
ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = “…”
ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = “…”
End Sub
‘script untuk tombol hitung
Sub hitungX_Y()
Dim a, b, p, c, d, q As Integer
a = Val(Slide1.TextBox1.Text)
b = Val(Slide1.TextBox2.Text)
p = Val(Slide1.TextBox3.Text)
c = Val(Slide1.TextBox4.Text)
d = Val(Slide1.TextBox5.Text)
q = Val(Slide1.TextBox6.Text)
If a * d – b * c <> 0 Then
ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = (d * p – b * q) / (a * d – b * c)
ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = (a * q – c * p) / (a * d – b * c)
Else
MsgBox (“Solusi SPLDV tidak tunggal”)
End If
End Sub
cover powerpoint interaktif pembagian 1
screenshot
ABDUL KARIM 