تقييم الموضوع :
  • 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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مكرر+معدل تجميع عدة صور لصورة متحركة واحد سعود 4 660 02-12-16, 04:32 PM
آخر رد: محترف الشبكات
  [VB.NET] افضل طريقة لجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 10 1,764 30-08-16, 08:20 PM
آخر رد: nayefacc
  @@@ تركيب البرنامج على جهاز واحد فقط @@@ @@أبورائد@@ 15 6,398 21-06-16, 04:11 PM
آخر رد: aliday03
  خدعة بسيطة (تأمل) khodor1985 10 720 09-04-16, 11:38 PM
آخر رد: بديع
  [مشروع] مشروعين (واحد للارسال-والاخر للاستقبال) Tcp سعود 13 1,491 20-11-15, 04:06 PM
آخر رد: MARCELO
  عملية طرح الوقت بالساعات والدقائق khodor1985 1 587 23-10-15, 06:29 PM
آخر رد: العواد الصغير
  أبسط وأخف وأسرع مثال لعمل مكتبة بسيطة Using TreeView أبو عمر 9 1,226 03-10-15, 06:31 PM
آخر رد: أبو عمر
  مشروع لالة حاسبة بسيطة ! أبو عمر 0 403 01-09-15, 12:47 AM
آخر رد: أبو عمر
  [مشروع] الحفظ لعدة اعمدة في جدول من مربع نص واحد سعود 1 527 20-08-15, 08:44 PM
آخر رد: العزابي
  [مشروع] ليس جديد(الاستفادة من usercontrol لتكون ساحة العمل فورم واحد) سعود 4 1,480 20-07-15, 11:26 PM
آخر رد: مبرمج بلا حدود

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


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