Fungsi pada VB2010 (bag. 1)

Fungsi merupakan suatu prosedur yang biasa terdapat dalam source code bahasa pemrograman, termasuk juga VB2010. Terdapat 2 jenis fungsi, yaitu: built-in function (fungsi internal yang terdapat dalam program dan fungsi yang kita buat sendiri.
Secara umum, format penulisan fungsi yaitu:
FunctionName (arguments)
Pada bagian ini, kita akan belajar tentang 2 fungsi yang sangat dasar tetapi sangat berguna bagi internal function pada VB2010. Fungsi tersebut antara lain msgbox() dan inputbox().

1. msgbox()
Msgbox menghasilkan suatu pesan dan mengharuskan user unutk meng-klik sebuah button sebelum user tersebut melanjutkan perintah pada program. Format penulisannya yaitu:
          yourMsg=MsgBox(Prompt, Style Value, Title)
Contoh1.1:
Masukkan 1 buah button ke dalam form dan ketikkan code berikut:
Public Class Form1
    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
End Class



Kita bisa menambahkan icon ke dalam message box, yaitu dengan menginputkan icon yang telah disediakan VB2010. Adapun icon yang terdapat pada VB2010 yaitu:



Contoh1.2:
Masukkan 1 buah button ke dalam form dan ketikkan code berikut: 

Public Class Form1
    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
End Class

2. inputbox()
Inputbox akan menampilkan sebuah message box saat user memasukkan suatu nilai atau message ke dalam textbox. Format penulisannya yaitu:
myMessage=InputBox(Prompt, Title, default_text, x-position, y-position)
contoh2.1:
Masukkan 1 buah button ke dalam form dan ketikkan code berikut:

Public Class Form1
    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
End Class
untuk mendapatkan file pdf-nya klik download