XProfan

- Página 2 -

Rainer
Trusch

Vielen Dank!!
Lo funktioniert tatsächlich.
Leider merke Yo otra vez una vez, dass Todavía viel aprender muss.

P.S. A Erklärung: Lo es se en el Archivos en Plot-Archivos. Im Endeffekt se así veces una Selbstbau- Fräse angesteuert voluntad.

Win XP XProfan10

Jörg
Sellmeyer

Hier otra vez con auslesen. Ist verkehrt herum, aber con algo Anpassung Será mejor que te va klappen:
Kompilieren Marca Separación

Cls
Screen 3000,3000
ShowMax
ChDir "D:Downloads"
Declare B#,bytes&,s1$,s2$,x%,y%
Var size& = FileSize("12345.txt")
Dim B#, Size& + 1
Var hdl& = Assign("12345.txt")
OpenRW hdl&
bytes& = @BlockRead(hdl&, B#, 0, size&)
Close hdl&
Assign hdl&,""
Var s$ = Char$(B#,0,bytes&)
Print bytes&,Len(s$)
Print Mid$(s$,32767,100)
Print Len(s$,"PD"),"-mal PD im Text enthalten"
Print Len(s$,"PU"),"-mal PD im Text enthalten"
WaitInput
hdl& = Assign("12345.txt")
Reset hdl&
Clear bytes&

WhileLoop Len(s$,"PU")

    s1$ = SubStr$(s$,&Loop,"PU"),&Loop
    Print "Gruppe: " + Str$(&Loop)

    WhileLoop Len(s1$,";PD")

        s2$ = SubStr$(s1$,&Loop,";PD"),&Loop
        x% = Val(SubStr$(s2$,1,","))
        y% = Val(SubStr$(s2$,2,","))

        If &Loop = 1

            MoveTo x%,y%

        EndIf

        LineTo x%,y%
        sleep 100
        Case %mousepressed=2:waitinput

    Wend

    Print "#####################################"
    sleep 10
    Case %mousepressed=2:waitinput

Wend

WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg
Sellmeyer

Noch una Cuestión a Deinem Code:
Was bezweckst Usted con dieser Línea?
Kompilieren Marca Separación

Case Knopf% = 7 : @DestroyWindow(Knopf%)

Knopf es doch gar kein Fensterobjekt, pero sólo el Rückgabewert el Messagebox.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg
Sellmeyer

Ok, ahora tener ego
Kompilieren Marca Separación

Cls
Screen 2000,2000
ShowMax
ChDir "D:Downloads"
Declare B#,bytes&,s1$,s2$,x%,y%
Var size& = FileSize("12345.txt")
Dim B#, Size& + 1
Var hdl& = Assign("12345.txt")
OpenRW hdl&
bytes& = @BlockRead(hdl&, B#, 0, size&)
Close hdl&
Assign hdl&,""
Var s$ = Char$(B#,0,bytes&)
Print bytes&,Len(s$)
Print Mid$(s$,32767,100)
Print Len(s$,"PD"),"-mal PD im Text enthalten"
Print Len(s$,"PU"),"-mal PU im Text enthalten"
Print Len(s$,"PZ"),"-mal PZ im Text enthalten"
WaitInput
Clear bytes&

WhileLoop Len(s$,"PU")

    s1$ = SubStr$(s$,&Loop,"PU"),&Loop
    Print "Gruppe: " + Str$(&Loop)

    WhileLoop Len(s1$,";PD")

        s2$ = SubStr$(s1$,&Loop,";PD"),&Loop
        x% = Val(SubStr$(s2$,1,","))
        y% = Val(SubStr$(s2$,2,","))

        If &Loop = 1

            moveto (x%) , ( %Maxy + 2000 -  y%)
            MoveTo x%,y%

        EndIf

        lineto (x%) , (  %Maxy + 2000 - y%)
        LineTo x%,y%
        sleep 100
        Case %mousepressed=2:waitinput

    Wend

    Print "#####################################"
    sleep 10
    Case %mousepressed=2:waitinput

Wend

WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Rainer
Trusch

Yo glaube, el Box quería no verschwinden.
Außerdem weiß Yo siempre no, woher uno el Rückgabewerte el entsprechenden Dialogboxen bekommt. El Ayuda a Profano es sí muy umfangreich aber viele Dinge finde Yo simplemente no.

Win XP XProfan10

Jörg
Sellmeyer

Welche Werte de welchen Boxen?
Der Rückgabewert es el angeklickte Button:
Kompilieren Marca Separación

Declare ret%,Ende%
Cls

Proc ProgEnde

    ret% = @MessageBox("Willst Du schon aufhören?","Ernstgemeinte Frage",3 + 32)
    Case Ret% = 6:Ende% = 1
    Return Ret%

EndProc

WhileNot Ende%

    WaitInput
    Case IsKey(27):Print ProgEnde()"Escape"

Wend

WaitInputnur um Das Ergebnis bei Ja noch ansehen zu puede

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Sebastian
Sprenger

Rainer Trusch

Yo glaube, el Box quería no verschwinden.

Wenn Yo el correcto verstanden habe - nee, es una Irrglaube. Un MessageBox verschwindet siempre, si uno el Buttons oder el Schließen-Cruz gedrückt se, vorher no. Und vorher va el Programa auch no más.
Rainer Trusch

el Rückgabewerte el entsprechenden Dialogboxen bekommt.

Ist en zwei Hilfeseiten erklärt:

Referenz > Características > MessageBox (bastante unten: "Das Ergebnis es el gedrückte Knopf")

Referenz > Systemvariablen > %Button (esta Systemvariable se después de cada MessageBox-, ListBox-, LoadFile$-Función etc. gesetzt)
Saludo, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Rainer
Trusch

OK habe el Informationen gefunden. Bin beeindruckt, como genial Ihr el Problematik gelöst habt.

Bedanke mich y wünsche todavía una schönen Abend.

Win XP XProfan10

Jörg
Sellmeyer

Como weit es dieses plt-Formato eigentlich standardisiert? Wenn I, con Coreldraw una Grafik como plt speicherer erhalte Yo komplett otro Daten. El Buchstaben PU PD u.s.w. siempre todavía drin, aber alles es tatsächlich Zeilenweise gespeichert y después de PU, PD kommt siempre todavía una Minuszeichen:

IN;
IN;
VS32,1;
VS32,2;
VS32,3;
VS32,4;
VS32,5;
VS32,6;
VS32,7;
VS32,8;
WU0;
PW0.350,1;
PW0.350,2;
PW0.350,3;
PW0.350,4;
PW0.350,5;
PW0.350,6;
PW0.350,7;
PW0.350,8;
SP1;
PU-2174 4119;
PD-2271 4119;
PD-2271 5010;
PD-2469 5010;
PD-2469 5107;
PD-1977 5107;
PD-1977 5010;
PD-2174 5010;
PD-2174 4119;
SP1;
PU-1216 4462;
PD-1889 4462;
PD-1889 4462;
PD-1888 4447;
PD-1886 4432;
PD-1884 4418;

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Frank
Abbing

Wobei lo Möglichkeiten son, el auch abzufangen o Box en un eigenen Hilo a starten...

Rainer
Trusch

Yo habe auch ya festgestellt, dass lo viele Varianten son. Hättest du z.B. una Uraltversion de Corel Draw (Yo weiß lo de Versión 3), sería el Expediente salvo el Zeilenumbrüche nada así anders aussehen. Das HPGL-Formato es sí ya bastante alt y fue siempre más ergänzt. Befehle, el z.B. Farbangaben enthalten, gab lo anfangs logischerweise no. Außerdem hay viele Parámetro y Befehle, el aber en el Archivos, el de los gängigen Programmen erstellt voluntad casi nada vorkommen. Un komplette Información general Yo como auch no. Hier son algunos Befehle para encontrar:
www.dorner.at/support/documents/okipage6ex_000.pdf

Win XP XProfan10

25.08.2008 ▲