Servus,
ich hab folgendes Problem: Ich bin absoluter Newbie was Programmierung angeht und die Konsole macht mir echt Sorgen. Ich hab hier eine Aufgabe liegen, bei der ich absolut nicht weiter komme.
Ich muss ein Programm erstellen, in dem man alle 4 Grundrechenarten vereint hat. Mein Codevorschlag ist vollgender:
Sub rechne(ByVal op1 As Single, ByVal oper As String, ByVal op2 As Single)
Dim argumente(2) As String 'Arraybehälter mit 3 Feldern
argumente(0) = op1
argumente(1) = oper
argumente(2) = op2
Dim ergebnis As Single
Dim s As String = " "
ReadLine() = argumente ............Diese Zeile funktioniert nicht!
Select Case argumente(1)
Case argumente(1) = "+"
ergebnis = op1 + op2
Write(" = ")
WriteLine(ergebnis)
Case argumente(1) = "-"
ergebnis = op1 - op2
Write(" = ")
WriteLine(ergebnis)
Case argumente(1) = "*"
ergebnis = op1 * op2
Write(" = ")
WriteLine(ergebnis)
Case argumente(1) = "/"
ergebnis = op1 / op2
Write(" = ")
WriteLine(ergebnis)
Case " "
WriteLine("Kein passender Operator")
Case argumente.Length > 3
WriteLine("Zu viele Argumente")
Case argumente.Length < 2
WriteLine("Zu wenig Argumente")
Case Else
'Write("Die Länge dieses Arrays ist: ")
'WriteLine(argumente.Length)
WriteLine()
End Select
ReadLine()
End Sub
Sub Main()
Dim i As Integer
For i = 1 To 100
rechne(op1, oper, op2)
Next
End Sub
End Module
aber irgendwie funzt das nicht. wer echt klasse wenn das einer mal bitte komplettieren könnte. meistens kappier ich es erst, wenn ich es denn sehe!
danke euch schonmal im vorraus!!!!!!!!!!!!!!!!!!!!!!!
ich hab folgendes Problem: Ich bin absoluter Newbie was Programmierung angeht und die Konsole macht mir echt Sorgen. Ich hab hier eine Aufgabe liegen, bei der ich absolut nicht weiter komme.
Ich muss ein Programm erstellen, in dem man alle 4 Grundrechenarten vereint hat. Mein Codevorschlag ist vollgender:
Sub rechne(ByVal op1 As Single, ByVal oper As String, ByVal op2 As Single)
Dim argumente(2) As String 'Arraybehälter mit 3 Feldern
argumente(0) = op1
argumente(1) = oper
argumente(2) = op2
Dim ergebnis As Single
Dim s As String = " "
ReadLine() = argumente ............Diese Zeile funktioniert nicht!
Select Case argumente(1)
Case argumente(1) = "+"
ergebnis = op1 + op2
Write(" = ")
WriteLine(ergebnis)
Case argumente(1) = "-"
ergebnis = op1 - op2
Write(" = ")
WriteLine(ergebnis)
Case argumente(1) = "*"
ergebnis = op1 * op2
Write(" = ")
WriteLine(ergebnis)
Case argumente(1) = "/"
ergebnis = op1 / op2
Write(" = ")
WriteLine(ergebnis)
Case " "
WriteLine("Kein passender Operator")
Case argumente.Length > 3
WriteLine("Zu viele Argumente")
Case argumente.Length < 2
WriteLine("Zu wenig Argumente")
Case Else
'Write("Die Länge dieses Arrays ist: ")
'WriteLine(argumente.Length)
WriteLine()
End Select
ReadLine()
End Sub
Sub Main()
Dim i As Integer
For i = 1 To 100
rechne(op1, oper, op2)
Next
End Sub
End Module
aber irgendwie funzt das nicht. wer echt klasse wenn das einer mal bitte komplettieren könnte. meistens kappier ich es erst, wenn ich es denn sehe!
danke euch schonmal im vorraus!!!!!!!!!!!!!!!!!!!!!!!
Comment