تقييم الموضوع :
  • 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  في هذا الموضوع ايضا موقع كتب فيه كتب قيمة.
وايضا برمجة المشاريع سواء مشاريع لسطح المكتب او مشاريع للويب.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف ابحث عن قيمة متغيرة في مصفوفة سعود 13 2,299 15-10-18, 10:17 PM
آخر رد: سعود
  [سؤال] عدم تغيير قيمة NumericUpdown Simo1991 7 100 09-10-18, 12:21 PM
آخر رد: Simo1991
  اظهار قيمة NumericUpDown Simo1991 2 101 20-09-18, 02:47 PM
آخر رد: Simo1991
  تلوين صف باللون الأحمر في الداتا جريدفيو بناءً على قيمة مُحددة Hazem1 1 141 16-09-18, 10:27 PM
آخر رد: aljzazy
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 174 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  [VB.NET] كيفية جعل قيمة افتراضية من داخل كومبوبوكس موجود في داتا جريد فيو محمد صلاح ابراهيم 4 203 16-07-18, 02:31 PM
آخر رد: elgokr
  التحقق من قيمة حقل في قاعدة البيانات ZaerAllail 3 224 16-06-18, 03:31 PM
آخر رد: حريف برمجة
  أصغر قيمة ؟ hichem1 6 260 10-06-18, 01:15 AM
آخر رد: hichem1
  جلب قيمة الradiobutton من قاعدة البيانات ahmedfa71 2 124 27-05-18, 04:40 PM
آخر رد: ahmedfa71
  استدعاء اخر قيمة حقل في جدول mawadaalmogrbi 3 254 29-04-18, 08:09 PM
آخر رد: mawadaalmogrbi

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


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