Menampilkan Data dari File dengan QBasic

Sebelum anda membuat program untuk menampilkan data, pastikan anda sudah membuat program untuk penginputan data. Untuk menampilkan record kita gunakan perintah GET.

GET #NomorFile, NomorRecord, VariableRecord

Nomor record bersifat optional, boleh diisi boleh tidak. Jika diisi maka akan menampilkan data pada nomor record tersebut. Jika tidak diisi maka akan menampilkan data pada record yang aktif. Walaupun kita tidak menyertakan nomor record, kita harus tetap mengisi tanda koma, misalnya:

GET #1, 3, brg
Get #1, , brg

Anda bisa download programnya di sini.

Contoh kode untuk menampilkan record:

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, 10: PRINT "DATA BARANG"

FOR i = 1 TO jumrec
   GET #1, i, brg 'untuk membaca record

   LOCATE 5, 3: PRINT "KODE  NAMA            JENIS";
   PRINT "      HARGA         STOK"
   LOCATE 6 + i, 3: PRINT brg.kode; " ";
   PRINT brg.nama; " ";
   PRINT brg.jenis; " ";
   PRINT USING "Rp ##,###.##"; brg.harga;
   PRINT USING "#,###"; brg.stok
NEXT

Download programnya di sini.