XProfan

« Dieser Contribución wurde como Solución gekennzeichnet. »

GDL

Hi,

Yo lo ahora con "Umschaufeln" gelöst.
Como sí en el Moment no a viele Daten auflaufen, juega el Tiempo en meiner Kassenanwendung no große Papel.
Selbige Solución es aber para mi Modellbahnsteuerung a langsam. Como lasse Yo en el Moment ya que es.
Kompilieren Marca Separación

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 a H.Brill. Aus seinem Code, kann Yo otra vez qué dazulernen.

Servus
Georg

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

H.Brill

Usted puede auch el Listen, el con @Crear(...) producido
voluntad, uso. Puesto que hay lo sí zwei Stück :
Kompilieren Marca Separación

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

Mit el normalen Befehlen para Listen y Gridbox
puede ser esta bearbeiten oder con :
Kompilieren Marca Separación

@MoveHandleToList(N)

para Sortieren etc. en el interne Listboxliste schieben
y otra vez zurück. Usted bekommst sí de los @Crear()
Características siempre una Handle zurück.

El neuen Move - Características el Subscriptions-Versión
X3 bieten como todavía mehr Möglichkeiten (z.B. para el Sortieren
después de Spalten uno 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 para deine Antwort.
Yo habe en el Eingangspost vergessen a escribir, dass Yo el Listen selben Typs gleichzeitig brauche.
Also 3 Gridlisten gleichzeitig.

Nur Yo el problema, dass el Movelist... Befehl sólo el interne Gridliste unterstützt.

Lo va also el 2te Parámetro de.

So en etwa wäre super:
Kompilieren Marca Separación

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

y luego je después de, welche Liste Yo nun brauche
con z.B. "MoveListToHandle(liste2&,handle el Gridbox)"
Nur desafortunadamente ha el Movelisttohandle Befehl esta Opción no.

Grüßle
Georg

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

H.Brill

El interne Gridliste dient sí sólo como Zwischenspeicher
para MoveListToHandle. Mit ClaerList kannst du sí zwischendurch
el interne Listboxliste löschen. El Listen o. Gridboxen
kannst du sí como Handle en un int-Array speichern.

Komt ahora darauf a, qué du vorhast.
Oder willst du de Archivos lesen, como en Franks Listview.dll ?

Como wäre algo como interessant :
Kompilieren Marca Separación

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,

genau Zwischenspeicher trifft lo.
Yo bräuchte sin String oder Array Umweg 3 Zwischenspeicher el con un Resbalón en un Gridbox je después de Bedarf gelesen voluntad.
El 3 Zwischenspeicher nehmen Werte de 3 Geräten a el Rs232 en.
Puesto que hay lo pero no vorgegebene Reihenfolge. El Werte kommen weder en vorgebener Reihenfolge todavía es el Datenmenge konstant fest. Jeder Zwischenspeicher speichert solange a el Valor 255 kommt.
Dann se transferencia a Grid y weiterverarbeitet, während el Zwischenspeicher ya otra vez aufnimmt.

En Versuchen stellte el Stringliste en Verbindung con el Moveto Befehl como al schnellsten fuera.

Grüßle Georg

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

H.Brill

El Werte kommen also lose y hintereinander a
Valor 255 a ? Also müßte uno todavía separieren, qué
el número Spalten des Grid anbetrifft. Schreibst du
el entonces en un einzige Gridbox oder machst du
je Gerät una separate ?

Yo frage sólo deshalb, en heraus para encontrar, welche
Liste como al besten geeignet es. En Suscripción
X3 puede ser sí incluso offene Arrays con Bereichen
redactar. Ein offenes Array wäre como al besten, porque
el Datenmenge no fest es.

En direkt hintereinanderliegenden Daten y keiner
vorgegebenen Reihenfolge se el aber bastante schön
fummelig.

Am besten es, si du me así una Datenstrom veces
zeigen könntest.
Vier Augen sehen meist más que zwei.

GDL

Hallöle,

tener dir ne PN geschrieben. Puedo el telefonisch mejor rüberbringen.

Grüßle
Georg

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

H.Brill

Naja, sin Kenntnisse el sendenden Hardware,
oder auch si uno esta no ha, se lo sowieso
muy schwierig.
Lo sei porque, uno ha el Hardware z.B. con un AVR
incluso gebaut y programmiert. Como puede ser entonces
selber Einfluß en el Ausgaben nehmen.

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 a H.Brill. Aus seinem Code, kann Yo otra vez qué dazulernen.

Servus
Georg

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

Jörg
Sellmeyer

Tiempo pregunta ne: por qué hast du como jeweils una Sleep 1000 instalado? Das bremst el Programa doch unnötig de.
Oder es dir sólo tambor, dein Programa anschaulich a hacer?

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

GDL

Hallöle Jörg,

el war sólo nen Testschnippsel para Guggen si va.

Grüßle
Georg

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

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

Dafür mejor waitinput 1000,
sleep kann täuschen porque el Prozess wohlmöglich no Tiempo ha anzuzeigen
qué Usted zuvor angewiesen hast.

Besser: mySleep(1000)
Kompilieren Marca Separación

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