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


الملفات المرفقة
.zip   For_you.zip (الحجم : 37.03 ك ب / التحميلات : 73)
الرد
تم الشكر بواسطة: العزابي
#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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] عمل شاشة افتتاحية او ترحيب بسيطة لمشروعك . EYADISMAIL 4 315 11-10-18, 02:35 AM
آخر رد: EYADISMAIL
  دمج برامج أخرى لتثبيتها مع مشروعك عند عملية التنصيب بإستخدام ClickOnce Publish Wizard عبدالله الدوسري 6 6,434 02-10-18, 09:37 AM
آخر رد: sendbad100
  تركيب البرنامج على جهاز واحد فقط @@أبورائد@@ 22 11,420 05-07-18, 12:10 PM
آخر رد: mahdy
  [مشروع] مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] سعود 10 768 16-06-18, 09:35 AM
آخر رد: سعود
  [كود] مساعدة بسيطة mohammedvego 0 196 04-04-18, 11:05 PM
آخر رد: mohammedvego
  [VB.NET] كيف اجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 11 3,984 15-06-17, 12:52 AM
آخر رد: 0theghost0
  [مشروع] مكرر+معدل تجميع عدة صور لصورة متحركة واحد سعود 6 1,483 20-03-17, 02:43 PM
آخر رد: qqqqq1972
  [مشروع] ليس جديد(الاستفادة من usercontrol لتكون ساحة العمل فورم واحد) سعود 5 2,466 21-12-16, 08:14 AM
آخر رد: سلامه محمد11
  خدعة بسيطة (تأمل) khodor1985 10 1,853 09-04-16, 11:38 PM
آخر رد: بديع
  [مشروع] مشروعين (واحد للارسال-والاخر للاستقبال) Tcp سعود 13 2,743 20-11-15, 04:06 PM
آخر رد: MARCELO

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


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