5 REM HARF TAHMİN OYUNU
10 CLS : RANDOMIZE TIMER : HARF$ = CHR$(RND * 25 +65)
20 FOR I = 1 TO 10
30 INPUT "TAHMİNİNİZ: " ; TAHMIN$ : PRINT
40 IF TAHMIN$ = HARF$ THEN PRINT I ; " tahminde bildiniz..." : GOTO 70
50 NEXT I
60 PRINT "10 hakkınız bitti..."
70 END
QBasic Örnekler, QBasic Dökümanlar, QBasic Uygulamaları QBasic Kodlar, QBasic Dersler,QBasic Programlar, QBasic Ders Notları, QBasic Download, QBasic İndir
Hiç yorum yok :
Yorum Gönder