منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة Delphi > قسم اسئلة Delphi > كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر
نسخة كاملة : كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

أبوبكر سويدان

20-06-19, 10:07 PM
للإغلاق ضع زرا واكتب في كود النقر:

كود :
close;

asemshahen5

20-06-19, 10:08 PM
إقتباس :كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage

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

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

أبوبكر سويدان

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

على حسب..

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

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

wared

21-06-19, 01:56 AM
(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

wared

21-06-19, 06:20 AM
أشكرك أخي سعود على التقييم.

viv

21-06-19, 02:59 PM
إقتباس :كلمة 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');
   

سعود

21-06-19, 05:34 PM
طيب اذا اردت التحقق من متغير قد يساوي + او - او / او * وهذا المتغير مثلا 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
الخير ة باي لغة برمجة تساعدك والاهم اللغة الانجليزية.

viv

22-06-19, 01:40 PM
أنتبه

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

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

كود :
10
/
3
=
3.33
    mod تعطي باقي القسمة
كود :
10
mod
3
=
1
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة Delphi > قسم اسئلة Delphi > كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر