منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في معرفة الخطأ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة في معرفة الخطأ (/showthread.php?tid=11182)

مساعدة في معرفة الخطأ - asto - 19-01-15

السلام عليكم

احاول كتابة 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

فاين الخطأ

و كود الاستعمال

RE: مساعدة في معرفة الخطأ - asto - 19-01-15

هذا هو جزء من المشروع فقط اضغط على الكوماند يطلعلك الخطأ الذي يظهر لي

RE: مساعدة في معرفة الخطأ - asto - 20-01-15

على ما يبدو انه يوجد خطأ في المرفق قمت بتصحيحه




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

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

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


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

RE: مساعدة في معرفة الخطأ - المستعين بالله - 20-01-15

احذف الكود التالي
(Form1.b (1 وسيعمل لديك المشروع .. ارجو توضيح الفكرة من المشروع ان امكن

RE: مساعدة في معرفة الخطأ - محمد العبيدي - 20-01-15

ارجو ان يكون تعديلي على مشروعك هو المطلوب

RE: مساعدة في معرفة الخطأ - asto - 20-01-15

الف شكر للجميع حل مريح جدا