[3booody]

السلام عليكم ورحمة الله وبركاته

عملته بسرعه لذلك ينقصه زر رجوع للخلف (هذا عليك)واذا حبيبت يمكنك اضافة عمليات اخرى مثل Sin cos وغيرها اهم شي فكرة البرنامج التي عملتها بطريقة مختصرة بحيث اختصرت الكثير من الاسطر البرمجية

كل ماعليك اضافة 15 زر كما في الصورة وتغيير نص الزر ايضا كما في الصورة واضافة تكست بوكس 1
واضافة الكود التالي كما هو
بالتوفيق

---

كود :

Public Class Form1
   Dim num1, num2 As Double
   Dim ob As String

   Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
       If IsNumeric(e.KeyChar) Then
           TextBox1.Text &= e.KeyChar
       Else
           Select Case e.KeyChar
               Case "+"
                   checktxt("+")
               Case ("-")
                   checktxt("-")
               Case ("*")
                   checktxt("*")
               Case "/"
                   checktxt("/")
               Case ("=")
                   GiveAns()
               Case ChrW(Keys.Enter)
                   GiveAns()
           End Select
       End If
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.KeyPreview = True
       TextBox1.ReadOnly = True
       For Each bt As Control In Me.Controls
           If bt.Name.Contains("Button") Then
               AddHandler bt.Click, AddressOf BT_click
           End If
       Next
   End Sub
   Sub BT_click(ByVal sender As Object, ByVal e As EventArgs)
       Select Case sender.Text
           Case "+"
               checktxt("+")
           Case "-"
               checktxt("-")
           Case "*"
               checktxt("*")
           Case "/"
               checktxt("/")
           Case "="
               GiveAns()
           Case Else
               TextBox1.Text &= sender.Text
       End Select
   End Sub
   Sub checktxt(ByVal t As String)
       If Not TextBox1.Text = "" Then
           ob = t
           num1 = TextBox1.Text
           TextBox1.Text = ""
       End If
   End Sub
   Sub GiveAns()
       Try
           num2 = TextBox1.Text
           Select Case ob
               Case "+"
                   TextBox1.Text = num1 + num2
               Case "-"
                   TextBox1.Text = num1 - num2
               Case "*"
                   TextBox1.Text = num1 * num2
               Case "/"
                   TextBox1.Text = num1 / num2
           End Select
       Catch ex As Exception

       End Try
   End Sub
End Class

---

لا ادري لماذا لايتم رفع الصورة اعتذر يطلع عندي خطأ

---

ما ادري الخطأ وين الصورة لاترفع
ال 15 زر النص يكون لكل واحد
1 و 2 و3و4و5و6و7و8و9و0 و - و + و = و / و *