Message Box Input Box VISUAL BASIC Message Box

Message Box & Input 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 • Parameter • Judul • Nama. Var = Teks atau kalimat yang ingin ditampilkan (diapit “ “) = Nilai / konstanta yang berfungsi untuk menampilkan pilihan tertentu pada kotak pesan. = Judul yang ditampilkan pada baris teratas kotak pesan. = Variabel yang menyimpan hasil yang diperoleh dari fungsi Msgbox( ) 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 tombol Abort, Retry, 3

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 Parameter (2) 4

Contoh § Msgbox “Anda baru saja menekan tombol”, Vb. Exclamation, “Pemberitahuan” § Msgbox “Selamat anda berhasil”, vbinformation, ”Berita” 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. 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 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 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 • Teks • Judul • Nilai default = Variabel yang menyimpan hasil yang diperoleh dari fungsi Inputbox( ) = Teks atau kalimat yang ingin ditampilkan (diapit “ “) = Judul yang ditampilkan pada baris teratas kotak masukan. = 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) 9

Contoh Input Box 10

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 11