Membuat File Konfigurasi Windows (.ini) dengan VB6

Baca Juga :

File Konfigurasi merupakan sebuah file yang digunakan oleh program Windows untuk memulai pengaturan program. File konfigurasi ini pada umumnya berisi bagian-bagian untuk pengaturan dan pilihan (dibatasi oleh sebuah deret dalam kurung persegi) dengan setiap bagian berisi satu atau lebih patokan (parameter) nama dan nilai. Untuk kali ini admin akan menguraikan bagaimana cara membuat File Konfigurasi Windows (.ini) dengan menggunakan bahasa pemrograman Visual Basic 6.0 (VB6).

Langkah pertama buka Ms. Visual Basic 6.0 (VB6) kemudian buatlah form dan tambahkan 2 buah textbox dan 2 buah commandbutton seperti gambar dibawah ini.

Membuat File Konfigurasi Windows (.ini) dengan VB6

Kemudian simpan Project yang baru kita buat, usahakan didalam sebuah folder dan berinama folder tersebut sesuai selera saja, tambahkan juga satu buah module untuk mendeklarasikan fungsi read dan write file konfigurasi (.ini) selanjutnya copy coding dibawah ini ke module yang baru kita buat tadi.

Option Explicit
Public Function WriteIniValue(INIpath As String, PutKey As String, PutVariable As String, PutValue As String)
Dim Temp As String
Dim LcaseTemp As String
Dim ReadKey As String
Dim ReadVariable As String
Dim LOKEY As Long
Dim HIKEY As Long
Dim KEYLEN As Long
Dim VAR As Long
Dim VARENDOFLINE As Long
Dim NF As Long
Dim x As Long

AssignVariables:
NF = FreeFile
ReadKey = vbCrLf & "[" & LCase$(PutKey) & "]" & Chr$(13)
KEYLEN = Len(ReadKey)
ReadVariable = Chr$(10) & LCase$(PutVariable) & "="

EnsureFileExists:
Open INIpath For Binary As NF
Close NF
SetAttr INIpath, vbArchive

LoadFile:
Open INIpath For Input As NF
Temp = Input$(LOF(NF), NF)
Temp = vbCrLf & Temp & "[]"
Close NF
LcaseTemp = LCase$(Temp)

LogicMenu:
LOKEY = InStr(LcaseTemp, ReadKey)
If LOKEY = 0 Then GoTo AddKey:
HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[")
VAR = InStr(LOKEY, LcaseTemp, ReadVariable)
If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable:
GoTo RenewVariable:

AddKey:
Temp = Left$(Temp, Len(Temp) - 2)
Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue
GoTo TrimFinalString:

AddVariable:
Temp = Left$(Temp, Len(Temp) - 2)
Temp = Left$(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid$(Temp, LOKEY + KEYLEN + 1)
GoTo TrimFinalString:

RenewVariable:
Temp = Left$(Temp, Len(Temp) - 2)
VARENDOFLINE = InStr(VAR, Temp, Chr$(13))
Temp = Left$(Temp, VAR) & PutVariable & "=" & PutValue & Mid$(Temp, VARENDOFLINE)
GoTo TrimFinalString:

TrimFinalString:
Temp = Mid$(Temp, 2)
Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0
Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf)
Loop

Do Until Right$(Temp, 1) > Chr$(13)
Temp = Left$(Temp, Len(Temp) - 1)
Loop

Do Until Left$(Temp, 1) > Chr$(13)
Temp = Mid$(Temp, 2)
Loop

OutputAmendedINIFile:
Open INIpath For Output As NF
Print #NF, Temp
Close NF
End Function

Public Function ReadIniValue(INIpath As String, KEY As String, Variable As String) As String
Dim NF As Long
Dim Temp As String
Dim LcaseTemp As String
Dim ReadyToRead As Boolean

AssignVariables:
NF = FreeFile
ReadIniValue = vbNullString
KEY = "[" & LCase$(KEY) & "]"
Variable = LCase$(Variable)

EnsureFileExists:
Open INIpath For Binary As NF
Close NF
SetAttr INIpath, vbArchive

LoadFile:
Open INIpath For Input As NF
While Not EOF(NF)
Line Input #NF, Temp
LcaseTemp = LCase$(Temp)
If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False
If LcaseTemp = KEY Then ReadyToRead = True
If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then
If InStr(LcaseTemp, Variable & "=") = 1 Then
ReadIniValue = Mid$(Temp, 1 + Len(Variable & "="))
Close NF: Exit Function
End If
End If
Wend
Close NF
End Function

Double klik juga pada commandbutton Simpan dan copy coding dibawah ini

WriteIniValue App.Path & "\Setting.ini", "Konfig Biodata", "NAMA", Text1.Text
WriteIniValue App.Path & "\Setting.ini", "Konfig Biodata", "ALAMAT", Text2.Text

Keterangan : Coding diatas secara otomatis membuat file konfigurasi (.ini) dengan nama Setting.ini dan berisi [Konfig Biodata] yang terdiri dari NAMA dan ALAMAT.

Untuk tahap terakhir double klik juga pada form dan pilih event form_load dan copy coding dibawah ini

Text1.Text = ReadIniValue(App.Path & "\Setting.ini", "Konfig Biodata", "NAMA")
Text2.Text = ReadIniValue(App.Path & "\Setting.ini", "Konfig Biodata", "ALAMAT")

Keterangan : Coding diatas bekerja sewaktu form running dan membaca file konfigurasi dan menampilkannya ke textbox NAMA dan ALAMAT.

Setelah semua langkah terpenuhi sekarang coba run source code diatas, inputkan nama dan alamat kemudian klik tombol simpan, setelah itu coba buka file konfigurasi yang tersimpan didalam folder source code dan buka dan isi dari file konfigurasi tersebut sama dengan data yang kita inputkan pada form source code.