السلام عليكم اخواني
عندي حقل NB في النمودج أسجل فيه عدد الأولاد ..
و في تكست txt يطلع ناتج الضرب اي :txt=NB*60 الى حد هنا المسألة حلوى وسهلة .إذا كان عدد الأولاد يساوي أو أقل من 4
لكن إذا كان عدد الأولاد يزيد عن 4 فهذا الزائد يضرب في 30
اضيف شرح
ولاد واحد txt=1*60
ولدين txt=2*60
3 أولاد txt=3*60
4 أولاد txt=4*60
5 أولاد txt=4*60 +1*30
6 أولاد txt=4*60 + 2*60
و هكذا............
ارجو المساعدة
Private Sub cmdResult_Click()
Dim intNoOfKids As Integer
Dim intResult As Integer
intNoOfKids = Val(txtNoOfKids.Value)
If intNoOfKids <= 4 Then
intResult = intNoOfKids * 60
Else
intResult = (4 * 60) + (intNoOfKids - 4) * (30 * (intNoOfKids - 4))
End If
Call MsgBox(intResult)
End Sub
انظر المرفق
بالتوفيق
شكرا جزيل أخي Logistics Officer و ابو محمد على الرد السريع
زادكم الله من علمه
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
شكرا أخي حميد على الرد السريع و تصحيح الكود
سوف أجربه في الملف و ارد عليك
اخي حميد الدرس مفهوم و جزاك الله خير
شكرا على التوضيح
