+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحديد عدد المحاولات (/showthread.php?tid=5237)
الصفحات:
1
2
كيف تحديد عدد المحاولات - youcefcripcho - 19-05-2013
السلام عليكم
ارغب في جعل المستخدم ان يدخال قيمة معينة في edit
وان اخطا 3مرات تظهر له رسالة بانه تعدى المحاولات المسموح بها وينغلق البرنامج؟
كيف تحديد عدد المحاولات - CID_01 - 19-05-2013
[COLOR="Orange"]وعليكم السلام
يمكنك ذلك عنطريقة وضع متغير جديد في قسم المتغيرات وتستعمله كعداد مثال[/COLOR]
كود :
var i:integer;
begin
i+1;
if i=3 then
close;كيف تحديد عدد المحاولات - youcefcripcho - 19-05-2013
هل يمكن ان توضح اكثر من فضلك
كيف تحديد عدد المحاولات - CID_01 - 19-05-2013
[COLOR="Orange"]حسنا سأحاول
مثلا انشأ نموذج جديد ضع فيه edit و button
أنشأ متغير من نوع integer وسمه i أو أي أسم لجعله عداد
ثم أكتب الكود في الرد السابق في button[/COLOR]
كيف تحديد عدد المحاولات - youcefcripcho - 19-05-2013
لكن الكود لا يتحقق من القيمة الموجودة في edit
كيف تحديد عدد المحاولات - CID_01 - 19-05-2013
[COLOR="Orange"]هذا ملف فلاشي للتوضيح
تفظل[/COLOR]
كود :
http://www.mediafire.com/?ch0zkq6lramons7كيف تحديد عدد المحاولات - CID_01 - 19-05-2013
يمكنك التحقق هكذا
كود :
begin
i:=i+1;
if edit1.text = 'name' then
form2.show
else
if i=3 then
close
end;كيف تحديد عدد المحاولات - ALmuhhnad - 19-05-2013
السلام عليكم .~
تفضل , إن لم تستطع فهم الكود ساشرحه لك
PHP كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
CountEnterPass : ShortInt;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if CountEnterPass < 2 then
begin
if Edit2.Text = 'youcefcripcho' then
ShowMessage('Thank You, Enjoy ..!')
end
else
begin
ShowMessage('Sorry !!, The program will exit');
Close;
end;
Inc(CountEnterPass);
end;
end.
كيف تحديد عدد المحاولات - youcefcripcho - 19-05-2013
شكراCID_01 على الافادة
ALmuhhnad
الكود مفهوم.... فقط ماذا تعمل التعليمة الاخيرة inc(CountEnterPass
هل يمكن عمله بواسطة بوكل for i:=0 to 3
وجزاكم الله خيرا
كيف تحديد عدد المحاولات - CID_01 - 19-05-2013
[COLOR="DarkOrange"]inc تقوم بزيادة المتغير مثل i:=i+1
+
نعم يمكنك إستخدام for[/COLOR]