تقييم الموضوع :
  • 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 ك ب / التحميلات : 91)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: فانتسي ارت
#2
تم اضافة ميزة اختبار عملية حسابية كاملة مع الناتج


الملفات المرفقة
.zip   For_you.zip (الحجم : 37.03 ك ب / التحميلات : 40)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: العزابي
#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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  @@@ تركيب البرنامج على جهاز واحد فقط @@@ @@أبورائد@@ 16 6,705 25-12-16, 04:23 PM
آخر رد: IBRA939
  [مشروع] ليس جديد(الاستفادة من usercontrol لتكون ساحة العمل فورم واحد) سعود 5 1,627 21-12-16, 08:14 AM
آخر رد: سلامه محمد11
  [مشروع] مكرر+معدل تجميع عدة صور لصورة متحركة واحد سعود 5 756 21-12-16, 07:01 AM
آخر رد: سلامه محمد11
  [VB.NET] افضل طريقة لجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 10 1,946 30-08-16, 08:20 PM
آخر رد: nayefacc
  خدعة بسيطة (تأمل) khodor1985 10 823 09-04-16, 11:38 PM
آخر رد: بديع
  [مشروع] مشروعين (واحد للارسال-والاخر للاستقبال) Tcp سعود 13 1,678 20-11-15, 04:06 PM
آخر رد: MARCELO
  عملية طرح الوقت بالساعات والدقائق khodor1985 1 680 23-10-15, 06:29 PM
آخر رد: العواد الصغير
  أبسط وأخف وأسرع مثال لعمل مكتبة بسيطة Using TreeView أبو عمر 9 1,387 03-10-15, 06:31 PM
آخر رد: أبو عمر
  مشروع لالة حاسبة بسيطة ! أبو عمر 0 453 01-09-15, 12:47 AM
آخر رد: أبو عمر
  [مشروع] الحفظ لعدة اعمدة في جدول من مربع نص واحد سعود 1 563 20-08-15, 08:44 PM
آخر رد: العزابي

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


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