(909)  Registro

Español
Foro

2 Prozesse con Filemap.

 

funkheld
¡Hola, guten Tag.

¿Cómo se puede uno Por favor, 2 Processe laufen dejar, el Yo je Process con un Button starte. Im Anhang es con un Process, Como es Por favor, con zwei ?

Gracias.
Gruss
KompilierenMarcaSeparación
 {$cle}
 {$PUSHKEYWORD pExec,process,filemap}
Declarar h&,hd&,hd1&,ende&,wert&,wert1&,b_send&,texto$,tadr&, hFileMap&,zielfenster&
declarar pointer#
Struct Daten = w&, w1&, zk$(256)
dim pointer#,Daten

Proc Prozess

    parámetros win&, hd&,hd1&
    Declarar pointer#
    declarar w&,w1&,ende&, hFileMap&
    Struct Daten = w&, w1&, zk$(256)
    dim pointer#, Daten
    windowtitle "empfang"
    window 10,10 - 350, 200
    ende& = 0
    Mensajes del usuario $1000

    whilenot ende&

        Case GetText $(win&) = "" : ende& = 1
        sleep 1
        GetMessage

        If %UMessage = $1000

            hFileMap& = FileMap("Open", "Test")

            If hFileMap&

                pointer# = FileMap("Map", hFileMap&)
                locate 3,1
                imprimir "   " + str$(pointer#.w&) + "   "
                setText hd&, str$(pointer#.w&)
                locate 5,1
                imprimir "   " + str$(pointer#.w1&) + "   "
                setText hd1&, str$(pointer#.w1&)
                Localizar 7, 1
                Imprimir "                    "
                Localizar 7, 1
                Imprimir pointer#.zk$'
                FileMap("Close", hFileMap&)

            EndIf

        EndIf

    endwhile

    Disponer pointer#

ENDPROC

proc senden

    hFileMap& = FileMap("Open", "Test")

    If hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = texto$
        FileMap("Close", hFileMap&)
        PostMessage(ZielFenster&, $1000, 0, 0)

    EndIf

ENDPROC

windowtitle "send"
window 10,300-200,200
hd& = create("Text", %hWnd, "", 20, 10, 60, 20)
hd1& = create("Text", %hWnd, "", 20, 35, 60, 20)
b_send& = Crear("Button",%hWnd,"send", 10, 65, 80, 24)
hFileMap& = Crear("FileMap", "Test", 265)
h&=pExec("|Prozess",%HWnd, hd&,hd1&)
sleep 500
ZielFenster& = FindWindow("empfang")
ende& = 0
Mensajes del usuario $1000

whilenot ende&

    waitinput

    If Clicked(b_send&)

        wert&=wert&+1
        wert1&=wert1&+5
        texto$="es geht"
        senden

    endif

endwhile

Disponer pointer#
end
 
12.04.2016  ▲
 




H.Brill
Na, con pExec().
Como el Prozesse sí como Procs aufgebaut son,
puede ser ellos auch así aufrufen :
KompilierenMarcaSeparación
pExec("Prozess1", ...)
pEcec("Prozess2",...)

Proc Prozess1

    ....

ENDPROC

Proc Prozess2

    ....

ENDPROC

In Verbindung con 2 Buttons.
 
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.
12.04.2016  ▲
 




funkheld
Mit Filemap 2 Processe...y PostMessage(ZielFenster&, $1000, 0, 0) bekomme Yo no hin. Lo se siempre sólo 1 Ventana angesprochen obwoh Yo 2 verschiedene Windownamen habe para Postmessage. Und esta Pointer#r para Filemap...con 2 Processen?

Gracias.
Gruss
 
12.04.2016  ▲
 




H.Brill
Versuche veces en el Prozessen el Ventana
con
KompilierenMarcaSeparación
win1& = Crear("Window",..)

anzulegen. Lo kann ser, daß Ventana con el
Cls oder Ventana-Befehl siempre el gleiche Handle
haben.

Natürlich mußt du para cada Ventana una otro
UserMessage haben, also z.B.
KompilierenMarcaSeparación
Mensajes del usuario $1000, $2000

El Struktur y Pointer# darauf necesario natürlich
auch en cada Prozess definiert voluntad. Am besten
el Struktur así erweitern, daß cada Prozess en seine
eigenen Elemente zugreift.
KompilierenMarcaSeparación
Struct Daten = w1&, w2&, zk1$(256), w3&, w4&, zk2$(256)

Somit podría Prozess1 en w1&, w2& y zk1$ y
Prozess2 en w3&, w4&, y zk2$ zugreifen.
 
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.
12.04.2016  ▲
 




funkheld
Manchmal va el rechte Ventana y el linke con weiterzählen y si yo otra vez neu starte, va zb sólo el linke Ventana con weiterzählen.

¿Puede du Por favor, veces el Postmessage-Adressen y el %UMessage veces correcto verteilen?

Gracias.
Gruss
KompilierenMarcaSeparación
declarar ende&
Declarar h&,hd&,hd1&,zielfenster&,b_send&
declarar h1&,hd2&,hd3&,zielfenster1&,b_send1&
declarar wert&,wert1&,wert2&,wert3&,texto$,texto1$
declarar hFileMap&,hFileMap1&
declarar pointer#,pointer1#
Struct Daten = w&, w1&, zk$(256)
dim pointer#,Daten
Struct Daten1 = w2&, w3&, zk1$(256)
dim pointer1#,Daten1

Proc Prozess

    parámetros win&, hd&,hd1&
    Declarar pointer#
    declarar w&,w1&,ende&, hFileMap&
    Struct Daten = w&, w1&, zk$(256)
    dim pointer#, Daten
    windowtitle "empfang"
    window 10,10 - 300, 200
    ende& = 0
    Mensajes del usuario $1000

    whilenot ende&

        Case GetText $(win&) = "" : ende& = 1
        sleep 1
        GetMessage

        If %UMessage = $1000

            hFileMap& = FileMap("Open", "Test")

            If hFileMap&

                pointer# = FileMap("Map", hFileMap&)
                locate 3,1
                imprimir "   " + str$(pointer#.w&) + "   "
                setText hd&, str$(pointer#.w&)
                locate 5,1
                imprimir "   " + str$(pointer#.w1&) + "   "
                setText hd1&, str$(pointer#.w1&)
                Localizar 7, 1
                Imprimir "                    "
                Localizar 7, 1
                Imprimir pointer#.zk$'
                FileMap("Close", hFileMap&)

            EndIf

        EndIf

    endwhile

    Disponer pointer#

ENDPROC

Proc Prozess1

    parámetros win&, hd2&,hd3&
    Declarar pointer1#
    declarar w2&,w3&,ende&, hFileMap1&
    Struct Daten1 = w2&, w3&, zk1$(256)
    dim pointer1#, Daten1
    windowtitle "empfang1"
    window 320,10 - 300, 200
    ende& = 0
    Mensajes del usuario $1000

    whilenot ende&

        Case GetText $(win&) = "" : ende& = 1
        sleep 1
        GetMessage

        If %UMessage = $1000

            hFileMap1& = FileMap("Open", "Test1")

            If hFileMap1&

                pointer1# = FileMap("Map", hFileMap1&)
                locate 3,1
                imprimir "   " + str$(pointer1#.w2&) + "   "
                setText hd2&, str$(pointer1#.w2&)
                locate 5,1
                imprimir "   " + str$(pointer1#.w3&) + "   "
                setText hd3&, str$(pointer1#.w3&)
                Localizar 7, 1
                Imprimir "                    "
                Localizar 7, 1
                Imprimir pointer1#.zk1$'
                FileMap("Close", hFileMap1&)

            EndIf

        EndIf

    endwhile

    Disponer pointer1#

ENDPROC

proc senden

    hFileMap& = FileMap("Open", "Test")

    If hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = texto$
        FileMap("Close", hFileMap&)
        PostMessage(ZielFenster&, $1000, 0, 0)

    EndIf

ENDPROC

proc senden1

    hFileMap1& = FileMap("Open", "Test1")

    If hFileMap1&

        pointer1# = FileMap("Map", hFileMap1&)
        pointer1#.w2& = wert2&
        pointer1#.w3& = wert3&
        pointer1#.zk1$ = texto1$
        FileMap("Close", hFileMap1&)
        PostMessage(ZielFenster1&, $1000, 0, 0)

    EndIf

ENDPROC

windowtitle "send"
window 10,300-200,200
hd& = create("Text", %hWnd, "", 20, 10, 60, 20)
hd1& = create("Text", %hWnd, "", 20, 35, 60, 20)
hd2& = create("Text", %hWnd, "", 20, 10, 60, 20)
hd3& = create("Text", %hWnd, "", 20, 35, 60, 20)
b_send& = Crear("Button",%hWnd,"send", 10, 65, 80, 24)
b_send1& = Crear("Button",%hWnd,"send1", 10, 90, 80, 24)
hFileMap& = Crear("FileMap", "Test", 265)
hFileMap1& = Crear("FileMap", "Test1", 265)
h&=pExec("|Prozess",%HWnd, hd&,hd1&)
h1&=pExec("|Prozess1",%HWnd, hd2&,hd3&)
sleep 500
ZielFenster& = FindWindow("empfang")
ZielFenster1& = FindWindow("empfang1")
ende& = 0
Mensajes del usuario $1000,$2000

whilenot ende&

    waitinput

    If Clicked(b_send&)

        wert&=wert&+1
        wert1&=wert1&+5
        texto$="es geht"
        senden

    endif

    If Clicked(b_send1&)

        wert2&=wert2&+10
        wert3&=wert3&+50
        texto1$="es va en 1"
        senden1

    endif

endwhile

Disponer pointer#
Disponer pointer1#
end
 
12.04.2016  ▲
 




H.Brill
Frag mich ahora no, wieso el plötzlich va.
Posesiones ahora sólo el Mensajes del usuario correcto verteilt
y pExec() umgekehrt aufgerufen. Also sólo
Prozess1 y luego Prozess.

Schau veces, si así después de deinen Wünschen se ejecuta :
KompilierenMarcaSeparación
declarar ende&
Declarar h&,hd&,hd1&,zielfenster&,b_send&
declarar h1&,hd2&,hd3&,zielfenster1&,b_send1&
declarar wert&,wert1&,wert2&,wert3&,texto$,texto1$
declarar hFileMap&,hFileMap1&
declarar pointer#,pointer1#
Struct Daten = w&, w1&, zk$(256)
dim pointer#,Daten
Struct Daten1 = w2&, w3&, zk1$(256)
dim pointer1#,Daten1

Proc Prozess

    parámetros win&, hd&,hd1&
    Declarar pointer#
    declarar w&,w1&,ende&, hFileMap&
    Struct Daten = w&, w1&, zk$(256)
    dim pointer#, Daten
    windowtitle "empfang"
    window 10,10 - 300, 200
    ende& = 0
    Mensajes del usuario $1000

    whilenot ende&

        Case GetText $(win&) = "" : ende& = 1
        sleep 1
        GetMessage

        If %UMessage = $1000

            hFileMap& = FileMap("Open", "Test")

            If hFileMap&

                pointer# = FileMap("Map", hFileMap&)
                locate 3,1
                imprimir "   " + str$(pointer#.w&) + "   "
                setText hd&, str$(pointer#.w&)
                locate 5,1
                imprimir "   " + str$(pointer#.w1&) + "   "
                setText hd1&, str$(pointer#.w1&)
                Localizar 7, 1
                Imprimir "                    "
                Localizar 7, 1
                Imprimir pointer#.zk$'
                FileMap("Close", hFileMap&)

            EndIf

        EndIf

    endwhile

    Disponer pointer#

ENDPROC

Proc Prozess1

    parámetros win&, hd2&,hd3&
    Declarar pointer1#
    declarar w2&,w3&,ende&, hFileMap1&
    Struct Daten1 = w2&, w3&, zk1$(256)
    dim pointer1#, Daten1
    windowtitle "empfang1"
    window 320,10 - 300, 200
    ende& = 0
    Mensajes del usuario $2000

    whilenot ende&

        Case GetText $(win&) = "" : ende& = 1
        sleep 1
        GetMessage

        If %UMessage = $2000

            hFileMap1& = FileMap("Open", "Test1")

            If hFileMap1&

                pointer1# = FileMap("Map", hFileMap1&)
                locate 3,1
                imprimir "   " + str$(pointer1#.w2&) + "   "
                setText hd2&, str$(pointer1#.w2&)
                locate 5,1
                imprimir "   " + str$(pointer1#.w3&) + "   "
                setText hd3&, str$(pointer1#.w3&)
                Localizar 7, 1
                Imprimir "                    "
                Localizar 7, 1
                Imprimir pointer1#.zk1$'
                FileMap("Close", hFileMap1&)

            EndIf

        EndIf

    endwhile

    Disponer pointer1#

ENDPROC

proc senden

    hFileMap& = FileMap("Open", "Test")

    If hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = texto$
        FileMap("Close", hFileMap&)
        PostMessage(ZielFenster&, $1000, 0, 0)

    EndIf

ENDPROC

proc senden1

    hFileMap1& = FileMap("Open", "Test1")

    If hFileMap1&

        pointer1# = FileMap("Map", hFileMap1&)
        pointer1#.w2& = wert2&
        pointer1#.w3& = wert3&
        pointer1#.zk1$ = texto1$
        FileMap("Close", hFileMap1&)
        PostMessage(ZielFenster1&, $2000, 0, 0)

    EndIf

ENDPROC

windowtitle "send"
window 10,300-200,200
hd& = create("Text", %hWnd, "", 20, 10, 60, 20)
hd1& = create("Text", %hWnd, "", 20, 35, 60, 20)
hd2& = create("Text", %hWnd, "", 20, 10, 60, 20)
hd3& = create("Text", %hWnd, "", 20, 35, 60, 20)
b_send& = Crear("Button",%hWnd,"send", 10, 65, 80, 24)
b_send1& = Crear("Button",%hWnd,"send1", 10, 90, 80, 24)
hFileMap& = Crear("FileMap", "Test", 265)
hFileMap1& = Crear("FileMap", "Test1", 265)
h1&=pExec("|Prozess1",%HWnd, hd2&,hd3&)
h&=pExec("|Prozess",%HWnd, hd&,hd1&)
sleep 500
ZielFenster& = FindWindow("empfang")
ZielFenster1& = FindWindow("empfang1")
ende& = 0
Mensajes del usuario $1000,$2000

whilenot ende&

    waitinput

    If Clicked(b_send&)

        wert&=wert&+1
        wert1&=wert1&+5
        texto$="es va en 1"
        senden

    endif

    If Clicked(b_send1&)

        wert2&=wert2&+10
        wert3&=wert3&+50
        texto1$="es va en 10"
        senden1

    endif

endwhile

Disponer pointer#
Disponer pointer1#
end
 
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.
13.04.2016  ▲
 




funkheld
¡Hola danke.
Jetzt funktioniert lo, el 2 Processe angesprochen voluntad.

Yo steige en el Adresszuweisungen no por, el es mi Schwierigkeit.

Gracias.
Gruss
 
13.04.2016  ▲
 




H.Brill
En welchen Zuweisungen hakt lo porque ?
 
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.
14.04.2016  ▲
 




funkheld
Das son el Adressen $1000 y $2000 zb.

Was bedeuten el Por favor, ?

Gracias.
Gruss
 
14.04.2016  ▲
 




H.Brill
Meinst du en el Mensajes del usuario ?

Das son simplemente sólo Pagar. Como kannst du auch
1000 y 2000 nehmen. Lo dient rein sólo a
eindeutigen Identifizierung el Messages.

$1000 = 4096
$2000 = 8192

Wichtig es, daß du encima 1000 gehst, en
Konflikte con el windowseigenen Messages
a vermeiden. Diese son bajo 1000.
 
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.
14.04.2016  ▲
 



Über 1023 debería él.
 
14.04.2016  ▲
 




funkheld
Sí danke para el Info.

Yo hatte mich ya gewundert , porque Yo veces con 1, 2 oder 3 intenta hatte y funktioniert no.

Gracias.
Gruss
 
14.04.2016  ▲
 



12
►

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

8.505 Views

Untitledvor 0 min.
RudiB.10.01.2022
iF31.10.2020
Torsten Rümker10.05.2016
Sascha Haak07.05.2016
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

funkheld (6x)
H.Brill (6x)
iF (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie