XProfan

Español

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

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

H.Brill

Na, con pExec().
Como el Prozesse sí como Procs aufgebaut son,
puede ser ellos auch así aufrufen :

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Versuche veces en el Prozessen el Ventana
con

Kompilieren Marca Separació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.

Kompilieren Marca Separació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.

Kompilieren Marca Separació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.

12.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 :

Kompilieren Marca Separació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

13.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

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

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

Gracias.
Gruss

XProfan 11

13.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

En welchen Zuweisungen hakt lo porque ?

14.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Das son el Adressen $1000 y $2000 zb.

Was bedeuten el Por favor, ?

Gracias.
Gruss

XProfan 11

14.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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.

14.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Über 1023 debería él.

Infinity-Profan
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

14.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

XProfan 11

14.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

H.Brill

Wenn du willst, kannst du auch sprechende
Namen (Konstanten) dafür conjunto :

Kompilieren Marca Separación

Def &Prozess1 2000
Def &Prozess2 3000
PostMessage(Zielfenster&, &Prozess1, 0, 0)

15.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄

Respuesta

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

8.516 Views

Untitled	vor 0 min.
RudiB.	10.01.2022
iF	31.10.2020
Torsten Rümker	10.05.2016
Sascha Haak	07.05.2016
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

funkheld (6x)

H.Brill (6x)

iF (1x)

XProfan

2 Prozesse con Filemap.

Respuesta

Tema opciones

8.516 Views

Themeninformationen

Política de Privacidad