19-09-24, 02:09 AM
(18-09-24, 06:18 PM)Mohaben88 كتب : شباب من فضلكم في برنامج لحساب استهلاك عداد الماء
مثلا لدي شطربن
الشطر الأول : من 0 إلى 6 متر مكعب=3 دراهم
الشطر الثاني : من 7 إلى 12 متر مكعب= 5 دراهم
مثال : إذا استهلكت 9 متر مكعب سيتم فوترة 6 متر مكعب بثمن الشطر الأول(3دراهم) و 3 أمتار مكعبة بثمن الشطر الثاني(5 دراهم)
فيجوال بيسك ٦
(19-09-24, 02:01 AM)Taha Okla كتب : لتبسيط الحلمشكور كثير اخي الكريم حفظك الله ورعاك
أفرض أنه عندك ثلاث شرائح
3 دراهم - من 0 حتى 6.
5 دراهم - أكبر من 6وحتى 12.
8 دراهم - أكبر من 12.
تحتاج الأدوات التالي على النافذة :
Command1 : لنكتب ضمنه الكود.
Text1 : لتكتب فيها كمية الاستهلاك.
List1 : لتعرض لك الشرائح بحسب الكمية
List2 : لتعرض لك الشرائح بحسب السعر.
عند تقسيم الشرائح أبدأ من الشريحة الأعلى حتى الأدنى .. وتابع مع الكود التالي :
كود :
Private Sub Command1_Click()
List1.Clear
List2.Clear
'==========================
Dim vE As Double ' نعرف متغير يعبر عن كمية الاستهلاك
vE = Val(Text1.Text)
If vE <= 0 Then Exit Sub
'===========================
If vE > 12 Then
List1.AddItem (vE - 12) ' نقتص مجموع الشرائح الأدنى والناتج يكون هو الشريحة الأكبر
List2.AddItem (8) ' قيمة تسعير الشريحة الأكبر
vE = 12
End If
If vE > 6 Then
List1.AddItem (vE - 6) ' نقتص قيمة الشرائح الأدنى منها والباقي نعرضه
List2.AddItem (5) ' قيمة الشريحة قبل الأخيرة
vE = 6
End If
If vE > 0 Then
List1.AddItem (vE) 'حجم الشريحة الأولى
List2.AddItem (3) ' قيمة الشريحة الأولى
vE = 6
End If
Dim dValue As Double
For i = 0 To List1.ListCount - 1
dValue = dValue + List1.List(i) * List2.List(i)
Next i
MsgBox "قيمة الاستهلاك" & vbNewLine & dValue & " درهم "
End Sub
فلو كان عندك شريحة رابعة : فعليك إضافتها في البداية بنفس الطريقة التي استخدمناها ..
--
هناك أكواد مختصرة أكثر بكثير من هذه .. ولكن هذه تناسب من كان في البدايات..
ومع كثرة التجريب ستصل لطرق أبسط بكثير.