Hallo, sahabat blogger..

Kali ini aku memuat tugas bahasa pemrograman yang dikerjakan secara berkelompok. 

Tugasku kali ini membahas tentang operasi file, fungsi rekursif, error handling, dan masih banyak lagi..

kalianbisa baca selengkapnya dibawah ini.

selamat membaca yaa :)

OPERASI FILE

 Operasi File dalam Visual Basic

Visual Basic menyediakan suatu fasilitas untuk membaca, menyimpan dan memperbaiki file data, sehingga memungkinkan untuk memisahkan data dengan program, dan program dapat menjadi lebih baik karena bisa tidak bergantung pada data (independent terhadap data), yang artinya datanya bisa diubah-ubah dengan mudah tanpada harus mengubah-ubah file programnya.

Operasi File di dalam Visual Basic terdapat bermacam-macam cara akses file ke dalam program aplikasinya, yaitu:

(1) Membuka File

(2) Membaca File

(3) Menyimpan File

                                         

1. Membuka File

Untuk membuka file baik untuk keperluan penyimpanan maupun untuk keperluan pembacaan menggunakan perintah umum sebagai berikut::

Open “Nama_File” For {Status} As #{n}

Dimana: Nama_File : nama file lengkap dengan nama foldernya.

Status : adalah untuk keperluan apa file tersebut baca/simpan.

Status = INPUT untuk membaca File

Status = OUTPUT untuk menyimpan File

n : adalah nomor buffer (integer 1, 2, 3, …) yang digunakan untuk keperluan pemilihan file yang mana yang akan diproses.

Setiap mengakses file baik untuk membaca maupun untuk menyimpan, maka file tersebut harus dibuka terlebih dahulu dengan status akses yang diberikan. Stelah file terbuka maka langkah berikutnya adalah bagaimana cara membaca dan menyimpan file.

File yang sudah dibaca, seharusnya ditutup saat program sudah selesai sehingga tidak ada data yang tertinggal di memory menyebabkan memory menjadi tidak efektif. Untuk menutup file dapat dilakukan dengan:

Close #n

2.  Menyimpan Data ke File

Untuk menyimpan data ke file di dalam program Visual Basic dapat dilakukan dengan membuka file untuk keperluan menyimpan atau menulis ke file:

Open Nama_File For Output As #1

Saat file dibuka dengan cara semacam ini, maka file hanya bisa ditulisi dan bila file tersebut sudah ada isinya sebelumnya, maka dianggap hilang. Atau dengan kata lain file selalu dianggap baru. Cara menyimpan file semacam ini menghasilkan file yang bersifat file text, sehingga bisa dibaca oleh text editor seperti notepad, wordpad atau microsoft word.

Setelah file dibuka, langkah berikutnya untuk menyimpan data dalan variabel ke file dapat dilakukan dengan:

Print #1, nama_variabel

Contoh Aplikasi 9.1:

Menyimpan data dalam buku tamu ke dalam file pegawai.txt, yang isinya adalah nama, alamat, dan nomor telepon. Contoh datanya adalah: Nama	Alamat	No. Telp
Basuki	Semolowaru Utara Surabaya	081331344000
Widya	Semolowaru Elok Surabaya	0317810870
Dian	Mulyosari Selatan Surabaya	0811235623
Teguh	Arif Rahman Hakim 10A Surabaya	0315991010
Rizki	Keputih II/56 Surabaya	0315943201

Langkah-langkah pembuatannya adalah:

(1) Buat project baru dengan StandardEXE. Untuk form1, isi property [Name] dengan formLatihan91.

(2) Tambahkan komponen-komponen label, textbox, listbox dan command button.

(3) Pada jendela code, tambahkan kode program berikut.

Dim Ndata As Integer

Dim nama(100), alamat(100), notelp(100) As String

Private Sub Command1_Click()

'Mengambil data dari komponen text

Ndata = Ndata + 1

nama(Ndata) = Trim(Text1)

alamat(Ndata) = Trim(Text2)

notelp(Ndata) = Trim(Text3)

'Menampilkan ke listbox

kalimat = nama(Ndata) & " : " & alamat(Ndata)

kalimat = kalimat & " : " & notelp(Ndata)

List1.AddItem kalimat

'Kosongkan text

Text1 = ""

Text2 = ""

Text3 = ""

'Letakkan pointer di Text1

Text1.SetFocus

End Sub

Private Sub Command2_Click()

'Buka File untuk menyimpan data

namafile = App.Path & "\pegawai.txt"

Open namafile For Output As #1

'Menyimpan semua data

For i = 1 To Ndata

Print #1, nama(i), alamat(i), notelp(i)

Next i

'Menutup file

Close #1

End Sub

Private Sub Form_Load()

Ndata = 0

List1.Clear

End Sub

Perhatikan pada bagian mengambil data dari text terdapat fungsi Trim yang berguna untuk membersihkan spasi sebelah kiri dan kanan dari suatu teks. Perhatikan pada namafile ada perintah App.Path yang arti file diletakkan pada folder sama dengan program aplikasinya.

(4) Simpan project dengan nama project Latihan91. Jalankan program dan isi semua data yang diminta. Setelah itu tekan tombol [Simpan ke File]. Hasilnya adalah file pegawai.txt yang berada pada folder dimana program disimpan.

(5) Buka file pegawai.txt menggunakan NotePad.

3. Membaca Data Dari File

Untuk membaca data dari file di dalam program Visual Basic dapat dilakukan dengan terlebih dahulu membuka file untuk keperluan membaca dari file:

Open Nama_File For Input As #1

Saat file dibuka dengan cara semacam ini, maka file hanya bisa dibaca dan tidak bisa ditulisi. File yang bisa dibaca adalah file teks.

Untuk membaca data variabel ke dalam file, dapat dilakukan menggunakan perintah:

Input #1, nama_variabel

Contoh Aplikasi 9.2:

Membaca data dalam buku tamu yang sudah diketikkan dalam file pegawai.txt, dilakukan dengan:

(1) Buat project baru dengan StandardEXE. Untuk form1, isi property [Name] dengan formLatihan92.

(2) Tambahkan komponen-komponen listbox dan command button.

(3) Pada jendela code, tambahkan kode program sebagai berikut:

Private Sub Command1_Click()

'Membuka file untuk membaca

namafile = App.Path & "\pegawai.txt"

Open namafile For Input As #1

'Membaca semua data file

Keterangan setiap komponen File:

• DriveListBox adalah komponen yang dapat menampilkan semua drive yang ada di MyComputer.

• DirListBox adalah komponen yang dapat menampilkan semua folder yang ada di drive yang ditunjuk oleh DriveListBox

• FileListBox adalah komponen yang dapat menampilkan semua file yang ada dalam folder yang  ditunjuk oleh DirListBos atau folder path.

 
Untuk download lebih lengkapnya hasil kerja dari kelompokku, caranya gampang kok,
untuk di Mediafire kamu tinggal klik disini
untuk di 4shared kamu tinggal klik disini
untuk di Dropbox kamu tinggal klik disini