تقييم الموضوع :
  • 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 ) ضيف كريم