Taschenrechner

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von ChaosBernd.

    Taschenrechner

    Hallo zusammen,

    da ich für meinen Beruf in naher Zukunft die Grundlagen in VBA beherrschen muss, habe ich mich selber einmal ein wenig in das Thema eingearbeitet und mich an einem Taschenrechner probiert. Das Programm soll, vom Eingabeverhalten, so laufen wie ein normaler Taschenrechner, z.B.:

    Zahl wird eingetippt
    Plus wird gedrückt (Oder anderer Operator)
    Zahl wird eingetippt
    => Hier sollen jetzt zwei Varianten greifen: Bei Plus soll das Ergebnis von den beiden zahlen ausgegeben werden, genauso aber auch wenn man die Taste Gleich betätigt.
    => natürlich soll die Möglichkeit bestehen auch einfach weiter zu rechnen. (1+1+1+1+1....) Dabei soll bei Plus immer das aktuelle Ergebnis ausgegeben werden, wie bei einem Standard Taschenrechner.

    Problem ist dass er die falschen Ergebnisse ausliest, z.B.: 1+1+1 = 5

    Hier die Datei zum downloaden -> rapidshare.com/files/423782281/TaschenrechnerTest.xls

    Hier meine ersten Versuche, leider hapert es noch ein wenig. In meinem Beispiel soll erstmal nur Plus berücksichtigt werden, deswegen habe ich den Code der anderen Operatoren erstmal weggelassen:

    UserForm Code:

    VB.NET-Quellcode

    1. Option Explicit
    3. Public Zahl1 As Double, Ergebnis As Double, Ausgabe As Double
    4. Public Anzahl As Integer
    5. Public Rechenart As String
    6. Public test As Double
    11. 'Nummernfeld
    14. Private Sub cmd0_Click()
    16. Ergebnis = Ergebnis + 0
    19. txtErgebnis = txtErgebnis + "0"
    21. End Sub
    23. Private Sub cmd1_Click()
    26. Ergebnis = Ergebnis + 1
    27. txtErgebnis.Text = 1
    29. End Sub
    31. Private Sub cmd2_Click()
    33. Ergebnis = Ergebnis + 2
    36. txtErgebnis = txtErgebnis + "2"
    38. End Sub
    40. Private Sub cmd3_Click()
    42. Ergebnis = Ergebnis + 3
    45. txtErgebnis = txtErgebnis + "3"
    47. End Sub
    49. Private Sub cmd4_Click()
    51. Ergebnis = Ergebnis + 4
    54. txtErgebnis = txtErgebnis + "4"
    56. End Sub
    58. Private Sub cmd5_Click()
    60. Ergebnis = Ergebnis + 5
    63. txtErgebnis = txtErgebnis + "5"
    65. End Sub
    67. Private Sub cmd6_Click()
    69. Ergebnis = Ergebnis + 6
    72. txtErgebnis = txtErgebnis + "6"
    74. End Sub
    76. Private Sub cmd7_Click()
    78. Ergebnis = Ergebnis + 7
    81. txtErgebnis = txtErgebnis + "7"
    83. End Sub
    85. Private Sub cmd8_Click()
    87. Ergebnis = Ergebnis + 8
    90. txtErgebnis = txtErgebnis + "8"
    92. End Sub
    93. Private Sub cmd9_Click()
    95. Ergebnis = Ergebnis + 9
    98. txtErgebnis = txtErgebnis + "9"
    100. End Sub
    104. Private Sub cmdKomma_Click()
    107. txtErgebnis = txtErgebnis + ","
    109. End Sub
    114. 'Zuweisung der Rechenarten
    116. Private Sub cmdPlus_click()
    118. txtErgebnis.Text = ""
    120. Anzahl = Anzahl + 1
    121. Zahl1 = CDbl(Ergebnis)
    122. Rechenart = "addieren"
    123. If Anzahl > 1 Then
    124. txtErgebnis.Text = Ergebnis
    125. End If
    126. Ausrechnen Zahl1, Rechenart
    128. End Sub
    131. 'Rechenarten
    134. Private Sub Ausrechnen(Zahl As Double, Rechenart As String)
    136. Select Case Rechenart
    137. Case "addieren"
    138. Ergebnis = Ergebnis + Zahl
    139. Case "subtrahieren"
    140. Ausgabe = Zahl - Ergebnis
    141. Case "multiplizieren"
    142. Ausgabe = Zahl * Ergebnis
    143. Case "dividieren"
    144. Ausgabe = Zahl / Ergebnis
    145. Case "potenzieren"
    146. Ausgabe = Zahl ^ Ergebnis
    147. Case "wurzelziehen"
    148. Ausgabe = Zahl ^ (1 / Ergebnis)
    149. End Select
    153. test = Ergebnis
    155. End Sub
    158. 'Löschen
    160. Private Sub cmdClear_click()
    162. txtErgebnis.Text = ""
    163. Ausgabe = 0
    164. Ergebnis = 0
    165. Anzahl = 0
    166. Zahl1 = 0
    168. End Sub
    170. 'Rechnung
    172. Private Sub cmdGleich_click()
    174. txtErgebnis.Value = test
    175. Anzahl = 0
    177. End Sub
    179. Private Sub cmdEnde_Click()
    181. Unload Me
    183. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kayrodesign“ ()

    Wie kann ich Dir helfen, ohne "Rapids" kaufen zu müssen? X(
    Die Hilfe vom Forum erwartest Du ja auch kostenlos.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hö? Also wenn ich auf den Downloadlink klicke und dann "Langsamen Datentransfer" auswähle, dann kann ich die Datei problemlos runterladen. :huh:

    Habe mittlerweile aber einen komplett neuen Code aufgesetzt, sobald ich dort auch wieder das Problem stoßen sollte, melde ich mich.

    RodFromGermany schrieb:

    Wie kann ich Dir helfen, ohne "Rapids" kaufen zu müssen? X(
    Die Hilfe vom Forum erwartest Du ja auch kostenlos.

    Mein Post bezüglich des Auswählens von dem "langsamen Datentransfer" galt RodFromGermany. Auf Rapidshare, da wo meine Taschenrechner.xls hinterlegt ist, muss man auf "langsamer Datentransfer" klicken damit man die Datei runterladen kann!

    Mein "neuer Code" ist fast fertig, sofern das heute noch was wird poste ich ihn.

    Ich weiss nicht, ob man in VBA mit dem MS Script Object arbeiten kann. Wenn ja, würde dir dieses Control eine Funktion zur Verfügung stellen, um einen String direkt als Rechnung zu interpretieren.

    Btw. Wieso lädst du die Datei bei RapidShare hoch (No-Go)? Es gibt doch hier eine Dateianhangsfunktion...


    Gruss
    Pascal

    So, hier mein neuer Code. Allerdings gibt es auch hier wieder Problemchen, und zwar:

    - Das Gleichheitszeichen ist noch nicht implementiert -> Die Ergebnisse werden nur nach dem zweiten Betätigen des jeweiligen Operatorenbuttons ausgegeben. (Allerdings möchte ich das Ganze nicht mit einer komplett neuen Berechung lösen.)

    - Wenn ich beispielsweise den Plusbutton, nach der Eingabe der ersten Zahl und ohne eine zweite Zahl einzugeben, betätige, dann verändert sich das Ergebnis trotzdem mit jedem Klick.

    Die .xls Datei ist unten angehangen.

    VB.NET-Quellcode

    1. Option Explicit
    3. Public Zahl As Double
    4. Public Anzahl As Integer
    5. Public Merker As String
    6. Public Zahl1 As Double
    7. Public Zahl2 As Double
    8. Public Ergebnis As Double
    10. 'Nummernfeld
    13. Private Sub cmd0_Click()
    15. Zahl = 0
    16. txtErgebnis.Text = 0
    18. End Sub
    19. Private Sub cmd1_Click()
    21. Zahl = 1
    22. txtErgebnis.Text = 1
    24. End Sub
    26. Private Sub cmd2_Click()
    28. Zahl = 2
    29. txtErgebnis.Text = 2
    31. End Sub
    33. Private Sub cmd3_Click()
    35. Zahl = 3
    36. txtErgebnis.Text = 3
    38. End Sub
    40. Private Sub cmd4_Click()
    42. Zahl = 4
    43. txtErgebnis.Text = 4
    45. End Sub
    47. Private Sub cmd5_Click()
    49. Zahl = 5
    50. txtErgebnis.Text = 5
    52. End Sub
    54. Private Sub cmd6_Click()
    56. Zahl = 6
    57. txtErgebnis.Text = 6
    59. End Sub
    61. Private Sub cmd7_Click()
    63. Zahl = 7
    64. txtErgebnis.Text = 7
    66. End Sub
    68. Private Sub cmd8_Click()
    70. Zahl = 8
    71. txtErgebnis.Text = 8
    73. End Sub
    74. Private Sub cmd9_Click()
    76. Zahl = 9
    77. txtErgebnis.Text = 9
    79. End Sub
    80. Private Sub cmdKomma_Click()
    82. Zahl = ","
    83. txtErgebnis.Text = ","
    85. End Sub
    88. 'Zuweisung der Rechenarten
    92. Private Sub cmdPlus_click()
    95. 'Anzahl wird mit jedem Klick auf die 1 um einen erhöht!
    96. Anzahl = Anzahl + 1
    100. 'Rechenart addieren wird in die Varibale Merker geschrieben!
    101. Merker = "addieren"
    104. ' 1.Wenn Anzahl = 1 dann schiebe Zahl in Zahl1
    105. ' 2.Wenn Anzahl = 2 dann schiebe Zahl in Zahl2, übergebe Zahl1/Zahl2 an Ausrechnen
    106. ' 3.Wenn Anzahl > 3 dann schiebe Zahl und Ergebnis (aus Punkt 2) in Ausrechnen
    107. If Anzahl = 1 Then
    108. Zahl1 = Zahl
    109. ElseIf Anzahl = 2 Then
    110. Zahl2 = Zahl
    111. Ausrechnen Zahl1, Zahl2, Merker
    112. Merker = ""
    113. ElseIf Anzahl > 2 Then
    114. Ausrechnen Zahl, Ergebnis, Merker
    115. Merker = ""
    116. End If
    118. End Sub
    119. Private Sub cmdMinus_Click()
    123. Anzahl = Anzahl + 1
    125. Merker = "subtrahieren"
    129. If Anzahl = 1 Then
    130. Zahl1 = Zahl
    131. ElseIf Anzahl = 2 Then
    132. Zahl2 = Zahl
    133. Ausrechnen Zahl1, Zahl2, Merker
    134. Merker = ""
    135. ElseIf Anzahl > 2 Then
    136. Ausrechnen Ergebnis, Zahl, Merker
    137. Merker = ""
    138. End If
    140. End Sub
    141. Private Sub cmdMal_Click()
    143. Anzahl = Anzahl + 1
    145. Merker = "multiplizieren"
    149. If Anzahl = 1 Then
    150. Zahl1 = Zahl
    151. ElseIf Anzahl = 2 Then
    152. Zahl2 = Zahl
    153. Ausrechnen Zahl1, Zahl2, Merker
    154. Merker = ""
    155. ElseIf Anzahl > 2 Then
    156. Ausrechnen Ergebnis, Zahl, Merker
    157. Merker = ""
    158. End If
    161. End Sub
    162. Private Sub cmdGeteilt_Click()
    164. Anzahl = Anzahl + 1
    166. Merker = "dividieren"
    170. If Anzahl = 1 Then
    171. Zahl1 = Zahl
    172. ElseIf Anzahl = 2 Then
    173. Zahl2 = Zahl
    174. Ausrechnen Zahl1, Zahl2, Merker
    175. Merker = ""
    176. ElseIf Anzahl > 2 Then
    177. Ausrechnen Ergebnis, Zahl, Merker
    178. Merker = ""
    179. End If
    181. End Sub
    182. Private Sub cmdHoch_Click()
    184. Anzahl = Anzahl + 1
    186. Merker = "potenzieren"
    190. If Anzahl = 1 Then
    191. Zahl1 = Zahl
    192. ElseIf Anzahl = 2 Then
    193. Zahl2 = Zahl
    194. Ausrechnen Zahl1, Zahl2, Merker
    195. Merker = ""
    196. ElseIf Anzahl > 2 Then
    197. Ausrechnen Ergebnis, Zahl, Merker
    198. Merker = ""
    199. End If
    201. End Sub
    202. Private Sub cmdWurzel_Click()
    204. Anzahl = Anzahl + 1
    206. Merker = "radizieren"
    209. If Anzahl = 1 Then
    210. Zahl1 = Zahl
    211. ElseIf Anzahl = 2 Then
    212. Zahl2 = Zahl
    213. Ausrechnen Zahl1, Zahl2, Merker
    214. Merker = ""
    215. ElseIf Anzahl > 2 Then
    216. Ausrechnen Ergebnis, Zahl, Merker
    217. Merker = ""
    218. End If
    220. End Sub
    223. 'Rechenarten
    226. Private Sub Ausrechnen(Z1 As Double, Z2 As Double, Rechenart As String)
    228. Select Case Rechenart
    229. Case "addieren"
    230. Ergebnis = Z1 + Z2
    231. txtErgebnis.Text = Ergebnis
    232. Case "subtrahieren"
    233. Ergebnis = Z1 - Z2
    234. txtErgebnis.Text = Ergebnis
    235. Case "multiplizieren"
    236. Ergebnis = Z1 * Z2
    237. txtErgebnis.Text = Ergebnis
    238. Case "dividieren"
    239. Ergebnis = Z1 / Z2
    240. txtErgebnis.Text = Ergebnis
    241. Case "potenzieren"
    242. Ergebnis = Z1 ^ Z2
    243. txtErgebnis.Text = Ergebnis
    244. Case "radizieren"
    245. Z2 = 0
    246. Ergebnis = Z1 ^ (1 / 2)
    247. txtErgebnis.Text = Ergebnis
    248. End Select
    251. End Sub
    253. Private Sub cmdEnde_Click()
    255. Unload Me
    257. End Sub
    258. Private Sub cmdClear_Click()
    260. Zahl = 0
    261. Anzahl = 0
    262. Merker = ""
    263. Zahl1 = 0
    264. Zahl2 = 0
    265. Ergebnis = 0
    266. txtErgebnis.Text = ""
    268. End Sub
    Dateien

    In meinem Code gibt es keine Fehler an sich. Es sind Funktionen die der Rechner können soll, die ich aber so, ohne eure Hilfe, nicht realisieren kann.

    Bei einem Standard Taschenrechner ist der Ablauf wie folgt:

    Beispiel: 1+8-5

    1. Zahl "1" wird eingetippt
    2. "+" wird getippt
    3. Zahl "8" wird eingetippt
    4. Hier kommt der Knackpunkt: Das Ergebnis aus der Addition von "1" und "8" wird beim Anwählen von "-" ausgegeben.
    5. Die nächste Zahl, die eingegeben wird, wird von 9 abgezogen.
    Hinzu kommt dass man an jeder Stelle das Ergebnis auch mit "=" ausgeben kann.



    Bisher habe ich das Ganze so gelöst (Beispiel anhand von einer Addition):


    Nummernfeld:

    VB.NET-Quellcode

    1. Private Sub cmd1_Click()
    3. Zahl = 1
    4. txtErgebnis.Text = 1
    6. End Sub
    8. Private Sub cmd2_Click()
    10. Zahl = 2
    11. txtErgebnis.Text = 2
    13. End Sub
    15. Private Sub cmd3_Click()
    17. Zahl = 3
    18. txtErgebnis.Text = 3
    20. End Sub


    Operatoren:

    VB.NET-Quellcode

    1. Private Sub cmdPlus_click()
    4. 'Anzahl wird mit jedem Klick auf die 1 um einen erhöht!
    5. Anzahl = Anzahl + 1
    8. 'Rechenart addieren wird in die Varibale Merker geschrieben!
    9. Merker = "addieren"
    11. ' 1.Wenn Anzahl = 1 dann schiebe Zahl in Zahl1
    12. ' 2.Wenn Anzahl = 2 dann schiebe Zahl in Zahl2, übergebe Zahl1/Zahl2 an Ausrechnen
    13. ' 3.Wenn Anzahl > 3 dann schiebe Zahl und Ergebnis (aus Punkt 2) in Ausrechnen
    14. If Anzahl = 1 Then
    15. Zahl1 = Zahl
    16. ElseIf Anzahl = 2 Then
    17. Zahl2 = Zahl
    18. Ausrechnen Zahl1, Zahl2, Merker
    19. ElseIf Anzahl > 2 Then
    20. Ausrechnen Zahl, Ergebnis, Merker
    21. End If
    23. End Sub
    24. Private Sub cmdMinus_Click()
    27. Anzahl = Anzahl + 1
    31. Merker = "subtrahieren"
    33. If Anzahl = 1 Then
    34. Zahl1 = Zahl
    35. ElseIf Anzahl = 2 Then
    36. Zahl2 = Zahl
    37. Ausrechnen Zahl1, Zahl2, Merker
    38. ElseIf Anzahl > 2 Then
    39. Ausrechnen Ergebnis, Zahl, Merker
    40. End If
    42. End Sub


    Rechnung:

    VB.NET-Quellcode

    1. Private Sub Ausrechnen(Z1 As Double, Z2 As Double, Rechenart As String)
    3. Select Case Rechenart
    4. Case "addieren"
    5. Ergebnis = Z1 + Z2
    6. txtErgebnis.Text = Ergebnis
    7. Case "subtrahieren"
    8. Ergebnis = Z1 - Z2
    9. txtErgebnis.Text = Ergebnis
    10. Case "multiplizieren"
    11. Ergebnis = Z1 * Z2
    12. txtErgebnis.Text = Ergebnis
    13. Case "dividieren"
    14. Ergebnis = Z1 / Z2
    15. txtErgebnis.Text = Ergebnis
    16. Case "potenzieren"
    17. Ergebnis = Z1 ^ Z2
    18. txtErgebnis.Text = Ergebnis
    19. Case "radizieren"
    20. Z2 = 0
    21. Ergebnis = Z1 ^ (1 / 2)
    22. txtErgebnis.Text = Ergebnis
    23. End Select
    26. End Sub


    Mit dieser Version lässt sich z.B. problemlos addieren und mit jedem Klick auf den operator "+" wird das Ergebnis auch immer wieder korrekt ausgegeben, jedoch nur solange man beim addieren bleibt. Wechselt die Rechenart werden falsche Ergebnisse geliefert. Außerdem habe ich noch keine Vorstellung wie ich das mit dem Gleichheitszeichen implementieren soll.

    Wäre schön wenn ihr da mal drüber gucken würdet.

    Grüße & einen schönen Feierabend.

    Ich hoffe du denkst auch daran: wenn du deinen
    Taschenrechner so aufbaust, dass er, wenn du einen neuen
    Operator eintippst, auch zwischen Punkt und Strichrechnung
    unterscheiden muss.

    Ich persönlich ziehe ja Taschenrechner vor, bei denen ich
    mit Kursortasten noch Korrekturen vornehmen kann.

    Da es aber für dich eher eine Einstiegsübung vür VB sein soll,
    musst du dich halt an deine eigenen Vorgaben halten.

    Du brauchst also auch eine Wichtungsreihenfolge.
    Eventuell musst du auch noch Klammern eingeben können.
    Dann wird es aber schon ziemlich kompliziert, falls du
    das dann mittels Rekursion lösen willst.