Setelah beberapa hari yang lalu saya memposting tentangMenyimpan/Menampilkan Gambar Dari Database Dengan VB.NET.
Kali ini saya akan memposting tentang Write/Read File .ini Dengan VB.NET, mungkin ada yang belum tahu tentang kegunaan dari file .ini, file .ini adalah sebuah file yang digunakan untuk menyimpan konfigurasi-konfigurasi yang dibutuhkan oleh program yang kita buat, seperti konfigurasi untuk koneksi database, konfigurasi untuk data perusahaan, toko atau sebagainya, dan juga masih banyak lagi.
Langkah - langkah Write/Read File .ini Dengan VB.NET
1. Buatlah project dengan visual studio
2. Design form seperti gambar dibawah ini
Object
|
Property
|
Value
|
Textbox1
|
Name
|
Txt_nama
|
Textbox2
|
Name
|
Txt_alamat
|
Textbox3
|
Name
|
Txt_notelepon
|
Textbox4
|
Name
|
Txt_website
|
Button1
|
Name
|
Btn_read
|
|
Text
|
Read
|
Button2
|
Name
|
Btn_write
|
|
Text
|
write
|
3. Buatlah sebuah function dan procedure untuk write file .ini dengan script dibawah ini
01 | 'fungsi untuk write file .ini |
02 | Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _ |
03 | Alias "WritePrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _ |
04 | ByVal lpParamVal As String, ByVal lpFileName As String) As Int32 |
06 | 'procedure untuk write .ini |
07 | Private Sub writeini(ByVal iniFilename As String, ByVal section As String, ByVal ParamName As String, ByVal ParamVal As String) |
08 | 'menanggil fungsi WritePrivateProfilString untuk write file .ini |
09 | Dim result As Integer = WritePrivateProfileString(section, ParamName, ParamVal, iniFilename) |
4. Buatlah sebuah function dan procedure untuk read file .ini dengan script dibawah ini
01 | 'function untuk read file .ini |
02 | Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _ |
03 | Alias "GetPrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _ |
04 | ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, _ |
05 | ByVal lpFilename As String) As Int32 |
07 | 'function untuk read file .ini |
08 | Private Function readini(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String |
09 | Dim ParamVal As String = Space$(1024) |
10 | Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), iniFileName) |
11 | 'mengembalikan nilai yang sudah didapatkan |
12 | readini = Strings.Left(ParamVal, LenParamVal) |
5. Klik 2 kali pada tombol Write dan ketikan script dibawah ini
01 | 'menyiapkan string untuk menampung lokasi file .ini |
02 | Dim FilePath As String = Application.StartupPath & "\setting.ini" |
03 | 'memanggil procedure writeini untuk menyimpan data nama pada file setting.ini |
04 | writeini(FilePath, "Data Perusahaan", "Nama", txt_nama.Text) |
05 | 'memanggil procedure writeini untuk menyimpan data alamat pada file setting.ini |
06 | writeini(FilePath, "Data Perusahaan", "Alamat", txt_alamat.Text) |
07 | 'memanggil procedure writeini untuk menyimpan data no telepon pada file setting.ini |
08 | writeini(FilePath, "Data Perusahaan", "No. Telepon", txt_notelepon.Text) |
09 | 'memanggil procedure writeini untuk menyimpan data website pada file setting.ini |
10 | writeini(FilePath, "Data Perusahaan", "Website", txt_website.Text) |
11 | 'menampilkan pesan konfigurasi berhasil disimpan |
12 | MsgBox("Konfigurasi berhasil disimpan", MsgBoxStyle.Information, "Informasi") |
6. Klik 2 kali pada tombol Read dan ketikan script dibawah ini
01 | 'menyiapkan string untuk menampung lokasi file .ini |
02 | Dim FilePath As String = Application.StartupPath & "\setting.ini" |
03 | 'memanggil function read ini untuk mengambil data nama dari file setting.ini |
04 | txt_nama.Text = readini(FilePath, "Data Perusahaan", "Nama", "") |
05 | 'memanggil function read ini untuk mengambil data alamat dari file setting.ini |
06 | txt_alamat.Text = readini(FilePath, "Data Perusahaan", "Alamat", "") |
07 | 'memanggil function read ini untuk mengambil data no. telepon dari file setting.ini |
08 | txt_notelepon.Text = readini(FilePath, "Data Perusahaan", "No. Telepon", "") |
09 | 'memanggil function read ini untuk mengambil data website dari file setting.ini |
10 | txt_website.Text = readini(FilePath, "Data Perusahaan", "Website", "") |
11 | 'Menampilkan pesan konfigurasi berhasil didapatkan |
12 | MsgBox("Data konfigurasi berhasil di dapatkan", MsgBoxStyle.Information, "Informasi") |
7. Jalankan program tersebut dengan menekan CTRL+F5
Anda bisa mendownload source codenya
disini
ConversionConversion EmoticonEmoticon