تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قيمة مربع نص
#1
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   

الكود السابق  لا يظهر  النتيجة  ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
اعتقد ان التكست يستقبل قيم ثابثة ولا تجراء فيه عمليات حسابية
والله اعلم
الرد }}}}
تم الشكر بواسطة:
#3
ما الحل يا سادة
الرد }}}}
تم الشكر بواسطة:
#4
اين الرد يا سادة
الرد }}}}
تم الشكر بواسطة:
#5
تفضل المثال ....لاول مرة افكر بهذه الطريقة
اولا الاستدعاء
كود :
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
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: محمود رغمان , kslawy
#6
الاستاذ سعود
شكرا كثيرا

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث باكثر من قيمة الو0 2 105 17-11-17, 02:26 AM
آخر رد: الو0
  كيفية تحديد اخر سجلات من قاعدة البيانت مجموعها كلها يساوي قيمة معينة eldmasy11 0 54 06-11-17, 12:35 PM
آخر رد: eldmasy11
  [VB.NET] فتح نموذج بناءا علي قيمة في الداتا جريد فيو haithammoftah 3 112 14-10-17, 07:55 PM
آخر رد: Amir_alzubidy
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 14 332 13-10-17, 07:30 PM
آخر رد: سعود الشامان
  [سؤال] كتابة قيمة ثنائية في الريجستري سعود الشامان 0 67 29-09-17, 04:26 AM
آخر رد: سعود الشامان
Question [سؤال] كيفية سحب قيمة متغير ادخل Public alims 7 212 11-09-17, 04:39 AM
آخر رد: محمد كريّم
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 7 5,451 02-09-17, 08:46 PM
آخر رد: ahmedgamal
  [VB.NET] البحث عن اي جزء من أي كلمة في مربع نص واحد waelalmsry75 7 363 24-07-17, 03:03 AM
آخر رد: waelalmsry75
  [سؤال] طريقة الفرز داخل مربع النص abosaleh56 5 259 12-07-17, 10:23 AM
آخر رد: abosaleh56
  حفظ قيمة في التكست بوكس anes 11 481 07-06-17, 04:05 AM
آخر رد: anes

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


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