QBASİC VİZE +FİNAL İÇİN HARF NOTUNU HESAPLAMA KODU
COLOR , 6
CLS
LOCATE 3, 23
COLOR 4, 7
PRINT “Sinav Notunuzu Asagiya Giriniz !”
LOCATE 5
COLOR 1, 6
INPUT “Vize Notunu Gir:”; v
LOCATE 7
INPUT “Final Notunu Girin:”; f
‘DERSTEN KALIRSA Kirmizi Renk ile uyarsin!
ORT = v * 40 / 100 + f * 60 / 100
IF ORT < 50 THEN
LOCATE 13, 23
COLOR 16, 4
PRINT ” Not Ortalamaniz”; ORT; “Malesef FF ile Kaldiniz! “
‘Sartli Gecerse Beyaz Renk ile uyarsin !
ELSEIF ORT < 55 THEN
LOCATE 13, 23
COLOR 7
PRINT “Not Ortalamaniz “; ORT; “DD ile Sartli Gectiniz ! “
ELSEIF ORT < 60 THEN
LOCATE 13, 23
COLOR 7
PRINT “Not Ortalamaniz “; ORT; “DC ile Sartli Gectiniz !”
‘Basarili gecerse sari ile gostersin !
ELSEIF ORT < 65 THEN
LOCATE 13, 8
LOCATE 14
PRINT “Not Ortalamaniz “; ORT; “TEBRIKLER ! Bu dersimizi CC ile Gectiniz !”
ELSEIF ORT < 70 THEN
LOCATE 13, 8
LOCATE 14
PRINT “Not Ortalamaniz “; ORT; “TEBRIKLER ! Bu dersimizi CB ile Gectiniz !”
ELSEIF ORT < 80 THEN
LOCATE 13, 8
LOCATE 14
PRINT “Not Ortalamaniz “; ORT; “TEBRIKLER ! Bu dersimizi BB ile Gectiniz !”
ELSEIF ORT < 90 THEN
LOCATE 13, 8
LOCATE 14
PRINT “Not Ortalamaniz “; ORT; “TEBRIKLER ! Bu dersimizi BA ile Gectiniz !”
ELSEIF ORT < 100 THEN
LOCATE 13, 8
COLOR 30
PRINT “Not Ortalamaniz “; ORT; “TEBRIKLER ! Bu dersimizi AA ile Gectiniz ! “
ELSEIF ORT > 100 THEN
LOCATE 13, 30
COLOR 16, 4
PRINT “Notu 100’den Buyuk Girdiniz !”
END
END IF
Çalıştığına dair örnekler ;
