Pada saat pembuatan program pasti dibutuhkan tempat penyimpanan file yang tetap ya paling tidak datanya tidak langsung hilang begitu program dijalankan dan data masih tetap ada jika program dibuka dikemudian hari mungkin bisa dibilang sih seperti file atau database lah. Nah kali ini saya akan coba bahas cara menghubungkan atau membuat file text yang dapat diisi dan dibaca datanya.
p>Untuk melakukan penyimpanan pada data otomatis yang pertama kali kita lakukan adalah menentukan tempat penyimpanan dan nama file, kemudian kita harus perhatikan apakah file tersebut sudah ada atau belum, jika filenya belum ada ya tinggal save saja tetapi kalau file sudah ada berarti ada dua kemungkinan yaitu mengganti nama file atau membiarkan file lama tertimpa alias menghilang karena digantikan file baru, pada Visual basic 2005 kita bisa membuat kemungkinan-kemungkinan seperti itu.
beberapa perintah standard pengaksesan file :
setelah kita membuat akses file maka kita perlu melakukan operasi terhadap file tersebut seperti mengisi dan membaca nah
Beberapa perintah pengolahan isi file
Contoh Program Pada Form1 buat tampilan seperti Berikut ini
Kode Programnya :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If System.IO.File.Exists("BUKUTAMU.TXT") Then
Dim bf As New System.IO.StreamWriter("bukutamu.txt", True)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close
Else
Dim bf As New System.IO.StreamWriter("bukutamu.txt", False)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close()
End If
End Sub
Pada Form3 bentuk tampilan sebagai berikut ini:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("bukutamu.txt") Then
Dim bf As New System.IO.StreamReader("bukutamu.txt")
Do
TextBox1.Text = TextBox1.Text & bf.ReadLine
Loop While Not bf.EndOfStream
bf.Close()
Else
MsgBox("Maaf buku tamu masih kosong")
TextBox1.Enabled = False
End If
End Sub
p>Untuk melakukan penyimpanan pada data otomatis yang pertama kali kita lakukan adalah menentukan tempat penyimpanan dan nama file, kemudian kita harus perhatikan apakah file tersebut sudah ada atau belum, jika filenya belum ada ya tinggal save saja tetapi kalau file sudah ada berarti ada dua kemungkinan yaitu mengganti nama file atau membiarkan file lama tertimpa alias menghilang karena digantikan file baru, pada Visual basic 2005 kita bisa membuat kemungkinan-kemungkinan seperti itu.
beberapa perintah standard pengaksesan file :
- system.io.file.exists(namafile) berfungsi untuk mengecek keberadaan file apakah sudah ada apa belum.
- system.io.streamwriter(namafile) berfungsi untuk membuat file baru atau membuka file untuk diisi/ditambahi
- system.io.streamreader(namafile) berfungsi untuk membuat akses file yang medonya membaca
setelah kita membuat akses file maka kita perlu melakukan operasi terhadap file tersebut seperti mengisi dan membaca nah
Beberapa perintah pengolahan isi file
- Readline berfungsi untuk membaca satu bari
- readtoend berfungsi untuk membaca isi file sampai habis
- endofstream berfungsi mengecek apakah cursor sudah berada pada data paling akhir
- write berfungsi untuk menuliskan/menambah data ke file dengan posisi cursor berada paling kanan
- writeline berfungsi untuk menuliskan/menambahkan data ke file dengan posisi cursor berada di baris berikutnya.
Contoh Program Pada Form1 buat tampilan seperti Berikut ini
Kode Programnya :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Untuk Form2 buatlah tampilan berikut ini 
Kodenya:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If System.IO.File.Exists("BUKUTAMU.TXT") Then
Dim bf As New System.IO.StreamWriter("bukutamu.txt", True)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close
Else
Dim bf As New System.IO.StreamWriter("bukutamu.txt", False)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close()
End If
End Sub
Pada Form3 bentuk tampilan sebagai berikut ini:
Kodenya :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("bukutamu.txt") Then
Dim bf As New System.IO.StreamReader("bukutamu.txt")
Do
TextBox1.Text = TextBox1.Text & bf.ReadLine
Loop While Not bf.EndOfStream
bf.Close()
Else
MsgBox("Maaf buku tamu masih kosong")
TextBox1.Enabled = False
End If
End Sub
