19 March 2010

Visual Basic 6.0 dan Text File

Ceritanya kita mau bikin program yang berkomunikasi dengan sebuah text file nih....
Nah data yang ada di text file itu akan ditampilkan di form Visual Basic.

Pertama-tama kita buat design form nya dulu, kira2 seperti ini:


Lalu buat sebuah text file misalnya bernama setup.txt. Simpan di folder yang sama dengan project agar dapat dipanggil dengan code App.Path


Kemudian buka file tersebut dan isikan tiga baris seperti berikut:

simpan perubahan file text.

ketikan code berikut pada form:
Option Explicit
Dim strNama As String
Dim strAlamat As String
Dim strTelepon As String

Private Sub Form_Load()
'Ambil data dari file text
Open App.Path & "\setup.txt" For Input As #1
Input #1, strNama
Input #1, strAlamat
Input #1, strTelepon
Close #1

'Tampilkan data ke control VB
Text1.Text = strNama
Text2.Text = strAlamat
Text3.Text = strTelepon
End Sub


Lalu coba run...


Tampilkan isi data yang ada di file text nya? ^_^

Setelah itu kita akan membuat code untuk mengubah isi file text dengan teks yang ada di textbox. Code akan ditambahkan pada event commandbutton save, yaitu command1_click
Private Sub Command1_Click()
Open App.Path & "\setup.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text

Close #1
End Sub


Lalu run lagi, coba ubah text yang ada pada textbox dan tekan save.


Dan isi file text pub berubah....


Selamat mencoba...

0 comments: