منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم اسئلة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=215)
+--- الموضوع : كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر (/showthread.php?tid=29938)

الصفحات: 1 2

RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - أبوبكر سويدان - 20-06-19

للإغلاق ضع زرا واكتب في كود النقر:

كود :
close;


RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - asemshahen5 - 20-06-19

إقتباس :كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage

طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع

ليس ضروري لكني احب وضعها لانه بالمستقبل ممكن إضافة كود تفريغ التكست بوكس .

RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - أبوبكر سويدان - 20-06-19

(20-06-19, 10:06 PM)سعود كتب : كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage
طبعا اريد الجواب الصحيح لاني جربت ومشى الوضعSmile

على حسب..

لو لديك مجموعة من الاوامر تريد تنفيذها عند تحقق شرط معين، فضعها بين Begin و End.. اما لو سطر واحد فقط فلا داعٍ لذلك.
ومع ذلك، حتى لو سطر واحد .. يمكنك وضعه بين Begin و End.

المهم هو أن آخر سطر قبل Else لا تضع له فاصلة منقوطة في نهايته.

RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - wared - 21-06-19

(20-06-19, 09:03 PM)سعود كتب : السلام عليكم ورحمة الله وبركاته
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'admin'  then
      begin
        Unit2.form2.show;
        end
        else
        begin
        showmessage('Sorry')
        end;
         end;

end. 
ماذا اعدل؟
شكر الله لكم جميعا
من ناحية صياغة الشرط عرفتها:
PHP كود :
if (Edit1.Text = 'admin') and (edit2.Text='2010')  then 
اما باقي الاستفسارات الى الانSad

(20-06-19, 09:22 PM)سعود كتب : هل اخفاء الفورم الحالي بالسطر التالي صحيح؟!
form1.Visible:=false;
نعم يخفي لكن هل هو عملي؟
كيف نصل للاحداث الاخرى؟!
اسئلة كثيرة هي تعتبر أساسياتSad


تفضل (لست مبرمج ديلفي Delphi)
كود :
self.hide;
Unit2.form2.show;

selft تماثل Me في البسيك وthis في #C

RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - wared - 21-06-19

أشكرك أخي سعود على التقييم.

RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - viv - 21-06-19

إقتباس :كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage

طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع

ليست ضرورية وحتى لو استخدمتها فلا مشكلة 

كود :
if test=true then
A:=1
else
A:=2;

حتى لو استخدمتها عادي

كود :
if test=true then
Begin
A:=1
End
else
Begin
A:=2;
End;

فقط الاولى اقل سطور وابسط واسهل في القراءة .
الثانية تحتاجها عند تعدد السطور البرمجية


مثلا بمثال الأخ wared

كود :
if Edit1.Text = 'admin'  then
     begin
       Unit2.form2.show;
       end
       else
       begin
       showmessage('Sorry')
       end;


يمكن اختصارها الى



كود :
if Edit1.Text = 'admin'  then
          Unit2.form2.show
               else
               showmessage('Sorry');
   


RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - سعود - 21-06-19

طيب اذا اردت التحقق من متغير قد يساوي + او - او / او * وهذا المتغير مثلا o من نوع string
كيف نكتب جملة الشرط المتعددة هذي؟
كيف اكمل التحقق من باقي العلمات
PHP كود :
if o='+' then
    label1.caption:= label1.caption+ inttostr(n1+n2) ;
        cont:=false
                 end; 
مشى الوضع بالكود الا عند القسمة
PHP كود :
if o='+' then
    label1.caption:= label1.caption+ inttostr(n1+n2)
     else if o='-' then
    label1.caption:= label1.caption+ inttostr(n1-n2)
     else if o='*' then
    label1.caption:= label1.caption+ inttostr(n1*n2)
                else if o='/' then
    label1.caption:= label1.caption+ inttostr (n1/n2)

                 end; 
القسمة ههههههههههههههه
بدل العلامة / ضع div
الخير ة باي لغة برمجة تساعدك والاهم اللغة الانجليزية.

RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - viv - 22-06-19

أنتبه

   Div تعطي العدد الصحيح فقط 
كود :
10
div
3
=
3

    / تعطي النتيجة بالكسر

كود :
10
/
3
=
3.33
    mod تعطي باقي القسمة
كود :
10
mod
3
=
1