membuat MPI powerpoint dengan VBA sederhana

Bagi guru membuat sebuah media pembelajaran berbantuan komputer (Multimedia Pembelajaran Interaktif) adalah hal yang cukup dirasa perlu, serta mempunyai dampak positif yaitu adanya kemudahan bagi guru dalam menyampaikan materi pembelajaran dan kemudahan bagi siswa menyerap materi pelajaran. Media pelajaran itu dapat dibuat menggunakan program powerpoint, adobe flash, swish max, dan masih banyak lagi. Kali ini saya mencoba menyampaikan salah satu latihan menggunakan vba sederhana pada powerpoint.

Buka program ms. powerpoint, buat sebuah slade baru.


kemudian masukan 5 buah textbok pada kolom satuan berat 2 (beri nama "j1,j2,j3,j4,dan j5"), masukan 5 buah text box pada kolom keterangan (beri nama"jw1,jw2,jw3,jw4,jw5"). masukan 10 command button, (pada kolom satuan jarak kasil label HAPUS beri nama"hapus1,hapus2,hapus3,hapus4,hapus5") dan (pada kolom keterangan kasih label CEK dan beri nama"soal1,2,3,4,5)

untuk lebih jelasnya lihat gambar

Cara menampilkan VBA pada Ms. Powerpoint 2007

Langkah pertama tampilkan menu developer dengan cara klik “Office button” > klik “Powerpoint Options” > klik “Show Developer tab in the Ribbon” > klik “OK”.

Kemudian klik “Developer” > klik “Visual Basic”
dan masukanlah script di bawah ini :
Private Sub CommandButton1_Click()
End Sub
Private Sub hapus1_Click()
j1 = ""
jw1 = ""
End Sub
Private Sub hapus2_Click()
j2 = ""
jw2 = ""
End Sub
Private Sub hapus3_Click()
j3 = ""
jw3 = ""
End Sub
Private Sub hapus4_Click()
j4 = ""
jw4 = ""
End Sub
Private Sub hapus5_Click()
j5 = ""
jw5 = ""
End Sub
Sub Rumus1()
If j1 = 15 Then jw1 = "benar"
If j1 <> 15 Then jw1 = "salah"
End Sub
Sub Rumus2()
If j2 = 2700 Then jw2 = "benar"
If j2 <> 2700 Then jw2 = "salah"
End Sub
Sub Rumus3()
If j3 = 170 Then jw3 = "benar"
If j3 <> 170 Then jw3 = "salah"
End Sub
Sub Rumus4()
If j4 = 250 Then jw4 = "benar"
If j4 <> 250 Then jw4 = "salah"
End Sub
Sub Rumus5()
If j5 = 1800 Then jw5 = "benar"
If j5 <> 1800 Then jw5 = "salah"
End Sub
Private Sub j1_Change()
End Sub
Private Sub j2_Change()
End Sub
Private Sub soal1_Click()
Call Rumus1
End Sub
Private Sub soal2_Click()
Call Rumus2
End Sub
Private Sub soal3_Click()
Call Rumus3
End Sub
Private Sub soal4_Click()
Call Rumus4
End Sub
Private Sub soal5_Click()
Call Rumus5
End Sub

untuk melihat hasil yang sudah jadi silakan klik link di bawah ini :
download

Read more: http://qizz234.blogspot.com/2014/04/membuat-powerpoint-dengan-vba-sederhana.html#ixzz33s1VFI5t
sumber : http://qizz234.blogspot.com