Thema "Re: If-Befehl mit mehreren Optionen" in Programmierung

If-Befehl mit mehreren Optionen

snow — Thu, 08 Dec 2022 13:45:12 GMT

Hallo zusammen,

ich habe hetzt einen Zeichnungstitel, für den man einstellen kann, ob Platzierung links, mitte oder rechts...
ich will jetzt noch. dass sich der Textanker entsprechend der Option selbst einstellt...

... bekomme aber die Meldung zu einem 'StapelFehler', wenn ich 'Set Style...' jeweils nach 'If' setze.

Lässt sich das irgendwie anders hinbekommen?

DEFINE STYLE "STYLE_l" AC_TextFont_1,
AC_TextSize_1, 1, AC_TextStyle_1

DEFINE STYLE "STYLE_z" AC_TextFont_1,
AC_TextSize_1, 2, AC_TextStyle_1

DEFINE STYLE "STYLE_r" AC_TextFont_1,
AC_TextSize_1, 3, AC_TextStyle_1


PEN AC_TextPen_1

SET STYLE "STYLE_l"

if (LB) then text2 0+DistH, -DistV,"<DRAWINGNAME>"

if (ZT) then text2 AC_DrawingRect[3]/2, -DistV,"<DRAWINGNAME>"

if (RB) then text2 (AC_DrawingRect[3]-DistH), -DistV,"<DRAWINGNAME>"

Re: If-Befehl mit mehreren Optionen

Anonymous — Thu, 08 Dec 2022 19:24:19 GMT

Poste bitte mal das Script, wie es aussieht, wenn es den Fehler auswirft.
Wie heißt die Fehlermeldung genau?

Re: If-Befehl mit mehreren Optionen

snow — Fri, 09 Dec 2022 08:51:59 GMT

So sieht das dann aus:

Re: If-Befehl mit mehreren Optionen

Frank Beister — Fri, 09 Dec 2022 09:07:28 GMT

Eine IF THEN Struktur erlaubt nur einen bedingten Befehl. Mehrere bedingte Befehle müssen in eine IF THEN (ELSE) ENDIF Struktur.

Mehrere Befehle in einer Zeile werden durch Doppelpunkt getrennt. Das ändert aber nichts an der vorherigen Aussage.

Re: If-Befehl mit mehreren Optionen

Anonymous — Fri, 09 Dec 2022 10:37:11 GMT

Schreib das ENDIF am besten in eine neue Zeile - das vermeidet Fehlermeldungen.

IF.........THEN.......
ENDIF

IF.........THEN.......
ENDIF

IF.........THEN.......
ENDIF

Re: If-Befehl mit mehreren Optionen

Anonymous — Fri, 09 Dec 2022 14:29:00 GMT

IF LB THEN
    SET STYLE "Style_1"
    TEXT2 0, 0, "<DRAWINGNAME>"
ENDIF

IF ZT THEN ....usw.

Re: If-Befehl mit mehreren Optionen

snow — Fri, 09 Dec 2022 15:31:02 GMT

Ah super, so geschrieben, funktioniert's.

(Bei Gebrauch des ':' wurde 'If' nicht mehr erkannt...)

Danke für die Hilfe!

Re: If-Befehl mit mehreren Optionen

Ma_Scht — Thu, 15 Dec 2022 06:41:29 GMT

Wenn Du den ":" verwenden willst,
dann schreib es erst untereinander und wenn es läuft:
Für JEDES ENTFERNTE ZEILEN-UMBRUCH-ENTER setzt Du einen DoPu.

IF A = B THEN
TEXT2 0,0,"A ist gleich B"
TEXT2 0,1,"Na toll!"
ELSE
TEXT2 0,0,"A ist UNgleich B"
ENDIF

oder:

IF A = B THEN : TEXT2 0,0,"A ist gleich B" : TEXT2 0,1,"Na toll!" : ELSE : TEXT2 0,0,"A ist UNgleich B" : ENDIF

Aber m.E. kostet der DoPu Rechenleistung
Basic-Scripte lauf wohl lieber viele kurze Zeilen, als eine Lange mit DoPus, durch.
Ich glaube, das mal irgendwo gelesen zu haben. Bei DNC im GDL-Kochbuch?
Ich weiß es nicht mehr.

Gruß

Re: If-Befehl mit mehreren Optionen

Frank Beister — Thu, 15 Dec 2022 07:22:08 GMT

Lieber nicht machen. Kann keiner mehr lesen hinterher. Wenn der Code zu lang wird nur kleinere Gruppen zusammenfassen.

Re: If-Befehl mit mehreren Optionen

snow — Thu, 15 Dec 2022 12:53:07 GMT

Ja, verücktes Zeug... finde ich... dass es auf die Schreibweise so drauf ankommt.

Aber jetzt bin ich ja wieder ein Stück schlauer 🙂