+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عداد للنقاط (/showthread.php?tid=2366)
عداد للنقاط - achi - 31-08-2010
بسم الله الرحمن الرحيم
كيف اعمل عداد للنقاط المتحصل عليها في هذه اللعبة البسيطة .
القيمة توضع في Label4.caption
وشكرا
عداد للنقاط - kachwahed - 31-08-2010
السلام عليكم
على أي أساس يتم حساب العداد؟
إذا كان حسب عدد المحاولات الناجحة:
كود :
nTry: Integer = 0;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
label2.Caption := inttostr(random(6) + 1);
if edit1.Text = label2.Caption then begin
label4.Caption := 'Correct';
Inc(nTry);
end else
label4.Caption := 'False';
Caption := IntToStr(nTry);
end;عداد للنقاط - achi - 01-09-2010
شكرا جزيلا و بارك الله في امثالك والله يزيدك من العلم النافع
اني اقوم ببرمجة دروس في اللغة الانجليزية للمبتدئين واحاول ان اطوره وعندما تصادفني مشكلة ساطلب من الله ااال****** ومن ذوي العلم مع العلم انى استاذ لغة انجليزي
شكرا على ال****** واني ادرس بجد واعمل بما قاله الاخ shagrouni
((بدأت أقتنع تدريجيا، أنه لتوفير مدخل جيد للتعلم والفهم يجب الابتعاد عن كل ما هو مرئي، فتكون الأمثلة
والدروس بإستخدام console ، و خلق المكونات وتوصيفها تكون من خلال الكود، و هكذا))
توضيح عندما كتبت captionبدونform1
معناها ان الفورم هي self
شكراجزيلا