12. Fungsi Bagian 1 (Tutorial Visual Basic 2010)

Fungsi ini mirip dengan prosedur normal, tetapi tujuan utama berfungsi untuk menerima input tertentu dan mengembalikan nilai yang diteruskan ke program utama untuk menyelesaikan eksekusi. Ada dua jenis fungsi, built-in fungsi (atau fungsi internal) dan fungsi yang dibuat oleh pemrogram.

Format umum dari suatu fungsi adalah

FunctionName (arguments)

Argumen adalah nilai-nilai yang diteruskan ke function.In pelajaran ini, kita akan mempelajari dua fungsi internal sangat dasar tapi berguna dari Visual dasar, yaitu MsgBox( ) dan InputBox ( ) functions.

12.1 MsgBox ( ) Function

Tujuan dari MsgBox adalah untuk menghasilkan kotak pesan pop-up dan meminta pengguna untuk mengklik pada tombol perintah sebelum ia / dia bisa terus berlanjut. Format ini adalah sebagai berikut:
yourMsg=MsgBox(Prompt, Style Value, Title)

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

Table 12.1: Style Values


Kita bisa menggunakan konstanta bernama di tempat bilangan bulat untuk argumen kedua untuk membuat program lebih mudah dibaca. Bahkan, VB6 secara otomatis akan muncul daftar konstanta bernama di mana Anda dapat memilih salah satunya.
Contoh :
yourMsg=MsgBox( "Click OK to Proceed", 1, "Startup Menu")
and yourMsg=Msg("Click OK to Proceed". vbOkCancel,"Startup Menu")
are the same.

yourMsg adalah variabel yang menyimpan nilai-nilai yang dikembalikan oleh MsgBox () fungsi. Nilai ditentukan oleh jenis tombol 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.

Table 12.2 : Return Values and Command Buttons


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("Click to test", 1, "Test message")
If testmsg = 1 Then
MessageBox.Show("You have clicked the OK button")
Else
MessageBox.Show("You have clicked the Cancel button")
End If

End Sub

Untuk membuat kotak pesan terlihat lebih canggih, Anda dapat menambahkan sebuah ikon di samping pesan. Ada empat jenis ikon tersedia di VB2008 seperti ditunjukkan pada Tabel 12.3

Table 12.3: Message box with icon


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("You have clicked the yes button")
ElseIf testMsg = 7 Then
MessageBox.Show("You have clicked the NO button")
Else
MessageBox.Show("You have clicked the Cancel button")
End If

End Sub

Argumen pertama, Prompt, akan menampilkan pesan

12.2 The InputBox( ) Function

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








myMessage=InputBox(Prompt, Title, default_text, x-position, y-position)

myMessage adalah tipe data varian, tetapi biasanya hal ini dideklarasikan sebagai string, yang menerima masukan pesan oleh pengguna. Argumen ini dijelaskan sebagai berikut:

• Prompt = Pesan yang ditampilkan biasanya sebagai pertanyaan yang diajukan
• Title = Judul dari InputBox
• default-text = Teks default yang muncul dalam kolom input di mana pengguna dapat menggunakannya sebagai masukan yang dimaksudkan atau ia akan diganti oleh pesan yang ingin masuk
• x-position dan y position =  koordinat posisi atau tjumlah dari kotak input

Namun, format tidak akan bekerja di VB2008 karena InputBox dianggap namespace. Jadi, Anda perlu memasukkan nilai referensi ke namespace penuh InputBox, yang
Microsoft.VisualBasic.InputBox(Prompt, Title, default_text, x-position, y-position)
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("What is your message?", "Message Entry Form", "Enter your messge here", 500, 700)

If userMsg <> "" Then
MessageBox.Show(userMsg)
Else
MessageBox.Show("No Message")
End If
End Sub

Para inputbox akan muncul sebagaimana ditunjukkan pada gambar di bawah saat Anda menekan tombol perintah

Sandi Permana
18113221
2KA39

Tulisan 13
Teori Organisasi Umum 1#
Budi Utami, S.E