Donatur utama

Selasa, 24 Februari 2009

Pembacaan Text File(Notepad) menggunakan Visual Basic 2005

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 :


  1. system.io.file.exists(namafile) berfungsi untuk mengecek keberadaan file apakah sudah ada apa belum.
  2. system.io.streamwriter(namafile) berfungsi untuk membuat file baru atau membuka file untuk diisi/ditambahi
  3. 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


  1. Readline berfungsi untuk membaca satu bari

  2. readtoend berfungsi untuk membaca isi file sampai habis

  3. endofstream berfungsi mengecek apakah cursor sudah berada pada data paling akhir


  4. write berfungsi untuk menuliskan/menambah data ke file dengan posisi cursor berada paling kanan

  5. 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



2 komentar:

nelson kaligis on 13 Maret 2009 pukul 23.18 mengatakan...

Sekarang telah mucul notepad++ !!!!

salam kenal pak !!!

balas koment yah ;) !!!

Iqbal Habibie on 8 September 2011 pukul 21.49 mengatakan...

Sepertinya program skrip vb.net.downloadnya dimana softwarenya? bisa ksh link source ocdenya nggak??

 

Berlangganan

Enter your email address:

Delivered by FeedBurner

Belajar Tik


Pengikut

Komentar Terbaru

Belajar Tik
Tempatnya Belajar Teknologi Informasi dan Komunikasi

Administrator By : 3eta