Operasi file pada vb6

Operasi file pada vb6
Di Posting Oleh : wandi
Kategori : Pelajaran Pemprograman vb6

Selamat datang kawan kawan di blog saya yang sederhana ini . Di kesempatan kali ini saya akan coba share mengenai vb lagi . Kali ini kita akan bahas mengenai operasi file pada vb6 . Jadi kita kali ini akan coba untuk membaca file , menulis file , dkk .

Baca Juga : Constrctor pada Java

Untuk struktur penulisan operasi file di vb6 , kita gunakan

open "lokasi_file" for status as #n

close #n

Status di dalam vb6 ada dua yaitu input untuk membaca file dan output untuk menyimpan file . #n itu maksudnya file mana yang akan di proses , yang nilainya berupa integer .

Oke kita akan lakukan pertama kali adalah menulis file , Sekarang desain tampilan seperti berikut .

Jika sudah desain tampilan , sekarang ke bagian coding tulis listing program seperti berikut

Dim tulisan As String
Private Sub Command2_Click()
tulisan = Text1
lokasi = App.Path & "/contoh.txt"
Open lokasi For Output As #1
    Print #1, tulisan
Close #1
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1
End Sub

Oke sekarang kawan kawan save project , lalu jalankan programnya .
Begitu kita isi text1 dan klik simpan maka akan ada file baru contoh.txt , dan jika kita buka tulisan seperti yang kita inputkan . Bro kalo selain file txt bisa gak ? jelas bisa , gak percara coba ganti contoh.txt dengan contoh.html .

Untuk memasukan tulisan ke file yang kita operasi kita gunakan print #n, nilai . Oke sekarang sudah pada jelaskan . Kalo gak jelas saya saranin lakukan experimen yang dengan listing program yang saya berikan , sampai paham . Oke kalo sudah paham kita lanjut untuk membaca file .

Masih projek yang tadi , tinggal kita ganti saja kodinganya

Dim tulisan As String
Dim lokasi As String
Dim karakter As String
Private Sub Command2_Click()
tulisan = Label1.Caption
'untuk menyimpan file
Open lokasi For Output As #1
    Print #1, tulisan
Close #1
End Sub

Private Sub Form_Load()
lokasi = App.Path & "/contoh.html"
'membaca file
Open lokasi For Input As #1
        Input #1, karakter
        Label1 = karakter
Close #1
End Sub

Private Sub Text1_Change()
Label1.Caption = karakter & Text1
End Sub

Begitu di jalankan

Maka membaca dan meedit telah berhasil , sekarang kita coba lihat contoh.html .

Oke semoga pada ngarti . Terimakasih telah berkenan membaca artikel ini .Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .


Mau liat atau download source code aplikasi premium bisa disini.

Tweet