210 likes | 442 Views
MENGGUNAKAN FUNGSI MSGBOX(). fungsi msgbox() adalah fungsi untuk menampilkan kotak pesan (message), dan kita dapat menulis pesan pada kotak tersebut. Syntax MsgBox(prompt[, buttons] [, title] [, helpfile, context]). Keterangan : - prompt : teks yang akan tampilkan
E N D
MENGGUNAKAN FUNGSI MSGBOX() fungsi msgbox() adalah fungsi untuk menampilkan kotak pesan (message), dan kita dapat menulis pesan pada kotak tersebut Syntax MsgBox(prompt[, buttons] [, title] [, helpfile, context]) Keterangan : - prompt : teks yang akan tampilkan - buttons : tombol yg ditampilkan di kotak pesan - title : judul yg ditampilkan di kotak pesan
JENIS TOMBOL MSGBOX() vbOKOnly 0 Display OK button only. vbOKCancel 1 Display OK and Cancel buttons. vbAbortRetryIgnore 2 Display Abort, Retry, and Ignore buttons. vbYesNoCancel 3 Display Yes, No, and Cancel buttons. vbYesNo 4 Display Yes and No buttons. vbRetryCancel 5 Display Retry and Cancel buttons. vbCritical 16 Display Critical Message icon. vbQuestion 32 Display Warning Query icon. vbExclamation 48 Display Warning Message icon. vbInformation 64 Display Information Message icon. vbDefaultButton1 0 First button is default. vbDefaultButton2 256 Second button is default. vbDefaultButton3 512 Third button is default. vbDefaultButton4 768 Fourth button is default. vbApplicationModal 0 Application modal; the user must respond to
JENIS TOMBOL MSGBOX() the message box before continuing work in the current application. vbSystemModal 4096 System modal; all applications are suspended until the user responds to the message box. vbMsgBoxHelpButton 16384 Adds Help button to the message box VbMsgBoxSetForeground 65536 Specifies the message box window as the foreground window vbMsgBoxRight 524288 Text is right aligned vbMsgBoxRtlReading 1048576 Specifies text should appear as right-to-left reading on Hebrew and Arabic systems
CONTOH PENGGUNAAN MSGBOX() contoh : MsgBox "Ini latihan" + Chr(13) + "kotak pesan", vbYesNo, "Ini Judul Loh !" - Teks pada msgbox dapat berupa kombinasi atas beberapa teks dengan menggunakan simbol ‘+’. - bila dikombinasikan akan dengan ‘chr(13)’ maka seolah-olah seperti ditekan tombol enter karena kode Ascii dari ‘enter’ adalah 13
OBYEK MENU Icon Menu Editor Selain dari icon, anda juga dapat mengaktifkan fasilitas dari menu Tools - Menu Editor
MEMBUAT MENU DENGAN OBYEK MENU Name : Setiap menu dipandang sebagai satu obyek yang harus di beri nama Caption : untuk memberikan judul pada tiap menu Icon panah : untuk menggeser menu menjadi sub menu atau sebaliknya, dapat juga digunakan untuk mengatur posisi menu ShortCut : Memberikan ShortCut berupa kombinasi tombol keyboard untuk tiap sub menu
LATIHAN III-1 : MEMBUAT MENU Buatlah menu dengan spesifikasi sbb : CAPTION NAME SHORTCUT - Master Data mnu_master_data ….Data &Anggota Perpus mnu_agt_perpus ctrl-A ….Data &Buku Perpus mnu_buku_perpus ctrl-B - Transaksi mnu_transaksi ….Daftar Anggota Baru mnu_agt_baru ctrl-N ….Pinjam Buku mnu_pinjam_buku ctrl-P ….Kembalikan Buku mnu_kembali_buku ctrl-K - E X I T mnu_exit CATATAN : penggunaan simbol ‘&’ di depan sebuah huruf akan memberikan garis bawah pada huruf tersebut
Pada tiap menu dapat diberikan perintah-perintah yang berbeda Double Click pada salah satu menu untuk memberikan instruksi MEMASUKKAN PERINTAH PADA OBYEK MEN U
MEMBERIKAN PERINTAH PADA SUB MENU Jika anda Double Click pada sub menu data anggota perpus maka akan muncul bagian coding untuk menulis perintah. Lalu anda dapat memasukkan perintah-perintah. Contoh : Private Sub mnu_agt_perpus_Click() MsgBox ”Sub menu Master Data Anggota sedang di jalankan” End Sub
Klik Kanan disini Pilih form Untuk menambah form baru MENGGUNAKAN BEBERAPA FORM PADA SEBUAH PROJECT Anda dapat menambahkan beberapa Form kedalam project Anda
MENAMBAHFORM BARU KE DALAM PROJECT ANDA Pilih Form Klik Ok
Form yang baru MENGGUNAKAN BEBERAPA FORM PADA SEBUAH PROJECT
LATIHAN III-2 : MENGATUR BEBERAPA FORM • Tambahkan kedalam project tsb beberapa form lagi sehingga terdapat 7 form pada project tsb • (Lanjut Ke Halaman berikut)
MENGGUNAKAN BEBERAPA FORM PADA SEBUAH PROJECT Aturlah atribut object - object tsb menjadi : Object Name Caption Save As - Form1 frm_agt_perpus Modul Anggota Perpus frm_agt_perpus - Form2 frm_buku_perpus Modul Buku Perpus frm_buku_perpus - Form3 frm_transaksi Modul Transaksi frm_transaksi - Form4 frm_agt_baru Modul Anggota Baru frm_agt_baru - Form5 frm_pinjam_buku Modul Pinjam Buku frm_pinjam_buku - Form6 frm_kembali_buku Modul Kembali Buku frm_kembali_buku
MEMANGGIL / MENJALANKAN SEBUAH FORM Sebuah Form dapat dipanggil atau di jalankan dengan memanggil fungsi show dari obyek Form tsb. Misalnya Bila menu Data Anggota Perpus di klik, maka akan mengaktifkan form frm_agt_perpus. Private Sub mnu_agt_perpus_Click() frm_agt_perpus.show End Sub
LATIHAN III-3 : MENGATUR MENU AGAR MEMANGGIL FORM Aturlah agar tiap sub menu memanggil Form yang sesuai dengan menu tsb. Frm_agt_perpus.show Frm_buku_perpus.show Frm_agt_baru.show Frm_pinjam_buku.show Frm_kembali_buku.show
Object Option Button Biasanya object OptionButton dibuat di dalam object frame MENGGUNAKAN OBJECT OPTION BUTTON Object option Button berguna untuk memberikan beberapa pilihan dan user hanya dapat memilih satu dari beberapa pilihan yang ada
MENGGUNAKANOBJECT CHECKBOX Object option Button berguna untuk memberikan beberapa pilihan dan user hanya dapat memilih satu dari beberapa pilihan yang ada Object CHECKBOX Biasanya object CHECKBOX dibuat di dalam object frame
MENGGUNAKAN ONJECT CHECKBOX DAN OPTION BUTTON Object optjk Object ckHobby Object cmdClose Object cmdOk
MENGGUNAKAN BEBERAPA FORM PADA SEBUAH PROJECT Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim keterangan As String For i = 0 To 2 If optjk(i).Value = True Then keterangan = "Jenis Kelamin = " + optjk(i).Caption + Chr(13) End If Next keterangan = keterangan + "Hobby = " + Chr(13) For i = 0 To 3 If ckHobby(i).Value = 1 Then keterangan = keterangan + ckHobby(i).Caption + Chr(13) End If Next MsgBox keterangan End Sub