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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] شرح طريقة دمج عدة مشاريع vb.net في مشروع واحد princelovelorn 5 653 09-11-19, 07:53 AM
آخر رد: princelovelorn
  جميع الأيقونات في برنامج واحد nouribenyahia 0 114 05-11-19, 06:58 PM
آخر رد: nouribenyahia
  دمج برامج أخرى لتثبيتها مع مشروعك عند عملية التنصيب بإستخدام ClickOnce Publish Wizard عبدالله الدوسري 9 8,179 09-08-19, 11:57 PM
آخر رد: عماني939
  [مشروع] مشاركة بسيطة لقراءة اوتوماتيكية لمصفوفة معبأة من ملف نصي سعود 0 172 18-07-19, 03:03 AM
آخر رد: سعود
  [مشروع] مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] سعود 13 1,660 03-07-19, 07:54 PM
آخر رد: سعود
Wink [مشروع] الة حاسبة بسيطة سورس كود مع الشرح بالفيديو للكود ahmadpal 4 346 12-04-19, 12:57 AM
آخر رد: atefkhalf2004
Rainbow [مشروع] جمع ثلاثه مشاريع في مشروع واحد من خلال قائمه TabContral محمد مسافر 10 955 10-02-19, 11:50 PM
آخر رد: princelovelorn
Photo [VB.NET] عمل شاشة افتتاحية او ترحيب بسيطة لمشروعك . EYADISMAIL 4 893 11-10-18, 02:35 AM
آخر رد: EYADISMAIL
  تركيب البرنامج على جهاز واحد فقط @@أبورائد@@ 22 13,671 05-07-18, 12:10 PM
آخر رد: mahdy
  [كود] مساعدة بسيطة mohammedvego 0 398 04-04-18, 11:05 PM
آخر رد: mohammedvego

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


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