[Console]Taschenrechner

    • [Console]Taschenrechner

      [COLOR="MediumTurquoise"]Hallo godlikerz
      Hier erkläre ich euch wie man einen kleinen Taschenrechner in Consolen Form
      erstellt. Hinter dem ' werden spezielle Codezeilen erläutert.
      Bei fragen fehlern etc. postet das einfach hier.(aber nicht wegen einem Rechtschreibfehler die könnt ihr kostenlos behalten).[/COLOR]

      Brainfuck-Quellcode

      1. [B]
      2. [COLOR="Blue"]Module Module1
      3. Sub Main()
      4. Console.WriteLine("Exit [0]" + vbNewLine + "")
      5. Console.WriteLine("+ [1]")[/COLOR] [COLOR="YellowGreen"]' Das Menü das einfach nur aus Text besteht[/COLOR]
      6. [COLOR="Blue"]Console.WriteLine("- [2]")[/COLOR] [COLOR="YellowGreen"]' Console.Writeline schreibt Text in eine neue Zeile[/COLOR]
      7. [COLOR="Blue"]Console.WriteLine("* [3]")[/COLOR] [COLOR="YellowGreen"]' Der Text muss zwischen zwei () und zwei "" stehen. Also so Console.Writeline("Text").[/COLOR]
      8. [COLOR="Blue"]Console.WriteLine("/ [4]" + vbNewLine + "")[/COLOR] [COLOR="YellowGreen"] 'Zwischen den zwei Anfürungszeichen darf man fast alle Zeichen verwenden
      9. 'allerdings dürfen darin keine "" enthalten sein. Es gibt Asc Codes die die Sonderzeichen etc. ersetzen
      10. 'gebe bei google einfach ACII Tabelle ein. Hier mal ein Beispiel Console.Writeline ("" +Asc(Nummer)+ "Text" +Asc(Nummer)+ "")
      11. 'Zudem Kann die Console auch nicht alle Zeichen anzeigen.[/COLOR]
      13. [COLOR="Blue"]Dim menuselect As String = Console.ReadLine[/COLOR] [COLOR="YellowGreen"]' Liest welchen Menüpunkt man wählen will[/COLOR]
      15. [COLOR="Blue"]If menuselect = "1" Then[/COLOR] [COLOR="YellowGreen"]' Wenn dort die Zahl steht wird der Menüpunkt ausgeführt[/COLOR]
      17. [COLOR="Blue"]Console.WriteLine("" + vbNewLine + "Zahl1:")[/COLOR] [COLOR="YellowGreen"]'Diese "+vbnewline+" sorgt für einen Zeilenumbruch[/COLOR]
      18. [COLOR="Blue"] Dim zahl1 As Double = Console.ReadLine[/COLOR] [COLOR="YellowGreen"]'eine Variable mit dem Namen zahl1.Die Variable ist ein double.[/COLOR]
      19. [COLOR="Blue"]Console.WriteLine("" + vbNewLine + "Zahl2:")[/COLOR]
      20. [COLOR="Blue"]Dim zahl2 As Double = Console.ReadLine[/COLOR] [COLOR="YellowGreen"]' =Console.Readline bedeute das der Inhalt der Variable das ist was er in dieser Zeile ließt.[/COLOR]
      21. [COLOR="Blue"] Console.WriteLine("" + vbNewLine + "Ergebnis:")
      22. Console.WriteLine(zahl1 + zahl2)[/COLOR] [COLOR="YellowGreen"]' Rechnet die Variablen zahl1 und zahl2 zusammen[/COLOR]
      24. [COLOR="Blue"]Console.ReadKey()[/COLOR] [COLOR="YellowGreen"]' Sorgt dafür das die Console nach dem zusammenrechnen offen bleibt, damit man das Ergebinis auch lesen kann.[/COLOR]
      25. [COLOR="Blue"]Console.Clear()[/COLOR] [COLOR="YellowGreen"]' Nachdem man einmal Enter gedrückt hat wird die Console geleert[/COLOR]
      26. [COLOR="Blue"] Main() [/COLOR] [COLOR="YellowGreen"] ' und die sub Main () wird wiederholt, also beginnt der rechenvorgang wieder von vorne.
      27. [/COLOR]
      29. [COLOR="YellowGreen"] 'Hier mal ein paar Variablen Typen
      31. ' Typen Wertebereich
      33. ' Byte 0...255
      34. ' SByte -128...127
      35. ' Short -215...215
      36. ' Integer -231...231
      37. ' Long -263...263
      38. ' Boolean True or False
      39. ' Date 1/1/1 12:0:0 - 31/12/9999 23:59:59
      40. ' Object universell
      41. ' String ca. 231 Unicode-Zeichen
      43. ' Single, Double, Decimal umfassen einen seh großen bereich an zahlen die man aber eigentlich nur braucht
      44. ' wenn das ergebnis bis nach der xten Kommastelle genau seien soll. Decimal ist das höchste was es in vb gibt.
      45. '---------------------------------------------------------------------------------------------------------------------[/COLOR]
      46. [COLOR="Blue"]ElseIf menuselect = "2" Then
      48. Console.WriteLine("" + vbNewLine + "Zahl1:")
      49. Dim zahl1 As Double = Console.ReadLine
      50. Console.WriteLine("" + vbNewLine + "Zahl2:")
      51. Dim zahl2 As Double = Console.ReadLine
      52. Console.WriteLine("" + vbNewLine + "Ergebnis:")
      53. Console.WriteLine(zahl1 - zahl2)
      55. Console.ReadKey()
      56. Console.Clear()
      57. Main()
      59. ElseIf menuselect = "3" Then
      61. Console.WriteLine("" + vbNewLine + "Zahl1:")
      62. Dim zahl1 As Double = Console.ReadLine
      63. Console.WriteLine("" + vbNewLine + "Zahl2:")
      64. Dim zahl2 As Double = Console.ReadLine
      65. Console.WriteLine("" + vbNewLine + "Ergebnis:")
      66. Console.WriteLine(zahl1 * zahl2)
      68. Console.ReadKey()
      69. Console.Clear()
      70. Main()
      72. ElseIf menuselect = "4" Then
      74. Console.WriteLine("" + vbNewLine + "Zahl1:")
      75. Dim zahl1 As Double = Console.ReadLine
      76. Console.WriteLine("" + vbNewLine + "Zahl2:")
      77. Dim zahl2 As Double = Console.ReadLine
      78. Console.WriteLine("" + vbNewLine + "Ergebnis:")
      80. If zahl2 = 0 Or zahl1 = 0 Then[/COLOR] [COLOR="YellowGreen"]' Wenn die erste oder die zweite Zahl 0 ist passiert das...[/COLOR]
      81. [COLOR="Blue"]MsgBox("Durch null kann man nicht teilen!!!")[/COLOR] [COLOR="YellowGreen"]' eine einfache Msgbox[/COLOR]
      83. [COLOR="Blue"]Console.Clear()[/COLOR] [COLOR="YellowGreen"]'Kennen wir ja schon^^[/COLOR]
      84. [COLOR="Blue"]Main()
      85. Else [/COLOR][COLOR="YellowGreen"]' Sollten die erste und die zweite Zahl nicht 0 sein wird das Ergebnis angezeigt...[/COLOR]
      86. [COLOR="Blue"]Console.WriteLine(zahl1 / zahl2)[/COLOR]
      88. [COLOR="Blue"]Console.ReadKey()
      89. Console.Clear()
      90. Main()
      91. End If
      92. '-----------------------------------------------------------------
      93. ElseIf menuselect = "0" Then[/COLOR]
      94. [COLOR="YellowGreen"]' Then man den Punkt exit auswählt und eine 0 eingibt passiert nichts mehr und die
      95. ' Console wird geschloßen[/COLOR]
      96. [COLOR="Blue"]
      97. Else
      98. MsgBox("Üngültige Zahl!")[/COLOR] [COLOR="YellowGreen"]' sollte(am Anfang) bei der auswahl der Rechenart eine ungültige Zahl
      99. 'eingegeben werden wird eine kleine MsgBox geöffnet und die Sub Main neugestartet.[/COLOR]
      101. [COLOR="Blue"] Console.Clear()
      102. main()
      103. End If
      105. End Sub[/COLOR]
      106. [COLOR="Red"] 'Made by Temo[/COLOR]
      107. [COLOR="Blue"]End Module[/COLOR]
      Alles anzeigen
      [/B]

      [COLOR="MediumTurquoise"]Der Code ist 100% selbst geschrieben und die Kommentare sind von mir
      eingefügt.
      [/COLOR]
      [COLOR="Red"]Feedback,Thanks, Fragen sind erwünscht.[/COLOR]

      [COLOR="MediumTurquoise"]Mfg Temo[/COLOR]

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • ichbinniemand;26227 schrieb:

      so ein taschenrechner war mein erstes programm :D
      allerdings habe ich mir weniger arbeit gemacht und einfach gesagt dass man die rechenzeichen selbst benutzen soll
      aber schön erklärt


      bei dem Skript kannst du dzir doch auch die Rechenzeichen aussuchen ;)
      allerdings stimmts das das etwas umständlich ist und es einfacher wäre den
      benutzer einfach das Rechenzeichen bestimmen zu lassen.