مشاهدة النسخة كاملة : هام جداً أرجو حل هذه البرنامج


ashraf161972
12-05-2010, 12:15 PM
الأخوة الأعضاء صادفتنى مسألة وكم تحيرت فيها كثيراً أرجو من لديه إجابة وافية وشاملة مع شرحها التفضل بإرسال الحل فى أقرب فرصة وإليكم البر نامج :
اكتب برنماجاً لجحساب الراتب الأسبوعى لموظف حسب الشروط ا لتالية :
1- إذا كانت ساعات العمل أقل من أو تساوى 40 ساعة فإن أجر الساعة يكون 5 جنيهات .
2- إذا كانت ساعات العمل أكثر من 40 ساعة يتم حساب الأجر كالتالى :
أ- 6.5 جنية فى الساعة لأول 40 ساعة .
ب- 10.25 جنية فى الساعة لما يزيد عن الأربعين ساعة الأولى .
إذا افترضنا أن ساعات العمل = Hours worke وأن الراتب = Salary وأن الأجر الإضافى = Overtime
أرجو من لديه إجابة الرد بسرعة وشكراً الإخوة الأعضاء

الامورة بنان
12-05-2010, 01:15 PM
if hourworked >40 then

salary =40 * 6,5+ overtime


overtime = 10.25 (hourworked -40)


else

salary = hourworked *5

msgbox (salary ,overtime)

end if


وممكن
نعكسها تبقا

if hourworked <= 40 then

salary =5 * hourworked

else

overtime =10.25 *(hourworked -40)

salary =6.5*40 +overtime

end if



انشاء الله تكون صح

وشكرا

سيف سالم
12-05-2010, 02:10 PM
dim hourworked ,salary ,overtime as decimal

hourworked =val(textbox1.text)

if hourworked >40 then

overtime = 10.25* (hourworked -40

salary =40 * 6,5+ overtime

else

salary =5 * hourworked


end if

msgbox (salary

وممكن
نعكسها تبقا

dim hourworked ,salary ,overtime as decimal

hourworked =val(textbox1.text)

if hourworked <= 40 then

salary =5 * hourworked

else

overtime =10.25 *(hourworked -40)

salary =6.5*40 +overtime

end if

msgbox (salary



انشاء الله تكون صح

وشكرا


شكرا جزيلا
وبارك الله لكم

تم اضافة بعض التعديلات

kholio_
17-05-2010, 05:32 PM
[QUOTE=سيف سالم;2167219]شكرا جزيلا
وبارك الله لكم

تم اضافة بعض التعديلات
[/QUO




جميل جدا يامستر

بس ياريت نغير
WorkedHouer=val(text1.text)
ب
WorkedHouer=decimal.parse(text1.text)

وذلك لانها في المنهج عشان يدربوا عليها أكتر

سيف سالم
17-05-2010, 06:43 PM
[quote=سيف سالم;2167219]شكرا جزيلا
وبارك الله لكم

تم اضافة بعض التعديلات

[/QUO




جميل جدا يامستر

بس ياريت نغير
WorkedHouer=val(text1.text)
ب
WorkedHouer=decimal.parse(text1.text)

وذلك لانها في المنهج عشان يدربوا عليها أكتر

شكرا وجزاكم الله خيرا

كلاهما في المنهج

الفرق
parse ملغاة هذا العام ويلزم لها try/catch