QBasic ile Yapılmış Sayı Tahmin Oyunu
CLS
basla:
INPUT "TUTULACAK SAYIYI GIRINIZ (1-100)"; tutulacak
IF tutulacak < 1 OR tutulacak > 100 THEN
PRINT "YANLIS SAYI"
GOTO basla
END IF
CLS
sayi:
deneme = deneme + 1
COLOR , deneme
PRINT deneme; ".deneme"
INPUT "ARANACAK SAYIYI GIRINIZ (1-100)"; ara
IF ara < 1 OR ara > 100 THEN
PRINT "YANLIS SAYI"
GOTO sayi
ELSEIF ara = tutulacak THEN
PRINT "DOGRU SAYI"
ELSEIF tutulacak < ara THEN
PRINT "SAYI BUYUK"
IF deneme < 10 THEN GOTO sayi ELSE GOTO son
ELSEIF ara > tutalacak THEN
PRINT "SAYI KUCUK"
IF deneme < 10 THEN GOTO sayi ELSE GOTO son
END IF
END
son:
PRINT ""
PRINT "HAKKINIZ DOLDU"
END
son1:
PRINT ""
PRINT " TEBRIKLER BILDINIZ"
END
basla:
INPUT "TUTULACAK SAYIYI GIRINIZ (1-100)"; tutulacak
IF tutulacak < 1 OR tutulacak > 100 THEN
PRINT "YANLIS SAYI"
GOTO basla
END IF
CLS
sayi:
deneme = deneme + 1
COLOR , deneme
PRINT deneme; ".deneme"
INPUT "ARANACAK SAYIYI GIRINIZ (1-100)"; ara
IF ara < 1 OR ara > 100 THEN
PRINT "YANLIS SAYI"
GOTO sayi
ELSEIF ara = tutulacak THEN
PRINT "DOGRU SAYI"
ELSEIF tutulacak < ara THEN
PRINT "SAYI BUYUK"
IF deneme < 10 THEN GOTO sayi ELSE GOTO son
ELSEIF ara > tutalacak THEN
PRINT "SAYI KUCUK"
IF deneme < 10 THEN GOTO sayi ELSE GOTO son
END IF
END
son:
PRINT ""
PRINT "HAKKINIZ DOLDU"
END
son1:
PRINT ""
PRINT " TEBRIKLER BILDINIZ"
END
Başka Bir Örnek
CLS
RANDOMIZE TIMER
Sayi = INT(RND * 10)
Kez = 1
DO
BasaDon:
INPUT "Tuttugum Sayiyi Bil Bakalim (1-10)"; Girilen
IF Girilen < 0 OR Girilen > 10 THEN
PRINT "1-10 Arasinda Giriniz"
GOTO BasaDon
END IF
IF Girilen = Sayi THEN
PRINT "Bravo"; Kez; ". tahmininizde buldunuz"
EXIT DO
ELSEIF Kez > 10 THEN
PRINT "10 Tahminde Bilemediniz"
EXIT DO
END IF
IF Girilen > Sayi THEN PRINT "Daha Kucuk Gir" ELSE PRINT "Daha Buyuk Gir"
Kez = Kez + 1
LOOP
RANDOMIZE TIMER
Sayi = INT(RND * 10)
Kez = 1
DO
BasaDon:
INPUT "Tuttugum Sayiyi Bil Bakalim (1-10)"; Girilen
IF Girilen < 0 OR Girilen > 10 THEN
PRINT "1-10 Arasinda Giriniz"
GOTO BasaDon
END IF
IF Girilen = Sayi THEN
PRINT "Bravo"; Kez; ". tahmininizde buldunuz"
EXIT DO
ELSEIF Kez > 10 THEN
PRINT "10 Tahminde Bilemediniz"
EXIT DO
END IF
IF Girilen > Sayi THEN PRINT "Daha Kucuk Gir" ELSE PRINT "Daha Buyuk Gir"
Kez = Kez + 1
LOOP
Yorumunuzu Ekleyin