+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] إجراء عملية حسابية بسيطة من مربع نص واحد (/showthread.php?tid=3969)
إجراء عملية حسابية بسيطة من مربع نص واحد - سعود - 03-10-14
سبب المثال هنا
تفضل المثال ....لاول مرة افكر بهذه الطريقة
اولا الاستدعاء
كود :
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 IfRE: إجراء عملية حسابية بسيطة من مربع نص واحد - سعود - 19-10-14
تم اضافة ميزة اختبار عملية حسابية كاملة مع الناتج
RE: إجراء عملية حسابية بسيطة من مربع نص واحد - العزابي - 19-10-14
الله يعطيك العافية راح استفيد من البرنامج ومن الاكواد
تحياتي
RE: إجراء عملية حسابية بسيطة من مربع نص واحد - سعود - 17-03-15
RE: إجراء عملية حسابية بسيطة من مربع نص واحد - tarek - 18-03-15
Dim t As Single
t = Val(TextBox1.Text)
MsgBox(t)
RE: إجراء عملية حسابية بسيطة من مربع نص واحد - سعود - 18-03-15
(18-03-15, 12:26 AM)tarek كتب : Dim t As Single
t = Val(TextBox1.Text)
MsgBox(t)
شكرا على المرور اخي
لكن ما الغرض من الكود اللي كتبت؟
هل هو جواب لسؤال ما؟