03.41
Unknown
Berikut coding coding VB untuk macro pesan
Private Sub percobaan1()
'
' percobaan1 Macro
'
'
cPass = InputBox("nama
kamu", "nama peserta")
If cPass = "putri" Then
MsgBox
"nama kamu benar", 0 + 32, "informasi"
Else
MsgBox
"maaf nama kamu salah....!!", 0 + 16, "warning"
ActiveDocument.Close
End If
cPass = InputBox("nama
daerah sekolahmu", "daerah sekolahmu")
If cPass = "diski" Then
MsgBox
"selamat nama daerah kamu benar...", 0 + 32, "informasi"
Else
MsgBox
"maaf daerah sekolahmu kamu salah....!!", 0 + 16, "warning"
ActiveDocument.Close
End If
cPass = InputBox("nama
sekolah kamu", "sekolah")
If cPass = "budi setia" Then
MsgBox
"selamat nama sekolah kamu benar", 0 + 32, "informasi"
Else
MsgBox
"maaf nama sekolah kamu salah....!!", 0 + 16, "warning"
ActiveDocument.Close
End If
End Sub
Keterangan
masing2 kata algorithm
Private sub
= untuk bias mengaktifkan mengaktifkan
msgbox di VB
MsgBox
= untuk mengeluarkan massage box saat
membuka document
Input box =
untuk memberikan title pada MsgBox
If cPass =
untuk memberikan jawaban tersembunyi atau sebuah jawaban dari pertanyaan cPass(
bias diuba sesuai keinginan).
cPass =
untuk memberikan pertanyaan..
else = untuk
memberikan jarak atau pemisah antara jawaban dan warning massage
activedocument.close
= untuk mengeruarkan document jika salah memasukan jawaban(tidak perlu di buat
jika tidak ingin data di closekan)
end if =
untuk menutup if pembuka yang ada pada if cPass..
end sub =
untuk menutup private sub na
(“ ”)
kegunaan titik dua ini adalah untuk memisahkan antara bahasa algoritmanya
dengan nama MsgBox tanda ini dapat diuba sesuai keinginan.
(,) tanda
koma ini untuk memberi spasi pada algoritma VB
dan agar memfungsikan bahasa algoritma lainnya
cara menggunakan macronya..
1 buka MS Word
2 buka view di MS 2007
3 pilih macro paling ujung kanan
4 pilih view macro
5 pilih create
6 copas code algorithm diatas
7 tekan f5 untuk menjalankan debugnya
8 hocus pocus tralala
posting ini terinspirasi dari kompetisi LKS tahun 2014
jadi jika mau belajar lebih silahkan like fanspagenya https://www.facebook.com/brankasindonesianforum
