Başlangıç > Kodlar > Pascalda şifreli giriş uygulaması

Pascalda şifreli giriş uygulaması

uses crt;
var
dad,ad,dsifre,sifre:string;
i:byte;
begin
clrscr;
dad:='Kullanmakİstediginkullanıcıadı';
dsifre:='Kullanacagınsifre';
for i:=3 downto 0 do
begin
textcolor(white);
if i=0 then
begin
clrscr;
gotoxy(25,20); write('Hakkın Bitti..');
break;
readln;
end;
gotoxy(1,1); write('Deneme Hakkın..',i);
gotoxy(12,20);write('Kullanıcı Adı..:'); readln(ad);
gotoxy(12,21);write('Sifre..:');readln(sifre);
if (ad=dad) and (sifre=dsifre) then
begin
clrscr; textcolor(white+blink);
gotoxy(25,15);write('Tebrikler..');
readln;
exit;
end
else
begin
clrscr;
gotoxy(12,10);Textcolor(red);
write('Kullanıcı Adı veya Sifre Yanlış..');
readln;
clrscr;
end;
end;
readln;
end.
Yazar: volusta

Reklamlar
Kategoriler:Kodlar Etiketler:, ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: