Frage zu Zuweisungs-Operatoren

  • Word

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von Psysin-X.

    Habe es jetzt mal geändert dahingegen.
    Die Reihenfolge der abfrage scheint immer noch nicht zu stimmen, denn die Ausgabetexte stimmen nicht wirklich.
    Oder ich habe woanders noch einen Fehler.

    Quellcode

    1. Private Sub cmdFertig_Click()
    2. Dim zahlA As Integer
    3. Dim zahlB As Integer
    4. Dim strErgebnis As String
    5. Dim Delta As Integer
    7. zahlA = Val(Me.txtEingabe1.Value)
    8. zahlB = Val(Me.txtEingabe2.Value)
    9. strErgebnis = txtErgebnis
    11. Delta = zahlA - zahlB
    12. If Delta = 0 Then
    13. strErgebnis = "Gratulation, Sie haben es geschafft"
    14. ElseIf Delta > 0 Then
    15. strErgebnis = "Sie müssen in größeren Dimensionen denken."
    16. Else
    17. strErgebnis = "Sie werden übermütig."
    18. End If
    19. If Abs(Delta) < 10 Then
    20. strErgebnis = "Das ist schon ziemlich gut."
    21. Else
    22. strErgebnis = "Strengen Sie sich etwas mehr an!"
    23. End If
    24. Me.txtErgebnis.Value = strErgebnis
    25. End Sub

    Visual Basic-Quellcode

    1. ​If Abs(Delta) <= 10 Then
    2. strErgebnis = "Das ist schon ziemlich gut."
    3. Else
    4. strErgebnis = "Strengen Sie sich etwas mehr an!"
    5. End If
    6. If Delta = 0 Then
    7. strErgebnis = "Gratulation, Sie haben es geschafft"
    8. ElseIf Delta > 0 Then
    9. strErgebnis = strErgebnis & vbCrLf & "Sie müssen in größeren Dimensionen denken."
    10. Else
    11. strErgebnis = strErgebnis & vbCrLf & "Sie werden übermütig."
    12. End If
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ja. Programmieren basiert vor allem auf logischem Denken.

    Falls die Probleme mal komplexer werden und es sich nicht sofort erkennen lässt, warum das Programm anders reagiert, als der Programmierer es sich vorgestellt hat:
    Nutze den Debugger!

    Du kannst im Code Breakpoints setzen (F9), an denen die Codeausführung unterbricht.
    Dort kannst du dir den Inhalt der Variablen anschauen.
    Und im Singlestep (F8) Zeile für Zeile weiterschalten.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Mit dem Debugger hab ich vorhin schon mal etwas gespielt, ist auch die nächste Lektion im Kursbuch.
    Mit deiner Schreibweise sieht der Code gleich viel sauberer aus, nicht so überfüllt wie bei mir am Anfang.
    Hatte mich gewundert das du nicht "+ vbNewLine +" sondern " & vbCrLf &" geschrieben hast.
    Hab dann aber mal gegoogelt und den Grund gefunden ;)

    Da hab ich auf jeden fall noch einiges vor mir und ich freu mich drauf :)

Facebook
Telefonspende