XProfan

- page 2 -

Rainer
Trusch

Vielen Dank!!
Es funktioniert réellement.
malheureusement merke je wieder einmal, dass je encore viel apprendre muss.

P.S. Zur Erklärung: Es handelt sich chez den Fichiers um Plot-Fichiers. Im Endeffekt soll avec cela la fois une Selbstbau- Fräse angesteuert volonté.

Win XP XProfan10

Jörg
Sellmeyer

ici nochmal avec auslesen. Ist verkehrt herum, mais avec quelque chose Anpassung wirds marcher:
Kompilieren Marque Séparation

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

encore une Frage trop Deinem Code:
quoi bezweckst Du avec cette la ligne?
Kompilieren Marque Séparation

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

Knopf mais est gar ne...aucune Fensterobjekt, mais seulement qui Rückgabewert qui Messagebox.

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

Jörg
Sellmeyer

Ok, maintenant hab ego
Kompilieren Marque Séparation

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

je crois, qui Box voulais pas verschwinden.
Aussi sais je toujours pas, woher on qui Rückgabewerte qui entsprechenden Dialogboxen bekommt. qui Aider trop Profan ist oui très umfangreich mais viele Dinge finde je simple pas.

Win XP XProfan10

Jörg
Sellmeyer

quelle Werte de welchen Boxen?
qui Rückgabewert ist qui angeklickte Button:
Kompilieren Marque Séparation

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 peut

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

Sebastian
Sprenger

Rainer Trusch

je crois, qui Box voulais pas verschwinden.

si je cela richtig verstanden habe - nee, est un Irrglaube. une MessageBox verschwindet toujours, si einer qui Buttons ou bien cela Schließen-Croix gedrückt wird, auparavant pas. et auparavant allez cela Programme aussi pas plus.
Rainer Trusch

qui Rückgabewerte qui entsprechenden Dialogboxen bekommt.

Ist sur deux Hilfeseiten erklärt:

référence > Funktionen > MessageBox (entier unten: "Das Ergebnis ist qui gedrückte Knopf")

référence > Système > %Button (cet Systemvariable wird pour chacun MessageBox-, ListBox-, LoadFile$-Funktion etc. gesetzt)
Salut, 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 qui Informationen trouvé. suis beeindruckt, comment genial son qui Problematik gelöst avez.

Bedanke mich et wünsche encore une schönen soir.

Win XP XProfan10

Jörg
Sellmeyer

comment large ist cet plt-Format eigentlich standardisiert? si je avec Coreldraw une Grafik comme plt speicherer erhalte je komplett autre données. qui Buchstaben PU PD u.s.w. sommes toujours drin, mais alles ist réellement Zeilenweise gespeichert et pour PU, PD venez toujours un 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 es Opportunités gibt, cela aussi abzufangen ou bien qui Box dans einem eigenen Fil trop starten...

Rainer
Trusch

j'ai aussi déjà festgestellt, dass es viele Varianten gibt. Hättest du z.B. une Uraltversion de Corel Draw (je sais es de Version 3), serait qui Dossier jusqu'à sur qui Zeilenumbrüche gar pas so anders air. cela HPGL-Format ist oui déjà droite vieux et wurde toujours plus ergänzt. Befehle, qui z.B. Farbangaben enthalten, donnais es anfangs logischerweise pas. Aussi gibt es viele paramètre et Befehle, qui mais dans den Fichiers, qui de den gängigen Programmen erstellt volonté si bien comment gar pas vorkommen. une komplette Vue d'ensemble habe je là aussi pas. ici sommes quelques Befehle pour trouver:
www.dorner.at/support/documents/okipage6ex_000.pdf

Win XP XProfan10

25.08.2008 ▲