Asc: Mengenal Fungsi String VB6

Asc - Kegunaan fungsi string dalam VB6.

Kegunaan Asc dalam VB6:

Fungsi Asc berguna untuk memperoleh nilai angka yang merupakan kode ANSI dari sebuah string.

Contoh Asc dalam VB6:

    txtHasil.Text = Asc("A") 'maka akan memperoleh nilai 65
    'demikian juga
    txtHasil.Text = Asc("AAA")  'maka akan memperoleh nilai 65
    'demikian juga
    txtHasil.Text = Asc("AB") 'akan memperoleh nilai 65

Catatan mengenai Asc dalam VB6:

Dari ketiga contoh di atas yang menjadi patokan adalah karakter pertama, selanjutnya karakter pertama tersebut akan dirubah menjadi kode ANSI berupa angka, yang secara kebetulan dalam contoh di atas adalah karakter A dan kode ANSI untuk karakter A adalah 65.

Demikian fungsi string Asc dalam VB6, semoga bermanfaat bagi mereka yang sedang ingin mengetahui fungsi-fungsi string dalam VB6 khususnya fungsi string Asc.

READ MORE - Asc: Mengenal Fungsi String VB6

LCase: Mengenal Fungsi String VB6

LCase - Mengenal fungsi-fungsi string dalam VB6

 Kegunaan LCase dalam VB6:

Fungsi LCase berguna untuk mengkonversi seluruh string menjadi huruf kecil.

Contoh LCase dalam VB6:

    Msgbox LCase("Jakarta Bandung") 'maka jakarta bandung

Demikian kegunaan fungsi string LCase dalam VB6, semoga bermanfaat.

READ MORE - LCase: Mengenal Fungsi String VB6

Filter: Mengenal Fungsi String VB6

Filter- Kegunaan fungsi string dalam VB6.

Kegunaan Filter dalam VB6:

Fungsi Filter berguna untuk memfilter sebuah array (include atau exclude).

Contoh Filter dalam VB6:

Option Explicit

'Contoh include (memperoleh string yang sama dengan "B" dari arrTest)
'dan case-sensitive (memperdulikan apakah B huruf besar atau huruf kecil)
Private Sub cmdEvaluate_Click()
    Dim arrTest() As String
    Dim arrMatch() As String
    
    arrTest = Split("A,B,C,D,B,B,B,B,B,B,B,C", ",")
    arrMatch = Filter(arrTest, "B", True)
    
    MsgBox "Banyaknya string yang sesuai: " & UBound(arrMatch)
    txtResult.Text = arrMatch(0) & " " & arrMatch(1) & " " & arrMatch(2) & " " & arrMatch(3)
End Sub

'Contoh include (memperoleh string yang sama dengan "B" dari arrTest)
'dan case-insensitive (tidak memperdulikan apakah B huruf besar atau huruf kecil)
Private Sub cmdEvaluate_Click()
    Dim arrTest() As String
    Dim arrMatch() As String
    
    arrTest = Split("A,B,C,D,B,B,B,B,B,B,B,C", ",")
    arrMatch = Filter(arrTest, "B", True, vbTextCompare)
    
    MsgBox "Banyaknya string yang sesuai: " & UBound(arrMatch)
    txtResult.Text = arrMatch(0) & " " & arrMatch(1) & " " & arrMatch(2) & " " & arrMatch(3)
End Sub

'contoh exclude (memperoleh string yang tidak sama dengan "B" dari arrTest)
Private Sub cmdEvaluate_Click()
    Dim arrTest() As String
    Dim arrMatch() As String
    
    arrTest = Split("A,B,C,D,B,B,B,B,B,B,B,C", ",")
    arrMatch = Filter(arrTest, "B", False)
    
    MsgBox "Banyaknya string yang sesuai: " & UBound(arrMatch)
    txtResult.Text = arrMatch(0) & " " & arrMatch(1) & " " & arrMatch(2) & " " & arrMatch(3)
End Sub

Demikian contoh fungsi string Filter sebuah Array dalam VB6.

READ MORE - Filter: Mengenal Fungsi String VB6

Chr: Mengenal Fungsi String VB6

Chr - Kegunaan fungsi string dalam VB6.

Kegunaan Chr dalam VB6:

Fungsi Chr berguna untuk memperoleh string dari kode karakter.

Contoh Chr dalam VB6:

    txtHasil.Text = Chr(65)    ' akan memperoleh A.
    txtHasil.Text = Chr(97)    ' akan memperoleh a.
    txtHasil.Text = Chr(62)    ' akan memperoleh >.
    txtHasil.Text = Chr(37)    ' akan memperoleh %.

Demikian fungsi string Chr dalam VB6, semoga bermanfaat.

READ MORE - Chr: Mengenal Fungsi String VB6