Tag: vba for powerpoint

Learn to Code : Hitung Perkalian dengan Powerpoint

Abdul KarimLeave a comment

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

download : video tutorial hitung perkalian

Script VBA ‘Hitung Perkalian”

‘script 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)
ActivePresentation.Slides(1).Shapes(“hasilkali”).TextFrame.TextRange.Text = “”
End Sub

‘script untuk tombol hitung

Sub hitung_perkalian()
ActivePresentation.Slides(1).Shapes(“hasilkali”).TextFrame.TextRange.Text = _
Val(ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text) * Val(ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text)
End Sub

download : file latihan untuk membuat hitung perkalian

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

Abdul KarimLeave a comment

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 1 (SD Kelas 2)

Abdul KarimLeave a comment

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 warna RGB (Red – Green – Blue) pada powerpoint

Abdul KarimLeave a comment

Pada posting kali ini, akan dijelaskan bagaimana membuat simulasi warna RGB (Red – Green – Blue) pada powerpoint menggunakan visual basic for application.

download : video tutorial membuat simulasi warna RGB

Script VBA untuk membuat simulasi warna RGB

Private Sub SpinButton1_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRed”).Fill.BackColor.RGB = RGB(Val(SpinButton1), 0, 0)
ActivePresentation.Slides(1).Shapes(“kotakRed”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), 0, 0)
ActivePresentation.Slides(1).Shapes(“angkaRed”).TextFrame.TextRange.Text = Val(SpinButton1)
End Sub

Private Sub SpinButton2_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakGreen”).Fill.BackColor.RGB = RGB(0, Val(SpinButton2), 0)
ActivePresentation.Slides(1).Shapes(“kotakGreen”).Fill.ForeColor.RGB = RGB(0, Val(SpinButton2), 0)
ActivePresentation.Slides(1).Shapes(“angkaGreen”).TextFrame.TextRange.Text = Val(SpinButton2)
End Sub

Private Sub SpinButton3_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakBlue”).Fill.BackColor.RGB = RGB(0, 0, Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakBlue”).Fill.ForeColor.RGB = RGB(0, 0, Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“angkaBlue”).TextFrame.TextRange.Text = Val(SpinButton3)
End Sub

download : file latihan membuat simulasi warna RGB