Fungsi Bagian I

---

Fungsi ini mirip dengan prosedur normal tetapi tujuan utama dari fungsi adalah untuk menerima masukan tertentu dan mengembalikan nilai yang diteruskan ke program utama untuk menyelesaikan eksekusi. Ada dua jenis fungsi dalam Visual Basic 2010, fungsi built-in (atau fungsi internal) dan fungsi yang dibuat oleh programmer. Sintaks umum fungsi adalah FunctionName (argumen) Argumen adalah nilai-nilai yang diteruskan ke fungsi. Dalam pelajaran ini, kita akan mempelajari dua fungsi internal sangat dasar tapi berguna dari Visual Basic 2010, yaitu

fungsi MsgBox () dan InputBox ().


12.1 Fungsi MsgBox ( )


Tujuan dari MsgBox adalah untuk menghasilkan kotak pesan pop-up dan meminta pengguna untuk mengklik pada tombol perintah sebelum ia dapat terus berlanjut. Sintaks ini adalah sebagai berikut:

Anda Msg = MsgBox (Prompt, Style Nilai, Judul)


Argumen pertama, Prompt, akan menampilkan pesan di kotak pesan. Gaya Nilai akan menentukan jenis tombol perintah muncul di kotak pesan, silakan lihat Tabel 12.1 untuk jenis tombol perintah ditampilkan. Judul argumen akan menampilkan judul papan pesan.

Kita dapat menggunakan konstanta bernama di tempat bilangan bulat untuk argumen kedua untuk membuat program lebih mudah dibaca. Bahkan, Visual Basic 2010 secara otomatis akan muncul daftar konstanta bernama mana Anda dapat memilih salah satu dari fungsi tersebut.

Contoh:

Msg=MsgBox( “Click OK untuk proses”, 1, “Memulai Menu”)

dan Msg=Msg(“Click OK untuk proses”. vbOkCancel,”Memulai Menu”)

adalah sama.

Msg Anda adalah variabel yang menyimpan nilai-nilai yang dikembalikan oleh MsgBox () fungsi. Nilai-nilai ditentukan oleh jenis tombol yang diklik oleh pengguna. Itu harus dinyatakan sebagai tipe data Integer dalam prosedur atau pada bagian deklarasi umum. Tabel 12.2 menunjukkan nilai-nilai, yang sesuai bernama konstan dan tombol.

Contoh 12.1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim testmsg As Integer

testmsg = MsgBox(“Klik untuk menguji”, 1, “Test message”)


If testmsg = 1 Then
MessageBox.Show(“Anda mengklik tombol OK”)
Else
MessageBox.Show(“Anda mengklik tombol OK”)
End If


End Sub


Untuk membuat kotak pesan terlihat lebih canggih, Anda dapat menambahkan ikon selain pesan. Ada empat jenis ikon tersedia dalam Visual Basic 2010 seperti yang ditunjukkan pada Tabel 12.3

Contoh 12.2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim testMsg As Integer

testMsg = MsgBox(“Click to Test”, vbYesNoCancel + vbExclamation, “Test Message”)

If testMsg = 6 Then
MessageBox.Show(“Anda mengklik tombol yes”)
ElseIf testMsg = 7 Then
MessageBox.Show(“Anda mengklik tombol yes”)
Else
MessageBox.Show(“Anda mengklik tombol yes”)
End If

End Sub
Argumen pertama, Meminta, akan menampilkan pesan


Gambar tampilan


12.2 Fungsi InputBox( )

Sebuah InputBox () function akan menampilkan kotak pesan di mana pengguna dapat memasukkan nilai atau pesan dalam bentuk teks. Di VB2005, Anda dapat menggunakan format berikut:

Pesan = InputBox (Prompt, Title, teks default, x-posisi, y-posisi)

Pesan saya adalah tipe data varian, tetapi biasanya itu dinyatakan sebagai string, yang menerima masukan pesan oleh pengguna. Argumen ini dijelaskan sebagai berikut:

Prompt - Pesan yang ditampilkan biasanya sebagai pertanyaan yang diajukan. Judul - Judul Box Input. default-teks - Teks default yang muncul di kolom input di mana pengguna dapat menggunakannya sebagai masukan nya dimaksudkan atau dia dapat berubah ke pesan yang ingin masuk. x-posisi dan y-posisi - posisi atau tthe koordinat kotak input.

Namun, format tidak akan bekerja dalam Visual Basic 2010 karena InputBox dianggap namespace. Jadi, Anda perlu memasukkan referensi penuh ke namespace InputBox, yang

Microsoft.VisualBasic.InputBox (Prompt, Title, default_text, x-posisi, y-posisi)

Parameter tetap sama.


Contoh 12.3


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim userMsg As String

userMsg = Microsoft.VisualBasic.InputBox(“Apa pesan Anda?”, “Pesan Masuk Form "," Masukkan pesan Anda di sini ", 500, 700")

If userMsg <> “” Then
MessageBox.Show(userMsg)
Else
MessageBox.Show(“Tidak ada Pesan”)
End If
End Sub

Gambar tampilan
InputBox akan muncul seperti pada gambar di bawah ini saat Anda menekan tombol perintah

Code Project structur case to open source Vb.Net 

Download

Code Project Structur Case.....to I open source Vb.Net 

Download 

Code Project Structur case....to II open source Vb.Net 

Download

Code Project Structure Select Case…Dan Select open source Vb.Net 

Download

Code Project Select Structure Pernyataan Case…Dan Select open source Vb.Net 

Download 

Code Project Grade Kalkulator open source Vb.Net 

Download