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 BoxPropertiesKeterangan
Form1Start UpCenter Screen
Label1Caption(Judul)
Label2No
Label3Name
Label4From
Label5Purpose
Text1Text(Kosong)
Text2
Text3
Text4
Command1CaptionClear
Command2Save
AllFont Size10

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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Menyimpan data Ke File Txt / Notepad VB"

Post a Comment