Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Qbasic İle İlgili Bir Sorum Olcak Qbasic İle İlgili Bir Sorum Olcak
-
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
-
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
-
sagolasin bide arkaplani nasil degistirebilirim ve tam ekranda nasil acilmasini saglarim? ve bildiginiz qbasic ders siteleri varmi?
-
önemli diil. site bir sürü var zatenm. ama visual basic e geç sen
-
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 :) ) -
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 -
ben zaten delphi kullaniyordum bir nedenden dolayi format atmak zorunda kaldim internetten indirdirmistim o yuzden yedegide yok :(((( hatta C++, vb 6, delphi serileri vardi
-
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 :)
-
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 -
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...
-
hmm bu yontemde guzelmis ama bastan kasmak yerine ben * olarak gostermesini saglarim?
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2405 Toplam Mesaj: 11
Cevapla