22-09-16, 03:13 AM
السلام عليكم ورحمة الله وبركاته
شغلة بسيطة لعلها تنفع مستجد في عالم منتدانا الغالي
مربع نص واحد فقط
وهذا كلاس الفورم
PHP كود :
Public Class Form1
Private Function go() As String
If TextBox1.Text.ToString.ToLower.Contains("+") Then
Return "+"
ElseIf TextBox1.Text.ToString.ToLower.Contains("-") Then
Return "-"
ElseIf TextBox1.Text.ToString.ToLower.Contains("*") Then
Return "*"
ElseIf TextBox1.Text.ToString.ToLower.Contains("/") Then
Return "/"
Else
Return Nothing
End If
End Function
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyData = Keys.Enter Then
If IsNothing(go) = False Then
Dim res As String = ""
Select Case go()
Case "+"
res = ("=" & Val(TextBox1.Text.Split("+")(0)) + Val(TextBox1.Text.Split("+")(1)))
Case "-"
res = ("=" & Val(TextBox1.Text.Split("-")(0)) - Val(TextBox1.Text.Split("-")(1)))
Case "*"
res = ("=" & Val(TextBox1.Text.Split("*")(0)) * Val(TextBox1.Text.Split("*")(1)))
Case "/"
res = ("=" & Val(TextBox1.Text.Split("/")(0)) / Val(TextBox1.Text.Split("/")(1)))
End Select
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
If TextBox1.Text.Contains(res) = False Then
TextBox1.AppendText(res)
End If
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
End If
End If
End Sub
End Class
يعني تكتب من خلال لوحة المفاتيح
