CARA MEMBUWAT FILE .TXT PADA QBASIC

1.MEMBUWAT FILE .TXT

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR OUTPUT AS #1
150 CLS
PRINT TAB(10); "DATA NILAI MAHASISWA"
PRINT
INPUT "NPM         : ", NPM
INPUT "NAMA        : ", NAMA
INPUT "KELAS       : ", KELAS
INPUT "MATEMATIKA  : ", MATEMATIKA
INPUT "B.INGGRIS   : ", B.ENGGLIS
INPUT "B.INDONESIA : ", B.INDONESIA
INPUT "PEMROGRAMAN : ", PEMROGRAMAN
PRINT

NPMO$ = NPM
NMO$ = NAMA
KLO$ = KELAS
MTKO = MATEMATIKA
BEO = B.ENGGLIS
BIO = B.INDONESIA
PMO = PEMROGRAMAN

WRITE #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO

INPUT "MAHASISWA SELANJUTNYA (Y/T) : ", MAHASISWA$
IF MAHASISWA$ = "Y" THEN GOTO 150
CLOSE #1
END

2. MENAMBAHKAN DATA KE FILE YANG TELAH DIBUWAT
 200 DIM NPM1 AS STRING
DIM NAMA1 AS STRING
DIM KELAS1 AS STRING
DIM MATEMATIKA1 AS INTEGER
DIM B.INGGRIS1 AS INTEGER
DIM B.INDONESIA1 AS INTEGER
DIM PEMROGRAMAN1 AS INTEGER

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR APPEND AS #1
250 CLS
PRINT TAB(10); "DATA NILAI MAHASISWA"
PRINT
INPUT "NPM         : ", NPM1
INPUT "NAMA        : ", NAMA1
INPUT "KELAS       : ", KELAS1
INPUT "MATEMATIKA  : ", MATEMATIKA1
INPUT "B.INGGRIS   : ", B.ENGGLIS1
INPUT "B.INDONESIA : ", B.INDONESIA1
INPUT "PEMROGRAMAN : ", PEMROGRAMAN1
PRINT

NPMO$ = NPM1
NMO$ = NAMA1
KLO$ = KELAS1
MTKO = MATEMATIKA1
BEO = B.ENGGLIS1
BIO = B.INDONESIA1
PMO = PEMROGRAMAN1

WRITE #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO

INPUT "MAHASISWA SELANJUTNYA (Y/T) : ", MAHASISWA$
IF MAHASISWA$ = "Y" THEN GOTO 250
CLOSE #1
END

3. UNTUK PRINT DATA DARI FILE .TXT
CLS
N = 0: P = 0
PRINT TAB(15); "HASIL UTS MAHASISWA"
PRINT
PRINT "NO", "NPM", "NAMA", "PRESTASI"
OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR INPUT AS #1
30 INPUT #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO
IF NPMO$ = "0" THEN CLOSE #1: END
P = (MTKO + BEO + BIO + PMO) / 4
N = N + 1
PRINT N, NPMO$, NMO$, P
GOTO 30

PENJELASAN :
OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR OUTPUT AS #1
1. code diatas digunakan untuk menulis file baru dengan file berbentuk .txt, D:\NOTEPAD\DATA NILAI MAHASISWA itu artinya saya membuwat di partisi D Folder Notepad dan nama filenya Data Nilai Mahasiswa
2. FOR OUTPUT AS #1 saya menggunakan MODE OUTPUT yang artinya output untuk membuwat data baru

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR APPEND AS #1
1. code diatas digunakan untuk melanjutkan memasukan data tanpa menghapus data terdahulu
2.  FOR APPEND AS #1 ini artinya (Append) untuk melanjutkan data

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR INPUT AS #1
1.  FOR INPUT AS #1 , INPUT disini artinya bahwa file .txt telah ada di "D:\NOTEPAD\ sehingga input disini di artikan untuk melihat isi dari data yang telah kita buwat.
2. IF NPMO$ = "0" THEN CLOSE #1: END code ini digunakan untuk mengakhiri proses tanpa ada pesan error. "karena program tersebut digunakan untuk pembelajaran maka saya menggunanan NPM=0 untuk mengakhiri prosesprogramnya.
catatan : pada saat pembuwatan data baru jangan lupa untuk menuliskan npm =0 jika ingin menyamakan program dengan code diatas.

jangan lupa menggunakan WRITE #no_file jika program no. 3 ingin berjalan
karena jika menggunakan PRINT # no_file atau PUT #no_file suka error.

hehe cukup sekian semoga bermanfaat ya :) mohon maaf jika bnyak kesalahan