(2.408)  S'inscrire

Français
Forum

2 Prozesse avec Filemap.

 
- page 1 -



funkheld
allô, guten journée.

comment peux on s'il te plaît 2 Processe courir laisser, qui je je Process avec einem Button starte. Im Anhang ist es avec einem Process, ca va s'il te plaît avec deux ?

merci.
Gruss
KompilierenMarqueSéparation
 {$cle}
 {$PUSHKEYWORD pExec,process,filemap}
Déclarer h&,hd&,hd1&,ende&,wert&,wert1&,b_send&,text$,tadr&, hFileMap&,zielfenster&
declare pointer#
Struct données = w&, w1&, zk$(256)
dim pointer#,données

Proc Prozess

    parameters win&, hd&,hd1&
    Déclarer pointer#
    declare w&,w1&,ende&, hFileMap&
    Struct données = w&, w1&, zk$(256)
    dim pointer#, données
    windowtitle "empfang"
    window 10,10 - 350, 200
    ende& = 0
    Utilisateur Messages $1000

    whilenot ende&

        Cas GetText $(win&) = » : ende& = 1
        sleep 1
        GetMessage

        Si %UMessage = $1000

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

            Si hFileMap&

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

            EndIf

        EndIf

    endwhile

    Dispose pointer#

endproc

proc senden

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

    Si hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = text$
        FileMap("Close", hFileMap&)
        Poster un message(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& = Créer("Button",%hWnd,"send", 10, 65, 80, 24)
hFileMap& = Créer("FileMap", "Test", 265)
h&=pExec("|Prozess",%HWnd, hd&,hd1&)
sleep 500
ZielFenster& = FindWindow("empfang")
ende& = 0
Utilisateur Messages $1000

whilenot ende&

    waitinput

    Si Clicked(b_send&)

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

    endif

endwhile

Dispose pointer#
end
 
12.04.2016  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 1 -



H.Brill
Na, avec pExec().
là qui Prozesse oui comment Procs aufgebaut sommes,
peux on vous aussi so appel :
KompilierenMarqueSéparation
pExec("Prozess1", ...)
pEcec("Prozess2",...)

Proc Prozess1

    ....

ENDPROC

Proc Prozess2

    ....

ENDPROC

dans liaison avec 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
avec Filemap 2 Processe...et Poster un message(ZielFenster&, $1000, 0, 0) bekomme je pas hin. Es wird toujours seulement 1 la fenêtre angesprochen obwoh je 2 verschiedene Windownamen habe pour Postmessage. et cette Pointer#r pour Filemap...avec 2 Processen?

merci.
Gruss
 
12.04.2016  ▲
 




H.Brill
Versuche la fois dans den Prozessen qui la fenêtre
avec
KompilierenMarqueSéparation
win1& = Créer("Window",..)

anzulegen. Es peux son, qui la fenêtre avec dem
Cls ou bien Fenêtre-Befehl toujours cela gleiche Handle
ont.

Bien sûr dois du pour chaque la fenêtre une autre
UserMessage avons, alors z.B.
KompilierenMarqueSéparation
Utilisateur Messages $1000, $2000

qui Struktur et qui Pointer# puis doit naturellement
aussi dans chaque Prozess défini volonté. Am besten
qui Struktur so erweitern, qui chacun Prozess sur sa
eigenen Elemente zugreift.
KompilierenMarqueSéparation
Struct données = w1&, w2&, zk1$(256), w3&, w4&, zk2$(256)

Somit pourrait Prozess1 sur w1&, w2& et zk1$ et
Prozess2 sur w3&, w4&, et 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
quelquefois allez cela rechte la fenêtre et cela linke avec weiterzählen et si je wieder récente starte, allez zb seulement cela linke la fenêtre avec weiterzählen.

peux du s'il te plaît fois le Postmessage-Adressen et qui %UMessage la fois richtig verteilen?

merci.
Gruss
KompilierenMarqueSéparation
declare ende&
Déclarer h&,hd&,hd1&,zielfenster&,b_send&
declare h1&,hd2&,hd3&,zielfenster1&,b_send1&
declare wert&,wert1&,wert2&,wert3&,text$,text1$
declare hFileMap&,hFileMap1&
declare pointer#,pointer1#
Struct données = w&, w1&, zk$(256)
dim pointer#,données
Struct données1 = w2&, w3&, zk1$(256)
dim pointer1#,données1

Proc Prozess

    parameters win&, hd&,hd1&
    Déclarer pointer#
    declare w&,w1&,ende&, hFileMap&
    Struct données = w&, w1&, zk$(256)
    dim pointer#, données
    windowtitle "empfang"
    window 10,10 - 300, 200
    ende& = 0
    Utilisateur Messages $1000

    whilenot ende&

        Cas GetText $(win&) = » : ende& = 1
        sleep 1
        GetMessage

        Si %UMessage = $1000

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

            Si hFileMap&

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

            EndIf

        EndIf

    endwhile

    Dispose pointer#

endproc

Proc Prozess1

    parameters win&, hd2&,hd3&
    Déclarer pointer1#
    declare w2&,w3&,ende&, hFileMap1&
    Struct données1 = w2&, w3&, zk1$(256)
    dim pointer1#, données1
    windowtitle "empfang1"
    window 320,10 - 300, 200
    ende& = 0
    Utilisateur Messages $1000

    whilenot ende&

        Cas GetText $(win&) = » : ende& = 1
        sleep 1
        GetMessage

        Si %UMessage = $1000

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

            Si hFileMap1&

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

            EndIf

        EndIf

    endwhile

    Dispose pointer1#

endproc

proc senden

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

    Si hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = text$
        FileMap("Close", hFileMap&)
        Poster un message(ZielFenster&, $1000, 0, 0)

    EndIf

endproc

proc senden1

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

    Si hFileMap1&

        pointer1# = FileMap("Map", hFileMap1&)
        pointer1#.w2& = wert2&
        pointer1#.w3& = wert3&
        pointer1#.zk1$ = text1$
        FileMap("Close", hFileMap1&)
        Poster un message(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& = Créer("Button",%hWnd,"send", 10, 65, 80, 24)
b_send1& = Créer("Button",%hWnd,"send1", 10, 90, 80, 24)
hFileMap& = Créer("FileMap", "Test", 265)
hFileMap1& = Créer("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
Utilisateur Messages $1000,$2000

whilenot ende&

    waitinput

    Si Clicked(b_send&)

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

    endif

    Si Clicked(b_send1&)

        wert2&=wert2&+10
        wert3&=wert3&+50
        text1$="es allez chez 1"
        senden1

    endif

endwhile

Dispose pointer#
Dispose pointer1#
end
 
12.04.2016  ▲
 




H.Brill
Demandez à mich maintenant pas, wieso cela soudain allez.
Habe maintenant seulement qui Utilisateur Messages richtig verteilt
et pExec() renversé aufgerufen. alors seulement
Prozess1 et ensuite Prozess.

exposition la fois, si es so pour deinen désirer fonctionne :
KompilierenMarqueSéparation
declare ende&
Déclarer h&,hd&,hd1&,zielfenster&,b_send&
declare h1&,hd2&,hd3&,zielfenster1&,b_send1&
declare wert&,wert1&,wert2&,wert3&,text$,text1$
declare hFileMap&,hFileMap1&
declare pointer#,pointer1#
Struct données = w&, w1&, zk$(256)
dim pointer#,données
Struct données1 = w2&, w3&, zk1$(256)
dim pointer1#,données1

Proc Prozess

    parameters win&, hd&,hd1&
    Déclarer pointer#
    declare w&,w1&,ende&, hFileMap&
    Struct données = w&, w1&, zk$(256)
    dim pointer#, données
    windowtitle "empfang"
    window 10,10 - 300, 200
    ende& = 0
    Utilisateur Messages $1000

    whilenot ende&

        Cas GetText $(win&) = » : ende& = 1
        sleep 1
        GetMessage

        Si %UMessage = $1000

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

            Si hFileMap&

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

            EndIf

        EndIf

    endwhile

    Dispose pointer#

endproc

Proc Prozess1

    parameters win&, hd2&,hd3&
    Déclarer pointer1#
    declare w2&,w3&,ende&, hFileMap1&
    Struct données1 = w2&, w3&, zk1$(256)
    dim pointer1#, données1
    windowtitle "empfang1"
    window 320,10 - 300, 200
    ende& = 0
    Utilisateur Messages $2000

    whilenot ende&

        Cas GetText $(win&) = » : ende& = 1
        sleep 1
        GetMessage

        Si %UMessage = $2000

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

            Si hFileMap1&

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

            EndIf

        EndIf

    endwhile

    Dispose pointer1#

endproc

proc senden

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

    Si hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = text$
        FileMap("Close", hFileMap&)
        Poster un message(ZielFenster&, $1000, 0, 0)

    EndIf

endproc

proc senden1

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

    Si hFileMap1&

        pointer1# = FileMap("Map", hFileMap1&)
        pointer1#.w2& = wert2&
        pointer1#.w3& = wert3&
        pointer1#.zk1$ = text1$
        FileMap("Close", hFileMap1&)
        Poster un message(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& = Créer("Button",%hWnd,"send", 10, 65, 80, 24)
b_send1& = Créer("Button",%hWnd,"send1", 10, 90, 80, 24)
hFileMap& = Créer("FileMap", "Test", 265)
hFileMap1& = Créer("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
Utilisateur Messages $1000,$2000

whilenot ende&

    waitinput

    Si Clicked(b_send&)

        wert&=wert&+1
        wert1&=wert1&+5
        text$="es allez chez 1"
        senden

    endif

    Si Clicked(b_send1&)

        wert2&=wert2&+10
        wert3&=wert3&+50
        text1$="es allez chez 10"
        senden1

    endif

endwhile

Dispose pointer#
Dispose 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
allô merci.
maintenant funktioniert es, cela 2 Processe angesprochen volonté.

je steige chez den Adresszuweisungen pas par, c'est mon difficulté.

merci.
Gruss
 
13.04.2016  ▲
 




H.Brill
chez welchen Zuweisungen hakt es car ?
 
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
ce sont qui Adressen $1000 et $2000 zb.

quoi bedeuten qui s'il te plaît ?

merci.
Gruss
 
14.04.2016  ▲
 




H.Brill
Avez- du chez den Utilisateur Messages ?

ce sont simple seulement payons. là peux du aussi
1000 et 2000 prendre. Es dient rein seulement zur
eindeutigen identification qui Messages.

$1000 = 4096
$2000 = 8192

important ist, qui du sur 1000 vas, um
Konflikte avec den windowseigenen Messages
trop vermeiden. cet sommes sous 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 devrait il.
 
14.04.2016  ▲
 




funkheld
oui merci pour qui Info.

je hatte mich déjà gewundert , weil je es la fois avec 1, 2 ou bien 3 versucht hatte et funktioniert pas.

merci.
Gruss
 
14.04.2016  ▲
 



 
- page 2 -



H.Brill
si tu veux, peux du aussi sprechende
Namen (Konstanten) pour mettons :
KompilierenMarqueSéparation
Def &Prozess1 2000
Def &Prozess2 3000
Poster un message(Zielfenster&, &Prozess1, 0, 0)
 
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.
15.04.2016  ▲
 



◄
12

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

8.760 Views

Untitledvor 0 min.
RudiB.10.01.2022
iF31.10.2020
Torsten Rümker10.05.2016
Sascha Haak07.05.2016
plus...

Themeninformationen

cet Thema hat 3 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie