تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[لاجديد] دردشة كودية +-*/
#1
السلام عليكم ورحمة الله وبركاته
شغلة بسيطة لعلها تنفع مستجد في عالم منتدانا الغالي
مربع نص واحد فقط
وهذا كلاس الفورم
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 ObjectAs KeyEventArgsHandles 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 

يعني تكتب من خلال لوحة المفاتيحSmile

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


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


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