Menampilkan dan Menyembunyikan Gambar dengan VBA

Sahabat Sang Pengajar..kita lanjutkan belajar kita mengenai pemrograman menggunakan Visual Basic for Application (VBA) pada Microsoft Office Powerpoint. Kali ini kita akan mempelajari cara menampilkan dan menyembunyikan gambar dengan menggunakan VBA. Cara ini lebih efektif dan efisien daripada menggunakan efek animasi pada Powerpoint.

Untuk membuatnya siapkan gambar-gambar yang akan ditampilkan. Dalam tutorial ini saya pilih 3 gambar binatang, yaitu kucing, ayam, dan harimau. Langkah-langkahnya adalah sebagai berikut :

1. Pada slide 1 sisipkan 3 buah gambar tersebut denga Insert > Picture.

2. Kemudia ubah nama gambar dengan cara klik gambar diikuti klik Format > Selection Pane. Ubah nama ketiga gambar menjadi kucing, ayam, dan harimau.

3. Buka jendela code VBA, kemudian ketikkan script berikut :

Sub kucing()
With ActivePresentation.Slides(1)
.Shapes("kucing").Visible = msoTrue
.Shapes("ayam").Visible = msoFalse
.Shapes("harimau").Visible = msoFalse
End With
End Sub

Sub ayam()
With ActivePresentation.Slides(1)
.Shapes("kucing").Visible = msoFalse
.Shapes("ayam").Visible = msoTrue
.Shapes("harimau").Visible = msoFalse
End With
End Sub

Sub harimau()
With ActivePresentation.Slides(1)
.Shapes("kucing").Visible = msoFalse
.Shapes("ayam").Visible = msoFalse
.Shapes("harimau").Visible = msoTrue
End With
End Sub

4. Buatlah 3 buah tombol untuk mengeksekusi masing-masing gambar, yaitu tombol Kucing, Ayam, dan Harimau.

5. Hubungkan tiap tombol dengan Run macro sebagai berikut : tombol Kucing dengan Run Macro kucing, tombol Ayam dengan Run Macro ayam, dan tombol Harimau dengan Run Macro harimau.

6. Simpan file dalam format Powerpoint Macro-enabled Presentation kemudian jalankan dengan menekan tombol F5.

Untuk lebih jelasnya silahkan download file pemrograman menampilkan dan menyembunyikan gambar ini dengan [klik di sini].

Mudah bukan ? Jangan lupa berikan komentar di bawah artikel ini, ya. Selamat belajar !

Read More

Simulasi Luas dan Keliling Persegi

Sahabat Sang Pengajar….kali ini kita akan melanjutkan belajar kita mengenai pemrograman VBA pada Microsoft Office Powerpoint. Aplikasi yang akan dibuat adalah simulasi luas dan keliling persegi pada persegi panjang. Dengan simulasi ini kita akan mengetahui perubahan luas dan keliling pada bangun persegi maupun persegi panjang jika panjang dan lebarnya kita ubah.

Untuk membuat simulasi ini pada slide kita pasang 1 buah shape rectangle, 1 buah tabel dengan 6 baris dan 6 kolom, 2 buah SpinButton dari developer(SpinPanjang dan Spin Lebar), serta beberapa teks seperti pada gambar di atas. Prinsip pembuatannya adalah ubah panjang dan lebar shape reactangle, nilai panjang, nilai lebar, luas, dan keliling sesuai dengan nilai yang diberikan pada SpinPanjang dan SpinLebar. Berikan bilangan pengali sehingga pertambahan panjang dan lebar shape rectangle sesuai dengan panjang dan lebar tabel.

Mudah bukan…silahkan dipelajari sendiri, ya……Untuk download file ini silahkan [klik di sini]. Semoga artikel mengenai simulasi luas dan keliling persegi ini bermanfaat. Jangan lupa untuk memberikan komentar di bawah posting ini.

Read More

Tutorial Membuat Quiz Penjumlahan Secara Random dengan VBA

Apa kabar sahabat Sang Pengajar??? Baik-baik saja, bukan…..Kali ini kita akan melanjutkan belajar kita mengenai Visual Basic for Application(VBA) pada Microsoft Office Powerpoint. Belajar kita kali ini adalah membuat soal penjumlahan secara random. Penasaran, kan? Yuk kita mulai belajar kita.

Langkah-langkah pembuatan quiz penjumlahan secara random adalah :
1. Buka Microsoft Office Powerpoint dan buatlah 3 slide baru
2. Pada masing-masing slide tambahkan Teks dan Shape sebagai berikut :

3. Buka jendela code VBA kemudian Insert > Module, copykan Script VBA berikut ini :

Dim JumlahBenar As Integer
Dim JumlahSalah As Integer
Dim nama As String

Sub Mulai()
    JumlahBenar = 0
    JumlahSalah = 0
    Randomize
    NamaSiswa
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub NamaSiswa()
    nama = InputBox("Tuliskan namamu")
End Sub

Sub Benar()
    JumlahBenar = JumlahBenar + 1
    MsgBox "Jawabanmu benar, " & nama
End Sub

Sub Salah()
    JumlahSalah = JumlahSalah + 1
    MsgBox "Jawabanmu salah, " & nama
End Sub

Sub Tampilkan()
    MsgBox "Kamu mengerjakan dengan benar " & JumlahBenar & " dari " _
        & JumlahBenar + JumlahSalah & ", " & nama
End Sub

Sub SoalRandom()
    Dim BilanganSatu As Integer
    Dim BilanganDua As Integer
    BilanganSatu = Int(10 * Rnd)
    BilanganDua = Int(10 * Rnd)
    Jawab = InputBox("Berapakah " & BilanganSatu & " + " & BilanganDua & "?")
    If Jawab = BilanganSatu + BilanganDua Then
        Benar
    Else
        Salah
    End If
End Sub

 

4. Kemudian hubungkan tombol Mulai dengan Run Macro Mulai, Tombol Soal dengan Run Macro SoalRandom, Tombol Nilai diberi Hyperlink Next, dan Tombol Cek Nilai dengan Run Macro Tampilkan.

5. Quiz selesai dibuat. Silahkan tutup jendela code VBA dan jalankan quiz dengan menekan F5. 
Mudah bukan??? Selamat berkreasi ya. Jangan lupa tinggalkan komentar anda sebagai masukan untuk perbaikan. Untuk lebih jelasnya silahkan download file quiz random ini dengan [klik di sini].

Read More

MATERI DIKLAT MULTIMEDIA PEMBELAJARAN INTERAKTIF

 

Pada tanggal 11-15 Desember 2012 bertempat di LPMP Provinsi Jawa Tengah diadakan Diklat Pembuatan Multimedia Pembelajaran Interaktif bagi guru yan sebelumnya mengikuti Lomba Multimedia Pembelajaran di LPMP. Materi yang disajikan pada diklat ini antara lain :

1. Konsep ICT based Learning 2. Storyboard dan GBIM 3. DKV 4. PPT Image Processing 5. Animasi Pembelajaran 6. Template Design 7. VBA Programming 8. Audio-Video Recording

Kesempatan pertama menjadi narasumber di LPMP diberikan kepada saya. Materi yang saya sampaikan adalah PPT Image Processing dan VBA Programming.

Bagi sahabat sang pengajar yang menginginkan materi ini silahkan download :

1. Presentasi Materi VBA Programming [klik di sini]

2. Presentasi Materi PPT Image Processing [klik di sini]

3. Simulasi Luas dan Keliling Persegi Panjang [klik di sini]

4. Simulasi dan Animasi Luas dan Keliling Persegi Panjang [klik di sini]

Read More

Pemrograman VBA untuk Memperbesar dan Mempekecil Shape

Sahabat Sang Pengajar, kita akan kembali melanjutkan belajar kita mengenai pemrograman Visual Basic for Application(VBA) pada Microsoft Office Powerpoint. Tema yanh akan kita pelajari adalah pemrograman VBA untuk memperbesar dan memperkecil shape. Dengan pemrograman ini kita tidak perlu membuat dua slide atau lebih untuk membuat animasi shape menjadi lebih besar atau lebi h kecil.

 

Untuk membuat program ini cukup dengan membuat module kemudian kita buat 2 sub, sebagai berikut :

'Sub untuk memperbesar shape
Sub Besarkan(myShape As Shape)
    myShape.Height = myShape.Height * 2
    myShape.Width = myShape.Width * 2
    myShape.ActionSettings(ppMouseClick).Run = "Kecilkan"
End Sub

'Sub untuk memperkecil shape
Sub Kecilkan(myShape As Shape)
    myShape.Height = myShape.Height / 2
    myShape.Width = myShape.Width / 2
    myShape.ActionSettings(ppMouseClick).Run = "Besarkan"
End Sub

 

Jika sudah silahkan simpan dalam type Powerpoint macro-enabled Presentation(pptm). Mudah bukan? Untuk download file ini silahkan [klik di sini]

Read More

Quiz dengan VBA Versi BARU

Perkembangan dunia multimedia pembelajaran semakin pesat. Kini semakin banyak software yang digunakan untuk membuat multimedia pembelajaran interaktif atau yang lazim disebut MPI. Mulai dari Microsoft Office Powerpoint, Macromedia Flash, Adobe Profesional Flash, Autoplay, Swishmax, Lectora, hingga Aurora 3D Presentation.

Untuk membuat quiz dengan menampilkan nilai siswa biasanya masih didominasi penggunaan flash, wondershare quiz creator, maupun Visual Basic for Application(VBA) pada Microsoft Office Powerpoint. Quiz yang menggunakan VBA pada Microsoft Office Powerpoint dulu hanya menggunakan script VBA yang dipasang pada module saja. Kini mulai dikembangkan dengan memberi script VBA pada slide maupun control.
Prinsip dari pembuatan quiz ini adalah program atau perintah ketika suatu kontrol di klik atau diberi data input akan ditampilkan di kontrol tertentu pada slide yang lainnya.

Penasaran, kan ? Silahkan download dan pelajari sendiri cara pembuatan Quiz dengan VBA versi baru ini [klik di sini]

Read More

MEMBUAT APLIKASI PENGENALAN ANGKA UNTUK ANAK DENGAN VBA PADA POWERPOINT

Pengetahuan itu bukanlah salinan dari obyek dan juga bukan berbentuk kesadaran apriori yang sudah ditetapkan di dalam diri subyek, ia bentukan perseptual, oleh pertukaran antara organisme dan lingkungan dari sudut tinjauan biologi dan antara fikiran dan obyeknya menurut tinjauan kognitif.

Piaget, dalam Bringuier, 1980, hlm. 110.

Dunia anak adalah dunia bermain. Masa di mana anak memiliki kecenderungan senang bermain. Tetapi, kita juga mengetahui bahwa masa kanak-kanak adalah masa perkembangan kecerdasan, di mana anak bisa menyerap pembelajaran yang kita berikan secara optimal.

Jean Piaget (1896-1980), pakar psikologi dari Swiss, mengatakan bahwa anak dapat membangun secara aktif dunia kognitif mereka sendiri. Dalam pandangan Piaget, terdapat dua proses yang mendasari perkembangan dunia individu, yaitu pengorganisasian dan penyesuaian (adaptasi).

Di sini jelas sekali bahwa kemampuan kita mengorganisasikan anak dalam belajarnya sangatlah berperan, selain kemampuan anak beradaptasi dengan pembelajaran yang kita lakukan. Sehingga, kemampuan kita dalam metode maupun media pembelajaran sangat dibutuhkan.

Salah satu aplikasi yang bisa kita maksimakan untuk media pembelajaran adalah Microsoft Office Powerpoint yang telah dilengkapi dengan aplikasi pemrograma visual basic (VBA). Kali ini kita akan membuat aplikasi yang sederhana, yaitu aplikasi pengenalan angka untuk anak, sebagai berikut :

Cara kerja aplikasi ini adalah anak diminta klik tombol “GANTI ANGKA” sambil kita dampingi belajarnya, kemudian anak kita minta menyebutkan angka berapakah yang muncul. Agar lebih menyenangkan maka kita beri pujian pada anak jika mereka benar dalam menyebutkan angka, dan memberi arahan jika anak belum benar menyebutkan angkanya.

Untuk membuat aplikasi ini sangatlah mudah. Pertama, silahkan buka Microsoft Office Powerpoint. Kemudian buatlah satu shape oval dengan cara klik Insert > Shapes > Oval. Beri nama shapes ini dengan cara klik shapes oval > Format > Selection Pane > ubah menjadi Oval_txt. Lalu tambahkan satu buah command button dari menu Developer dengan cara klik Developer > Command Button (ActiveX Control) > Drag and Drop sesuai keinginan di slide. Kemudian, ubah propeties Command Button dengan klik kanan pada Command Button. Beri label tombol tersebut dengan mengubah caption menjadi “GANTI ANGKA”.

Langkah selanjutnya klik 2x pada Command Button GANTI ANGKA tersebut, ketikkan kode VBA sebagai berikut :

Private Sub CommandButton1_Click()

ActivePresentation.Slides(1).Shapes("Oval_txt").TextFrame.TextRange.Text = Int(50 * Rnd + 1)

End Sub

Kode tersebut untuk membuat angka random antara 1 sampai 50. Anda bisa merubahnya sesuai tahap belajar anak. Jika sudah tambahkan gambar sebagai background agar lebih menarik. Simpan aplikasi yang telah anda buat dengan Save As > beri nama file > pilih Save As Type : Powerpoint Maco-Enabled Presentation. Aplikasi siap dijalankan dengan klik slide show atau klik F5. Mudah bukan?

Aplikasi ini bisa anda download dengan klik di sini. Semoga bermanfaat.

Read More

Tutorial Membuat Media Berhitung untuk Anak dengan VBA pada Powerpoint

Apa kabar sahabat ?, pada kesempatan ini kita akan belajar kembali mengenai pemrograman pada powerpoint menggunakan visual basic for aplication (VBA). Kali ini kita akan membuat program yang sangat sederhana, yaitu media berhitung untuk anak yang memuat penjumlahan dan pengurangan seperti ditunjukkan pada gambar di bawah ini :

 Untuk membuatnya ikuti langah-langkah di bawah ini :

• Bukalah Program Microsoft Office Powerpoint kemudian pilih layout blank
• Klik menu developer dan insert delapan buah Text Box, dan tiga buah Command Button, lalu atur properties masing-masing :

Kontrol	Name	Caption
TextBox1	a
TextBox2	b
TextBox3	c
TextBox4	keterangan
TextBox5	d
TextBox6	e
TextBox7	f
TextBox8	keterangan2
CommandButton1	cek	CEK
CommandButton2	cek2	CEK
CommandButton3	Reset	RESET

•  Pasang kode VBA di masing-masing CommandButton dengan cara klik dua kali pada masing-masing tombol dan ketikkan kode VBA sebagai berikut :

Nama Kontrol	Caption	Kode VBA
CommandButton1	CEK	Private Sub Cek_Click() Call Rumus End Sub
CommandButton2	CEK	Private Sub Cek2_Click() Call Rumus2 End Sub
CommandButton3	RESET	Private Sub Reset_Click() a = "" b = "" c = "" d = "" e = "" f = "" keterangan = "" keterangan2 = "" End Sub

• Pasang juga kode VBA di bagian General sebagai berikut :

Sub Rumus()

If c = Val(a) + Val(b) Then keterangan = "benar"

If c <> Val(a) + Val(b) Then keterangan = "salah"

End Sub

 

Sub Rumus2()

If f = Val(d) - Val(e) Then keterangan2 = "benar"

If f <> Val(d) - Val(e) Then keterangan2 = "salah"

End Sub

• Atur tampilan agar lebih menarik dengan menambahkan background, shape, maupun picture yang kita inginkan.
• Simpan file dalam format pptm
• Jalankan program yang telah anda buat.

Mudah bukan. Salam Sang Pengajar !

 

 

Read More

Tutorial Membuat Kalkulator Sederhana dengan Aplikasi Visual Basic (VBA) pada Powerpoint

Apa kabar sahabat?

Kali ini kita akan belajar membuat pemrograman sederhana menggunakan Aplikasi Visual Basic (VBA) pada Powerpoint 2007. Program yang akan kita buat adalah kalkulator sederhana. Kenapa disebut kalkulator sederhana? Karena kita hanya akan menggunakan operasi dasar matematika yaitu penjumlahan (+), pengurangan (-), perkalian (x), pembagian (/), dan pemangkatan (^). Kelima operasi dasar tersebut akan kita fungsikan melalui lima buah tombol operasi dan kita lengkapi dengan satu buah tombol untuk menghapus data input dan data output.

Biar  tidak ada kesalahan dalam memvisualisasikan (he...he...), ini program yang akan kita buat :

Langkah-langkah pembuatannya adalah sebagai berikut :

Pertama, Jalankan program Microsoft Office Powerpoint, pastikan menu developer sudah muncul di deretan menu utama ya...

Kedua, ubah layout slide 1 menjadi blank

Ketiga, Pasang tiga buah TextBox  dan enam buah Command Button di slide 1 dan ubah properties masing-masing kontrol seperti ditunjukkan pada gambar di bawah ini :

(Background saya buat biru agar memudahkan pembacaan kontrol)

Properties masing-masing kontrol adalah sebagai berikut :

Kontrol	Name	Caption
TextBox1	a
TextBox2	b
TextBox3	Hasil
CommandButton1	plus	+
CommandButton2	minus	-
CommandButton3	pangkat	^
CommandButton4	kali	x
CommandButton5	bagi	/
CommandButton6	Hapus

(sahabat juga bisa mengatur jenis dan ukuran font tiap kontrol)

Keempat, Pasang kode VBA di masing-masing CommandButton dengan cara klik dua kali pada masing-masing tombol dan ketikkan kode VBA sebagai berikut :

Nama Kontrol	Caption	Kode VBA
plus	+	Private Sub plus_Click() Hasil = Val(a) + Val(b) End Sub
minus	-	Private Sub minus_Click() Hasil = a - b End Sub
pangkat	^	Private Sub pangkat_Click() Hasil = a ^ b End Sub
kali	x	Private Sub kali_Click() Hasil = a * b End Sub
bagi	/	Private Sub bagi_Click() Hasil = a / b End Sub
Hapus		Private Sub Hapus_Click() a = "" b = "" Hasil = "" End Sub

Kelima, sisipkan background dan berbagai shape untuk mempercantik desain. Jalankan Powerpoint dengan klik Slide Show (atau F5).

Program Kalkulator sederhana menggunakan VBA pada Powerpoint sudah jadi. Mudah bukan....ayo coba buat dan kembangkan untuk berbagai pemrograman lainnya..... Jangan lupa tinggalkan komentar di bawah posting ini ya..... Semoga bermanfaat. 

Read More