المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : النسبة

th_saif
07-06-2007, 09:34 PM
برنامج خفيف على درس النسبة
جود الحرف
07-06-2007, 10:08 PM
رائع تبارك الله ..


جزيت الخير ولاحرمنا الفائدة ..


ننتظر إبداعاتك .. فلا تحرمنا



كن بـ خير

,
تأملات
07-06-2007, 10:30 PM
رووووووعة وقمة البرنامج
رائع استاذي رائع ..
بوركت الجهود ..
وبورك العطاء ..
th_saif
07-07-2007, 08:48 AM
شكرا لكما جود الحرف وتاملات بارك الله فيكما
فــرح
07-07-2007, 09:17 AM
راااااااااائع جداص البرنامج ،،

بارك الله فيك أخي الفاضل،،
th_saif
07-07-2007, 09:29 AM
مشكورة اختى فرح
أبو يزيد
07-07-2007, 07:19 PM
بارك الله بك أخي السيف


البرنامج جدا جميل

وتستحق الترشيح
th_saif
07-07-2007, 10:56 PM
الف شكر ابو يزيد
تم اضافة افكار اخرى للبرنامج وتم تعديل الملف يمكنك مشاهدة الاضافة
أبو يزيد
07-08-2007, 01:42 AM
اشكرك يالغالي

اضافة جميلة ..

بودي معرفة الكود الخاص بتبسيط الكسور ان أمكن
th_saif
07-08-2007, 09:53 AM
'اجراء الاختصار
Sub ektaser(xx, yy)
For i = 37 To 1 Step -1
If Int(xx / i) = (xx / i) And Int(yy / i) = (yy / i) Then
xx = Int(xx / i)
yy = Int(yy / i)
End If
Next
End Sub
وحينما اريد اختصار عددين وليكون العددين 40و24 مثلا
xx=40
yy=20
call ektaser(xx,yy) معذرة القوس لا يضبط معى هنا لا تنسى ان تضع
dim xx,yy tn فى القسم العام فى اعلى الاكواد
ساكتب لك مثال واضعه فى دورة البرمجة
مريـم
07-08-2007, 05:05 PM
شكرا لك برنامج رووعة


جزاك الله الف خير
ابوسلمان
07-08-2007, 08:29 PM
جزاك الله خيرأ ................ إبداع يا متألق
شنتوري
06-27-2009, 07:06 AM
مشكوووووور والله يعطيك الف عافيه