Showing posts with label String. Show all posts

Monday, December 10, 2012

VB6 Code - Fungsi Untuk Menjadikan Kalimat Judul

Di bawah ini merupakan fungsi VB6 untuk menjadikan kalimat judul (maksudnya kalimat yang setiap katanya diawali dengan huruf besar), baik pada sebuah kata atau kalimat.

Fungsi untuk menjadikan kalimat judul

Function TitleCase(txt) As String
   TitleCase = StrConv(txt, vbProperCase)
End Function

Contoh penggunaan fungsi untuk menjadikan kalimat judul

Private Sub Form_Load()
   MsgBox TitleCase("FUNGSI UNTUK MENJADIKAN KALIMAT JUDUL")
   'Maka akan ditampilkan: Fungsi Untuk Menjadikan Kalimat Judul
   'dengan huruf besar pada seluruh awal kata
End Sub

VB6 Code - Fungsi Untuk Mengecilkan Seluruh Huruf

Di bawah ini merupakan fungsi VB6 untuk mengecilkan seluruh huruf, baik pada kata atau kalimat.

Fungsi untuk mengecilkan seluruh huruf:

Function LowerCase(txt As String) As String
     LowerCase = StrConv(txt, vbLowerCase)
End Function

Contoh penggunaan Fungsi untuk mengecilkan seluruh huruf:

Private Sub Form_Load()
     MsgBox LowerCase("Fungsi Untuk Mengecilkan Seluruh Huruf")
     'Maka akan ditampilkan fungsi untuk mengecilkan seluruh huruf
End Sub

VB6 Code - Menjadikan Seluruh Kapital

Di bawah ini merupakan fungsi VB6 untuk membesarkan seluruh huruf (membuat seluruh huruf menjadi kapital), baik pada kata atau kalimat.

'Fungsi untuk membesarkan seluruh huruf
     Function UpperCase(txt As String) As String
       UpperCase = StrConv(txt, vbUpperCase)
End Function

'Contoh penggunaan Fungsi untuk membesarkan seluruh huruf:
Private Sub Form_Load()
      MsgBox UpperCase("Fungsi Untuk Membesarkan Seluruh Huruf")
     'Maka akan ditampilkan FUNGSI UNTUK MEMBESARKAN SELURUH HURUF
     'dengan huruf besar seluruhnya
End Sub

Wednesday, December 5, 2012

VB6 Code - Encrypt Decrypt String Yang Disertai Password

Contoh fungsi encrypt- decrypt string yang disertai dengan password menggunakan VB6.

'Fungsi untuk meng-encrypt string
Public Function EncryptText(strText As String, ByVal strPwd As String)
    Dim i As Integer, c As Integer
    Dim strBuff As String
    If Len(strPwd) Then
        For i = 1 To Len(strText)
            c = Asc(Mid$(strText, i, 1))
            c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(c And &HFF)
        Next i
    Else
        strBuff = strText
    End If
    EncryptText = strBuff
End Function

'Fungsi untuk men-decrypt string 
Public Function DecryptText(strText As String, ByVal strPwd As String)
    Dim i As Integer, c As Integer
    Dim strBuff As String
    If Len(strPwd) Then
        For i = 1 To Len(strText)
            c = Asc(Mid$(strText, i, 1))
            c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(c And &HFF)
        Next i
    Else
        strBuff = strText
    End If
    DecryptText = strBuff
End Function

Wednesday, April 14, 2010

VB6 Code - Fungsi Format RTF Untuk Pembuatan Kamus

Pernah menggunakan Kamus 2.04 (Kamus Bahasa Inggris)? Di sana terdapat objek RichTextBox yang memuat terjemahan bahasa Inggris yang diformat secara warna-warni. Kamus tersebut dibuat dengan bahasa pemrograman Delphi. Nah, Bagaimana imlementasi format RichTextBox tersebut dalam bahasa pemrograman VB6.0.
Di bawah ini merupakan contoh format RTF untuk keperluan pembuatan kamus Bahasa Inggris. Fungsi di bawah ini dapat bekerja dengan sangat cepat, mengapa? karena ia tidak memformat tulisan pada objeknya secara langsung akan tetapi, memformat string yang terdapat dalam memori kemudian mem-feed-nya kembali ke dalam objek RichTextBox.

Bukankah:

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 1000
  Text1.Text = Text1.Text & "contoh tulisan" & vbCrLf
Next
End Sub

Berbeda dengan kode di bawah ini:

Private Sub Command1_Click()
Dim i As Integer
Dim sText As String
sText = Text1.Text
For i = 1 To 1000
  sText = sText & "contoh tulisan" & vbCrLf
Next
Text1.Text = sText
End Sub

Sepintas dua kode di atas akan memberikan hasil yang sama akan tetapi berbeda jauh dalam segi kecepatan.

Di bawah ini merupakan fungsi format RTF untuk pembuatan kamus bahasa inggris:

Option Explicit

Public Function FormatSentence(sSentence As String) As String
Dim sFormat As String
Dim sKosakata As String
Dim sText As String
Dim i As Integer
sFormat = "{\rtf1\fbidis\ansi\ansicpg1256\deff0\deflang1025{\fonttbl{\f0\fswiss\fcharset0 Arial;}}" & vbCrLf & _
"{\colortbl ;\red128\green0\blue0;\red0\green0\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green0\blue0;\red128\green0\blue128;}" & vbCrLf & _
"{\*\generator Msftedit 5.41.15.1512;}\viewkind4\uc1\pard\ltrpar\lang1033\f0\fs17"
sKosakata = sSentence
sText = " " & Text1.Text
sText = Replace(sText, vbCrLf, " \Par" & vbCrLf)
sText = Replace(sText, " kb. ", " \cf2\b kb. \cf0\b0 ")
sText = Replace(sText, " -kki. ", " \cf5\b kki. \cf0\b0 ")
sText = Replace(sText, " kk. ", " \cf1\b kk. \cf0\b0 ")
sText = Replace(sText, " ks. ", " \cf3\b ks. \cf0\b0  ")
sText = Replace(sText, " -ks. ", " \cf3\b -ks. \cf0\b0 ")
sText = Replace(sText, " -kkt. ", " \cf5\b -kkt. \cf0\b0 ")
sText = Replace(sText, "(", "\cf5(\cf0 ")
sText = Replace(sText, ")", "\cf5)\cf0 ")
For i = 1 To 100
  If InStr(1, sText, i) Then
      sText = Replace(sText, " " & i & " ", " \b " & i & " \cf0\b0 ")
  End If
Next
sText = Replace(sText, " -kkt. ", " \cf5\b -kkt. \cf0\b0 ")
sText = Replace(sText, " ks. ", " \cf3\b ks. \cf0\b0 ")
sText = sFormat & "\b " & sKosakata & "\b0 " & sText & "\par" & vbCrLf & "}"
FormatSentence = sText
End Function

Private Sub Form_Load()
RTF.BackColor = RGB(241, 243, 241)
End Sub

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()
RTF.TextRTF = FormatSentence(Text2.Text)
End Sub

Maka hasilnya seperti gambar di bawah ini:

Catatan:
Fungsi di atas hanyalah sekadar contoh, Anda dapat memodifikasinya untuk disesuaikan dengan kebutuhan.

Download: Source code fungsi format RTF untuk Kamus Bahasa Inggris

Sunday, April 4, 2010

VB6 Code - Membuat Kata Secara Acak (Random)

Di bawah ini merupakan fungsi VB6 code untuk membuat sebuah kata secara acak.

Option Explicit

Public Function RandomString(Optional Max As Integer = 5) As String

 Dim sAlpha As String
 Dim iLoop As Integer
 Dim iRandNum As Integer
 Dim sMatch As String
 Dim str As String
 sAlpha = "abcdefghijklmnopqrstuvwxyz"

 Randomize

 For iLoop = 1 To Max
     iRandNum = Int((26 - 1 + 1) * Rnd + 1)
     sMatch = Mid(sAlpha, iRandNum, 1)
     str = str & sMatch
 Next iLoop

 RandomString = str

End Function

Contoh penggunaan fungsi menampilkan kata secara acak

Private Sub Command1_Click()
 MsgBox RandomString 10
End Sub

VB6 Code - Encrypt Dan Decrypt Sederhana

Di bawah ini merupakan fungsi VB6 untuk melakukan encrypt dan decrypt string secara sederhana, adapun kode VB6 untuk melakukan encrypt dan decrypt string secara sederhana adalah sebagai berikut:

Option Explicit

Public Function Encrypt(sText As String) As String
    Dim i As Integer
    Dim msg As String
    For i = 1 To Len(sText)
        msg = msg & Chr(Asc(Mid(sText, i, 1)) + 9)
    Next
    Encrypt = msg
End Function

Public Function Decrypt(sText As String) As String
    Dim i As Integer
    Dim msg As String
    For i = 1 To Len(sText)
        msg = msg & Chr(Asc(Mid(sText, i, 1)) - 9)
    Next
    Decrypt = msg
End Function

Contoh penggunaan fungsi encrypt dan decrypt sederhana

Private Sub Command1_Click()
    Text2.Text = Encrypt(Text1.Text)
End Sub

Private Sub Command2_Click()
    Text3.Text = Decrypt(Text2.Text)
End Sub

VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?

Di bawah ini merupakan fungsi VB6 yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?

Option Explicit

Public Function IsEven(Number As Double) As Boolean
    IsEven = IIf(Number Mod 2 = 0, True, False)
End Function

Contoh penggunakan kode VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsEven(20) 'return true
End Sub

Private Sub Command1_Click()
    MsgBox IsEven(21) 'return false
End Sub

VB6 Code - Generate Nomor Secara Unik

Di bawah ini merupakan fungsi VB6 yang berlaku sebagai sebuah generator agar menampilkan nomor secara unik (tidak ada yang sama satu dengan yang lainnya). Adapun kode VB6 untuk melakukannya adalah sebagai berikut:

Option Explicit

Private Function GenRanUnix(MIN As Integer, MAX As Integer) As Collection

    Dim iMax As Integer
    Dim iRan As Integer
    Dim g As Integer
    Dim y As Integer
    Dim c As New Collection
    Dim k As New Collection
    Dim f As Integer
    Dim x As Integer
    
    For f = MIN To MAX
        c.Add f
    Next
    
    y = c.Count
    Randomize
    
    For x = 1 To y
        g = Int(y * Rnd + 1)
        k.Add c.Item(g)
        c.Remove g
        y = c.Count
    Next
    
    Set GenRanUnix = k
 
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim b As New Collection
    Dim i As Integer
    Dim msg As String
     List1.Clear
    Set b = GenRanUnix(0, 100)
    For i = 1 To b.Count
        List1.AddItem b.Item(i)
    Next
End Sub

Demikian mengenai cara membuat fungsi VB6 untuk men-generate nomor secara unik.

VB6 Code - Animasi Ketikan Tanpa Flicker

Fungsi VB6 di bawah ini digunakan untuk animasi yang menyerupai text yang sedang di ketik. Animasinya sangat halus nyaris tanpa kedipan.

Option Explicit

Dim sAnimation As String

Private Sub Form_Load()
    sAnimation = "Asep Hibban : http://4basic-vb.blogspot.com"
End Sub

Private Sub Timer1_Timer()
    Dim sToAnimate As String
    Static iAnimation As Integer
    Dim c As Integer
    iAnimation = iAnimation + 1
    
    sToAnimate = Mid(sAnimation, 1, iAnimation)
    With Picture1
        .Cls
        .CurrentX = 25
        .CurrentY = 100
        Picture1.Print sToAnimate
    End With
    If iAnimation >= Len(sAnimation) Then
      iAnimation = 0
    End If
End Sub

VB6 Code - Menghapus Spasi Rangkap

Di bawah ini merupakan fungsi VB6 untuk menghapus/menghilangkan spasi yang tidak diperlukan (spasi rangkap).

Option Explicit

Private Function DelJunkSpace(str As String) As String
    Do While (InStr(str, "  ") > 0)
        str = Replace(str, "  ", " ")
    Loop
    DelJunkSpace = str
End Function

Contoh penggunaan fungsi di atas

Private Sub Form_Load()
    Dim str As String
    str = "Asep         Hibban        http://4basic-vb.blogspot.com"
    'menjadi = "Asep Hibban http://4basic-vb.blogspot.com"
    Text1.Text = str
End Sub

Saturday, April 3, 2010

VB Code - Menghapus Seluruh Komentar Visual Basic 6.0

Di bawah ini merupakan fungsi VB6 untuk menghapus seluruh komentar yang terdapat dalam source code Visual Basic 6.0. Kami membuatnya menjadi dua fungsi, fungsi pertama untuk menghapus seluruh komentar sedangkan fungsi yang kedua untuk menghapus seluruh line kosong. Berikut kodenya di bawah ini:
Di bawah ini merupakan fungsi untuk menghapus seluruh komentar yang terdapat dalam Visual Basic 6.0:

Option Explicit

Function DeleteAllComment(sText As String) As String
    
    Dim str As String
    Dim vArray As Variant
    Dim g As String
    Dim i As Integer
    Dim x As Integer
    Dim w As Integer
    Dim u As String
    Dim y As Integer
    
    str = sText
    vArray = Split(str, vbCrLf)

    For i = LBound(vArray) To UBound(vArray)
    
            If Trim(Right(vArray(i), 1)) = "_" Then
                
                Do While Trim(Right(vArray(i + w), 1)) = "_"
                    
                     If w > 0 Then
                       vArray(i) = vArray(i) & Left(vArray(i + w), Len(vArray(i + w)) - 1) & " "
                       vArray(i + w) = "'"
                    Else
                       vArray(i) = Left(vArray(i), Len(vArray(i)) - 1)
                    End If
                    
                    w = w + 1
                    
                Loop
                
                vArray(i) = vArray(i) & Left(vArray(i + w), Len(vArray(i + w))) & " "
                vArray(i + w) = "'"
                
            End If
         
            w = 0
         
            y = InStr(1, vArray(i), Chr(34) & "'" & Chr(34))
            x = InStr(1, vArray(i), "'")
            
            If x > 0 Then
               
               If (y = 0) Then
               
                   If Right(vArray(i), 1) = "_" Then
                       Do While Right(vArray(i + w), 1) = "_"
                            If w > 0 Then vArray(i + w) = "'"
                           w = w + 1
                       Loop
                       vArray(i + w) = "'"
                   End If
                   
                   If Trim(Mid(vArray(i), 1, x)) <> "'" Then
                       
                       If Right(Mid(vArray(i), 1, x), 1) = "'" Then
                           g = g & Left(Mid(vArray(i), 1, x), Len(Mid(vArray(i), 1, x)) - 1) & vbCrLf
                       Else
                           g = g & Mid(vArray(i), 1, x) & vbCrLf
                       End If
                       
                   End If
                   
                Else
                   g = g & vArray(i) & vbCrLf
                End If
             Else
                g = g & vArray(i) & vbCrLf
            End If

    Next
    
    DeleteAllComment = g
    
End Function

Di bawah ini merupakan fungsi untuk menghapus seluruh jajaran kosong (blank line)

Function DeleteBlankLine(sText As String) As String

    Dim str As String
    Dim vArray As Variant
    Dim i As Integer
    Dim g As String
    
    str = sText
    vArray = Split(sText, vbCrLf)
    
    For i = LBound(vArray) To UBound(vArray)
        
        If Trim(vArray(i)) <> "" Then
            g = g & vArray(i) & vbCrLf
        End If
        
    Next
    
    DeleteBlankLine = g
    
End Function

Cara penggunaan:

Option Explicit

Private Sub Command1_Click()
    Dim str As String
    str = DeleteAllComment(Text1.Text)
    Text2.Text = DeleteBlankLine(str)
End Sub

VB6 Code - Fungsi Encode Dan Decode Tag HTML

Mengenai Fungsi VB6 untuk meng-encode dan decode tag HTML - Kode HTML yang dituliskan dalam sebuah tulisan/postingan tentu saja tidak dapat ditulis secara langsung tetapi harus dikonversi terlebih dahulu agar format tulisannya sesuai dengan apa yang diharapkan. Perlu kita ketahui bahwa mesin penerjemah (compiler) akan menganggap tulisannya merupakan kode HTML dan menerjemahkannya, padahal yang kita maksud adalah tulisan, tulisan yang mengandung kode HTML . Dibawah ini merupakan fungsi encode dan decode tag HTML yang bisa Anda gunakan ketika membuat tulisan/postingan yang melibatkan banyak kode/tag HTML.

Option Explicit

Dim EncodeTag() As String
Dim DecodeTag() As String

Enum eType
    Decode
    Encode
End Enum

Public Function EncDecTag(strText As String, EncDec As eType) As String
    Dim i As Integer
    InitTagArray
    For i = LBound(EncodeTag) To UBound(EncodeTag)
        If EncDec = Encode Then
            strText = Replace(strText, EncodeTag(i), DecodeTag(i), , ,  vbTextCompare)
        Else
            strText = Replace(strText, DecodeTag(i), EncodeTag(i), , , vbTextCompare)
        End If
    Next
    EncDecTag = strText
End Function

Private Function InitTagArray()
    Dim EncTag As String
    Dim DecTag As String
    EncTag = "&,<,>," & Chr(34) & ",±"
    DecTag = "&amp;,&lt;,&gt;,&quot;,&plusmn;"
    EncodeTag = Split(EncTag, ",")
    DecodeTag = Split(LCase(DecTag), ",")
End Function

Cara Penggunaan Fungsi Encode dan Decode Tag HTML

Private Sub Command1_Click()
    Text1.SelText = EncDecTag(Text1.SelText, Decode)
End Sub

Private Sub Command2_Click()
    Text1.SelText = EncDecTag(Text1.SelText, Encode)
End Sub

Tuesday, March 23, 2010

VB6 Code - Fungsi CSS Decompress Untuk Editing

Mengenai fungsi VB6 untuk melakukan decompress - Artikel ini berjudul fungsi css decompress untuk editing. Maksud dari css decompress untuk editing ialah sebuah fungsi (procedure) yang digunakan untuk mengembalikan format css yang telah dicompress. Kita tahu bahwa css yang telah dicompress tentu saja akan menyulitkan pada saat kita ingin mengeditnya kembali. Bagaimana fungsi css decompress ini? Fungsi css decompress untuk editing

Option Explicit

Public Function CSSDecompress(sText As String) As String
    Dim sTextCSS As String
    Dim arrCSS() As String
    Dim i As Integer
    sTextCSS = CSSDelSpace(sText)
    sTextCSS = Replace(sTextCSS, "{", "{" & vbCrLf)
    sTextCSS = Replace(sTextCSS, "}", "}" & vbCrLf & vbCrLf)
    sTextCSS = Replace(sTextCSS, ";", ";" & vbCrLf)
    CSSDecompress = sTextCSS
End Function

Private Function CSSDelSpace(sText As String) As String
    Dim sTextCSS As String
    sTextCSS = sText
    sTextCSS = Replace(sTextCSS, " ",  "")
    sTextCSS = Replace(sTextCSS, vbCrLf, "")
    CSSDelSpace = sTextCSS
End Function

Contoh penggunaan fungsi css decompress untuk editing

Private Sub Command2_Click()
    Text1.Text = CSSDecompress(Text1.Text)
End Sub

VB6 Code - Fungsi CSS Compress Opsi Super Compact

Mengenai fungsi VB6 untuk mengcompress CSS super compact - Artikel di bawah ini kami beri judul fungsi css compress opsi super compact. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css compress ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi super compact

Option Explicit

Function CSSCompressSuperCompact(sText As String) As String
  Dim sTextCSS As String
  Dim arrCSS() As String
  Dim i As Integer
  sTextCSS = sText
  sTextCSS = Replace(sTextCSS, " ", "")
  sTextCSS = Replace(sTextCSS, vbCrLf, "")
  arrCSS = Split(sTextCSS, vbCrLf)
  sTextCSS = ""
  For i = LBound(arrCSS) To UBound(arrCSS)
      If arrCSS(i) <> "" Then
          sTextCSS = sTextCSS & arrCSS(i) & vbCrLf
      End If
  Next
  CSSCompressSuperCompact =  sTextCSS
End Function

Contoh penggunaan css compress opsi super compact

Private Sub Command1_Click()
  Text1.Text = CSSCompressSuperCompact(Text1.Text)
End Sub

VB6 Code - Fungsi CSS Compress Opsi Normal

Mengenai fungsi VB6 untuk mengcompress CSS secara normal - Artikel di bawah ini kami beri judul fungsi css compress opsi normal. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css compress ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi normal

Option Explicit

Function CSSCompressNormal(sText As String) As String
  Dim sTextCSS As String
  Dim arrCSS() As String
  Dim i As Integer
  sTextCSS = sText
  sTextCSS = Replace(sTextCSS, " ", "")
  sTextCSS = Replace(sTextCSS, vbCrLf, "")
  sTextCSS = Replace(sTextCSS, "}", "}" & vbCrLf)
  sTextCSS = Replace(sTextCSS, "*/", "*/" & vbCrLf)
  arrCSS = Split(sTextCSS, vbCrLf)
  sTextCSS = ""
  For i = LBound(arrCSS) To UBound(arrCSS)
      If arrCSS(i) <> "" Then
          sTextCSS =  sTextCSS & arrCSS(i) & vbCrLf
      End If
  Next
  CSSCompressNormal = sTextCSS
End Function

Contoh penggunaan css compress opsi normal

Private Sub Command1_Click()
  Text1.Text = CSSCompressNormal(Text1.Text)
End Sub

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com

VB6 Code Fungsi CSS Compress Opsi Light

Mengenai Fungsi CSS Compress Opsi Light menggunakan VB6 - Artikel di bawah ini kami beri judul fungsi css compress opsi light. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi light

Option Explicit

Public Function CSSCompressLight(sText As String) As String
  Dim sTextCSS As String
  Dim arrCSS() As String
  sTextCSS = sText
  sTextCSS = Replace(sTextCSS, " ", "")
  arrCSS = Split(sTextCSS, vbCrLf)
  sTextCSS = ""
  For i = LBound(arrCSS) To UBound(arrCSS)
      If arrCSS(i) <> "" Then
          sTextCSS = sTextCSS & arrCSS(i) & vbCrLf
      End If
  Next
  CSSCompressLight = sTextCSS
End Function

Cara penggunaan fungsi css compress opsi light

Private Sub  Command1_Click()
  Text1.Text = CSSCompress(Text1.Text)
End Sub

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com

Monday, March 22, 2010

VB6 Code - Input Textbox Hanya Untuk Numeric

Artikel ini diberi judul input textbox hanya untuk numeric, maksudnya ialah sebuah TextBox hanya dapat diisi dengan angka saja. Kodenya kami buat menjadi sebuah fungsi agar lebih mudah dalam penggunaan serta memiliki sifat dapat digunakan kembali (reusable). Adapun kode yang dimaksud:

Option Explicit

Private Sub OnlyNumeric(KeyAscii As Integer)

  Select Case KeyAscii
      Case 48 To 57                        ' numeric
      Case 8                               ' backspace
      Case Else: KeyAscii = 0
  End Select

End Sub

Cara penggunaan Fungsi TextBox hanya untuk numerik

Private Sub Text1_KeyPress(KeyAscii As Integer)
  OnlyNumeric KeyAscii
End Sub

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com

VB6 Code - Fungsi Untuk Mengganti Extension Sebuah File

Mengenai fungsi VB6 untuk mengganti extension sebuah file. adapun fungsi VB6 untuk mengganti extention sebuah file adalah sebagai berikut:

Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String)
 Dim str() As String, NewFile As String
 If InStr(1, FileName, ".") Then
     str = Split(FileName, ".")
     NewFile = Replace(FileName, str(UBound(str)), Extention)
     Name FileName As NewFile
 Else
     Name FileName As FileName & "." & Extention
 End If
End Function

Cara penggunaan fungsi untuk mengganti extension sebuah file:

Private Sub Form_Load()
 Call ChangeFileExt("C:\bo.ot.tmp", "exe")
End Sub

VB6 Code - Mengkonversi Tag HTML Dalam Postingan

Di bawah ini merupakan fungsi VB6 untuk mengkonversi tag HTML dalam postingan. Seperti yang kita ketahui kode-kode HTML yang diperuntukan untuk postingan tidak bisa langsung kita tulis, akan tetapi harus dikonversi terlebih dahulu, jika tidak maka kode-kode HTML tersebut akan ditampilkan tidak sesuai dengan apa yang diharapkan. Ada banyak cara mengkonversi kode HTML yang diperuntukan untuk postingan, diantaranya:

Mengunjungi situs yang menyediakan untuk keperluan ini.
Mengganti secara manual dengan menggunakan editor (notepad, notepad++, dll) dengan menggunakan Find and Replace.
Membuat fungsi sendiri (ini yang sedang kita bahas).
dan lain-lain.

Fungsi Untuk Mengkonversi tag HTML dalam Postingan
Public Function ConvertTag4Posting(ByVal sText As String)
   sText = Replace(sText, "&", "&amp;")
   sText = Replace(sText, "<", "&lt;")
   sText = Replace(sText, ">", "&gt;")
   sText = Replace(sText, Chr(34), "&quot;")
   sText = Replace(sText, "±", "&plusmn;")
   '    sText = Replace(sText, " ", "&nbsp;")
   ConvertTag4Posting = sText
End Function

Contoh penggunaan fungsi untuk mengkonversi tag HTML dalam postingan

Private Sub Command1_Click()
   Dim sText As String
   sText = Text1.Text
   sText = ConvertTag4Posting(sText)
   Text1.Text = sText
End Sub

Tentu saja fungsi di atas dapat kita modifikasi disesuaikan dengan kebutuhan.

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com

Subscribe to: Posts ( Atom )

Khoiriyyah - Syair Arab Visual Basic 6.0 Blogging