Membuat Nomor dan Halaman di QBasic

Kali ini saya akan mencoba memberikan sedikit informasi mengenai Pembuatan program di QBasic. Sebenarnya Program ini bukan kerjaan saya semua. saya mendapat pengajaran dari Teman Kuliah saya. berikut kode QBasicnya :

===

5 CLS

10 P = 25: PJ = 75: NO = 0: TBP = 0: TS = 0:

DATA B1302RWR,Ressa,90

DATA B6453WRW,Ghani,3

DATA B7789KWK,Nuzul,12

DATA B8989UJU,Puji,1

DATA B6354LOL,Ridwan,5

DATA B2233UIU,Azzam,7

DATA B6453GHH,Faiz,10

DATA B0909TTT,Deva,2

DATA 0,0,0

20 PRINT " "

30 PRINT TAB(25); "Laporan Biaya Parkir"

40 PRINT TAB(5); "NO", "NO. Kendaraan", "Pengendara", "LamaParkir", "BiayaParkir"

60 READ NK$, NP$, LP

70 IF NK$ = "0" THEN PRINT "Total Biaya Parkir : "; TBSP: END

80 IF LP < 2 THEN BP = 150 + P: GOTO 150

90 IF LP < 6 THEN BP = (LP * PJ) + P: GOTO 150

100 IF LP < 10 THEN BP = (LP * PJ) + (LP - 6) * 25 + P: GOTO 150

110 BP = (LP * PJ) + (LP - 10) * 50 + P: GOTO 150

150 TBP = TBP + BP

160 NO = NO + 1

170 N = N + 1

180 PRINT N, NK$, NP$, LP, BP

190 IF NO = 4 THEN NO = 0: H = H + 1: TBSP = TBSP + TBP: PRINT "halaman"; H, "total"; TBP: PRINT " ": TBP = 0: GOTO 30

230 GOTO 60

=== 

Dari Kode di atas, apabila di Run, akan menghasilkan Output :

QBasic

Sekian Sedikit Ilmu dari Pengalaman saya..

Terimakasih