Message Box Input Box Dialog Box VISUAL BASIC
Message Box, Input Box, Dialog Box VISUAL BASIC
Message. Box Adalah fungsi yang menghasilkan kotak untuk menampilkan pesan-pada user. Sintaks : Msgbox “pesan” [, parameter, “judul”] Atau Nama. Var = Msgbox(“pesan [, parameter, ”judul”]) Keterangan : Pesan = Teks atau kalimat yang ingin ditampilkan (diapit “ “) Parameter = Nilai / konstanta yang berfungsi untuk menampilkan pilihan tertentu pada kotak pesan. Judul = Judul yang ditampilkan pada baris teratas kotak pesan. Nama. Var = Variabel yang menyimpan hasil yang diperoleh dari fungsi Msgbox( ) BYDNA&WITARI 2
Parameter Nilai Konstanta Keterangan 0 Vb. Ok. Only Menampilkan tombol Ok 1 Vb. Ok. Cancel Menampilkan tombol Ok, Cancel 2 Vb. Abort. Retry. Ignore Menampilkan Retry, Cancel 3 Vb. Yes. No. Cancel Menampilkan tombol Yes, No, Cancel 4 Vb. Yes. No Menampilkan tombol Yes, No 5 Vb. Retry. Cancel Menampilkan Cancel 16 Vb. Critical Menampilkan Icon kritis BYDNA&WITARI tombol Abort, Retry, 3
Parameter (2) 32 Vb. Question Menampilkan Question Icon Warning 48 Vb. Exclamation Menampilkan Msgbox Icon Warning 64 Vb. Information Menampilkan Icon Information Msgbox 0 Vb. Defaultbutton 1 Tombol pertama dapat focus 256 Vb. Defaultbutton 2 Tombol kedua dapat focus 512 Vb. Defaultbutton 3 Tombol ketiga dapat focus BYDNA&WITARI 4
Contoh § Msgbox “Anda baru saja menekan tombol”, Vb. Exclamation, “Pemberitahuan” §Msgbox “Selamat anda berhasil”, vbinformation, ”Berita” BYDNA&WITARI 5
Contoh(2) § Inthasil = Msgbox(“Tidak dapat mengakses disket”, 16 + 2, ”Warning”) § Inthasil = Msgbox(“Anda benar ingin keluar ? ”, Vb. Question + 1 , “Peringatan”) Inthasil akan menyimpan hasil pemilihan tombol OK atau Cancel yg diwakili nilai 1 utk OK dan 2 utk Cancel. BYDNA&WITARI 6
Hasil Fungsi Msgbox ( ) Nilai Konstanta Keterangan 1 Vb. Ok User memilih tombol Ok 2 Vb. Cancel User memilih tombol Cancel 3 Vb. Abort User memilih tombol Abort 4 Vb. Retry User memilih tombol Retry 5 Vb. Ignore User memilih tombol Ignore 6 Vb. Yes User memilih tombol Yes 7 Vb. No User memilih tombol No BYDNA&WITARI 7
Contoh (3) q Inthasil = Msgbox (“Yakin Mau Keluar ? ”, Vb. Question +Vb. Ok. Cancel, ”Peringatan”) If Inthasil = Vb. Ok then Unload me Else Form 1. show Endif BYDNA&WITARI 8
Kotak Masukan / Input Box Adalah fungsi yang berguna untuk meminta masukan dari pemakai. Sintaks : Nama. Var = Inputbox ( “Teks” , ” Judul “ [, Nilai default] [, Int. Pos. X, Int. Pos. Y]) Keterangan : Nama. Var = Variabel yang menyimpan hasil yang diperoleh dari fungsi Inputbox( ) Teks = Teks atau kalimat yang ingin ditampilkan (diapit “ “) Judul = Judul yang ditampilkan pada baris teratas kotak masukan. Nilai default = Nilai standar yang akan tampil pertama kali saat kotak inputbox tampil. Int. Pos. X, Int. Pos. Y = koordinat untuk menentukan posisi kotak masukan (ukuran pixel) BYDNA&WITARI 9
Contoh Input Box Interface Coding Private Sub Cmdusia_Click() umur = Input. Box("Berapa Usia Anda ? ", "Mohon diisi", 0) Msg. Box "Terima kasih, Usia anda adalah " + umur, vb. Information, "Tanggapan" End Sub BYDNA&WITARI 10
Dialog. Box q Kita bisa membuat kotak dialog dengan menggunakan kontrol Common Dialog. q Cara mengaktifkan kontrol common dialog pilih: Project|Components…kemudian pilih Microsoft Common Dialog Control 6. 0 lalu klik OK. q Cara penulisan kode : ◦ Namakotakdialog. action = angka Atau ◦ Namakotakdialog. metode BYDNA&WITARI 11
Hasil Kotak Dialog Metode Angka Jenis Kotak Dialog Show. Open 1 Kotak dialog Open Show. Save 2 Kotak dialog Save As Show. Color 3 Kotak dialog Color Show. Font 4 Kotak dialog Font Show. Printer 5 Kotak dialog. Printer Show. Help 6 Kotak dialog Help BYDNA&WITARI 12
Contoh Dialog. Box BYDNA&WITARI 13
Output BYDNA&WITARI 14
Coding BYDNA&WITARI 15
- Slides: 15