دروس في دلفي
صفحة 1 من اصل 1 • شاطر
برنامج يقوم بعملية الجمع بواسطة دلفي
1-قك باحظار 3 مركبات edit1.text من شريط المركبات standard
2-قم باحظار 3 ازرار button منم شريط المركبات srandard
3-قم بكتابة الكلمات على التوالي في الازرار السابقة calculer-effacer - وذلك بتغيير محتوى الخاصية caption في مفتش الكائنات
بعد القيام بالعمليات السابقة نبدا الان في معالجة البرنامج وكتابة الاوامر اللازمة
1-انفقر نقرا مزدوجا على الزر الذي غيرت دلالته الى calculer
وحرر الامر التالي :
1- بين procedure............ و begin اكتب var : a,b,c:integer;
هنا قمنا بالتصريح بثلاث متغيرات من نوع حقيقي
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=a+b ;
edit3.text:=inttostr(c);
في الزر effacer اكتب الاوامر التالية :
edit1.text=0;
edit2.text=0;
edit3.text=0;
وذلك من اجل محو محتوى المركبات
نفذ البرنامج ولاحظ
مواضيع مماثلة
للمشاركة انت بحاجه الى تسجيل الدخول او التسجيل
يجب ان تعرف نفسك بتسجيل الدخول او بالاشتراك معنا للمشاركة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:32 pm من طرف marketingonlin903
» شركة نقل عفش بالدرعية والنسيم والخرج بخصم 25%|
أمس في 9:16 am من طرف jana khaleed
» شركه نقل عفش غرب الرياض بخصم 25 %|
أمس في 9:09 am من طرف jana khaleed
» ارقام شركات نقل العفش بالرياض بخصم 25 %|
أمس في 9:07 am من طرف jana khaleed
» ونيت نقل عفش بالرياض بخصم 25 % | 0550606388 |0559096181
أمس في 9:06 am من طرف jana khaleed
» شركة نقل عفش شرق الرياض بخصم 25 % | 0550606388 |0559096181
أمس في 9:05 am من طرف jana khaleed
» برجولات جدة.. تمتع بأجواء خارجية رائعة مع مع أفضل أشكال البرجولات .. اتصل الان
أمس في 9:02 am من طرف jana khaleed
» سواتر جدة بخصومات رائعة وحصرية| اتصل الأن
أمس في 9:00 am من طرف jana khaleed
» اسعار جي ار سي G R C
أمس في 12:25 am من طرف marketingonlin903
» مظلات للاسطح جدة ستجد أفضل الخصومات الهائلة | اتصل الآن
الإثنين مايو 27, 2024 4:57 pm من طرف jana khaleed