Just Another Blogger

Saturday, February 27, 2016

Operasi String di Visual Basic 6



Visual basic 6 memiliki fungsi built-in untuk operasi string. ada operasi string yang akan memngembalikan ke string lagi, misalnya fungsi Right (Mengambil karakter N dari Kanan), Left (Mengambil Karakter dari Kiri) dan ada yang memberikan output angka, misalnya Len (mengembalikan panjang string). untuk string yang mengembalikan string. fungsi string yang mengembalikan string, dapat ditulis dengan atau tanpa dolar pada akhir nama fungsi. tetapi saya menyarankan menggunakan tanda $ dibagian akhir nama fungsi, untuk mempercepat kinerja aplikasi, berikut ini beberapa fungsi string yang saya tahu:

Fungsi: Len
Deskripsi: Menghitung jumlah karakter dalam suatu string
Syntax: Len(string)
Contoh: lngLen = Len("Visual Basic")  '


Fungsi: Mid$ (atau Mid)
Deskripsi: Mengambil sejumlah karakter dari suatu string,  dari karakter ke - n sampai N
Syntax: Mid$(string, start(Char Ke-),Lenght)


Keterangan:
string   Required; string yang akan diambil sebagian karakternya
start(Char ke-)      Required; Angka. posisi Karakter awal pengambilan pemecahan string 
Lenght:   Optional; Angka. Jumlah/Panjang karakter yang diambil

Contoh:

strSubstr = Mid$("Visual Basic", 3, 4)          ' strSubstr = "sual"
Note: Mid$ juga bisa digunakan untuk mengganti string sejumlah N pada suatu string, mirip dengan perintah Replace$

               Contoh:                   

       strTest = "Visual Basic"
       Mid$(strTest, 3, 4) = "xxxx"     
       'strTest menjadi  "Vixxxx Basic"               


Fungsi: Left$ (atau Left)
Deskripsi: mengambil sebagian karakter dari kiri ke kanan, sejumlah N
Syntax: Left$(string, Lenght)

keterangan:
string    Required. String yang akan diambil sebaian karakternya
Lenght  Required; Angka. Jumlah karakter yang diambil.
Contoh: strSubstr = Left$("Visual Basic", 3)      ' strSubstr = "Vis"


Fungsi: Right$ (or Right)
Deskripsi: Mengambil sebagian karakter sejumlah N dari sisi paling kanan
Syntax: Right$(string, Lenght)

Part      Description
string    Required. String yang akan diambil sebagian karakternya
lenght   Required; Angka. jumlah karakter yang akan diambil
Contoh: strSubstr = Right$("Visual Basic", 3)    ' strSubstr = "sic"


Fungsi: UCase$ (atau UCase)
Description: Merubah semua huruf kecil di suatu string menjadi huruf besar
Syntax: UCase$(string)
Contoh: strUcase = UCase$("Visual Basic")           ' strUcase = "VISUAL BASIC"


Fungsi: LCase$ (or LCase)
Deskripsi: Merubah semua huruf di suatu string menjadi huruf kecil
Syntax: LCase$(string)
Contoh: strLcase = LCase$("Visual Basic")           ' strLcase = "visual basic"


Fungsi: Instr
Deskripsi: mencari posisi substring dalam suatu string dimulai dari posisi karakter ke -n, outputnya numerik posisi substring itu berada
Syntax: InStr([start,] string1, string2 [, compare])

Keterangan
start           Optional. Angka. Posisi awal pencarian, bila tidak diisi otomatis akan dicari dari posisi pertama/karakter pertama

string1        Required. String yang akan dianalisa

string2        Required. filter/substring yang dicari

compare     Optional; Angka/Pilihan,

  • Nilai defaultnya (bila tidak diisi) adalah "0" (vbBinaryCompare) = Case Sensitif, 
  • "1" (vbTextCompare) = Tidak Case Sensitif
  • "2" (vbDatabaseCompare)
Contoh: lngPos = Instr("Visual Basic", "a")
' lngPos = 5

lngPos = Instr(6, "Visual Basic", "a")
' lngPos = 9 (dimulai dari posisi karakter ke -6)

lngPos = Instr("Visual Basic", "A")
' lngPos = 0 (Pencarian Case Sensitif)

lngPos = Instr(1, "Visual Basic", "A", 1)
' lngPos = 5 (Pencarian Tidak Case Sensitif)


Fungsi: InstrRev
Deskripsi: Sama dengan Instr, perbedaannya InstrRev mencari dari posisi karakter terakhir/terbalik
Syntax: InStrRev(string1, string2[, start, [, compare]])

Keterangan:
string1        String yang akan dianalisa

string2        String yang akan dicari

start           posisi karakter awal pencarian (bila tidak diisi, otomatis pencarian akan dimulai dari karakter terakhir)

compare     Optional; Angka/Pilihan,

  • Nilai defaultnya (bila tidak diisi) adalah "0" (vbBinaryCompare) = Case Sensitif, 
  • "1" (vbTextCompare) = Tidak Case Sensitif
  • "2" (vbDatabaseCompare)
Contoh: lngPos = InstrRev("Visual Basic", "a")
' lngPos = 9

lngPos = InstrRev("Visual Basic", "a", 6)
 ' lngPos = 5 (dimulai dari posisi karakter ke- 6)

lngPos = InstrRev("Visual Basic", "A")
' lngPos = 0 (Pencarian Case Sensitif)

lngPos = InstrRev("Visual Basic", "A", , 1)
' lngPos = 9 (Tidak Case Sensitif)

Fungsi: String$ (atau String)
Deskripsi:Mengulang karakter (string) sepanjang jumlah yang ditentukan
Syntax: String$(jumlah, karakter)

Jumlah             Required; Angka jumlah/panjang perulangan
karakter           Required; String/Ascii Code, karakter yang akan diulang
Contoh: strTest = String$(5, "a")
' strTest = "aaaaa"

strTest = String$(5, 97)
' strTest = "aaaaa" (97 is the ASCII code for "a")


Fungsi: Space$ (atau Space)
Deskripsi: Menghasilkan spasi sejumlah n
Syntax: Space$(angka)
angka = jumlah spasi yang diinginkan
Contoh: strTest = Space$(5)           ' strTest = "     "


Fungsi: Replace$ (atau Replace)
Deskripsi: Menggantikan/merubah karakter dari suatu string, fungsinya sama dengan Search and Replace di notepad atau Microsoft Word
Syntax: Replace$(string, Cari, Replace)

Keterangan:

string       Required. String String yang akan dirubah/diganti karakternya/subsringnya

Cari                 Required. Karakter/substring yang akan diganti

Replace      Required. Karakter/subString pengganti
Contoh: strTanggal = Replace$("08/31/2001", "/", "-")
' strTanggal = "08-31-2001"


Fungsi StrReverse$ (atau    StrReverse)
Deskripsi Membalik String
Syntax: StrReverse$(string)
Contoh strTest = StrReverse$("Visual Basic")           Output: "cisaB lausiV"


Fungsi LTrim$ (or LTrim)
Deskripsi Menghapus Spasi diawal string
Syntax: LTrim$(string)
Contoh strTest = LTrim$("  Visual Basic  ")
output: "Visual Basic  "


Fungsi RTrim$ (or RTrim)
Deskripsi: Menhapus spasi di akhir string
Syntax: RTrim$(string)
Contoh: strTest = RTrim$("  Visual Basic  ")      output: "  Visual Basic"


Fungsi: Trim$ (or Trim)
Deskripsi Menghapus semua spasi pada string
Syntax: Trim$(string)
Contoh strTest = Trim$("  Visual Basic  ")      output:  "Visual Basic"


Fungsi: Asc
Deskripsi: Merubah/mengkonversi karakter/string ke kode ASCII
Syntax: Asc(string)
Contoh: intCode = Asc("*")      Output: 42
intCode = Asc("A")    Output = 65


Fungsi: Chr$ (or Chr)
Deskripsi: Mengkonversi/merubah kode ASCII menjadi karakter/string
Syntax: Chr$(ASCII)
ASCII = kode ascii yang ingin di konversi
Contoh: strChar = Chr$(65)                                 Output: "A"



Contoh Aplikasi

Buat Project baru, kemudian buat satu tombol, beri nama cmdCoba


Masukkan kode ini pada cmdCoba

Private Sub cmdCoba_Click()

 Dim strTest    As String

 strTest = InputBox("Please enter a string:")
 Print "Contoh Len:"; Tab(25); Len(strTest)
 Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
 Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
 Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
 Print "Contoh UCase$:"; Tab(25); UCase$(strTest)
 Print "Contoh LCase$:"; Tab(25); LCase$(strTest)
 Print "Contoh Instr:"; Tab(25); InStr(strTest, "a")
 Print "Contoh InstrRev:"; Tab(25); InStrRev(strTest, "a")
 Print "Contoh LTrim$:"; Tab(25); LTrim$(strTest)
 Print "Contoh RTrim$:"; Tab(25); RTrim$(strTest)
 Print "Contoh Trim$:"; Tab(25); Trim$(strTest)
 Print "Contoh String$ & Space$:"; Tab(25); String$(3, "*") _
                                            & Space$(2) _
                                            & Trim$(strTest) _
                                            & Space$(2) _
                                            & String$(3, 42)
    Print "Contoh Replace$:"; Tab(25); Replace$(strTest, "a", "*")
    Print "Contoh StrReverse$:"; Tab(25); StrReverse$(strTest)
    Print "Contoh Asc:"; Tab(25); Asc(strTest)

    Print "Contoh Len:"; Tab(25); Len(strTest)
    Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
    Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
    Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
    Print "Contoh UCase$:"; Tab(25); UCase$(strTest)
    Print "Contoh LCase$:"; Tab(25); LCase$(strTest)
    Print "Contoh Instr:"; Tab(25); InStr(strTest, "a")
    Print "Contoh InstrRev:"; Tab(25); InStrRev(strTest, "a")
    Print "Contoh LTrim$:"; Tab(25); LTrim$(strTest)
    Print "Contoh RTrim$:"; Tab(25); RTrim$(strTest)
    Print "Contoh Trim$:"; Tab(25); Trim$(strTest)
    Print "Contoh String$ & Space$:"; Tab(25); String$(3, "*") _
                                            & Space$(2) _
                                            & Trim$(strTest) _
                                            & Space$(2) _
                                            & String$(3, 42)
    Print "Contoh Replace$:"; Tab(25); Replace$(strTest, "a", "*")
    Print "Contoh StrReverse$:"; Tab(25); StrReverse$(strTest)
    Print "Contoh Asc:"; Tab(25); Asc(strTest)
End Sub



No comments:

Post a Comment