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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25223)

استفسار هام جدا - jalaltech - 04-06-18

السلام عليكم ... رمضان كريم وكل عام والجميع بالف خير ... انا مبتدأ بالفيجوال بيسك واقوم بعمل برنامج خاص لي في عملي وارغب في عمل زر لمسح مربعات النصوص لكن تظهر رسالة خطأ وتحولني الى كود مربع النتيجة مع العلم جربت اكثر من طريقة ؟؟؟؟؟!!!!!!!

كود زر النتيجة
كود :
Private Sub TextBox2_Change()
T1 = TextBox1.Text
T2 = TextBox2.Text

TextBox3.Text = ((1 / TextBox1) * TextBox2)

End Sub

وكود زر المسح للنصوص 

كود :
Private Sub CommandButton3_Click()


TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

End Sub


RE: استفسار هام جدا - عبدالله الصافي - 04-06-18

انت تستخدم vb6
ام vb.net

RE: استفسار هام جدا - jalaltech - 04-06-18

vb6 بسبب نوع البرنامج في عملي

RE: استفسار هام جدا - sendbad100 - 04-06-18

السلام عليكم

ضع المثال 


RE: استفسار هام جدا - السيد الغالي - 04-06-18

استخدم  هذا الكود وسيعمل بدون اخطاء
كود :
Private Sub Text2_Change()
On Error Resume Next
T1 = Val(Text1.Text)
T2 = Val(Text2.Text)
Text3 = ((1 / T1) * T2)
End Sub

اما بخصوص كود مسح النصوص استخدم الكود التالي
كود :
Text1 = ""
Text2 = ""
Text3 = ""


RE: استفسار هام جدا - jalaltech - 05-06-18

الف شكر على التجاوب اخوتي الاكارم .... مع العلم جربت اكواد اخي -السيد الغالي - ولم تنجح وهذا فيديو يوضح المشكلة ..... ا واعتذر عن الرفع على موقع اخر لاني لم اعرف كيف افعل ذلك في المنتدى 

https://mega.nz/#!hGRBGIQC!ianPMPrcS5ZCEBaV1bRH7FtIUJe_QGaHVntShu4fa_s

RE: استفسار هام جدا - السيد الغالي - 05-06-18

الاخ العزيز السلام عليكم
الكود السابق الذي كتبته سابقا خاص بالفيجوال بيسك 6 
استخدم الكود التالي بالدوت نت 
كود :
 Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        

        TextBox3.Text = ((1 / Val(TextBox1.Text)) * Val(TextBox2.Text))
    End Sub

ولمسح محتويات النصوص استخدم الكود التالي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = ""
       TextBox2.Text = ""
       TextBox3.Text = ""

   End Sub

استخدمهما معا وان شاء الله لاتحدث عندك مشكلة اذا كنت تستخدم الدوت نت

RE: استفسار هام جدا - jalaltech - 05-06-18

الف الف شكر لك اخي الكريم .... حلت على الدوت نت لكن هلا شرحت لي ما هو val

RE: استفسار هام جدا - السيد الغالي - 05-06-18

اخي العزيز 
يبدو انك تستخدم الفيجوال الملحق مع الاكسس ! اليس كذلك ؟ 
لذا تاكد فقط من الاسماء 
اما بخصوص val هي دالة في الفيجوال بيسك تتعامل مع البيانات النصية كأنها بيانات رقيمة (عددية)