تقييم الموضوع :
  • 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,911 25-12-16, 04:23 PM
آخر رد: IBRA939
  [مشروع] ليس جديد(الاستفادة من usercontrol لتكون ساحة العمل فورم واحد) سعود 5 1,695 21-12-16, 08:14 AM
آخر رد: سلامه محمد11
  [مشروع] مكرر+معدل تجميع عدة صور لصورة متحركة واحد سعود 5 823 21-12-16, 07:01 AM
آخر رد: سلامه محمد11
  [VB.NET] افضل طريقة لجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 9 2,132 30-08-16, 08:20 PM
آخر رد: nayefacc
  خدعة بسيطة (تأمل) khodor1985 10 885 09-04-16, 11:38 PM
آخر رد: بديع
  [مشروع] مشروعين (واحد للارسال-والاخر للاستقبال) Tcp سعود 13 1,752 20-11-15, 04:06 PM
آخر رد: MARCELO
  عملية طرح الوقت بالساعات والدقائق khodor1985 1 774 23-10-15, 06:29 PM
آخر رد: العواد الصغير
  أبسط وأخف وأسرع مثال لعمل مكتبة بسيطة Using TreeView أبو عمر 9 1,482 03-10-15, 06:31 PM
آخر رد: أبو عمر
  مشروع لالة حاسبة بسيطة ! أبو عمر 0 480 01-09-15, 12:47 AM
آخر رد: أبو عمر
  [مشروع] الحفظ لعدة اعمدة في جدول من مربع نص واحد سعود 1 593 20-08-15, 08:44 PM
آخر رد: العزابي

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


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