Menyimpan Data Ke File Txt / Notepad Vb

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

1. Pertama jalankan VB dengan aktivitas Standar EXE,

2. Tambahkan 5 Label, 4 Text box, 2 Command Buton dan 1 list Box, kemudian ubah propertienya menyerupai 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, misalnya menyerupai 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 hingga text4 kosong dikala command2 "SAVE" di klik, maka akan ada pesan
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Please, Complete The Form !", vbInformation, "Routeros Mikrotik"
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 menciptakan 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 tiba dengan tujuan apa

kemudian 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