تقييم الموضوع :
  • 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 3 319 08-06-19, 01:15 PM
آخر رد: solbi
  دمج برامج أخرى لتثبيتها مع مشروعك عند عملية التنصيب بإستخدام ClickOnce Publish Wizard عبدالله الدوسري 7 7,448 07-06-19, 06:34 PM
آخر رد: solbi
Wink [مشروع] الة حاسبة بسيطة سورس كود مع الشرح بالفيديو للكود ahmadpal 4 179 12-04-19, 12:57 AM
آخر رد: atefkhalf2004
Rainbow [مشروع] جمع ثلاثه مشاريع في مشروع واحد من خلال قائمه TabContral محمد مسافر 10 605 10-02-19, 11:50 PM
آخر رد: princelovelorn
Photo [VB.NET] عمل شاشة افتتاحية او ترحيب بسيطة لمشروعك . EYADISMAIL 4 668 11-10-18, 02:35 AM
آخر رد: EYADISMAIL
  تركيب البرنامج على جهاز واحد فقط @@أبورائد@@ 22 12,529 05-07-18, 12:10 PM
آخر رد: mahdy
  [مشروع] مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] سعود 10 1,146 16-06-18, 09:35 AM
آخر رد: سعود
  [كود] مساعدة بسيطة mohammedvego 0 322 04-04-18, 11:05 PM
آخر رد: mohammedvego
  [VB.NET] كيف اجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 11 4,366 15-06-17, 12:52 AM
آخر رد: 0theghost0
  [مشروع] مكرر+معدل تجميع عدة صور لصورة متحركة واحد سعود 6 1,681 20-03-17, 02:43 PM
آخر رد: qqqqq1972

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


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