تقييم الموضوع :
  • 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 ك ب / التحميلات : 57)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: sv25b858
#2

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

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

العفو اخي الكريم
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خدعة بسيطة (تأمل) khodor1985 10 702 09-04-16, 11:38 PM
آخر رد: بديع
  مشروع آلة حاسبة بأقواس aymanessam 9 427 04-04-16, 05:48 PM
آخر رد: الشاكي لله
  أبسط وأخف وأسرع مثال لعمل مكتبة بسيطة Using TreeView أبو عمر 9 1,203 03-10-15, 06:31 PM
آخر رد: أبو عمر
  مشروع لالة حاسبة بسيطة ! أبو عمر 0 401 01-09-15, 12:47 AM
آخر رد: أبو عمر
  [مشروع] عمل آلة حاسبة عن طريق اضافة محتوى مربع الادخال الى مصفوفة() سعود 0 673 27-03-15, 05:24 AM
آخر رد: سعود
  [مشروع] آلة حاسبة عن طريقة مناداة الدالة من ملف dll سعود 3 643 26-03-15, 02:01 PM
آخر رد: سعود
  [مشروع] إجراء عملية حسابية بسيطة من مربع نص واحد سعود 5 1,128 18-03-15, 12:42 AM
آخر رد: سعود
  @@@ مختبر RegEx بسيط جداً @@@ @@أبورائد@@ 9 2,215 22-10-13, 10:06 PM
آخر رد: @@أبورائد@@

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


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