دروس في دلفي
صفحة 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:26 pm من طرف marketingonlin903
» جي ار سي للواجهات
السبت مايو 18, 2024 9:18 pm من طرف marketingonlin903
» مدونة هدفها الإرتقاء بالعقل و الروح و النفس
السبت مايو 18, 2024 6:40 pm من طرف marketingonlin903
» واجهات جي ار سي
الخميس مايو 16, 2024 6:48 pm من طرف marketingonlin903
» دينا نقل عفش داخل الرياض افضل خدمات نقل العفش داخل الرياض
الخميس مايو 16, 2024 5:53 pm من طرف zizi yosef
» دينا نقل عفش غرب الرياض افضل شركة نقل عفش غرب الرياض
الخميس مايو 16, 2024 5:52 pm من طرف zizi yosef
» دينا نقل عفش شرق الرياض بخصم25%|اتصل الـأن
الخميس مايو 16, 2024 5:50 pm من طرف zizi yosef
» شركة تنظيف وفك وتركيب ونقل مكيفات بالرياض شركة المثلث الذهبي | اتصل الان
الخميس مايو 16, 2024 5:49 pm من طرف zizi yosef
» نقل اثاث بالرياض 300 ريال| المثلث الذهبي لنقل العفش اتصل الان
الخميس مايو 16, 2024 5:47 pm من طرف zizi yosef
» افضل شركة نقل عفش بالرياض بخصم 30%| اتصل الآن
الخميس مايو 16, 2024 5:46 pm من طرف zizi yosef