الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

برنامج حساب الغاز والكهربة


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
عدد ردود الموضوع : 1

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 50 المشاركات
  • البلد: Country Flag

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آلـــــــــــــه صحبه أجمعين

الحمد لله رب العالمين الرحمن الرحيم

برنامج حساب الغاز والكهربة

برنامج حساب الغاز والكهربة هو محاولة بسيطة
ليستطيع أي مستهلك للغاز والكهربة معرفة ماذا أستهلك من الغاز والكهربة
حتي يأخذ الاحتياطات الازمة من أجل الاقتصاد في الاستهلاك والاستغناء على بعض
الاجهزة الغير ضرورية واطفاء بعض المصابيح

طريقة الاستعمال من أجل المستعمل للبرنامج

أولا:

يأخذ الرقم  الموجود في عداد الكهربة وعداد الغاز كذلك
ويأخذ الرقم  الموجود في آخر فاتورة للغاز والكهربة

وهو Index nouveau

يكتبهما في الأماكن المخصصة لهم في البرنامج

----------
طريقة البرمجة
ثانيا:

البرنامج موجه الى مبتدئ البرمجة دلفي

ضع فوق الفورم 2 TGroupBox
داخل ال GroupBox1 ضع 4 TEdit وهم
d1 و d2 و d5 و d6


وضع 2 TLabel وهم
Label18 و Label19

Label18 --> Caption = Index Nouveau
Label19 --> Caption = Index Ancien

داخل ال GroupBox2 ضع 6 TEdit وهم
d3 و d4 و d7 و d8
و ed1 و ed4

وضع 4 TLabel وهم
Label20 و Label21 و Label22 و Label23

Label20 --> Caption = Différance
Label21 --> Caption = COEF
Label22 --> Caption = (kwh/THERMIE)
Label23 --> Caption = CONSOMMATION  

ضع على الفورم 3 TBitBtn وهم
btnCalc و BitBtn2 و EffacerClick

رتب الباقية حسب الفاتورة


حولت قدر المستطاع من خلاله توضيح فكرة البرمجة الموجهة بالكائنات oop

عملت البرنامج  delphi xe  

Winapi.Windows
System.SysUtils
Vcl.Forms

احذف ما قبل الفاصلة شغله في
delphi 5 , 7

Windows
SysUtils
Forms

 

المرفق

http://www.mediafire...83map1/elec.rar

 


  • halim_mah و سهيلة2013 معجبون بهذا

#2
غير متصل   halim_mah

halim_mah

    المدير

  • المدراء
  • 6028 المشاركات
  • المنطقه Tiaret
  • البلد: Country Flag

بوركت أخي صبري على العمل الرائع 

 

دمت متألقا معنا 


تابع معنا جديد مسابقات التوظيف يوميا من هنا

 

 

تابع معنا كل المباريات يوميا من مختلف الدوريات من هنا 

 

 

بدون الردود تجف المواضيع 

 

 

:P 

 

 

 

قم بالإطلاع على مسابقة المنتدى 

 

 

:wub: من هنا  :wub: 

 

 

 

:)

 

.





عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين