تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في معرفة الخطأ
#1
السلام عليكم

احاول كتابة function

إقتباس :
كود :
Public Function b()

Dim mb As String
m = Text3.Text
mb = List3.List(m - 1)
MsgBox mb
If mb = "+" Then Text1.Text = Text2.Text + Text4.Text
If mb = "-" Then Text1.Text = Text2.Text - Text4.Text
If mb = "/" Then Text1.Text = Text2.Text / Text4.Text
If mb = "*" Then Text1.Text = Text2.Text * Text4.Text
If mb = "^" Then Text1.Text = Text2.Text ^ Text4.Text

فاين الخطأ

و كود الاستعمال
الرد }}}
تم الشكر بواسطة:
#2
اخي الكريم ارفق لنا المشروع
للتعديل عليه وتتبع الخطأ
الرد }}}
تم الشكر بواسطة: rnmr
#3
هذا هو جزء من المشروع فقط اضغط على الكوماند يطلعلك الخطأ الذي يظهر لي


الملفات المرفقة
.rar   cal.rar (الحجم : 1.51 ك ب / التحميلات : 35)
الرد }}}
تم الشكر بواسطة:
#4
على ما يبدو انه يوجد خطأ في المرفق قمت بتصحيحه




او اعطوني كود الفاكنشن

الذي يقوم بالعملية التالية

إقتباس :
PHP كود :
text1.text=val(text2.text)+val(text4.text


و كيفية استعماله في كوماند


الملفات المرفقة
.rar   cal.rar (الحجم : 1.55 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة:
#5
احذف الكود التالي
(Form1.b (1 وسيعمل لديك المشروع .. ارجو توضيح الفكرة من المشروع ان امكن
الرد }}}
تم الشكر بواسطة:
#6
ارجو ان يكون تعديلي على مشروعك هو المطلوب


الملفات المرفقة
.rar   cal.rar (الحجم : 1.61 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة: المستعين بالله , asto
#7
انظر الى مرفق الاخ العبيدي
فهو قام بتصحيح الخطأ
وعذراً على التأخير
اتمنى ان تكون مشكلتك قد حلت .
الرد }}}
تم الشكر بواسطة: asto , rnmr
#8
الف شكر للجميع حل مريح جدا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم