Fungsi CSS Compressor Opsi Light | Visual Basic 6.0

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 

READ MORE - Fungsi CSS Compressor Opsi Light | Visual Basic 6.0

Fungsi Untuk Mengganti Extention Sebuah File | Visual Basic 6.0

Mengenai fungsi untuk mengganti extention sebuah file menggunakan kode VB6 - Bagaimanakah cara mengganti sebuah ekstensien pada file tanpa merubah nama file itu sendiri, misalnya file.zip menjadi file.rar atau file.exe.

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 

Adapun cara penggunaan fungsi mengganti extension sebuah file adalah sebagai berikut:

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

READ MORE - Fungsi Untuk Mengganti Extention Sebuah File | Visual Basic 6.0

TextBox Hanya Untuk Numeric | Visual Basic 6.0

Artikel ini diberi judul 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. 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 

READ MORE - TextBox Hanya Untuk Numeric | Visual Basic 6.0

Generator Timestamp ISO 8601 Compliant - VB6 Code

Di bawah ini merupakan fungsi Visual Basic 6.0 untuk melakukan generate timestamp (oauth_timestamp dalam Google atau Twitter) yang dibutuhkan pada saat kita melakukan request terhadap situs affiliate Amazon bersamaan dengan signature yang valid. Fungsi di bawah saya peroleh dari vbhelper. Adapun kode untuk Amazon timestamp tersebut adalah sebagai berikut:

Option Explicit 
 
Private Declare Sub GetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) 
  
Private Type SYSTEMTIME 
    wYear As Integer 
    wMonth As Integer 
    wDayOfWeek As Integer 
    wDay As Integer 
    wHour As Integer 
    wMinute As Integer 
    wSecond As Integer 
    wMilliseconds As Integer 
End Type 
  
' Return an ISO 8601 compliant timestamp. 
Private Function GetIsoTimestamp() As String 
Dim st As SYSTEMTIME 
  
'  Get the local date and time. 
    GetSystemTime st 
    '  Format the result. 
    GetIsoTimestamp = _ 
        Format$(st.wYear, "0000") & "-" & _ 
        Format$(st.wMonth, "00") & "-" & _ 
        Format$(st.wDay, "00") & "T" & _ 
        Format$(st.wHour, "00") & ":" & _ 
        Format$(st.wMinute, "00") & ":" & _ 
        Format$(st.wSecond, "00") & "Z" 
End Function 

Tools Amazon yang dapat membantu Anda dalam hal ini (membuat signature valid untuk request): http://associates-amazon.s3.amazonaws.com/signed-requests/helper/index.html
Keterangan mengenai pembuatan signature: http://docs.amazonwebservices.com/AlexaTopSites/latest/index.html?CalculatingSignatures.html

READ MORE - Generator Timestamp ISO 8601 Compliant - VB6 Code