12 July 2014

VB6: Penggabungan String


Penggabungan 2 buah string atau lebih disebut concatenation.

1. Concatenation Menggunakan operator (+)
Kita dapat menggabukan 2 string menggunakan operator (+). Pastikan kedua elemen yang akan digabungkan bertipe data string agar tidak menghasilkan error type mismatch.
Contoh:
Private Sub cmdJoin_Click()
    Dim str As String, str1 As String, str2 As String
    str1 = "Visual"
    str2 = "Basic"
    str = str1 + str2
    Print str
End Sub

Output : visualbasic

2. Concatenation Menggunakan operator (&)
Cara terbaik dan paling standard dalam penggabungan string adalah operator (&).
Contoh:
Private Sub cmdConcat_Click()
    Dim str As String, str1 As String, str2 As String
    str1 = "New"
    str2 = "Program"
    str = str1 & str2
    Print str
End Sub

Output : NewProgram

Catatan Penting!!!
Operatir (&) menjadi pilihan terbaik karena sat kita ingin memfungsikan variable integer sebagai karakter string dan menggabungkannya dengan karakter string, dapat menghasilkan Type Mismatch error.
Contoh:
Private Sub cmdConcat_Click()
  Dim n As Integer, s As String
  n = 34
  s = "one"
  MsgBox n & s   'kalau pakai + akan error
End Sub


3. Konstanta vbTab
vbTab digunakan untuk menambahkan karakter Tab pada string.
Contoh:
Private Sub Command1_Click()
    Dim s1 As String, s2 As String, str As String
    s1 = "Visual"
    s2 = "Basic"
    MsgBox s1 & vbTab & s2
End Sub

Output :



4. The vbCrLf constant
vbCrLf adalah konstanta untuk menghasilkan karakter (enter) atau menambahkan baris baru pada string.
Contoh :
Dim s1 As String, s2 As String, str As String
s1 = "Visual"
s2 = "Basic"
MsgBox s1 & vbCrLf & s2
Output :



5. Menggunakan operator titik koma (;)
Dalam method print titik kome bisa berdungsi sebagai concatenation.
Contoh:
Dim str As String, str1 As String, str2 As String
str1 = "One"
str2 = "Two"
Print str1; str2
Output : OneTwo

str1 = "One"
str2 = "Two"
Print str1;
Print str2
Output: OneTwo

Click here if you like this article.


0 comments: