تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] إجراء عملية حسابية بسيطة من مربع نص واحد
#1









سبب المثال هنا 



تفضل المثال ....لاول مرة افكر بهذه الطريقة

اولا الاستدعاء
كود :
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



الملفات المرفقة
.zip   For_you.zip (الحجم : 35.96 ك ب / التحميلات : 111)
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: فانتسي ارت
#2
تم اضافة ميزة اختبار عملية حسابية كاملة مع الناتج


الملفات المرفقة
.zip   For_you.zip (الحجم : 37.03 ك ب / التحميلات : 56)
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: العزابي
#3
الله يعطيك العافية راح استفيد من البرنامج ومن الاكواد

تحياتي
الرد }}}}
تم الشكر بواسطة: سعود
#4
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#5
Dim t As Single
t = Val(TextBox1.Text)
MsgBox(t)
الرد }}}}
تم الشكر بواسطة:
#6
(18-03-15, 12:26 AM)tarek كتب : Dim t  As Single
       t  = Val(TextBox1.Text)
       MsgBox(t)

شكرا على المرور اخي
لكن ما الغرض من الكود اللي كتبت؟
هل هو جواب لسؤال ما؟
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 11 2,934 15-06-17, 12:52 AM
آخر رد: 0theghost0
  [مشروع] مكرر+معدل تجميع عدة صور لصورة متحركة واحد سعود 6 1,105 20-03-17, 02:43 PM
آخر رد: qqqqq1972
  تركيب البرنامج على جهاز واحد فقط @@أبورائد@@ 16 8,112 25-12-16, 04:23 PM
آخر رد: IBRA939
  [مشروع] ليس جديد(الاستفادة من usercontrol لتكون ساحة العمل فورم واحد) سعود 5 1,958 21-12-16, 08:14 AM
آخر رد: سلامه محمد11
  خدعة بسيطة (تأمل) khodor1985 10 1,282 09-04-16, 11:38 PM
آخر رد: بديع
  [مشروع] مشروعين (واحد للارسال-والاخر للاستقبال) Tcp سعود 13 2,036 20-11-15, 04:06 PM
آخر رد: MARCELO
  عملية طرح الوقت بالساعات والدقائق khodor1985 1 1,173 23-10-15, 06:29 PM
آخر رد: العواد الصغير
  أبسط وأخف وأسرع مثال لعمل مكتبة بسيطة Using TreeView أبو عمر 9 2,031 03-10-15, 06:31 PM
آخر رد: أبو عمر
  مشروع لالة حاسبة بسيطة ! أبو عمر 0 842 01-09-15, 12:47 AM
آخر رد: أبو عمر
  [مشروع] الحفظ لعدة اعمدة في جدول من مربع نص واحد سعود 1 736 20-08-15, 08:44 PM
آخر رد: العزابي

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


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