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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قيمة مربع نص (/showthread.php?tid=3944)

قيمة مربع نص - atefkhalf2004 - 30-09-14

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox2.Text = Val(TextBox1.Text)
    End Sub

عندي  2 مربع نص


كيف   اعمل عملية حسابية   في مربع 1    وبالتالي  تظهر النتيجة  في  المربع 2   

الكود السابق  لا يظهر  النتيجة  ؟؟؟

RE: قيمة مربع نص - صالح الشنطى - 30-09-14

السلام عليكم
اعتقد ان التكست يستقبل قيم ثابثة ولا تجراء فيه عمليات حسابية
والله اعلم


RE: قيمة مربع نص - atefkhalf2004 - 01-10-14

ما الحل يا سادة

RE: قيمة مربع نص - atefkhalf2004 - 02-10-14

اين الرد يا سادة

RE: قيمة مربع نص - سعود - 03-10-14

تفضل المثال ....لاول مرة افكر بهذه الطريقة
اولا الاستدعاء
كود :
Imports System.Text.RegularExpressions
ثم بحدث النقر للزر اكتب:
كود :
Dim str As String = "([0-9]{1,})([\/ \* \- \+])([0-9]{1,})"
        Dim reg As New Regex(str)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            ' TextBox2.Text = ma.Groups(1).Value & "  " & ma.Groups(2).Value & "  " & ma.Groups(3).Value
            Select Case ma.Groups(2).Value
                Case "/"
                    TextBox2.Text = Val(ma.Groups(1).Value) / Val(ma.Groups(3).Value)
                Case "*"
                    TextBox2.Text = Val(ma.Groups(1).Value) * Val(ma.Groups(3).Value)
                Case "-"
                    TextBox2.Text = Val(ma.Groups(1).Value) - Val(ma.Groups(3).Value)
                Case "+"
                    TextBox2.Text = Val(ma.Groups(1).Value) + Val(ma.Groups(3).Value)
            End Select
        End If


RE: قيمة مربع نص - atefkhalf2004 - 07-10-14

الاستاذ سعود
شكرا كثيرا

لكن كيف توصلت الي هذا الحل
اعمل في مجال الكمبيوتر منذ 25 سنة وتعاملت مع البرمجة منذ db3 من خلال محث دوس
وايضا كتبت اكواد من ايام الكوبول والبيسك العادي والكويك بيسك
لكن افتقد التخيل واختلاق الحلول
كيف ؟؟؟؟

ما مذه المكتبة التي استوردنها ؟؟؟ وكيف توصلت
برجاء شرح الكود

RE: قيمة مربع نص - سعود - 07-10-14

أخي الكريم ..اذا كنت تقصد RegularExpressions فاول دخولي بها من شرح للاخ 3booody  في هذا الموضوع ايضا موقع كتب فيه كتب قيمة.
وايضا برمجة المشاريع سواء مشاريع لسطح المكتب او مشاريع للويب.