File Sequential

Program file sequential ini untuk data mahasiswa dengan menggunakan bahasa pemrograman QBasic

programnya :

10 CLS

20 LOCATE 5, 33: PRINT " MENU UTAMA"

30 LOCATE 6, 28: PRINT "*************************"

40 LOCATE 8, 33: PRINT "1. INPUT DATA"

60 LOCATE 9, 33: PRINT "2. OUTPUT"

70 LOCATE 10, 33: PRINT "3. EXIT"

75 LOCATE 11, 28: PRINT "************************"

80 LOCATE 13, 33: INPUT "MASUKKAN PILIHAN: ", X

SELECT CASE X

CASE 1:

CLS

lagi$ = "Y": benar$ = "T": I = 0

OPEN "O", #1, "C:COBA.TXT"

DO WHILE lagi$ = "y" OR lagi$ = "Y"

I = I + 1: benar$ = "T"

PRINT "Masukkan Data"

PRINT "---------------"

PRINT "Data Ke : "; I

WHILE benar$ = "T" OR benar$ = "t"

INPUT "NPM : ", NPM$(I)

INPUT "Nama : ", NM$(I)

INPUT "Kelas : ", KLS(I)

INPUT "Data Sudah benar [Y/T] : ", benar$

WEND

WRITE #1, NPM$(I), NM$(I), KLS$(I)

INPUT "masih ada data lainnya [y/t] : ", lagi$

CLS

LOOP

CLOSE #1

CLS

GOTO 20

END

CASE 2:

CLS

FORMAT$ = "|###|########|##################|##|"

JDL$ = "|NO|NPM|NAMA|KELAS|"

I = 1: GRS$ = STRING$(60, "_"): HAL = 1

OPEN "I", #1, "C:COBA.TXT"

100 CLS : N0 = 1

PRINT "HAlAMAN : ", HAL

LOCATE 6, 5: PRINT "-------------------------------------------"

LOCATE 7, 5: PRINT "NPM      NAMA                    KELAS"

LOCATE 8, 5: PRINT "-------------------------------------------"

WHILE NOT EOF(1)

INPUT #1, NPM$(I), NM$(I), KLS$(I)

PRINT USING FORMAT$; NO; NPM$(I); NM$(I); KLS$(I)

I = I + 1

IF NO = 5 THEN PRINT GRS$: PRINT "TEKAN ENTER UNTUK LANJUT": HAL = HAL + 1:

GOTO 100

NO = NO + 1

WEND

PRINT GRS$

CLOSE #1

END

CASE 3:

CLS

PRINT "TEKAN ENTER UNTUK KELUAR"

END

CASE ELSE:

CLS

PRINT "ANDA SALAH MEMASUKKAN PILIHAN"

GOTO 20

END

END SELECT

END

Inti dari program ini sama seperti program File Random pada tulisan saya sebelumnya. Sehingga output program ini juga sama seperti program File Random .