Menyimpan data Ke File Txt / Notepad VB

Sebelumnya kita telah belajar mengenai operasi file database di visual basic, kali ini kita akan mengaplikasikanya ke sebuah program, operasi file yang akan kita gunakan adalah Menyimpan file, sekilas mngenai program yang akan kita buat, kita akan menuliskan sebuah data buku tamu sebuah perusahaan, dan menyimpanya di dalam sebuah file data dngan format txt (notepad), baiklah berikut tutorialnya :

1. Pertama jalankan VB dengan program Standar EXE,

2. Tambahkan 5 Label, 4 Text box, 2 Command Buton dan 1 list Box, lalu ubah propertienya seperti ini :

Tool Box	Properties	Keterangan
Form1	Start Up	Center Screen
Label1	Caption	(Judul)
Label2		No
Label3		Name
Label4		From
Label5		Purpose
Text1	Text	(Kosong)
Text2
Text3
Text4
Command1	Caption	Clear
Command2		Save
All	Font Size	10

Jangan lupa atur juga lebarnya, contohnya seperti ini :

3. Sebelum menuliskan script, Save terlebih dahulu program

4. Jika sudah tambahkan script berikut :

Dim Data As Integer
Dim Name1(100), No1(100), From1(100), Purpose1(100) As String

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
'Jika text1 sampai text4 kosong ketika command2 "SAVE" di klik, maka akan ada pesan
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Please, Complete The Form !", vbInformation, "Blues Pedia"
Else

'Menambahkan data ke list1
Data = Data + 1
No1(Data) = Trim(Text1)
Name1(Data) = Trim(Text2)
From1(Data) = Trim(Text3)
Purpose1(Data) = Trim(Text4)
Senteces = No1(Data) & " : " & Name1(Data) & " : " & From1(Data) & " : " & Purpose1(Data)
List1.AddItem Senteces
Command2.Enabled = False

'Membuka sekaligus membuat file (Pertama kali) guest.txt
Open App.Path & "\guest.txt" For Output As #1

'Menyimpan data ke file guest.txt
For i = 1 To Data
Print #1, No1(i), Name1(i), From1(i), Purpose1(i)
Next i

'Menutup file guest.txt
Close #1
End If
End Sub

Private Sub Form_Load()
Data = 0
List1.clear
End Sub

5. Jalankan Program
Pertama isi semua kolom text box
Text1 (No) : Tamu Ke berapa
Text2 (Name) : Nama
Text3 (From) : Dari (Bisa alamat, organisasi, perusahaan)
Text4 (Purpose) : Kepentingan, tam tersebut datang dengan tujuan apa

lalu klik Save, maka otomatis list1 akan berisi data yang telah di tuliskan, begitu juga dengan data guest.txt, (Cek di lokasi penyimpanan program, maka akan ada file guest.txt)

Sekian tutorial kali ini mengenai cara menyimpan data ke file txt / notepad,
Terima Kasih, Semoga bermanfaat