Fungsi pada VB2010 (bag.2)

Pada bagian ini akan dibahas mengenai fungsi Mid, Left dan Right.

1. Fungsi Mid
Fungsi mid digunakan untuk memenggal sebuah kata dan menampilkan penggalan kata tersebut. Format pernulisannya:
Mid(phrase, position,n)
Dimana:
•    phrase merupakan kata yang akan dipenggal
•    position merupakan tempat memulai pemenggalan kata
•    n merupakan jumlah karakter yang akan dipenggal
Contoh:
Masukkan 1  buah label dan 1 buah button ke dalam form, kemudian ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPhrase As String
        myPhrase = Microsoft.VisualBasic.InputBox("Masukkan kata-kata anda")
        Label1.Text = Mid(myPhrase, 2, 6)
    End Sub
End Class

2. Fungsi Right
Fungsi right memenggal kata dari sebelah kanan. Format penulisannya:
Microsoft.Visualbasic.Right (“Phrase”, n)
Contoh:
Masukkan 1 buah label, 1 buah textbox dan 1 buah button ke dalam form, kemudian ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myword As String
        myword = TextBox1.Text
        Label1.Text = Microsoft.VisualBasic.Right(myword, 4)
    End Sub
End Class

3. Fungsi Left
Fungsi left memenggal kata dari sebelah kiri. Format penulisannya:
Microsoft.Visualbasic.left (“Phrase”, n)
Contoh:
Masukkan 1 buah label, 1 buah textbox dan 1 buah button ke dalam form, kemudian ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myword As String
        myword = TextBox1.Text
        Label1.Text = Microsoft.VisualBasic.Left(myword, 4)
    End Sub
End Class

4. Fungsi Trim
Fungsi trim menghapus spasi pada sebelum dan sesudah kata. Format penulisannya:
Trim(“Phrase”)
Contoh kata-kata “     malas     “, maka kata yang akan ditampilkan “makan”.
Contoh:
Masukkan 1  buah label dan 1 buah button ke dalam form, kemudian ketik code berikut:

  
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPhrase As String
        myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase")
        Label1.Text = Trim(myPhrase)
    End Sub
End Class

Untuk mendapatkan fili pdf-nya. klik download