السلام عليكم
أنا أحتاج مساعدتكم في عمل دالة رياضية مثلا
إذا كانت
awr(9)=1
أريد أن أكتب
x=awr(9)+11 print x
يطبع 12
فكيف يمكن عمل هذه الدالة علما بأن معي العلاقات الحسابية التي تعطي الناتج المطلوب
أنتظر الرد سريعا
سلام
السلام عليكم
أنا أحتاج مساعدتكم في عمل دالة رياضية مثلا
إذا كانت
awr(9)=1
أريد أن أكتب
x=awr(9)+11 print x
يطبع 12
فكيف يمكن عمل هذه الدالة علما بأن معي العلاقات الحسابية التي تعطي الناتج المطلوب
أنتظر الرد سريعا
سلام
تم تعديل هذه المشاركة بواسطة بلال حمدي في 6 ديسمبر 2004 في 15:20
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subما الأمر ياشباب أنا أريد أنا أقوم بإدراج function جديد ألم يفهم قصدي أحد؟؟؟
الموضوع ليس له علاقة بالرياضيات
مثلا
log تقوم بـ
Returns the natural logarithm of a number
أنا أريد أنا أقوم بعمل
Returns
لمتغير معين داخل الدالة ناتج من عمليات حسابية معينة
أنتظر ردكم سريعا
سلاااااااااام
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subشكرا شباب لا داعي للرد فقد وجدت الحل بالتجربة كنت أعتقد أن return موجودة كما في اللغات الأخرى
ولكن الكود كالأتي
Public Function awr(nm As Long) As Long awr = العمليات الحسابية على المتغيرnm End Function
شكرا للمرور
سلااااااااااااااام
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subهذا الموضوع مغلق.