Ich habe einen Fehler mit meinem Basisrechner - vb.net - bekommen

Ich benötige Hilfe beim Speichern einer Variablen als +, -, /, * ,. Ich kann es nicht herausfinden und ich bin ziemlich ein Noob. Ich habe es über eine Konsolenanwendung auf Vb.net geschafft

Module Module1

Sub Main()
Do
Dim UserInput As Object = Nothing
Dim UserInputNum1 As Object = Nothing
Dim UserInputNum2 As Object = Nothing
Dim UserAnswer As Object = Nothing

Console.WriteLine("Slect Your First Number")
UserInputNum1 = Console.ReadLine()
Console.WriteLine("You Slected: " & UserInputNum1)
Console.ReadLine()

Console.WriteLine("Slect Your Second Number")
UserInputNum2 = Console.ReadLine()
Console.WriteLine("You Slected: " & UserInputNum2)
Console.ReadLine()

Console.WriteLine("Would You Like To + - * /")
UserInput = Console.ReadLine()
Console.WriteLine("You Slected: " & UserInput)
Console.ReadLine()

If UserInput = + Then
UserAnser = UserInputNum1 + UserInputNum2
End If

If UserInput = - Then
UserAnser = UserInputNum1 - UserInputNum2
End If

If UserInput = * Then
UserAnser = UserInputNum1 * UserInputNum2
End If

If UserInput = / Then
UserAnser = UserInputNum1 / UserInputNum2
End If

Console.WriteLine(UserInputNum1 & " " & UserInput & " " & UserInputNum2 & " = " & UserAnswer)
Console.ReadLine()
Loop
End Sub

End Module

Antworten:

Eine Möglichkeit wäre, Console.ReadKey () zu verwenden, um die Eingabe abzurufen und sie dann mit einem mSelect Case-Block zu verarbeiten. Sehen Sie, ob dies hilft:

Module Module1

Sub Main()
Do
Dim UserInput As Char = Nothing
Dim UserInputNum1 As Object = Nothing
Dim UserInputNum2 As Object = Nothing
Dim UserAnswer As Object = Nothing

Console.WriteLine("Slect Your First Number")
UserInputNum1 = Console.ReadLine()
Console.WriteLine("You Slected: " & UserInputNum1)
Console.ReadLine()

Console.WriteLine("Slect Your Second Number")
UserInputNum2 = Console.ReadLine()
Console.WriteLine("You Slected: " & UserInputNum2)
Console.ReadLine()

Console.WriteLine("Would You Like To + - * /")
UserInput = Console.ReadKey().KeyChar
Console.WriteLine(UserInput)
Console.ReadLine()
Select Case UserInput
Case "+"c
UserAnser = UserInputNum1 + UserInputNum2

Case "-"c
UserAnser = UserInputNum1 - UserInputNum2

Case "*"c
UserAnser = UserInputNum1 * UserInputNum2

Case "/"
UserAnser = UserInputNum1 / UserInputNum2

Console.WriteLine(UserInputNum1 & " " & UserInput & " " & UserInputNum2 & " = " & UserAnswer)
Console.ReadLine()
Loop
End Sub

End Module

Das c am Ende eines Strings steht das Literal, mit dem VB einen String mit 1 Zeichen als Zeichen bezeichnet