Autor
|
Thema: Endlosschleife (971 mal gelesen)
|
Tim2007 Mitglied Konstrukteur
Beiträge: 143 Registriert: 02.01.2007 Catia V5R19SP3 XP64<P>"Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean." Sir Isaac Newton
|
erstellt am: 03. Jan. 2012 11:02 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, erstmals ein wunderschönes neues und erfolgreiches Jahr 2012 euch allen . Habe ein Problem: Jedesmal, wenn ich im VBScript eine Schleife programmiere wird der Zähler zwar erhöht, aber die schleife bricht nicht ab. Habe mir die Zählerstände und den Endstand innerhalb einer MSGBox ausgeben lassen. Er läuft hoch und überschreitet den Endstand, jedoch ohne aus der Schleife auszusteigen. Nach meinen Programmierkenntnissen sollte dies aber - so wie von mir programmiert - korrekt sein. Frage: muss - speziell bei Catia - noch was Besonderes installiert oder eingestellt werden, so dass VBScript das endlich rafft? Vielen Dank schon im Voraus.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 03. Jan. 2012 11:10 <-- editieren / zitieren --> Unities abgeben: Nur für Tim2007
|
Tim2007 Mitglied Konstrukteur
Beiträge: 143 Registriert: 02.01.2007 Catia V5R19SP3 XP64<P>"Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean." Sir Isaac Newton
|
erstellt am: 03. Jan. 2012 11:27 <-- editieren / zitieren --> Unities abgeben:
Danke Bernd, hier der Code: Dim Anfang Dim Ende Dim zaehler Anfang = 0 Ende = 0 zaehler = 0 Anfang = Inputbox("Anfang") Ende = Inputbox("Ende") zaehler = Anfang Do Until zaehler>Ende msgbox(zaehler&" "&" "&Ende) zaehler = zaehler + 1 Loop msgbox("ENDE") Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 03. Jan. 2012 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Tim2007
Servus Das Problem ist dass du verschiedene Variablen-Typen vergleichst. Anfang und Ende sind ein String, wogegen der Zähler zB ein Integer ist. Wenn du alle der Variablen als Integer definierst (Dim Anfang as Integer) und folgende Zeile anpasst sollte es funktionieren: Code: Anfang = CInt(Inputbox("Anfang")) Ende = CInt(Inputbox("Ende"))
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tim2007 Mitglied Konstrukteur
Beiträge: 143 Registriert: 02.01.2007 Catia V5R19SP3 XP64<P>"Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean." Sir Isaac Newton
|
erstellt am: 03. Jan. 2012 12:14 <-- editieren / zitieren --> Unities abgeben:
Hi Bernd, Jetzt wo du es sagst ... Asche auf mein Haupt. Danke. Ist doch aber wirklich blöd, dass man nicht von Anfang an die Deklatationen sauber definieren kann, sondern sie erst im Anschluss umformen muss! Hast mir dafür noch einen Tip? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |