تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] عمل آلة حاسبة بسيطة استعانة بـ Regex
#1
كود :
Imports System.Text.RegularExpressions
Public Class Form1
   Dim res As String = String.Empty
   Private Sub b0_Click(sender As Object, e As EventArgs) Handles b0.Click, b1.Click, b2.Click, b3.Click, b4.Click, b5.Click, b6.Click, b7.Click, b8.Click, b9.Click
       If lblscreen.Text.Trim = "0" Then
           lblscreen.Text = sender.text
       Else
           lblscreen.Text &= sender.text
       End If
   End Sub
   Private Sub plus_Click(sender As Object, e As EventArgs) Handles plus.Click, minus.Click, mul.Click, div.Click
       If lblscreen.Text.IndexOf("+") > 0 Or lblscreen.Text.IndexOf("-") > 0 Or lblscreen.Text.IndexOf("*") > 0 Or lblscreen.Text.IndexOf("/") > 0 Then Exit Sub
       If lblscreen.Text.Trim = "0" Then
       Else
           lblscreen.Text &= sender.text
       End If
   End Sub
   Private Sub eq_Click(sender As Object, e As EventArgs) Handles eq.Click
       Dim str As String = "([0-9.]{1,})([/*\-+]{1,1})([0-9.]{1,})"
       Dim reg As New Regex(str)
       Dim ma As Match = reg.Match(lblscreen.Text.Trim)
       If ma.Success Then
           Select Case ma.Groups(2).Value
               Case "+"
                   res = ma.Groups(1).Value + Val(ma.Groups(3).Value)
               Case "-"
                   res = ma.Groups(1).Value - Val(ma.Groups(3).Value)
               Case "*"
                   res = ma.Groups(1).Value * Val(ma.Groups(3).Value)
               Case "/"
                   res = ma.Groups(1).Value / Val(ma.Groups(3).Value)
           End Select
           Dim the As String = " = " & res
           If lblscreen.Text.IndexOf(the) > 0 Then Exit Sub
           lblscreen.Text = ma.Groups(1).Value & " " & ma.Groups(2).Value & " " & ma.Groups(3).Value & " " & the
       End If
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       lblscreen.Text = "0"
       res = String.Empty
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub


   Private Function isfound() As Boolean
       If lblscreen.Text.Contains("/") Or
           lblscreen.Text.Contains("*") Or
           lblscreen.Text.Contains("-") Or
               lblscreen.Text.Contains("+") Then
           Return True
       Else
           Return False
       End If
   End Function
   Private Sub point_Click(sender As Object, e As EventArgs) Handles point.Click
       If lblscreen.Text.Trim = "0" Then
           Exit Sub
       Else
           Dim lapo As Integer = lblscreen.Text.LastIndexOf(".")
           If isfound() = False Then
               If lapo > 0 Then Exit Sub
           Else
               If lapo > 1 Then Exit Sub
           End If
           lblscreen.Text &= sender.text
       End If
   End Sub

   
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       about.ShowDialog()
   End Sub
End Class


الملفات المرفقة
.zip   MyCalc_2015.zip (الحجم : 52.68 ك ب / التحميلات : 220)
}}}
#2

Smile  مشكور اخي سعود .
}}}
تم الشكر بواسطة: سعود , adeb96 , asemshahen5
#3
(17-03-15, 04:51 PM)sv25b858 كتب :

Smile  مشكور اخي سعود .

العفو اخي الكريم
}}}
تم الشكر بواسطة: asemshahen5
#4
مفيد جدا بارك الله فيك
}}}
تم الشكر بواسطة: asemshahen5 , عبد العزيز البسكري , سعود
#5
(19-09-20, 11:33 AM)Anas Mahmoud كتب : مفيد جدا بارك الله فيك

و فيك بارك الله.
}}}
تم الشكر بواسطة: Anas Mahmoud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] فكرة بسيطة نصوص جاهزة كبادئة او كما تريد سعود 0 877 30-06-22, 07:13 PM
آخر رد: سعود
  فكرة عمل موقع تواصل اجتماعي أو فيس بوك أو منصة تعليمية بسيطة بلغة ASP.net فيجوال بيسك ggtt17121985 0 1,121 24-06-22, 12:49 PM
آخر رد: ggtt17121985
  [مشروع] [لا جديد] انشاء ملف xml والتعامل معه استعانة بالداتاست سعود 0 812 20-06-22, 02:49 AM
آخر رد: سعود
Wink [مشروع] الة حاسبة بسيطة سورس كود مع الشرح بالفيديو للكود ahmadpal 5 6,267 23-02-22, 06:02 PM
آخر رد: عبدالرحمن.1
  [مشروع] فكرة بسيطة منتصف الطريق [فكرة جدولة المهام] سعود 2 1,076 28-12-21, 12:34 AM
آخر رد: سعود
  [مشروع] ملف مفتوح ..تصميم لعبة متاهة بسيطة جدا عبد الهادي بهاب 1 2,208 30-07-20, 03:06 PM
آخر رد: المعترس
  [مشروع] مشاركة بسيطة لقراءة اوتوماتيكية لمصفوفة معبأة من ملف نصي سعود 0 1,637 18-07-19, 03:03 AM
آخر رد: سعود
  [مشروع] مشاركة بسيطة [مشاهدة احصائية الموقع من برنامجك] سعود 13 6,739 03-07-19, 07:54 PM
آخر رد: سعود
Photo [VB.NET] عمل شاشة افتتاحية او ترحيب بسيطة لمشروعك . EYADISMAIL 4 3,253 11-10-18, 02:35 AM
آخر رد: EYADISMAIL
  [كود] مساعدة بسيطة mohammedvego 0 1,489 04-04-18, 11:05 PM
آخر رد: mohammedvego

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


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