VBA‎ > ‎

AUTOEXEC di Microsoft Office

posted 2 Nov 2012, 03:32 by Kampau Ocu   [ updated 3 Nov 2012, 00:26 ]
tadi pas ngajar Algoritma 1, mahasiswa ternyata begitu exited dengan AUTOEXEC di Microsoft Office ...

Apa itu AUTOEXEC

Pada Microsoft Office, sebuah prosedur yang bernama AUTOEXEC akan dijalankan sebelum Microsoft Office memulai editor.

Contoh Kode 1

Perhatikan kode berikut:
Sub AUTOEXEC()
    jawaban = MsgBox("Apakah Pak Jazman ganteng?", vbYesNo + vbQuestion, "Test Kejujuran")
    
    If jawaban = vbYes Then
        MsgBox "Anda jujur!" & vbCrLf & vbCrLf & "Terima Kasih!", vbInformation, "Anda Jujur!"
    Else
        MsgBox "Anda" & Chr(9) & "berbohong!", vbCritical, "Pembohong tidak boleh menggunakan Ms Word"
        Application.Quit
    End If
End Sub


Pada kode tersebut di atas, Anda dapat melihat bahwa akan ada sebuah MessageBox yang menanyakan "Apakah Pak Jazman ganteng?". Apapun tombol yang ditekan oleh pengguna nanti akan disimpan ke dalam variable jawaban.
MsgBox vbYesNo + vbQuestion

Jika jawaban adalah vbYes, artinya tadinya pengguna menekan tombol Yes, maka akan keluar MessageBox kedua yang menyatakan bahwa "Anda jujur!"

MsgBox vbInformation


Jika pengguna menekan tombol No, maka akan keluar pesan kesalahan / MessageBox. Kemudian setelah menekan Ok, pengguna akan keluar dari Microsoft Office, artinya tidak jadi menggunakan!
MsgBox vbCritical



Contoh Kode 2 : Menggunakan Password

Sub AUTOEXEC()
    jawaban = MsgBox("Apakah Pak Jazman ganteng?", vbYesNo + vbQuestion, "Test Kejujuran")
    
    If jawaban = vbYes Then
        MsgBox "Anda jujur!" & vbCrLf & vbCrLf & "Terima Kasih!", vbInformation, "Anda Jujur!"
        
        'tanya password
        m_password = InputBox("Masukkan password:", "jujur", "j****")
        If m_password <> "jujur" Then Application.Quit
        
    Else
        MsgBox "Anda" & Chr(9) & "berbohong!", vbCritical, "Pembohong tidak boleh menggunakan Ms Word"
        Application.Quit
    End If
End Sub

Kode yang ini menggunakan password, dan passwordnya adalah jujur

Comments