şifre girerken 3 hak

[zaxacm]

şifre girerken 3 hak vermesini istiyorum nasıl bir kod yazmam lazım acaba

[husonet]

bir değişkenle kaç kere yanlış girdiğini hesapla sınırı aşınca programı sonlandır...

[notname]

repeat until döngüsünü inceleyiniz

[nosedive]

Daha detaylı istersen

husonetin dediği gibi bi değişken belirle döngü ile her yanlışta bir artır. ve değişkenin örneğin 3 ü geçtiğinde

Application.Terminate;

şeklinde programını sonlandır.

tabi değişkenin tanımladığın zaman kodun başlangıcında değişkenine "0" değerini atamayı unutma

ve değişken tipini integer değil byte kullan.

[zaxacm]

Çok teşekkurler..

[NewMember]

Kod: Tümünü seç

procedure TFrmLogin.BtTamamClick(Sender: TObject);
begin
  inherited;
  if HataliParola > 2 then
//Hatali Parola Üstte Tanımlandı
  begin
    Application.MessageBox('Üç Kez Ard Arda Parolayı Yanlış Girdiniz.Program Kapatılacak.', 'Hatalı Parola', MB_ICONWARNING);
    Application.Terminate;
  end;

  if edparola.Text = Parola then
  begin
    ProgramaGir;
  end
  else
  begin
    Application.MessageBox('Girdiğiniz Parola Yanlış.Lütfen Tekrar Deneyiniz.', 'Hatalı Parola', MB_ICONWARNING);
    HataliParola := HataliParola + 1;
    EdParola.SetFocus;
  end;
end;

[zaxacm]

Allah razı olsun.

[Ottoman]

Form'un OnCreate olayına yaz

Kod: Tümünü seç

var
 sifre:AnsiString;
 sayac:Integer;
begin
 sifre:=InputBox('Şifreyi Giriniz','Şifre','');
 sayac:=0;
 while(sifre<>'1907')do//Şifren....
   begin
    if sayac>=2 then
      begin
       ShowMessage('Üç Hakkınızdada bilemediniz.Program Kapanacak');
       Application.Terminate;exit;
      end;
    inc(sayac);
    sifre:=InputBox(IntToStr(sayac)+'. Haktada Bilemediniz','Şifre Giriş','');
   end;
end;
  

Birde Bunu dene......

[zaxacm]

cevap veren tüm arkadaşlara teşekkür ederim.