XProfan

« this Posting watts as Solution marked. »

- Page 1 -

GDL

Hi,

I have it now with "Umschaufeln" resolved.
there Yes in the momentum not To many data auflaufen, game The Time with of my Kassenanwendung no large strain.
Selbige Solution is for my Modellbahnsteuerung too slow. there let I it in the momentum as it is.
Compile Mark Separation

declare ende%,mm1&,mm2&,mm3&,a$,b$,c$,box&,m%
Set("ListDel",chr$(8))
mm1&=create("grid",3,1)
mm2&=create("grid",3,1)
mm3&=create("grid",3,1)
cls
a$="Feld1;0;100;Feld2;0;100;Nummer;0;70"
box&=create("gridbox",%hwnd,a$,1,10,10,280,400)
m%=1

whilenot m% > 4

    a$="vbn"+chr$(8)+"tzu"+chr$(8)+str$(m%)
    b$="777"+chr$(8)+"aaaa"+chr$(8)+str$(m%)
    c$="ssssss"+chr$(8)+"00000"+chr$(8)+str$(m%)
    addstring(mm1&,a$)
    addstring(mm2&,b$)
    addstring(mm3&,c$)
    inc m%

wend

whilenot ende%

    MoveHandleToList(mm1&)
    MoveListToHandle(box&)
    sleep 1000
    clearlist box&
    clearlist
    MoveHandleToList(mm2&)
    MoveListToHandle(box&)
    sleep 1000
    clearlist box&
    clearlist
    MoveHandleToList(mm3&)
    MoveListToHandle(box&)
    sleep 1000
    clearlist box&
    clearlist
    waitinput 20

wend

over again many Thanks on H.Brill. from seinem code, can I again what dazulernen.

Hello
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

- Page 1 -

H.Brill

You can also The lists, The with @Create(...) created
go, use. Since there it Yes two Piece :
Compile Mark Separation

@Create("Grid", A, T)
@Create("List", T)e>

with the normalen command for lists and GridBOX
can these Edit or with :
Compile Mark Separation

@MoveHandleToList(N)

to that sort etc. into interne Listboxliste schieben
and again back. You get Yes from the @Create()
functions always a handle back.

The new Move - functions the Subscriptions-Version
X3 afford there yet More Opportunities (z.B. for the sort
to Split of/ one GridBOX).

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

GDL

Hallöle H.Brill,

many Thanks for your response.
I have in the Eingangspost forget To write, I The lists same Type at the same time need.
means 3 Gridlisten at the same time.

only have I the trouble, that the Movelist... commands only The interne Gridliste supported.

It's all right means the 2th Parameter ex.

so vaguely would super:
Compile Mark Separation

liste1&=Create("Grid", 20, 1)
liste2&=Create("Grid", 20, 1)
liste3&=Create("Grid", 20, 1)re>

and then depending on, which list I now need
with z.B. "MoveListToHandle(list2&,lever the GridBOX)"
only unfortunately has the Movelisttohandle commands these option not.

Grüßle
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

H.Brill

The interne Gridliste serves Yes only as Zwischenspeicher
for MoveListToHandle. with ClaerList can you Yes in between
The interne Listboxliste delete. The lists or. Gridboxen
can you Yes as lever in a int-aray Save.

Komt now hereon on, what You vorhast.
or want You of Files reading, How in Franks List view.dll ?

there would something like interestingly :
Compile Mark Separation

Declare Memory memo
Def @MoveMemToList(2) @MoveStrToList(Char$(@&(1), 0, @&(2)), Chr$(0))' speicher, größe
Dim memo, 100
String memo, 0 = "Hallo ", "du ", "da !"
Cls
MoveMemToList(memo, SizeOf(memo))
@Listbox$("Strings", 1)
Print @MoveStrToList(Char$(memo, 0, sizeof(memo)), chr$(0))
Waitkey
Dispose memo

GDL

Hi,

very Zwischenspeicher meets it.
I bräuchte without String or aray detour 3 Zwischenspeicher The with a Slip in a GridBOX according to want red go.
The 3 Zwischenspeicher take values of 3 Geräten on the Rs232 on.
Since there But no pretended Order. The values come weder in vorgebener Order yet standing The Datenmenge konstant solid. eachone Zwischenspeicher save as long as To the worth 255 comes.
Then transfer on Grid and weiterverarbeitet, during the Zwischenspeicher again aufnimmt.

with try set the Stringliste in link with the Moveto commands as on the fastest out.

Grüßle Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

H.Brill

The values come means lots and one after another To
worth 255 on ? means should one yet separieren, what
The amount Split the Grid anbetrifft. write You
the then in a only GridBOX or make You
apiece unit a self-contained ?

I question only therefore, circa out to find, which
list there best suitable is. with the Subscription
X3 can Yes even apertured Arrays with reaches
create. One open aray would there best, because
The Datenmenge not solid standing.

with directly hintereinanderliegenden data and none
pretended Order becomes the but integrally beautiful
fummelig.

best is, if You me so a Datenstrom time
show could.
four eyes see mostly More as two.

GDL

Hallöle,

Have you ne PN written. I can the phone rather rüberbringen.

Grüßle
Georg

Windows7 Xprofan 8,9,10 [...]

H.Brill

Well, without Kenntnisse the sendenden hardware,
or if one these not has, becomes it anyhow
very difficult.
it be because, one has The hardware z.B. with a AVR
self built and program. there You can then
yourself influence on The expenses take.

GDL

declare ende%,mm1&,mm2&,mm3&,a$,b$,c$,box&,m%
Set("ListDel",chr$(8))
mm1&=create("grid",3,1)
mm2&=create("grid",3,1)
mm3&=create("grid",3,1)
cls
a$="Feld1;0;100;Feld2;0;100;Nummer;0;70"
box&=create("gridbox",%hwnd,a$,1,10,10,280,400)
m%=1

whilenot m% > 4

    a$="vbn"+chr$(8)+"tzu"+chr$(8)+str$(m%)
    b$="777"+chr$(8)+"aaaa"+chr$(8)+str$(m%)
    c$="ssssss"+chr$(8)+"00000"+chr$(8)+str$(m%)
    addstring(mm1&,a$)
    addstring(mm2&,b$)
    addstring(mm3&,c$)
    inc m%

wend

whilenot ende%

    MoveHandleToList(mm1&)
    MoveListToHandle(box&)
    sleep 1000
    clearlist box&
    clearlist
    MoveHandleToList(mm2&)
    MoveListToHandle(box&)
    sleep 1000
    clearlist box&
    clearlist
    MoveHandleToList(mm3&)
    MoveListToHandle(box&)
    sleep 1000
    clearlist box&
    clearlist
    waitinput 20

wend

over again many Thanks on H.Brill. from seinem code, can I again what dazulernen.

Hello
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

time ne question: Why have you got there each one Sleep 1000 installed? the bremst the program still unnecessary from.
or goes it to you only thatswhy, your Program vividly To make?

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

GDL

Hallöle Jörg,

the was only NEN Testschnippsel to that Guggen whether it goes.

Grüßle
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

- Page 2 -

For this rather waitinput 1000,
sleep can deceive because the Process wohlmöglich no Time has view
what You before dependent have.

rather: mySleep(1000)
Compile Mark Separation

mySleep(long a){;whileloop a\100{;waitinput 100;};}

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

or yet 5 Trilliarden Male rather: sleepWell: [...]