السلام عليكم
أرجو منكم مساعدتي في هذا الكود هذا الكود مهمته عندما تدخل رقم 1 يطلب منك ادخال العدد الأول والعدد الثاني ويتم جمعهم وإذا تضغط رقم 2 يتم طرح العددين الذي تم ادخالهم وهكذا .
هذا الكود مكتوب بلغة visual basic .net ( visual studio 2008)===> consoleapplication.
المطلوب منكم مساعدتي في الآتي:
أنا أريد تقسيم هذا الكود إلى أجزاء أي كل case في اجراء يعني case1 في اجراء خاص به و case2 في اجراء آخر خاص به أيضاً والباقي كذلك.
أرجو منكم مساعدتي في هذا بأقرب وقت ممكن .
طبعاً يوجد بقية للبرنامج إلي أنا عاملو بس المشكلة في هذا الجزء من البرنامج.
وشكراً جزيلاً لكم
الكود هو:
Public Function y() As Double
Dim j As Integer
Dim k As Double
Dim a, b As Double
Dim s As Integer
sum = sum + k
Console.WriteLine("Enter number OP:")
s = Integer.Parse(Console.ReadLine())
Console.Clear()
Select Case s
Case 1
Console.WriteLine("Enter number OP")
a = Double.Parse(Console.ReadLine())
Console.WriteLine("Enter number OP")
b = Double.Parse(Console.ReadLine())
k = a + b
Console.WriteLine("The result ======>")
Console.WriteLine(a & "+" & b & "=" & k)
Case 2
Console.WriteLine("The first number")
a = Double.Parse(Console.ReadLine())
Console.WriteLine("The second number")
b = Double.Parse(Console.ReadLine())
k = a - b
Console.WriteLine("The result ======>")
Console.WriteLine(a & "-" & b & "=" & k)
Case 3
Console.WriteLine("The first number")
a = Double.Parse(Console.ReadLine())
Console.WriteLine("The second number")
b = Double.Parse(Console.ReadLine())
k = a * b
Console.WriteLine("The result ======>")
Console.WriteLine(a & "*" & b & "=" & k)
Case 4
Console.WriteLine("The first number")
a = Double.Parse(Console.ReadLine())
Console.WriteLine("The second number")
b = Double.Parse(Console.ReadLine())
If b = 0 Then
Console.WriteLine("The result ======>")
Console.WriteLine("the number is rong")
Else
k = a / b
Console.WriteLine("The result ======>")
Console.WriteLine(a & "/" & b & "=" & k)
End If
Case 5
Console.Clear()
Console.WriteLine("The result ======>")
Console.WriteLine("the summiton is =>" & sum)
Case 6
j = 5
End Select
Return (j)
End Function
End Module
