منتدى المحضر القضائي



عزيزي الزائر,عزيزتي الزائرة
السلام عليكم و رحمة الله و بركاته


إذا كنت عضوا معنا يرجي التكرم بـ : الدخول
و إن لم تكن عضوا بعد وترغب في الانضمام إلى أسرة المنتدى سنتشرف بـ : تسجيلك


تحيات مدير الموقع




FORUM DE HUISSIER DE JUSTICE
 
الرئيسيةالبوابةمكتبة الصوراليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
talebamara

avatar

ذكر
عدد الرسائل : 141
العمل/الترفيه : هواية البرمجة على الحاسوب
المزاج : مرح
السٌّمعَة : 0
نقاط : 88
تاريخ التسجيل : 29/07/2008

مُساهمةموضوع: كيف تبرمج الحق التناسبي بمفردك على جهازك   الجمعة 17 أكتوبر 2008 - 23:27

كيف تبرمج بمفردك الحق التناسبي بواسطة برنامج الاكسل

افتح برنامج الاكسل
ثم اضغط على ادوات ثم اختر ماكرو ثم محرر الفيزيال بازيك بعد ما يفت برنامج الفيزيال
اختر insert ثم اختر module سوف تفتح لك نافذة بيضاء
الان قم باختيار اسم للدالة التي تريد برمجتها مثلا tanaseb
الان قم بكتابة الكود التالي
function tanaseb ( x as double )

هنا قمنا بادراج دالة سميناها تناسب ذات المجهول اكس وكتبنا دوبل لان قيمة المجهول اكس قد تكون عشرية ليست حقيقية اي عدد بالفاصل
الان سوف نسنعمل دالة اسمها إف ذان اي if then و هي دالة شرطية بمعنى اذا كانت قيمة س كذا اذا قم بكذا
وذلك لان لدينا المبالغ التي نحسب عليها الحق التناسبي مختلفة وبالتالي فكلما اعطينا المجهول قيمة من اي مبلغ فان الدالة تناسب ستحسب النتيجة بالشرط الذي نعطيه
قم الان بعد الكود السابق بكتابة ما يلي:
if x>=0 and x<=3000 then
tanaseb=x*0.1+ 350هنا قلنا لبرنامج الفيزيال بازيك انه اذا كانت قيمة اكس اكبر او تساوي و اكس اصغر او تساوي 300 اذا
الدالة تناسب تساوي قيمة اكس مضروبة في عشرة بالمائة زائد قيمة ثابتة تساوي 350 دج
القيمة 3000 مضروبة في 10 بالمائة تساوي 300 دج
بعد السطر السابق نكتب الكود التالي
if x>=300 and <=600 then
tanaseb=(x-300)*0.08 +650
اكملوا الباقي الى اخر نسبة
بعدها ارجع الى صفة الاكسل قم بانشاء خانتين اجعل لهم مظهر جيد واحدة اكتب بجانبها المبلغ المراد حسابه والاخرى اكتب بجانبها الحق التناسبي
الان قم بالنقر مرتين على الخانة التي وضعت بجانبها الحق التناسبي وضغط على علامة الدالة بالاعلى بجانب الشريط fx سوف تفتح لك قائمة بها جميع الدوال المبرمجة مع برنامج الاكسل اضغط على كلمة الكل ثم ابحث عن اسم دالتك تناسب
بعدما تجدها اضغط عليها سوف تظهر لك علبة حوار تطلب منك الخانة التي تريد ان تجري لها الحساب بواسطة هذه الدالة اختر بواسطة الماوس الخانة التي وضعتها بجانب عبارة المبلغ المراد حسابه
الان لقد قمت ببرمجة برنامجك جرب الان اي مبلغ تضعه في الخانة الاولى سوف يظهر لك مبلغ الحق التناسبي في الخانة الثانية
بالتوفيق ان شاء الله
كما توجد الطريقة التي وضعها الاخ ابراهيمي بدون اللجوء الى برمجة دالة
إمضاء الاستاذ طالب اعماره
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.huissier.ahlamontada.net
akila

avatar

انثى
عدد الرسائل : 593
السٌّمعَة : 15
نقاط : 466
تاريخ التسجيل : 19/02/2008

مُساهمةموضوع: رد: كيف تبرمج الحق التناسبي بمفردك على جهازك   السبت 18 أكتوبر 2008 - 10:46

شكرا زميلي على الموضوع ، للاسف لم يسبق لي إستعمال برنامج الاكسس حاولت إتباع الخطوات لكن للاسف لم انجح معقد كثير
إذا سمحت إشرح لنا بواسطة صورة عن الشاشة لاننا لسنا متخصصين في هذا المجال
وشكرا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
talebamara

avatar

ذكر
عدد الرسائل : 141
العمل/الترفيه : هواية البرمجة على الحاسوب
المزاج : مرح
السٌّمعَة : 0
نقاط : 88
تاريخ التسجيل : 29/07/2008

مُساهمةموضوع: رد: كيف تبرمج الحق التناسبي بمفردك على جهازك   السبت 18 أكتوبر 2008 - 20:55

لعمل ما ذكرته اعلى استعملي برنامج الاكسل وليس الاكسس ,اما برنامج الاكسس فلي عدة دروس سوف اضعها ليصبح بامكانك استعماله
فقط اتبعي الخطوات التالية:
1 افتحي برنامج الاكسل
2 اذهبي الى ادوات ثم ماكرو ثم محرر فيزيال بازيك سوف يفتح لك برنامج الفيزيال بازيك
3 اذهبي للاعلى الى insert ثم اختر module سوف يفتح لك نافذة بيضاء
4 الان اكتبي الاكواد التالية تحت بعضها

If x >= 0 And x <= 3000 Then
tanaseb = x * 0.1 + 350
End If
If x > 3000 And x <= 6000 Then
tanaseb = (x - 3000) * 0.08 + 650
End If
If x > 6000 And x <= 12000 Then
tanaseb = (x - 6000) * 0.06 + 890
End If
If x > 12000 And x <= 25000 Then
tanaseb = (x - 12000) * 0.04 + 1250
End If
If x > 25000 And x <= 60000 Then
tanaseb = (x - 25000) * 0.025 + 1770
End If
If x > 60000 And x <= 175000 Then
tanaseb = (x - 60000) * 0.02 + 2645
End If
If x > 175000 And x <= 350000 Then
tanaseb = (x - 175000) * 0.015 + 4945
End If
If x > 350000 And x <= 600000 Then
tanaseb = (x - 350000) * 0.01 + 7570
End If
If x > 600000 And x <= 1200000 Then
tanaseb = (x - 600000) * 0.005 + 10070
End If
If x > 1200000 And x <= 2400000 Then
tanaseb = (x - 1200000) * 0.0025 + 13070
End If
If x > 2400000 Then
tanaseb = (x - 2400000) * 0.002 + 16070
End If
End Function
الان اضغطي على حفظ
اغلقي البرنامج
سوف ترجعي الى برنامج الاكسل
الان على صفحة الاكسل حددي خانتين ولتكن مثلا b3 و c3
b3 هي الخانة التي سوف تضعي فيها المبلغ المراد حسابه
c3 هي الخانة التي سوف تعطيك النتيجة
قومي الان بالنقر مرتين على الخانة c3
بعدها انقري في الاعلى على رمز الدالة سوف تجدينها بجانب الشريط الطويل على شكل fx
سوف تفتح لك نافذة اسمها ادراج دالة قومي بالنقر على السهم المقابل ل تحديد فئة ثم انقري على كلمة الكل
سوف يعرض لك كل الدوال بالاسفل قومي بالبحث على كلمة tanaseb
وهي الدالة التي قمتي ببرمجتها
سوف تفتح لك نافذة بها خانة بيضاء وامامها الحرف x
اتركيها مفتوحة وقومي بالنقر على الخانة الموجودة على صفحة الاكسل b3
ثم اضغطي على موافق
جربي الان اي مبلغ تضعيه في الخانة b3 سوف تظهر لك النتيجة في الخانة c3
إذا اتبعتي هاته الخطوات بدقة فسوف تنجحين اكيد
حظ موفق
النجاح دائما ياتي بعد عدة محاولات ولا تخجلي من السؤال لاننا كلنا بدأنا من الصفر ولاننا نسال دائما تعلمنا ما لم نكن نعرفه
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.huissier.ahlamontada.net
 
كيف تبرمج الحق التناسبي بمفردك على جهازك
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى المحضر القضائي :: منتدى المعرفة تبادل الخبرات :: مكتب المحضر القضائي :: برمجيات-
انتقل الى: