Liebe Leute,
ich habe als Aufgabe, einen Taschenrechner zu programmieren. Er soll die Zahlen 245 und 50 miteinander addieren, dividieren, subtrahieren und multiplizieren. Und die Aufgabe setzt voraus, dass man den dim zum String konvertiert, weil man wohl (wie ich das verstanden habe) als readline folgenden reinschreiben muss:
245+50
Ich bitte euch um Hilfe, weil ich mit diesem Teil der Aufgabe die grössten Schwierigkeiten habe.
Mein Code sieht folgendermassen aus.
Imports system.console
Module abc
Sub Main(ByVal Argumente() As String)
Dim op1, op2, ergebnis As Short
If argumente.length > 3 Then
writeline("Zu viele Argumente")
Exit Sub
ElseIf argumente.length < 3 Then
writeline("Zu wenig Argumente")
Exit Sub
End If
op1 = Argumente(0)
op2 = Argumente(2)
Select Case argumente(1)
Case "+"
ergebnis = op1 + op2
Case "-"
ergebnis = op1 - op2
Case "*"
ergebnis = op1 * op2
Case "/"
ergebnis = op1 / op2
Case Else
writeline("Kein passender Operator")
Exit Sub
End Select
writeline("{0} {1} {2} = {3}", op1, argumente(1), op2, ergebnis)
Readline()
End Sub
End Module
Wenn ihr gute Tipps habt, bitte ich euch um eine kleine Unterstützung.
ich habe als Aufgabe, einen Taschenrechner zu programmieren. Er soll die Zahlen 245 und 50 miteinander addieren, dividieren, subtrahieren und multiplizieren. Und die Aufgabe setzt voraus, dass man den dim zum String konvertiert, weil man wohl (wie ich das verstanden habe) als readline folgenden reinschreiben muss:
245+50
Ich bitte euch um Hilfe, weil ich mit diesem Teil der Aufgabe die grössten Schwierigkeiten habe.
Mein Code sieht folgendermassen aus.
Imports system.console
Module abc
Sub Main(ByVal Argumente() As String)
Dim op1, op2, ergebnis As Short
If argumente.length > 3 Then
writeline("Zu viele Argumente")
Exit Sub
ElseIf argumente.length < 3 Then
writeline("Zu wenig Argumente")
Exit Sub
End If
op1 = Argumente(0)
op2 = Argumente(2)
Select Case argumente(1)
Case "+"
ergebnis = op1 + op2
Case "-"
ergebnis = op1 - op2
Case "*"
ergebnis = op1 * op2
Case "/"
ergebnis = op1 / op2
Case Else
writeline("Kein passender Operator")
Exit Sub
End Select
writeline("{0} {1} {2} = {3}", op1, argumente(1), op2, ergebnis)
Readline()
End Sub
End Module
Wenn ihr gute Tipps habt, bitte ich euch um eine kleine Unterstützung.