Menyimpan Data ke File dengan Visual basic 6.0

Menyimpan Data ke File dengan Visual basic 6.0 - Untuk menyimpan data ke file di dalam program Visual Basic dapat dilakukan dengan membuka file untuk keperluan menyimpan atau menulis ke file dengan Visual Basic:

Open Nama_File For Output As #1

Saat file dibuka dengan cara semacam ini, maka file hanya bisa ditulisi dan bila file tersebut sudah ada isinya sebelumnya, maka dianggap hilang. Atau dengan kata lain file selalu dianggap baru. Cara menyimpan file semacam ini menghasilkan file yang bersifat file text, sehi ngga bisa dibaca oleh text editor seperti notepad, wordpad atau microsoft word. Setelah file dibuka, langkah berikut nya untuk menyimpan data dalan variabel ke file dapat dilakukan dengan:

Print #1, nama_variabel

Menyimpan data dalam buku tamu ke dalam file pegawai.txt, yang isinya adalah nama, alamat, dan nomor telepon. Contoh datanya adalah:

Menyimpan Data ke File dengan Visual Basic

Nama	Alamat	No. Telp
Basuki	Semolowaru Utara Surabaya	81331344000
Widya	Semolowaru Elok Surabaya	317810870
Dian	Mulyosari Selatan Surabaya	0811235623
Teguh Arif Rahman Hakim	10A Surabaya	0315991010
Rizki Keputih	II/56 Surabaya	0315943201

Langkah-langkah pembuatannya adalah:

(1) Buat project baru dengan StandardEXE. Untuk form1, isi property [Name] dengan formLatihan

(2) Tambahkan komponen-komponen label, te xtbox, listbox dan command button. Atur tampilannya seperti gambar 9.1 di bawah ini

(3) Pada jendela code, tambahkan kode program berikut.

Dim Ndata As Integer

Dim nama(100), alamat(100), notelp(100) As String

Private Sub Command1_Click()

'Mengambil data dari komponen text

Ndata = Ndata + 1

nama(Ndata) = Trim(Text1)

alamat(Ndata) = Trim(Text2)

notelp(Ndata) = Trim(Text3)

'Menampilkan ke listbox

kalimat = nama(Ndata) & " : " & alamat(Ndata)

kalimat = kalimat & " : " & notelp(Ndata)

List1.AddItem kalimat

'Kosongkan text

Text1 = ""

Text2 = ""

Text3 = ""

'Letakkan pointer di Text1

Text1.SetFocus

End Sub

Private Sub Command2_Click()

'Buka File untuk menyimpan data

namafile = App.Path & "\pegawai.txt"

Open namafile For Output As #1

'Menyimpan semua data

For i = 1 To Ndata

Print #1, nama(i), alamat(i), notelp(i)

Next i

'Menutup file

Close #1

End Sub

Private Sub Form_Load()

Ndata = 0

List1.Clear

End Sub

Perhatikan pada bagian mengambil data dari text terdapat fungsi Trim yang berguna untuk membersihkan spasi sebelah kiri dan kanan dari suatu teks. Perhatikan pada namafile ada perintah App.Path yang arti file diletakkan pada folder sama dengan program aplikasinya.

(4) Simpan project dengan nama projectLatihan91. Jalankan program dan isi semua

data yang diminta. Setelah itu tekan tom bol [Simpan ke File]. Hasilnya adalah

file pegawai.txt yang berada pada folder dimana program disimpan.

(5) Buka file pegawai.txt menggunakan NotePad.