XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 1 -

GDL

Hi,

j'ai es maintenant avec "Umschaufeln" gelöst.
là oui im Moment pas trop viele données auflaufen, écoutes qui Zeit chez meiner Kassenanwendung aucun grand rôle.
Selbige Solution ist mais pour mon Modellbahnsteuerung trop lente. là lasse je es im Moment so comme ist.
Kompilieren Marque Séparation

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

Nochmals vielen Dank à H.Brill. Aus seinem Code, peux je wieder quoi dazulernen.

salut
Georg

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

- page 1 -

H.Brill

tu peux aussi qui Listen, qui avec @Créer(...) erzeugt
volonté, verwenden. là gibt es oui deux Stück :
Kompilieren Marque Séparation

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

avec den normalen Befehlen pour Listen et Gridbox
peux on cet Travailler ou bien avec :
Kompilieren Marque Séparation

@MoveHandleToList(N)

zum Sortieren etc. dans qui interne Listboxliste schieben
et wieder zurück. Du bekommst oui de den @Créer()
Funktionen toujours un Handle zurück.

qui neuen Move - Funktionen qui Subscriptions-Version
X3 bieten là encore plus Opportunités (z.B. pour cela Sortieren
pour Spalten einer 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,

vielen Dank pour deine Antwort.
j'ai im Eingangspost oublier qc trop écrivons, dass je qui Listen selben Typs gleichzeitig brauche.
alors 3 Gridlisten gleichzeitig.

seulement habe je cela Problem, dass qui Movelist... Befehl seulement qui interne Gridliste soutenu.

und dir alors qui 2te paramètre ab.

So dans etwa wäre super:
Kompilieren Marque Séparation

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

et ensuite je après que, quelle liste je eh bien brauche
avec z.B. "MoveListToHandle(liste2&,handle qui Gridbox)"
seulement malheureusement hat qui Movelisttohandle Befehl cet Option pas.

Grüßle
Georg

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

H.Brill

qui interne Gridliste dient oui seulement comme Zwischenspeicher
pour MoveListToHandle. avec ClaerList peux du oui zwischendurch
qui interne Listboxliste effacer. qui Listen bzw. Gridboxen
peux du oui comme Handle dans einem int-Array Sauver.

Komt maintenant puis à, quoi du vorhast.
ou bien veux du de Fichiers lesen, comment dans Franks Listview.dll ?

là wäre quelque chose comme intéressant :
Kompilieren Marque Séparation

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,

oui c'est ca Zwischenspeicher trifft es.
je bräuchte sans String ou bien Array le détour 3 Zwischenspeicher qui avec einem Glissement dans un Gridbox je pour besoin gelesen volonté.
qui 3 Zwischenspeicher prendre Werte de 3 Geräten à qui Rs232 sur.
là gibt es mais aucun vorgegebene Reihenfolge. qui Werte venons weder dans vorgebener Reihenfolge encore steht qui Datenmenge konstant fest. chacun Zwischenspeicher speichert solange jusqu'à qui Wert 255 venez.
ensuite wird transfert à Grid et weiterverarbeitet, au cours de qui Zwischenspeicher encore aufnimmt.

chez Versuchen stellte sich qui Stringliste dans liaison avec dem Moveto Befehl comme am schnellsten raus.

Grüßle Georg

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

H.Brill

qui Werte venons alors lose et hintereinander jusqu'à
Wert 255 à ? alors devrait on encore separieren, quoi
le nombre Spalten des Grid anbetrifft. écris du
cela ensuite dans un einzige Gridbox ou bien fais du
je Gerät une separate ?

je frage seulement c'est pourquoi, um heraus pour trouver, quelle
liste là am besten approprié ist. chez qui Subscription
X3 peux on oui sogar offene Arrays avec Bereichen
erstellen. un offenes Array wäre là am besten, weil
qui Datenmenge pas fest steht.

chez direct hintereinanderliegenden données et aucun
vorgegebenen Reihenfolge wird cela mais entier joli
fummelig.

Am besten ist, si du mir so une Datenstrom la fois
montrer könntest.
quatre Augen voyons meist plus que deux.

GDL

Hallöle,

hab dir ne PN geschrieben. je peux cela telefonisch besser rüberbringen.

Grüßle
Georg

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

H.Brill

bof, sans Kenntnisse qui sendenden Hardware,
ou bien aussi si on cet pas hat, wird es sowieso
très schwierig.
Es sei car, on hat qui Hardware z.B. avec einem AVR
selbst gebaut et programmiert. là peux on ensuite
selber influence sur qui Ausgaben prendre.

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

Nochmals vielen Dank à H.Brill. Aus seinem Code, peux je wieder quoi dazulernen.

salut
Georg

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

Jörg
Sellmeyer

la fois ne Frage: pourquoi la hâte du là jeweils un Sleep 1000 incorporé? cela bremst cela Programme doch unnötig aus.
ou bien ca va dir seulement tambour, dein Programme anschaulich trop faire?

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

GDL

Hallöle Jörg,

cela était seulement nen Testschnippsel zum Guggen si und dir.

Grüßle
Georg

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

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

- page 2 -

Pour cette besser waitinput 1000,
sleep peux täuschen weil qui Prozess wohlmöglich aucun Zeit hat anzuzeigen
quoi Du zuvor angewiesen la hâte.

Besser: mySleep(1000)
Kompilieren Marque Séparation

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

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

ou bien encore 5 Trilliarden Male besser: sleepWell: [...]