Action sur des chaines de caractère

[Backup]

J'ai pas trop capter mais merci je regarderai sa demain a tete reposé

il suffit de déclarer ta procedure au debut de ton listing ,
ensuite ta procedure tu la place ou tu veux !!


genre :

Code : Tout sélectionner

declare  ma_belle_procedure (a,b,c)



procedure a()
endprocedure

procedure b()
endprocedure

procedure c()
endprocedure


boucle principale
....
a()
b()
c()
....
ma_belle_procedure (5,8,2)
.....
fin boucle

....
....
...


ma_belle_procedure (a,b,c)
....
.....
.....
endprocedure

[wolfjeremy]

merci bien

[wolfjeremy]

mais bon j'aime mieu un bel exemple de code que tout un blabla de la doc...

le probleme c'est que tu considere la doc comme du blabla !!

ici ont est tous passé par la , se tapper la doc , pour la connaitre quasi parcoeur ! , crois moi, c'est pas un sacrifice que de bien lire la doc
cela te parraitra un peut rébarbatif au début , mais le temps que t'aura perdu a lire la doc , tu vas le gagner apres , ... garantie !

Oui je sai lol
D'ailleur j'ai lu déjà un peu la doc et j'ai apris des truc que je savait meme pas et d'autre que je croyais dur qui en faite sont tout simple

[wolfjeremy]

Salut, sa na toujour rien a voir avec le topic mais c'est histoire de pas en créer tout les jours... je voulais savoir comment je peut faire pour utiliser pour chaque fenetre une boucle différente ? car j'ai esseyer en mettant une boucle dans chaque procedure d'ouverture de fenetre, les deux premiere tout va bien mais quand je clique sur un bouton de la 2 eme et bien c'est là que le bug surgit, plein de fenetre s'ouvre et se referme...

merci d'avance pour votre réponse.

P.S.: de plus mon images de fond ne s'affiche plus...

[AWEAR]

C'est pas très explicite ce que tu as écrit là..., tu veux en ouvrir plusieurs en même temps ou plusieurs les unes après les autres , car si tu mets ta boucle d'évenements dans la procedure d'ouverture de chaque fenêtre, elles ne s'ouvriront que les unes après les autres..

[wolfjeremy]

Oui donc en faite mes fenetre sont toujour ouverte une par une... la premiere on clique sur le bouton connexion sa ouvre la deuxième et sa ferme la premiere, dans la deuxième on a plusieurs bouton pour aller sur chaque fenetre (qui ferme la fenetre en cour) et donc sur chaque fenetre on a les meme bouton pour naviguer entre les différentes pages.

Dans chacune des procedure d'ouverture des fenetre j'ai mis une boucle repeat-until.

Si sa va pas comme sa je peut passer le code, faut juste me dire quel partie vous voulez

[Dr. Dri]

T'as besoin que d'une boucle pour gérer tous tes évennements...
Regarde dans l'aide les fonctions d'évennements

Dri

[wolfjeremy]

J'ai esseyer avec une boucle mais bon c'était pas super... vu que sur la premier fenetre y a des truc a pas afficher qu'il y a sur les autres fenetre etc etc... il y a 3 sorte d'interface donc c'est dur dur

[AWEAR]

Si tu utilise encore la V3.94 et que tu tiens absolument a avoir plusieurs boucles d'évenements, voila un exemple ( pas super ) :

Code : Tout sélectionner

Enumeration
#fen1
#but1
#but2
EndEnumeration

fen1 :
OpenWindow(#fen1, 100, 0, 500, 500, #PB_Window_SystemMenu, "1")
CreateGadgetList(WindowID())
ButtonGadget(#but1, 10, 10, 50, 20, "fen2")
ButtonGadget(#but2, 100, 10, 50, 20, "fen3")

Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
If EventGadgetID() = #but1
CloseWindow(#fen1)
Goto fen2
ElseIf EventGadgetID() = #but2
CloseWindow(#fen1)
Goto fen3
EndIf
EndIf
Until event = #PB_Event_CloseWindow

End

fen2 :
OpenWindow(#fen1, 200, 0, 500, 500, #PB_Window_SystemMenu, "2")
CreateGadgetList(WindowID())
ButtonGadget(#but1, 10, 10, 50, 20, "fen1")
ButtonGadget(#but2, 100, 10, 50, 20, "fen3")

Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
If EventGadgetID() = #but1
CloseWindow(#fen1)
Goto fen1
ElseIf EventGadgetID() = #but2
CloseWindow(#fen1)
Goto fen3
EndIf
EndIf
Until event = #PB_Event_CloseWindow

End

fen3 :
OpenWindow(#fen1, 300, 0, 500, 500, #PB_Window_SystemMenu, "3")
CreateGadgetList(WindowID())
ButtonGadget(#but1, 10, 10, 50, 20, "fen1")
ButtonGadget(#but2, 100, 10, 50, 20, "fen2")

Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
If EventGadgetID() = #but1
CloseWindow(#fen1)
Goto fen1
ElseIf EventGadgetID() = #but2
CloseWindow(#fen1)
Goto fen2
EndIf
EndIf
Until event = #PB_Event_CloseWindow

Sinon utilise la fonction eventwindowid() avec plusieurs Id de fenetres pour une seule boucle...

[wolfjeremy]

Ok merci...