Lama sudah tidak pernah main - main dengan Visual basic my true story ):. kamaren isieng buka - buka program lama mungkin ada yang bisa di tulis buat anak iso. setelah lama mencari wah gak dapaet - dapet nih. terpaksa nih merenung sambil ngisep menyan di depan mata.

Terinspirasi dari konfigurasi dari sebuah program apa salahna nih kalo kita buat sebuah program kecil untuk dapat setting sebuah program jadi bila terjadi perubauahn maka akan tersimpan dalam sebuah file.

Biasanya untuk menyimpan konfigurasi tadi di simpan dalamsebuah file ber ekstensi*.ini. pada tulisan saya kali ini akan membahas bagaimana cara menulis file ini dengan visual basic, contohna coba buka file configurasi yang ada di c:\windows\my.ini file tersebut adalah file untuk setting mysql berikut gambarnya

my.ini

Gambar 1. Tampilan file ini.

Setelah kita melihat gambar diatas secara garis besar file ini di bagi atas beberapa bagian.

1.      Section dalam gambar contoh [client] dan [mysql].

2.      Key contoh port, socket.

3.      Isi String 3306.

Ini berarti cara pembacaannya diawali dari Section, Key dan baru isinya.

Pada waktu penulis gunakan bahasa program VB biasanya untuk melakukan edit file ini digunakan Fungsi dari Windows API, seperti pada contoh di bawah ini:
 
Code : //=======================================================
‘Utuk fungsi Widows API yang akan dugunakan untuk read write file ini.
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long
‘Dibawah adalah fungsi yang akan digunakan untuk membaca file ini
Function ReadINI(FileName As String, Section, KeyName As String) As String
    Dim sRet As String
    sRet = String(255, Chr(0))
  ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName, "", sRet, Len(sRet), FileName))
End Function
‘Dibawah adalah fungsi yang akan digunakan untuk menulis file ini
Function WriteINI(sFilename As String, sSection As String, sKeyName As String, sNewString As String) As Integer
   Dim r
   r = WritePrivateProfileString(sSection, sKeyName, sNewString, sFilename)
End Function
Akhir code :
//===================================================
 
Berikut adalah cara penggunaan fungsi - fungsi di atas:
 Menulis file ini :
WriteINI(“c:\windows\my.ini”,”client”,”port”,”3306”)
Membaca file ini :
Dim str as String
Str = ReadINI(“c:\windows\my.ini”,”client”,”port”)
 
Sekian semoga bermanfaat, untuk penjelasannya lihat source yang di remark ok ):
 
Salam "Manunggaling Kawulo Gusti"