Hallo,
dieser Codeschnipsel basiert auf Visual Basic 2008 Express, also dem .NET Framework. Die Datei im Anhang kann nur auf einem Windows Computer mit .NET Framework 3.5 ausgeführt werden.
Es ist ein simpler Taschenrechner, hier der Skript:
Code
Module Module1
Sub Main()
Console.WriteLine("Willkommen im Taschenrechner!")
Dim intchoose As Double
0:
Console.Clear()
Console.WriteLine("Der Taschenrechner bietet nun folgende Auswahlmöglichkeiten: ")
Console.WriteLine("(1) Für die Addition von (mehreren) Zahlen")
Console.WriteLine("(2) Für die Subtraktion von (mehreren) Zahlen")
Console.WriteLine("(3) Für die Multiplikation von (mehreren) Zahlen")
Console.WriteLine("(4) Für die Division von (mehreren) Zahlen")
Console.WriteLine("(5) Für die Potenzierung einer Zahlen")
Console.WriteLine("(6) Für das Wurzelziehen einer Zahl")
Console.WriteLine("(7) Für das Beenden des Programmes")
Console.Write("Bitte gebe hier deine Optionsnummer ein: ")
intchoose = Console.ReadLine()
If intchoose = 1 Then GoTo 1
If intchoose = 2 Then GoTo 2
If intchoose = 3 Then GoTo 3
If intchoose = 4 Then GoTo 4
If intchoose = 5 Then GoTo 5
If intchoose = 6 Then GoTo 6
If intchoose = 7 Then GoTo 7
Console.WriteLine("Deine Eingabe war nicht korrekt. Versuche es nocheinmal. (Du wirst in zwei Sekunden weitergeleitet)")
Threading.Thread.Sleep(2000)
GoTo 0
1:
Console.Clear()
Console.WriteLine("Du hast dich für die Addition von (mehreren) Zahlen entschieden!")
Console.WriteLine()
Console.Write("Gebe hier bitte die Anzahl an Zahlen ein, die du addieren möchtest: (Es müssen Zahlen sein, z.B. 2!) ")
Dim intnumberad As Double = Console.ReadLine()
Console.WriteLine()
Console.Write("Bitte gebe hier die erste Zahl ein: ")
Dim intonead As Double = Console.ReadLine()
Dim intextensionad As Double = intonead
Dim iad As Double
For iad = 2 To intnumberad
Console.WriteLine()
Console.Write("Bitte gebe hier die " + CType(iad, String) + ". Zahl ein: ")
intonead = Console.ReadLine()
intextensionad = intextensionad + intonead
Next
Console.WriteLine("Das Ergebnis beträgt " + CType(intextensionad, String) + ". ")
GoTo 8
2:
Console.Clear()
Console.WriteLine("Du hast dich für die Subtraktion von (mehreren) Zahlen entschieden!")
Console.WriteLine()
Console.Write("Gebe hier bitte die Anzahl an Zahlen ein, die du subtrahieren möchtest: (Es müssen Zahlen sein, z.B. 2!) ")
Dim intnumbersu As Double = Console.ReadLine()
Console.WriteLine()
Console.Write("Bitte gebe hier die erste Zahl ein: ")
Dim intonesu As Double = Console.ReadLine()
Dim intextensionsu As Double = intonesu
Dim isu As Double
For isu = 2 To intnumbersu
Console.WriteLine()
Console.Write("Bitte gebe hier die " + CType(isu, String) + ". Zahl ein: ")
intonesu = Console.ReadLine()
intextensionsu = intextensionsu - intonesu
Next
Console.WriteLine("Das Ergebnis beträgt " + CType(intextensionsu, String) + ". ")
GoTo 8
3:
Console.Clear()
Console.WriteLine("Du hast dich für die Mulitplikation von (mehreren) Zahlen entschieden!")
Console.WriteLine()
Console.Write("Gebe hier bitte die Anzahl an Zahlen ein, die du multiplizieren möchtest: (Es müssen Zahlen sein, z.B. 2!) ")
Dim intnumbermu As Double = Console.ReadLine()
Console.WriteLine()
Console.Write("Bitte gebe hier die erste Zahl ein: ")
Dim intonemu As Double = Console.ReadLine()
Dim intextensionmu As Double = intonesu
Dim imu As Double
For imu = 2 To intnumbermu
Console.WriteLine()
Console.Write("Bitte gebe hier die " + CType(imu, String) + ". Zahl ein: ")
intonesu = Console.ReadLine()
intextensionsu = intextensionmu * intonemu
Next
Console.WriteLine("Das Ergebnis beträgt " + CType(intextensionmu, String) + ". ")
GoTo 8
4:
Console.Clear()
Console.WriteLine("Du hast dich für die Division von (mehreren) Zahlen entschieden!")
Console.WriteLine()
Console.Write("Gebe hier bitte die Anzahl an Zahlen ein, die du dividieren möchtest: (Es müssen Zahlen sein, z.B. 2!) ")
Dim intnumberdi As Double = Console.ReadLine()
Console.WriteLine()
Console.Write("Bitte gebe hier die erste Zahl ein: ")
Dim intonedi As Double = Console.ReadLine()
Dim intextensiondi As Double = intonesu
Dim idi As Double
For idi = 2 To intnumberdi
Console.WriteLine()
Console.Write("Bitte gebe hier die " + CType(idi, String) + ". Zahl ein: ")
intonesu = Console.ReadLine()
If intonedi = 0 Then
Console.WriteLine("Das Ergebnis beträgt n. def.")
End If
intextensionsu = intextensiondi / intonedi
Next
Console.WriteLine("Das Ergebnis beträgt " + CType(intextensiondi, String) + ". ")
GoTo 8
5:
Console.Clear()
Console.WriteLine("Du hast dich für die Potenzierung zweier Zahlen entschieden!")
Console.WriteLine()
Console.Write("Bitte gebe hier die Basis ein: ")
Dim intonepo As Double = Console.ReadLine()
Console.Write("Bitte gebe hier den Exponenten ein: ")
Dim intexpo As Double = Console.ReadLine()
Dim intresult As Double = intonepo ^ intexpo
Console.WriteLine("Das Ergebnis beträgt " + CType(intresult, String) + ". ")
GoTo 8
6:
Console.Clear()
Console.WriteLine("Du hast dich für das Wurzelziehen einer Zahl entschieden.")
Console.WriteLine()
Console.Write("Bitte gebe hier den Radikanten ein: ")
Dim intradwu As Double = Console.ReadLine()
Console.Write("Bitte gebe hier den Wurzelexponent ein: ")
Dim intwuwu As Double = Console.ReadLine()
Dim resultwu As Double = intradwu ^ (1 / intwuwu)
Console.WriteLine()
Console.WriteLine("Das Ergebnis beträgt " + CType(resultwu, String) + ". ")
GoTo 8
7:
Console.WriteLine("Das Programm wird in zwei Sekunden beendet...")
Threading.Thread.Sleep(2000)
End
8:
Console.WriteLine()
Console.Write("Soll das Programm neu gestartet werden? (j/n): ")
Dim strrestart As String = Console.ReadLine()
If strrestart = "j" Then GoTo 0
If strrestart = "n" Then GoTo 7
Console.WriteLine("Deine Eingabe war nicht korrekt. Bitte versuche es noch einmal. (Du wirst in zwei Sekunden weitergeleitet)")
Threading.Thread.Sleep(2000)
GoTo 8
End Sub
End ModuleViel Spaß damit :)
Um das im eigenen Editor auszuführen, ist der Visual Basic 2008 Express Edition Editor (kostenlos) von Microsoft notwendig.
