Qbasic İle İlgili Bir Sorum Olcak

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NetWorm
    NetWorm's avatar
    Kayıt Tarihi: 25/Mart/2003
    Erkek
    sabahtan beri ugrasiyorum sunu beceremedim :) bi el ativerin
    ufak bi prog yazabildim ama takildigim biyer var
    mesela yanlis sifre girildiginde bastan baslamasini istiyorum ve sonunda programin herhangi bir tusa basildiginda kapanmasini istiyorum

    CLS

    COLOR 4, 9

    INPUT "Please enter your password: ", pass$

    COLOR 14

    IF pass$ = "pwd182495012" THEN

    PRINT "Access granted!"

    ELSE

    PRINT "Access denied!"

    BEEP

    END IF

    INTEL SUX!! AMD RULZ!!!
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CHaRMaNDeR
    CHaRMaNDeR's avatar
    Kayıt Tarihi: 05/Nisan/2003
    Erkek
    10 CLS

    20 COLOR 4, 9

    30 INPUT "Please enter your password: ", pass$

    40 COLOR 14

    50 IF pass$ = "pwd182495012" THEN

    60 PRINT "Access granted!"

    70 ELSE

    80 PRINT "Access denied!"

    90 BEEP

    100 Goto 30

    110 END IF


    Düşünüyorum, o halde varım.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NetWorm
    NetWorm's avatar
    Kayıt Tarihi: 25/Mart/2003
    Erkek
    sagolasin bide arkaplani nasil degistirebilirim ve tam ekranda nasil acilmasini saglarim? ve bildiginiz qbasic ders siteleri varmi?

    INTEL SUX!! AMD RULZ!!!
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CHaRMaNDeR
    CHaRMaNDeR's avatar
    Kayıt Tarihi: 05/Nisan/2003
    Erkek
    önemli diil. site bir sürü var zatenm. ama visual basic e geç sen

    Düşünüyorum, o halde varım.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NetWorm
    NetWorm's avatar
    Kayıt Tarihi: 25/Mart/2003
    Erkek
    10 CLS

    20 COLOR 4, 9

    30 INPUT "Please enter your password: ", pass$

    40 IF pass$ = "deneme123" THEN

    50 COLOR 14

    60 PRINT "Access granted! Giris basarili"

    70 ELSE

    75 COLOR 14

    80 PRINT "Access denied! sifre yanlis tekrar dene"

    83 BEEP

    84 COLOR 4, 9

    85 GOTO 30

    100 END IF

    SLEEP

    (yok once qbasic i cozim ben :) )

    INTEL SUX!! AMD RULZ!!!
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    m3rt
    m3rt's avatar
    Kayıt Tarihi: 24/Aralık/2002
    Erkek
    qbasic in neresini çözceksin anlamadım?
    vb bile eskidi artık...
    küçük hedeflerdin adamı olmıyın bence
    ha tabi direk c++ a atlayında demiyorum ama bence başlangıç için en iisi delphi
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NetWorm
    NetWorm's avatar
    Kayıt Tarihi: 25/Mart/2003
    Erkek
    ben zaten delphi kullaniyordum bir nedenden dolayi format atmak zorunda kaldim internetten indirdirmistim o yuzden yedegide yok :(((( hatta C++, vb 6, delphi serileri vardi

    INTEL SUX!! AMD RULZ!!!
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    xtlan
    xtlan's avatar
    Kayıt Tarihi: 02/Ocak/2003
    Dişi
    ne gerek var o kadar uğrasmaya


    CLS
    INPUT "ENTER PASSWD ",PASS$
    DO WHILE PASS$ <> "123456"
    INPUT "ENTER PASSWD " , PASS$
    A = A + 1
    LOOP
    PRINT "ELAL OSSUN",A,"DENEMEDEN SONRA GIRDINIZ"


    yaz olsun bitsin hem program daha hızlı calisir :)

    "Toros dağlarının tepelerinde tek bir Türkmen evinin bacası tüter halde kalmış ise, ben bu milletten umudumu kesmem, bayrağımı göğsüme sarar, milletimin istiklali uğruna ölürüm. Gazi Mustafa Kemal ATATÜRK"
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NetWorm
    NetWorm's avatar
    Kayıt Tarihi: 25/Mart/2003
    Erkek
    bu arada biraz gelistirdim
    -------
    10 CLS

    15 SCREEN 12

    20 COLOR 3

    30 INPUT "Please enter your password: ", pass$

    40 IF pass$ = "deneme123" THEN

    50 COLOR 14

    60 PRINT "Access granted! Giris basarili"

    70 ELSE

    75 COLOR 4

    80 PRINT "Access denied! Sifre yanlis tekrar gir"

    85 BEEP

    90 COLOR 3

    95 GOTO 30

    100 END IF

    SLEEP

    INTEL SUX!! AMD RULZ!!!
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Synthmaster
    Synthmaster's avatar
    Kayıt Tarihi: 10/Mayıs/2003
    Erkek
    Aha bir de bunu dene. Bu yazdigin sifreyi de gostermez * olarak gosterir:

    const pass$="password"

    start:
    locate 1,1
    print "Lutfen sifreyi giriniz : ";
    a$=input$(1)
    passcount$=passcount$+a$
    print "*";

    if passcount$=pass$+CHR$(13) then goto AccessGranted
    a$=passcount$=""
    cls
    goto start

    AccessGranted:
    print "Sifre Dogru baba.."
    diger islemler...





    Forum, Hikaye gibi bölümlerde opsiyonel olarak her yazdığınızın sonuna eklenen yazı :))
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NetWorm
    NetWorm's avatar
    Kayıt Tarihi: 25/Mart/2003
    Erkek
    hmm bu yontemde guzelmis ama bastan kasmak yerine ben * olarak gostermesini saglarim?

    INTEL SUX!! AMD RULZ!!!
Toplam Hit: 995 Toplam Mesaj: 11