19 December 2014

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


EmoticonEmoticon