Input Data ke File dengan Qbasic

Semua data yang kita proses dalam Qbasic bisa disimpan dalam bentuk file. Sehingga walaupun kita menutup program data yang telah kita buat akan bisa ditampilkan ketika anda membuka program kembali. Kali ini kita akan membahas bagaimana menginputkan data kemudian menyimpannya dalam bentuk file. File yang disimpan bisa dalam bentuk txt atau apa saja yang nantinya bisa dibuka lewat notepad. Anda bisa download contoh programnya di sini

Contoh kode untuk penginputan data barang:

CLS

TYPE barang
   kode AS STRING * 5
   nama AS STRING * 15
   jenis AS STRING * 10
   harga AS LONG
   stok AS INTEGER
END TYPE

DIM SHARED brg AS barang
DIM SHARED panrec, jumrec AS INTEGER

panrec = LEN(brg)
OPEN "d:\barang.txt" FOR RANDOM AS #1 LEN = panrec
jumrec = LOF(1) / panrec

COLOR 14
LOCATE 2, 3: PRINT "INPUT DAT BARANG"

LOCATE 4, 3: INPUT "Masukkan Kode Barang  : ", brg.kode
LOCATE 5, 3: INPUT "Masukkan Nama Barang  : ", brg.nama
LOCATE 6, 3: INPUT "Masukkan Jenis Barang : ", brg.jenis
LOCATE 7, 3: INPUT "Masukkan Harga Barang : ", brg.harga
LOCATE 8, 3: INPUT "Masukkan Stok  Barang : ", brg.stok

LOCATE 10, 3: INPUT "Simpan Data? (Y/T) ", jawab$

IF UCASE$(jawab$) = "Y" THEN
   PUT #1, jumrec + 1, brg
   LOCATE 12, 3: PRINT "Data tersimpan"
END IF

Bila program dijalankan, maka pada drive d akan dibuatkan barang.txt. Anda bisa membukanya lewat notepad untuk membuktikan data yang telah anda inputkan ketikaprogram dijalankan.

Penjelasan Kode:

CLS

membersihkan layar

TYPE barang
   kode AS STRING * 5
   nama AS STRING * 15
   jenis AS STRING * 10
   harga AS LONG
   stok AS INTEGER
END TYPE

Mendifinisikan field-field yang ada pada table barang.

DIM SHARED brg AS barang
DIM SHARED panrec, jumrec AS INTEGER

Mendifinisikan variable, variable boleh apa saja asalkan tidak isi spasi dan tidak konflik atau sama dengan variable lain. brg digunakan untuk mengakses field pada table barang. Misalnya untuk mengakses kode maka ditulis brg.kode. panrec dan jumrec juga bebas yang nantinya digunakan sebagai variable panjang record dan jumlah record.

panrec = LEN(brg)
OPEN "d:\barang.txt" FOR RANDOM AS #1 LEN = panrec
jumrec = LOF(1) / panrec

LEN(brg) digunakan untuk mencari panjang record barang.txt. Perintah OPEN untuk membuka file d:\barang.txt, bila belum ada akan diciptakan file barang.txt di drive d. d:\ artinya file barang.txt berada di drive d, jika anda ingin menyimpan di drive lain anda tinggal mengubah d menjadi c atau e. LOF(1) / panrec digunakan untuk mengetahui jumlah record.

PUT #1, jumrec + 1, brg

Digunakan untuk menyimpan record di brg pada posisi record selanjutnya (jumrec + 1).