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.

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!!!

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

nemli diil. site bir sürü var zatenm. ama visual basic e geç sen Düşünüyorum, o halde varım.

hmm bu yontemde guzelmis ama bastan kasmak yerine ben olarak gostermesini saglarim? INTEL SUX!! AMD RULZ!!!

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 blümlerde opsiyonel olarak her yazdığınızın sonuna eklenen yazı :))

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!!!

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"

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 ) INTEL SUX!! AMD RULZ!!!

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!!!

sagolasin bide arkaplani nasil degistirebilirim ve tam ekranda nasil acilmasini saglarim? ve bildiginiz qbasic ders siteleri varmi? INTEL SUX!! AMD RULZ!!!