Hilfe! Hausarbeit!

  • Sonstige

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Higlav.

    Hilfe! Hausarbeit!

    Hallo zusammen!

    Ich bin ganz neu hier im Forum, da ich bisher nur mit Programm-Sprachen wie C und Python in Kontakt gekommen bin. Seit zwei Tagen hab ich mich nun intensiv mit VB beschäftigt, da ich für eine Hausarbeit (Maschbau, ja es gibt auch Mädchen die so etwas tun! :D ) Makros in CatiaV5 Programmieren soll. Es geht hauptsächlich um Ein-, Ausgabe und Überprüfung von Werten. Bei folgender verschachtelter if-Schleife versteh ich beim besten Willen nicht, wo das Problem liegt:



    Visual Basic-Quellcode

    1. i=0
    3. Do until i=1
    5. l=InputBox("Bitte geben Sie die tragende Profillänge l in mm an:", "tragende Profillänge l", 30)
    7. m=MsgBox("Sie haben folgende tragende Profillänge l gewählt: "&l, 64 , "Gewählte tragende Profillänge l")
    9. if Werkstoff="GJL" then
    11. x=(2.2*d1)
    12. y=(2.6*d1)
    15. if l < x or l > y then
    17. m=MsgBox("Achtung! Die tragende Profillänge sollte im Intervall von " &(2.2*d1)& "mm bis " &(2.6*d1)&"mm liegen", 48, "Warnung")
    19. else
    21. i=1
    23. end if
    28. elseif Werkstoff="Stahl, GS" then
    31. x=(2.0*d1)
    32. y=(2.5*d1)
    35. if l < x or l > y then
    37. m=MsgBox("Achtung! Die tragende Profillänge sollte im Intervall von " &(2.0*d1)& "mm bis " &(2.5*d1)&"mm liegen", 48, "Warnung")
    39. else
    41. i=1
    43. end if
    47. end if
    50. loop



    Die eingangsdaten sind [d1]=14 und [Werkstoff]="Stahl, GS". Auch wenn der Wert [l] im Sollberreich liegt, verfängt sich die Schose in einer Endlosschleife von der Eingabe des Wertes zur Warnung, dass [l] ausserhalb des Intervalls liegt(obwohl es das nicht tut).

    Wahrscheinlich schlagen 99% des Forums jetzt die Hände über dem Kopf zusammen:whistling:


    Ich bitte trotzdem um schnelle Hilfe, entweder bin ich zu blind oder zu blöd den Fehler zu finden.


    MfG Steffi

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Also kannst du das nicht einfach debuggen und sehen was er falsch macht?
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Wenn das VB.Net ist, dann ist es grottenschlecht gemacht ^^
    Sieht nach VB6 aus.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    sanktangus schrieb:

    if-Schleife
    if-schleife.de

    Zu deinem Problem:
    Von dem schlechten Programmierstil (den du ja selbst schon erwähnt hast), solltest du dir einfach mal einen Breakpoint setzen. Ich gehe mal davon aus, dass du weißt wie das geht (ansonsten fragen). Setze den Breakpoint von mir aus schon in der Ersten Zeile. Gehe Schritt für Schritt durch (gehe ebenfalls davon aus, dass du weißt wie das geht). Du kannst wenn du mit der Maus über eine Variable gehst deren Wert sehen. Gehe also Schritt für Schritt durch, schau welchen Wert die Variabeln haben und so findest du recht schnell heraus, weshalb das passiert was eben passiert.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Wenn es VBA ist sollte man den Fred mal verschieben, wa?
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Hallo Steffi,

    Da ich nächtes Herbstsemester selbst mit meinem MB-Studium beginne, weiss ich, dass da wieder ein paar mehr weibliche Individuen vertreten sind als beispielsweise in einer Lehre. Eine Bekannte von mir wird mit mir gleichzeitig anfangen, Maschinenbau zu studieren. Ich blicke dem schon freudig entgegen.
    Zu deinem Skript(Cool, ihr benutzt im Studium anscheinend ebenfalls Catia V5!): Da du den Fehler nicht genannt hast, habe ich das Skript halt mal blind getippelt:

    Visual Basic-Quellcode

    1. Dim l#
    2. Dim x#
    3. Dim y#
    5. 'Code
    7. Do
    8. Dim XFactor#
    9. Dim YFactor#
    10. 'On Error Resume Next
    11. l = CDbl(InputBox("Bitte geben Sie die tragende Profillänge l in mm an:", "tragende Profillänge l", 30))
    12. 'On Error Goto 0
    13. 'MsgBox("Sie haben folgende tragende Profillänge l gewählt: " & l, 64, "Gewählte tragende Profillänge l")
    14. Select Case Werkstoff
    15. Case Is = "GJL" 'Guss
    16. XFactor = 2.2
    17. YFactor = 2.6
    18. Case Is = "Stahl, GS"
    19. XFactor = 2
    20. YFactor = 2.5
    21. Case Else
    22. 'keine Übereinstimmung des Werkstoffes gefunden
    23. XFactor = 1
    24. YFactor = 1
    25. End Select
    26. x = XFactor * d1
    27. y = YFactor * d1
    28. If l < x Or l > y Then
    29. MsgBox("Achtung! Die tragende Profillänge sollte im Intervall von " & x & "mm bis " & y & "mm liegen", 48, "Warnung")
    30. Else
    31. Exit Do
    32. End If
    33. Loop


    Wenn du noch weitere Werkstoffe behandeln willst(Automatenstahl, hochlegierte Stähle, etc.), kannst du einfach ein neues Case-Statement hinzufügen. Noch was: Den Werkstoff über Strings abzugleichen ist nciht gerade schön, bez. sicher.

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

    @Marcus Gräfe: Es geht höchstwahrscheinlich um VBA für CatiaV5.
    @sanktangus: Du kennst doch sicher auch das CAD.DE-Forum, oder?

Facebook
Telefonspende