OSS denemelerinin netlerini hesaplayan program.

Alıntı:
'*******************************
'*******************************
'*******************************
'İsim Soyisim
'[email protected]
'http://quickbasic.com.tr.tc
'http://lioneaglelion.tripod.com
CLS
GOTO Bambas
Renkler:
RANDOMIZE TIMER
Artalan = RND * 15
Renk = RND * 15
COLOR renk, artalan
RETURN
Hazirla:
CLS
LOCATE 2, 1: PRINT STRING$(80, "Ä")
LOCATE 23, 1: PRINT STRING$(80, "Ä")
LOCATE 2, 28: PRINT "OSS HESAP PROGRAMI"
LOCATE 4, 10: PRINT "F1 Yeni Deneme Sınavı Sonucunu Giriniz"
LOCATE 5, 10: PRINT "F2 Kayıtlı Deneme Sınavı Sonucları"
LOCATE 6, 10: PRINT "ESC Cıkıs"
LOCATE 14, 1
PRINT "isim soyisim"
PRINT "[email protected]"
PRINT "http://lioneaglelion.tripod.com"
PRINT "http://quickbasic.com.tr.tc"
RETURN
Bambas:
GOSUB Renkler
Enbas:
GOSUB Hazirla
a:
a$ = INKEY$
IF a$ = " " THEN
LOCATE 20, 1: PRINT TIME$
LOCATE 21, 1: PRINT DATE$
GOTO a
ELSEIF a$ = CHR$(27) THEN
GOTO Enson
ELSEIF a$ = CHR$(0) + CHR$(59) THEN
GOTO Kayit
ELSEIF a$ = CHR$(0) + CHR$(60) THEN
GOTO Bak
ELSE GOTO a
END IF
kayit:
OPEN "c:\oss.469" FOR APPEND AS #1
CLS
LOCATE 5, 1
PRINT "Sayısal Dogru Sayısı :"
PRINT "Sayısal Yanlıs Sayısı :"
PRINT "Sozel Dogru Sayısı :"
PRINT "Sozel Yanlıs Sayısı :"
LOCATE 5, 1
INPUT "Sayısal Dogru Sayısı :", sayd%
INPUT "Sayısal Yanlıs Sayısı :", sayy%
INPUT "Sozel Dogru Sayısı :", sozd%
INPUT "Sozel Yanlıs Sayısı :", sozy%
WRITE #1, sayd%, sayy%, sozd%, sozy%
CLOSE #1
GOTO enbas
bak:
CLS
OPEN "c:\oss.469" FOR INPUT AS #1
DO UNTIL EOF(1)
INPUT #1, sayd%, sayy%, sozd%, sozy%
saybos% = 90 - sayd% - sayy%
sozbos% = 90 - sozd% - sozy%
saynet% = sayd% - sayy% / 4
soznet% = sozd% - sozy% / 4
IF saynet% > 60 THEN COLOR 14
IF saynet% > 70 THEN COLOR 10
IF saynet% > 80 THEN COLOR 4
PRINT "OSS Denemesi -- Sayısal Neti --> "; saynet%; " -- Sozel Neti --> "; soznet%
PRINT "Sayısal Dogru --> "; sayd%; " Sayısal Yanlıs --> "; sayy%; " -- Sayısal Bo� --> "; saybos%
PRINT "Sozel Dogru --> "; sozd%; " -- Sozel Yanlıs --> "; sozy%; " -- Sozel Bo� --> "; sozbos%
PRINT STRING$(80, "-")
COLOR renk
b:
b$ = INKEY$: IF b$ = "" THEN GOTO b
LOOP
CLOSE #1
GOTO enbas
enson:
CLS
LOCATE 5, 1
PRINT "isim soyisim"
PRINT "[email protected]"
PRINT "http://quickbasic.com.tr.tc"
PRINT "http://lioneaglelion.tripod.com"
END

__________________