تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال في console
#1
السلام عليكم
ممكن مساعدة بسيطة يا اصدقاء

اريد عند كتابة رقم واحد في console يقوم بهذا الامر
كود :
   Console.WriteLine("Type a number and press Enter")
   num1 = Console.ReadLine()
   Console.WriteLine("Type another number to add to it and press Enter")
   num2 = Console.ReadLine()
   answer = num1 + num2
   Console.WriteLine("The answer is " & answer)
   Console.ReadLine()
و اذا ادخلت رقم 2 يقوم بهذا الامر
كود :
   Console.WriteLine("Type a number and press Enter")
   num1 = Console.ReadLine()
   Console.WriteLine("Type another number to add to it and press Enter")
   num2 = Console.ReadLine()
   answer = num1 - num2
   Console.WriteLine("The answer is " & answer)
   Console.ReadLine()
الرد
تم الشكر بواسطة:
#2
و عليكم السلام
تفضل
كود :
Public num1 As Integer
   Public num2 As Integer
   Public answer As Integer

   Sub Main()
       System.Console.WriteLine("Welcome")
       Module1.trakktour()
   End Sub
   Sub trakktour()
       System.Console.WriteLine("Pick a command:")
       System.Console.WriteLine("1) Addition")
       System.Console.WriteLine("2) Soustraction")
       Select Case Console.ReadLine
           Case "1" : Module1.Addition()
           Case "2" : Module1.Soustraction()
           Case Else : Module1.trakktour()
       End Select
   End Sub
   Sub Addition()
       Console.WriteLine("Type a number and press Enter")
       num1 = Console.ReadLine()
       Console.WriteLine("Type another number to add to it and press Enter")
       num2 = Console.ReadLine()
       answer = num1 + num2
       Console.WriteLine("The answer is " & answer)
       Console.ReadLine()

   End Sub
   Sub Soustraction()
       Console.WriteLine("Type a number and press Enter")
       num1 = Console.ReadLine()
       Console.WriteLine("Type another number to add to it and press Enter")
       num2 = Console.ReadLine()
       answer = num1 - num2
       Console.WriteLine("The answer is " & answer)
       Console.ReadLine()

   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لو سمحتوا ممكن حد يفدني سؤال عن الداتا جرد فيو m.soft.01210 3 67 15-06-19, 11:33 PM
آخر رد: elgokr
Exclamation [VB.NET] سؤال من العبقريه لو سمحتو m.soft.01210 1 86 11-06-19, 08:39 PM
آخر رد: sniperjawadino
  [سؤال] سلام سؤال تحويل رابط حاتمي 5 151 16-05-19, 02:29 PM
آخر رد: elgokr
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 127 27-04-19, 10:32 PM
آخر رد: saoud2
  [VB.NET] سؤال بخصوص فتح الشاشات khalid475 3 138 25-04-19, 09:18 PM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 213 25-04-19, 09:28 AM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص client server dubai.eig 3 149 23-04-19, 11:40 AM
آخر رد: elgokr
  سؤال حول تنسيق لون مربع نص المتألق9 3 142 19-04-19, 02:31 AM
آخر رد: المتألق9
  [نقاش] سؤال محير جداااااا وارجو المساعده faysal13_13@hotmail.com 6 182 18-04-19, 11:52 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص DOEVENTS ومشكله بالكود dametucorazon 5 217 15-04-19, 09:24 AM
آخر رد: elgokr

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


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