Senin, 08 September 2014

ListingVbNetSemester4



1.       Len untuk menghitung panjang sejumlah karakter
         TextBox2.Text = (Len(TextBox1.Text))
2.            Replace untuk menggantikan karakter tertentu dengan sebuah karakter lainnya.
Dim nilaiAwal As String
        nilaiAwal = "Visual basic 2008"
        TextBox3.Text = nilaiAwal.Replace("2008", "2010")
        ' atau
        TextBox3.Text = Replace(nilaiAwal, "2008", "2010")
a.       InStr digunakan utuk mengetahui posisi sebuah karakter dalam sebuah nilai.
  Dim Kata As String
        Kata = "Visual Basic 2008"
        TextBox3.Text = InStr(Kata, "i")

              
3.       Microsof.visualbasic.left digunakan untuk mengambil beberapa karakter dari sebuah nilai dimulai karkater yang paling kiri.
Dim nilaiawal As String
        nilaiawal = "Visual Studio 2008"
        TextBox3.Text = Microsoft.VisualBasic.Left(nilaiawal, 6)


4.       Microsof.visualbasic.Right digunakan untuk mengambisl beberapa karakter dari sebuah nilai dimulai karkater yang paling kanan.

Dim nilaiawal As String
        nilaiawal = "Visual Studio 2008"
        TextBox3.Text = Microsoft.VisualBasic.Right(nilaiawal, 6)


5.       Microsof.visualbasic.MID digunakan untuk mengambisl beberapa karakter dari sebuah nilai dimulai karkater sesuai kebutuhan ditengah karakter.

 Dim nilaiawal As String
        nilaiawal = "Visual Studio 2008"
        TextBox3.Text = Microsoft.VisualBasic.Mid(nilaiawal, 3, 6)


6.       Trim digunakan untuk memotong penggunaan karakter spasi dalam sebuah nilai sehingga tidak ada lagi spasi.

Dim nilaiawal As String
        nilaiawal = "        Visual Studio 2008        "
        TextBox3.Text = Trim(nilaiawal)

7.       LTrim digunakan untuk memotong penggunaan karakter spasi  paling kiri .

8.       RTrim digunakan untuk memotong penggunaan karakter spasi  paling Kanan .

9.       Length digunakan untuk  mendapat jumlah karater pada sebuah string
  Dim nilaiawal As String
        nilaiawal = "Visual Studio 2008"
        TextBox3.Text = nilaiawal.Length()
10.   ToUper menguba string menjadi huruf besar/ ToLower menguba huruf menjadi huruf besar
Dim nilaiawal As String
        nilaiawal = "Visual Studio 2008"
        TextBox3.Text = nilaiawal.ToLower()
        TextBox3.Text = nilaiawal.ToUpper()
11.   Insert untuk menyisp Krakter pada sebuah string:
Dim nilaiawal As String
        nilaiawal = "Visual Studio 2008"
        TextBox3.Text = nilaiawal.Insert(6, " aaaa")

Tidak ada komentar:

Posting Komentar