Make Your Life Better: July 2010

Friday, July 30, 2010

Escape Characters

Special character on html type :
Replace the left char with the right one

"   "
'   '
<   <
>   >
&   &

To get File Contents / read file on VB 6

When i develop some application, i need to read file contents. And this code will help you to create it.

Public Function GetFileContents(ByVal FullPath As String) As String
        Dim strContents As String
        Dim fso As FileSystemObject
        Dim ts As TextStream
        
        Set fso = CreateObject("Scripting.FileSystemObject")
        strContents = ""
        If fso.FileExists(FullPath) Then
            Set ts = fso.OpenTextFile(FullPath)
            Do Until ts.AtEndOfStream
             strContents = strContents + ts.ReadLine + vbCrLf
            Loop
                  
            ts.Close
        End If
        GetFileContents = strContents
    End Function

Have a nice days.

Wednesday, July 28, 2010

Read XML file on Visual Basic 6

At the first time we must add reference like this image :

After that we must add some code on vb form, example :

Private Sub CheckConfigurationFiles()
    Dim strFileConf As String
    Dim fso As FileSystemObject
    Dim strFolSC As String
    Dim strFolDS As String
    Dim strAtoClose As String
    Dim strApp As String
    
       
    strFileConf = "SYNDER_BASIC_Con.xml"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(App.Path & "\" & strFileConf) Then
        
        Dim objDOM As MSXML2.DOMDocument40              'Using reference microsoft XML
        Set objDOM = New MSXML2.DOMDocument40
        objDOM.Load App.Path & "\" & strFileConf
        
        'get data parameter, urutan dalam file xml berpengaruh
        strFolSC = objDOM.childNodes(1).childNodes(0).nodeTypedValue
        strFolDS = objDOM.childNodes(1).childNodes(1).nodeTypedValue
        strAtoClose = objDOM.childNodes(1).childNodes(2).nodeTypedValue
        strAppToRun = objDOM.childNodes(1).childNodes(3).nodeTypedValue
End Sub

Have a nice code :D

To set Form Opacity on VB6 code

Setting transparan form dengan VB6.
It’s different from VB.Net that have form property “Opacity” from value 0 – 100 %.

For Visual basic 6 we must set from code behind like this :
1. Set new module (file .bas)

Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&
Public Function Opacity(Value As Byte, Frm As Form)
On Error GoTo ErrorHandler
    Dim MaxVal As Byte, MinVal As Byte
    MinVal = 20: MaxVal = 255
    If Value > MaxVal Then Value = MaxVal
    If Value < MinVal Then Value = MinVal
    SetWindowLongA Frm.hwnd, GWL_EXSTYLE, GetWindowLongA(Frm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Frm.hwnd, 0, Value, LWA_ALPHA
ErrorHandler:     Exit Function
End Function

2. Set on form code when load (file .frm)

Private Sub Form_Load()
    Opacity 150, Me
End Sub

Tuesday, July 27, 2010

Pengembangan kota Bekasi - Summarecon

Bekasi sebagai kota penunjjang kota Jakarta, sudah dilirik oleh pengembang properti “Summarecon”, yang dikenal sebagai pengembang perumahan Kelapa Gading – Jakarta.

Dengan konsep perumahan yang hampir sama dengan perumahan Kelapa Gading, hal ini masih dalam proses pembangunan infrastruktur.

Dengan bermottokan “A Nature inspired Modern Living” Summarecon hendak mengembangan kota Bekasi menjadi kota hunian yang lebih baik dan berkualitas, dengan infrastruktur yang lebih baik pula.

Rencananya dari tol Bekasi barat akan dibangun flyover menuju perumahan ini, sehingga mempermudah para pemilik perumahan tersebut. Serta akan dikembangkan fasilitas-fasilitas penujjang lainnya.

Semoga dengan dibangunnya perumahan Summarecon di Bekasi, membuat Bekasi menjadi kota yang maju, baik iman dan fasilitasnya.

Transportasi yang membutuhkan penangganan - Metromini

Menurut pengalaman pribadi kendaraan transportasi di Indonesia yang membutuhkan perbaikan dan pelayanan adalah “Metromini”, mengapa tidak, hal ini dikarena bentuknya yang sudah terlihat jadoel (old model), kualitas kendaraan yang buruk dan penggunaannya dijalan raya yang terkesan “Mau seenaknya sendiri” dimana banyak masyarakat juga merasakan hal seperti itu.

Kendaraan ini menampung sejumlah penumpang yang lalu lalang di ibukota Jakarta. Namun terkadang dikendaraan ini pula tindak kejahatan sering kali terjadi, seperti pencopetan, pemalakan dan tindakan kriminal lainnya.

Warga Indonesia rindu dengan kenyamanan dalam berkendaraan, jadi memang sudah waktunya kendaraan ini membutuhkan suatu penangganan yang serius. Sehingga dapat menciptakan suasana transportasi yang kondusif.

Monday, July 26, 2010

Hasil Pertandingan FIFA 2010

Lokasi Pertandingan : Afrika Selatan
Berikut ini adalah bagan pertandingan sepak bola dunia FIFA 2010, yang memperlihatkan siapa sang juara untuk tahun tersebut.

Juara ke-01 : Spanyol