الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه هموسه في 25 نوفمبر 2004 · 5 رد · 596 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

برنامج لحساب فاتورة الكهرباء

يدخل مستخدم برنامج من الموظفي الشركة رقم العميل واسمة ثم يدخل قيمة قراءة العداد الكهرباء الخاص بشقة العميل

وذالك بادخال قراءة الشهر السابق وايضا قراءة الشهر الحالي ومن ذالك يمكن حساب المستحق على العميل وهو الفرق بين القرائتين

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

كهرباء الانارة للمدخل بالمبنى كله الموجود به الشقة العميل وكذالك يدخل العداد

الكلي للشقق في المبنى

ملاحظه

استهلاك الانارة لمدخل المبنى توجد كلها في عداد انارة واحدة

علما بان الاستهلاك الانارة المدخل بقسم باتساوي على عدد الشقق بالمبنى وعلما بان الحساب الكلي لقيمة الفاتورة باريال السعودي يقدر بحيث ان ثمن الكيلوات يحسب كالاتي

الاول ثلاث الاف كيلوات بالفاتورة يحتسب الكيلوات بسعر خمسة هلالت والاكثر من ثلاث كيلوات بالفاتورة يحتسب الكيلوات بسعر 8هللات

ارجو منكم مساعدتي في حل هالبرنامج

#2

24 عضو دخل موضوعي ولا واحد قدر يساعدني

بليزززززززز محتاجة احد يساعدني في حل البرنامج

تم تعديل هذه المشاركة بواسطة هموسه في 26 نوفمبر 2004 في 09:21

#3
يالله ماحد قدر يساعدني في حل البرنامج
#4

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

اعتقد بعد شرح جيد للبرنامج ستجدينا كلنا نساعدك

Mahmoud Magdy

MVP - Exchange Server. MCITP (Windows Server 2008, Exhcange Server 2010,/2007),CCNP, MCTS(OCS 2007 R2, SCCM 2007)

Tech Lead

Ingazat Information Technology

Follow me on twitter: http://www.twitter.com/_busbar

my blog: http://autodiscover.wordpress.com

Link with me on linkedin: http://www.linkedin.com/profile?viewProfile=&key=71027694

or on experts-exchange.com: http://www.experts-exchange.com/M_1426100.html

#5

اختي العزيزة،

هذا برنامج بسيط ولكن المشكلة انك تريدين كل شئ ، ولكن فكرة المنتدى هي تزويدك بافكار تكون مستعصية عليكي،

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

وعذرا... اذا أطلت .... ولكن يجب أن تبدأي بنفسك،،،

أشرف الوادية

awadiah@hotmail.com

#6

الأخت هموسه

أساهم فى حل مشكلتك فى الجزء الذى فهمتك فيه

وهو حساب التكلفة بناء على شريحتين الأولا خمس هلالات والثانية ثمانية لما زاد عن الثلاثة كيلوات

Dim Cost As Double, CntDiff As Double, FrstRead As Double, SecondRead As Double

CntDiff = SecondRead - FrstRead

If CntDiff <= 3 Then

Cost =CntDiff * 5 ''' ÖÑÈ ÇáÝÑÞ Ýì ËáÇËÉ åáÇáÇÊ

Else

Cost = CntDiff * 5 ''' ÇáÔÑíÍÉ ÇáÃæáì

Cost = Cost + (SecondRead - (FrstRead + 3)) * 8 ''' ÇáÔÑíÍÉ ÇáËÇäíÉ

End If

MsgBox Cost, vbInformation, "ÊßáÝÉ ÇáßåÑÈÇÁ"

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

هذا الموضوع مغلق.

مواضيع مشابهة