Fungsi UCase dan LCase

UCase dan LCase

UCasse/Upper Case merupakan fungsi untuk membuat huruf besar sedangkan LCase/Lower Case merupakan fungsi untuk membuat huruf kecil,berikut adalah contohnya:

Berikut saya berikan contohnya :

1.Buatlah satu text,dua command dan satu label ubahlah teks pada command1 menjadi "Besar" dan command2 menjadi "kecil"

2.Masukan kode seperti dibawah ini:


Private Sub Command1_Click()
Label1 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Label1 = LCase(Text1)
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

3.Maka ketikanlah sesuatu pada text1 dan klik "Besar" maka hasilnya seperti dibawah  ini:

Begitupun sebaliknya jika di klik "Kecil" maka hasilnya seperti dibawah ini:

Demikian,terimakasih. :)

Sumber: Latihan sendiri :D

Fungsi-funsi String Pada VB

* Instr

InStr: menentukan apakah string tertentu berada pada string lain

Dim CariString, CariChar, MyPos

CariString = ‘XXpXXpXXPXXP” ‘String yang dianalis

CariChar = “P” ‘String yang dicari “P”

‘mencari mulai dari kolom ke-4, hasilnya 6

MyPos = InStr(4, CariString, CariChar, 1)

‘mencari mulai dari kolom ke-1, hasilnya 9

MyPos = InStr(1, CariString, CariChar, 0)

MyPos = InStr(CariString, CariChar) ‘hasilnya 9

MyPos = InStr(1, SearchString, “W”) ‘hasilnya 0

* InStrRev

InStrRev: cari posisi string dalam string yang lain, mulai dari akhir

i = InStrRev(StringCheck, StringMatch[, start[, compare]])

* Left

Left : mengambil n karakter di sebelah kiri suatu string

karakter = Left(“abcdef”,2) ‘karakter = “ab”

* Right

Right : mengambil n karakter di sebelah kanan suatu string

karakter = Right(“abcdef”,2) ‘karakter = “ef” 

* Mid

Mid : mengambil n karakter dari suatu posisi yang ditetapkan

MyStr = Mid(“abcdefghij”, 3, 4) ‘hasil “cdef”

* Ltrim

Ltrim : menghilangkan spasi kosong di awal suatu string

MyStr = Ltrim(AnyString)

* Rtrim

Rtrim : menghilangkan spasi kosong di akhir suatu string

MyStr = Rtrim(AnyString)

* Trim

Trim : menghilangkan spasi kosong di awal dan akhir suatu string

karakter = Trim(“ abc def ”) ‘karakter = “abc def”

* Len

Len : menghitung jumlah karakter yang membentuk suatu string

MyStr = Len(“abcdef”) ‘hasil=6

* Chr

Chr: menghasilkan karakter yang terwakili oleh suatu angka tertentu

A$ = Chr (65) ‘A$ = A

A$ = Chr (97) ‘A$ = a

A$ = Chr (62) ‘A$ = >

* Asc

Asc: menghasilkan angka ASCII dari suatu karakter tunggal

MyNumber = Asc(‘A’) ‘’hasilnya 65

MyNumber = Asc(‘a’) ‘’hasilnya 97

MyNumber = Asc(‘Apple’) ‘’hasilnya 65

Sumber: http://irmanf.wordpress.com/2010/10/15/fungsi-string-pada-visual-basic-6/