Learn to Code : Membuat Simulasi Mengenal Bilangan (VBA for Powerpoint)

Bagaimana caranya membuat simulasi mengenal bilangan  pada powerpoint? Simak dan ikuti tutorial pada video ini.

download : tutorial membuat simulasi mengenal bilangan

‘Script pada module 1

Sub hideMobil()
For i = 1 To 10
ActivePresentation.Slides(1).Shapes(i).Visible = msoFalse
Next
End Sub

‘Script pada Slide 1

Private Sub SpinButton1_Change()
hideMobil
For i = 1 To Val(SpinButton1)
ActivePresentation.Slides(1).Shapes(i).Visible = msoTrue
Next
ActivePresentation.Slides(1).Shapes(“angka”).TextFrame.TextRange.Text = Val(SpinButton1)
End Sub

download : file contoh membuat simulasi mengenal bilangan

 

5000 PPT Interaktif : Pembagian 5 (SD Kelas 2)

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

petunjukcover powerpoint interaktif pembagian 5

coverIloveMath_pembagian5screenshot

pembagian15_5download : powerpoint interaktif pembagian 5 (file ppsm)

5000 PPT Interaktif : Pembagian 4 (SD Kelas 2)

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

petunjukcover powerpoint interaktif pembagian 4

coverIloveMath_pembagian4screenshot

pembagian12_4download : powerpoint interaktif pembagian 4 (file ppsm)

5000 PPT Interaktif : Pembagian 3 (SD Kelas 2)

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

petunjukcover powerpoint interaktif pembagian 3

coverIloveMath_pembagian3screenshot

pembagian9_3download : powerpoint interaktif pembagian 3 (file ppsm)

5000 PPT Interaktif : Pembagian 2 (SD Kelas 2)

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

petunjukcover powerpoint interaktif pembagian 2

coverIloveMath_pembagian2screenshot

pembagian8_2download : powerpoint interaktif pembagian 2 (file ppsm)

5000 PPT Interaktif : Pembagian 1 (SD Kelas 2)

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

petunjukcover powerpoint interaktif pembagian 1

coverIloveMath_pembagian1screenshot

pembagian6_1download : powerpoint interaktif pembagian 1 (file ppsm)

Learn to Code : Membuat Simulasi Penyelesaian Sistem Persamaan Linear Dua Variabel (Powerpoint)

Bagaimana caranya membuat simulasi penyelesaian sistem persamaan linear dua variabel pada powerpoint? Simak dan ikuti tutorial pada video ini.

download : video tutorial membuat simulasi SPLDV

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

 

download : file latihan membuat simulasi SPLDV