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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [مشروع] سحب عشوائي بالقرعه لفائز واحد محمد مسافر 3 1,330 13-03-23, 06:13 PM
آخر رد: سعود
  الان نفذ العمليات والدوال في مربع النص وكأنك تكتب في خلية اكسل Taha Okla 2 851 03-03-23, 03:17 PM
آخر رد: mrfenix93
Rainbow [كود] المشروع جاهز فقط اريد الكود الذي يظهر لي البحث لموظف واحد محمد مسافر 8 1,267 25-01-23, 11:40 PM
آخر رد: Taha Okla
  دمج برامج أخرى لتثبيتها مع مشروعك عند عملية التنصيب بإستخدام ClickOnce Publish Wizard عبدالله الدوسري 12 21,027 05-10-22, 03:43 PM
آخر رد: رضوان الجماعي
  [مشروع] ابسط مثال تصوير الشاشة وحفظ الصور كلها بملف واحد مع الصوت وباقي التفاصيل سعود 9 2,026 24-07-22, 08:22 PM
آخر رد: سعود
  [مشروع] برنامج لدمج عدة ملفات Pdf في ملف واحد BM PDFs Merger asmarsou 0 963 10-07-22, 07:26 PM
آخر رد: asmarsou
  [مشروع] فكرة بسيطة نصوص جاهزة كبادئة او كما تريد سعود 0 877 30-06-22, 07:13 PM
آخر رد: سعود
Music [مشروع] برنامج لدمج عدة ملفات صوتية في ملف واحد asmarsou 0 821 29-06-22, 09:56 PM
آخر رد: asmarsou
  فكرة عمل موقع تواصل اجتماعي أو فيس بوك أو منصة تعليمية بسيطة بلغة ASP.net فيجوال بيسك ggtt17121985 0 1,121 24-06-22, 12:49 PM
آخر رد: ggtt17121985
Wink [مشروع] الة حاسبة بسيطة سورس كود مع الشرح بالفيديو للكود ahmadpal 5 6,267 23-02-22, 06:02 PM
آخر رد: عبدالرحمن.1

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


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