10-07-2014, 04:02 PM
13-07-2014, 07:10 PM
عمل ممتاز واصل اخي الفاضل
14-07-2014, 05:38 PM
بارك الله فيك يا أخي
23-10-2014, 12:15 AM
بارك الله فيك يا أخي
23-10-2014, 01:22 PM
بارك الله فيك
30-12-2014, 06:28 PM
yami كتب :بارك الله فيك يا أخي
\لاشكر على واجب
14-08-2021, 12:38 AM
السلام عليكم ورحمة الله وبركاته
اخواني انا عضو مبتدي جيت انهل من بحركم الطامي
طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.
اخواني انا عضو مبتدي جيت انهل من بحركم الطامي
طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.
14-08-2021, 08:24 AM
(14-08-2021, 12:38 AM)aljathmi كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخواني انا عضو مبتدي جيت انهل من بحركم الطامي
طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.
وعليكم السلام ورحمة الله وبركاته.
أهلا وسهلا معك بيننا.
أنت استعملت الكود التالي :
PHP كود :
if Edit1.text<='10' then
Shape1.Brush.color:=clred;
if Edit1.text>='11' then
Shape1.Brush.color:=clyellow;
if Edit1.text<='15' then
Shape1.Brush.color:=clyellow;
if Edit1.text>='16' then
Shape1.Brush.color:=cllime;
if Edit1.text<='20' then
Shape1.Brush.color:=cllime;
الأخطاء الموجودة في الكود هي :
1-المقارانات المنطقية <= و >= لا يمكن استعمالها في حالتك.
فيجب تحويل قيمة Edit1 إلى نوع رقمي. فنكتب :
if StrToint(Edit1.text) <= 10 then
هذا من جهة ، و من جهة أخرى ما لو كانت قيمة Edit1 هي 8 ، أي شرطط سيتحقق.
ف 8 <=10
8 <=15
8 <=20
لإذن عليك استعمال if then else.
16-08-2021, 07:44 AM
(14-08-2021, 12:38 AM)aljathmi كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخواني انا عضو مبتدي جيت انهل من بحركم الطامي
طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.
PHP كود :
var
i: integer;
begin
i := StrToInt(Edit1.text);
case i of
0 .. 10:
Shape1.Brush.color := clred;
11 .. 15:
Shape1.Brush.color := clyellow;
16 .. 20:
Shape1.Brush.color := cllime;
end;
16-08-2021, 02:11 PM
لكم كل الشكر والتقدير والاحترام.. وفقكم الله.