Image toute biscormue, Dieu a guérri de son doigt magique !!

[Kwai chang caine]

Ton image tu l'a essayer avec différents taux de compression, type de codage et sous-échantillonnage chromatique?

Bah taux de compression, je vais essayer de regarder, mais d'habitude et depuis que j'ai PB, j'ai toujours utilisé le meme giciel
Le type de codage ce doit etre couleur reelle, ou indexée 256 couleur, enfin ce genre de truc ???

Mais alors, le sous echantillonage chromatique
Moi le mot chromatique, ça me rappelle mon accordeon

@BERNARD
Je pense pas que ça vienne de la machine, puisque ça marchait en 4.30

[cederavic]

Dejas ton image ne s'affiche pas dans mon explorer windows (xp pro sp3) mais bien dans ie / ff ou un logiciel de dessin... c'est louche, pas sur que ça vienne de PB
Je t'ai fais une ptite compile d'images, normalement ça devrait deconner avec ton image et toutes les *_4_4
Fichier rar
Essay les toute avec ton code et dis moi

[Kwai chang caine]

Merci CEDERAVIC, j'essaierais demain matin, car je suis plus au boulot, donc plus de W2000

[case]

le décalage ca ressemble a un bon vieux décalage de bitplanes

je pense que le imagedecoder commence a décoder l'image avant la fin du header donc il y a des octets qui s'affichent et qui devraient pas.

donc ca peux soit venir de pb qui décode mal certaines images soit de ton logiciel de dessin qui sauve bizarrement, soit de la carte graphique du pc, soit de win2K qui gères mal ce format la... ou tout au moins ta methode d'affichage.

mais je serais toi, je passerais outre en utilisant un autre format d'image si possible , comme te le propose fred, d'ailleurs moi le jpg j'aime pas ( a part pour des photos bien sur) je préfère le png , plus propre on vas dire ..

sur ce amuses toi bien

[Kwai chang caine]

Merci CASE
C'est dingue ce que ça peut etre compliqué
"BitPlane" "Chromatruc" vous connaissez noir de mots compliqué en image...ça doit pas etre facile de les caser dans les conversations de tous les jours

Bah ce qui est bizarre c'est que j'ai pas changé de PC au boulot depuis 2 ans, et j'ai jamais eu de problemes avec les JPG.
J'suis degouté j'avais deja un soucis de moins.... et ben c'est loupé

Un truc de dingue, en ce moment, quand j'repare a droite, ça pete a gauche et inversement, je peux me fier a rien
Et encore, je doit etre le dernier a avoir W2000 au boulot, car je suis arrivé a le garder et a resister a VISTA....mais ça va pas durer.
W2000 c'est important pour moi, car c'est le systeme que j'installe le plus sur mes machines perso......alors si apres les GIFS, faut que j'abandonne les JPG...je prendrais un marqueur effacable et je dessinerais sur l'ecran

Ce qui m'etonne c'est que donc j'ai pas changé de machine depuis 2 ans et en plus ça marche en 4.3 sous W2000 et ça a toujours marché.
C'est pourquoi j'en voulais encore a la 4.40, mais si c'est pas ça il me restera plus qu'a me mettre tout nu et faire le tour du quartier avec ecris sur moi...."j'ai accusé la 4.40 a tort"

Je vais essayer tout a l'heure les images que CEDERAVIC m'a gentillement préparé, et peut etre qu'on en saura plus...
Parce que la ....tout me depasse

Je viens de faire un essai avec mon giciel, une PNG elle est moins grosse qu'une JPG
Je croyais que c'etait le contraire....ça repond peut etre a la question de la compression de la JPG, qui n'est peut etre pas si forte que ça.....je sais pas par contre si le PNG est accepté par internet

[Kwai chang caine]

Bon...me voici au poste, et dans les premieres choses que j'ai faites, c'est tester toutes les images de CEDERAVIC
Fiiiiooouu !!! il y a pas été de main morte
Ca pourrait presque etre assimilé a de la torture...y me l'a tordu dans tous les sens mon PC

Donc pour faire plaisir a mon copain DJES, et surtout plus me faire engueuler (J'aime pas me faire engueuler ), j'ai fait un RAR avec tout dedans

Je sais pas si ça va vous causer...parce que pour moi...c'est pas la peine que je vous dise
http://erdsjb.free.fr/PureStorage/Provi ... estJPG.rar

J'espere deux choses....
Que ça peut aider FRED et vous aussi à me donner un coup de main
Et aussi, que j'ai pas fait ch...tout le monde pour une histoire de carte graphique ou un truc comme ça qui fait que je suis encore le seul dans le monde a ce que ça marche pas

Encore merci à tous de tous vos efforts

Au passage je met le code que j'utilise de BERNARD (Sans les bugs) sur le forum, au cas ou le lien RAR ne soit plus actif un jour

Code : Tout sélectionner

Enumeration
 #Image_0
 #Fenetre_Main
EndEnumeration

#NumImage = 20

CompilerSelect #NumImage

 CompilerCase 1
  #NomImage = "LosangeNO.jpg"
 CompilerCase 2
  #NomImage = "LosangeNO_c1_progressif_1_1.jpg"
 CompilerCase 3
  #NomImage = "LosangeNO_c1_progressif_2_2.jpg"
 CompilerCase 4
  #NomImage = "LosangeNO_c1_progressif_4_4.jpg"
 CompilerCase 5
  #NomImage = "LosangeNO_c1_standard_1_1.jpg"
 CompilerCase 6
  #NomImage = "LosangeNO_c1_standard_2_2.jpg"
 CompilerCase 7
  #NomImage = "LosangeNO_c1_standard_4_4.jpg"
 CompilerCase 8
  #NomImage = "LosangeNO_c50_progressif_1_1.jpg"
 CompilerCase 9
  #NomImage = "LosangeNO_c50_progressif_2_2.jpg"
 CompilerCase 10
 #NomImage = "LosangeNO_c50_progressif_4_4.jpg"
 CompilerCase 11
  #NomImage = "LosangeNO_c50_standard_1_1.jpg"
 CompilerCase 12
  #NomImage = "LosangeNO_c50_standard_2_2.jpg"
 CompilerCase 13
  #NomImage = "LosangeNO_c50_standard_4_4.jpg"
 CompilerCase 14
  #NomImage = "LosangeNO_c99_progressif_1_1.jpg"
 CompilerCase 15
  #NomImage = "LosangeNO_c99_progressif_2_2.jpg"
 CompilerCase 16
  #NomImage = "LosangeNO_c99_progressif_4_4.jpg"
 CompilerCase 17
  #NomImage = "LosangeNO_c99_standard_1_1.jpg"
 CompilerCase 18
  #NomImage = "LosangeNO_c99_standard_2_2.jpg"
 CompilerCase 19
  #NomImage = "LosangeNO_c99_standard_4_4.jpg"
 CompilerCase 20
  #NomImage = "LosangeNO_sp.jpg"

CompilerEndSelect


UseJPEGImageDecoder()
Global Image1

Image1 = CatchImage(1, ?Image1)

If OpenWindow(#Fenetre_Main, 0, 0, 400, 240, #NomImage, #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
 ImageGadget(#Image_0, 30,5, 139, 172, Image1)
EndIf

Repeat 

 Select WaitWindowEvent()

  Case #PB_Event_CloseWindow
   Select EventWindow()
    Case #Fenetre_Main
     Quitter =#True
   EndSelect
      
 EndSelect

Until Quitter

End

DataSection
 Image1:
 IncludeBinary #NomImage
EndDataSection

[djes]

Tiens, j'ai modifié ton code pour tester en direct en cliquant

Code : Tout sélectionner

Enumeration
 #Image_0
 #Texte
 #Fenetre_Main
EndEnumeration

UseJPEGImageDecoder()

Image00 = CatchImage(00, ?img00)
Image01 = CatchImage(01, ?img01)
Image02 = CatchImage(02, ?img02)
Image03 = CatchImage(03, ?img03)
Image04 = CatchImage(04, ?img04)
Image05 = CatchImage(05, ?img05)
Image06 = CatchImage(06, ?img06)
Image07 = CatchImage(07, ?img07)
Image08 = CatchImage(08, ?img08)
Image09 = CatchImage(09, ?img09)
Image10 = CatchImage(10, ?img10)
Image11 = CatchImage(11, ?img11)
Image12 = CatchImage(12, ?img12)
Image13 = CatchImage(13, ?img13)
Image14 = CatchImage(14, ?img14)
Image15 = CatchImage(15, ?img15)
Image16 = CatchImage(16, ?img16)
Image17 = CatchImage(17, ?img17)
Image18 = CatchImage(18, ?img18)
Image19 = CatchImage(19, ?img19)

image_nb = 1

Dim images_id(20)

images_id(00) = Image00 
images_id(01) = Image01
images_id(02) = Image02
images_id(03) = Image03
images_id(04) = Image04
images_id(05) = Image05
images_id(06) = Image06
images_id(07) = Image07
images_id(08) = Image08
images_id(09) = Image09
images_id(10) = Image10
images_id(11) = Image11
images_id(12) = Image12
images_id(13) = Image13
images_id(14) = Image14
images_id(15) = Image15
images_id(16) = Image16
images_id(17) = Image17
images_id(18) = Image18
images_id(19) = Image19

If OpenWindow(#Fenetre_Main, 0, 0, 400, 240, "Image Test", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
  TextGadget(#Texte, 0, 0, 32, 16, Str(image_nb))
  ImageGadget(#Image_0, 30, 5, 139, 172, Image01)

  Repeat 
  
   Select WaitWindowEvent()
  
    Case #PB_Event_CloseWindow
     Select EventWindow()
      Case #Fenetre_Main
       Quitter =#True
     EndSelect

    Case #PB_Event_Gadget  
      If EventType() = #PB_EventType_LeftClick 
        image_nb = (image_nb + 1) % 20
        SetGadgetState(#Image_0, images_id(image_nb))
        SetGadgetText(#Texte, Str(image_nb))
      EndIf

   EndSelect
  
  Until Quitter

EndIf

End

DataSection
img00:
  IncludeBinary"LosangeNO_sp.jpg"
img01:
  IncludeBinary"LosangeNO.jpg"
img02:
  IncludeBinary"LosangeNO_c1_progressif_1_1.jpg"
img03:
  IncludeBinary"LosangeNO_c1_progressif_2_2.jpg"
img04:
  IncludeBinary"LosangeNO_c1_progressif_4_4.jpg"
img05:
  IncludeBinary"LosangeNO_c1_standard_1_1.jpg"
img06:
  IncludeBinary"LosangeNO_c1_standard_2_2.jpg"
img07:
  IncludeBinary"LosangeNO_c1_standard_4_4.jpg"
img08:
  IncludeBinary"LosangeNO_c50_progressif_1_1.jpg"
img09:
  IncludeBinary"LosangeNO_c50_progressif_2_2.jpg"
img10:
 IncludeBinary"LosangeNO_c50_progressif_4_4.jpg"
img11:
  IncludeBinary"LosangeNO_c50_standard_1_1.jpg"
img12:
  IncludeBinary"LosangeNO_c50_standard_2_2.jpg"
img13:
  IncludeBinary"LosangeNO_c50_standard_4_4.jpg"
img14:
  IncludeBinary"LosangeNO_c99_progressif_1_1.jpg"
img15:
  IncludeBinary"LosangeNO_c99_progressif_2_2.jpg"
img16:
  IncludeBinary"LosangeNO_c99_progressif_4_4.jpg"
img17:
  IncludeBinary"LosangeNO_c99_standard_1_1.jpg"
img18:
  IncludeBinary"LosangeNO_c99_standard_2_2.jpg"
img19:
  IncludeBinary"LosangeNO_c99_standard_4_4.jpg"

EndDataSection

Ici, les images 0 (ou 20 si tu préféres), 4, 7, 10, 13, 16 et 19 ne passent pas : xnview me les indique corrompues, et photoshop les affiche parfois, ou toutes biscornues, ou il dit pas pris en charge

[Kwai chang caine]

Merci DJES
C'est que je voulais faire...car au debut je changeait chaque ligne include
Pis, j'me suis dit....ça peut resservir ce genre de test on sait jamais...
Alors j'm'est dit je vais essayer de l'automatiser...

Et apres je me suis dit ..oulala faut que je gere un evenement, faut que je change l'image...oulala...encore 2 heures pour moi, et juste pour un programme test qui ne resservira peut etre pas
Et comme le lapin de alice...je suis en retard ...je suis en retard ..

Bon alors j'ai eu l'idée des CompilerIf...

Voila tu vois, je viens a peine d'envoyer le RAR, qu'il reviens avec un code nickel, comme je le voulais
Tu comprend qu'entre deux heures et le temps que tu as mis...on a pas la meme echelle

Je reflechi toujours pour un evenement.
J'ai beau copier des aides memoires, y manque toujours une constante ou autre chose.
Et comme j'(ai oublié je recherche a chaque fois, ou je copie colle une tonne d'evenement et je les efface...enfin des methodes à la con, quand on est pas doué.
Ma hantise.....c'est le double evenement
Alors la, j'en ai froid dans le dos, toujours pas compris lequel faut mettre en premier
Mais j'arrette de demander car apres 5 ans, vous allez vraiment croire que je me fou de votre gueule

5 ans apres et apres etre passé par les ressources, les DLL, tes tableaux, les API...je continue a pas savoir faire la gestion des evenements tout seul...
Tu comprend peut etre pourquoi, pour moi c'est decourageant....quand y'a plein de pommes sur l'arbre et par terre, et que t'as un panier gros comme un porte monnaie

Pour moi, tout est compliqué, meme ce que j'ai déja fait et refait...
C'est pas pour faire ma "causette" des miserables, mais juste pour te faire comprendre, que pour certaines personnes, elles le font une fois, et c'est dans la tete une fois pour toute, si elle le refont dans l'année ou meme apres pour certains.
Et pour des handicapés neuroniques comme moi, une journée peut suffir a oublier quelque chose que je fait tous les jours.
Remarque c'est peut etre une maladie, puisque y'a un nom pour chaque bricole maintenant ???
En tout cas, j'en ai jamais entendu parler

Voila, peut etre certains de vous sont comme moi...j'en doute a ce point...vu le niveau que vous avez pour certains....

J'adore les vieux PC, j'en ai des dizaines..et ben j'ai pas quitté le ZX81 ...tout ce que tape...le lendemain faut le retaper..car j'ai pas encore acheté le magnetophone pour enregistrer le code ...et pour le mettre dans ma tete, il ne se fait plus, comme dit DENIS y ont cassé le moule et c'est tant mieux

C'est juste pour vous faire comprendre, que pour certains ce qui est simple, ne l'est pas pour l'autre.
Par exemple ma connerie de memoire retiens pres de 200 numeros de telephones et des milliers de choses que parfois j'en ai rien a foutre
Et la programmation ou certaines choses auquelles je tiens, ou que je me sert tous les jours...et ben ça sort presque aussi vite que ça rentre

J'espere etre le seul comme ça sur ce forum

Encore merci DJES de ta gentillesse....c'est vrai qu'avec un RAR t'es drolement rapide et performant

EDIT
Je viens d'essayer ton code, trop cool
Bah moi, j'ai aucune erreur qui remonte, ça les affichent ou ça les affichent pas

Par contre, je sais pas ce qu'il leur a fait ce "sadique" de CEDERAVIC
Mais alors y'en a qui sont vraiment pas jojo

Y'en a...elle bavent comme moi devant une langouste un soir de reveillon

[djes]

Peut-être que tu ne mémorises que ce qui t'intéresse vraiment... Je pense que j'ai de bien pires problèmes de mémoire que toi; certaines choses ne s'impriment pas, mais alors pas du tout. Je refais souvent vingt fois la même chose, je recrée chaque fois! Je me suis hyper-spécialisé en info, du coup, il ne faut pas compter me faire retenir un prénom (surtout masculin lol) la première fois; en plus je ne mémorise "qu'en gros".

Je lis de temps en temps des nouvelles scientifiques, et je sais qu'on a découvert ceci ou qu'on a fait cela, je visualise le principe, mais pas du tout les détails; c'est comme une référence, je sais que j'ai vu un truc, je sais où aller le chercher, mais je n'ai presque rien enregistré. Par contre je me souviens de toutes les BDs de mon enfance, sans compter des tas de séries à la con. Comme si je m'étais bourré le crâne d'imbécilités.

Pourtant, normalement il devrait rester de la place; pour preuve, est mort il y a peu celui qui avait inspiré le film Rain Man (la news en français : http://www.20minutes.fr/article/372442/ ... t-mort.php). Ce gars là (loin d'être un imbécile!) savait pas coeur 12000 ouvrages, et pouvait en lire 8 par jour :/

Tout ça pour dire que malgré que tu répètes à longueur de posts que tu es un idiot congénital, je suis bien convaincu qu'il n'en est rien. La logique de programmation que certains utilisent peut être considérée tordue par d'autres, c'est pour ça qu'il y a différents paradigmes, comme par exemple le procédural s'opposant à l'objet. La gestion des événements, je n'en fais jamais, mais je lis vite et je sais comment fonctionne l'ordi; tout s'imbrique et je sais où chercher assez rapidement. Peut-être que cette logique s'oppose à la tienne!

D'autant que tu as pris des réflexes avec VB qui est un langage basé sur la programmation objet; c'est vraiment une autre façon de voir, et ça peut dérouter quand on passe de l'une à l'autre. Quand on insére un gadget dans vb, c'est un objet qui vient avec ses méthodes et ses propriétés, géré de façon transparente et asynchrone par Windows. Dans Pure, il y a un programme "maître" qui doit tout gérer. C'est radicalement différent. Même si je préfère le procédural, dans la programmation d'interfaces la programmation objet a de sacrés atouts!

J'ai l'impression aussi que tu t'éparpilles pas mal. Si tu passes du coq à l'âne sans arrêt, tu vas finir par filer des carottes à la poule

[cederavic]

Tu utilise quoi pour enregistrer tes jpg KCC?

[Kwai chang caine]

Merci DJES de tes encouragements.
C'est malheureux à dire, mais j'suis content en fin de compte de pas etre le seul
En fin de compte, on dit qu'on souhaite que "quinquin" y se casse la gueule...mais ça fait bien rire quand meme

Dis donc je le connaissais pas la "super tronche" de ton lien.
Remarque il devait pas avoir beaucoup de prenom de gonzesses a retenir lui, vu la tronche
Mais bon c'est dommage qu'il soit mort, ces gens la...je les admire, car ils depassent les limites convenues par l'humanité elle meme.
En plus interessant l'histoire de la memoire eidetique...moi jusqu'a maintenant, je croyais que la seule chose qui "a i des tiques"..c'etait mon clebard

Oui j'arrive de VB...mais la aussi j'ai honte, car je programmais presque en procedural...
Je devais etre le seul aussi
Les objets j'y ai presque rien compris ..j'suis vraiment une plaie
Mais j'ai rien dit a personne, et j'utilisait pas les forums, tout en autodidacte, alors je remplissait les cases des propriétés et c'est tout.
Et quand on m'expliquait quelque chose qui me depassait, je disait merci.....

Ce n'est qu'avec un certain forum d'un autre langage que j'ai commencé a vouloir le pourquoi du comment ....je ne sais pas si tu vois du quel je parle
D'ailleurs que PB soit procedural, hors mis cette histoire de double ou triple evenements qui est dur a comprendre, j'etais drolement content
Ca a été aussi surement une des choses qui font que vous ayez a me supporter

J'ai l'impression aussi que tu t'éparpilles pas mal. Si tu passes du coq à l'âne sans arrêt, tu vas finir par filer des carottes à la poule

C'est rien de le dire..au debut c'etait pour faire plaisir au boulot et contenter tout le monde.
Mais apres ca a été le cercle infernal, comme j'ai expliquén un programme qui appelle un autre , qui lui meme apelle un autre.
Et comme y'a toujours un truc qui coince...bah pour pas arreter j'en commence un autre qui est sensé m'aider a realiser celui que j'ai pas fini, et a son tour il bloque....
Du coup au moins une dizaine d'applis en l'air dans tous les domaines....et j'en ai toutes besoins...sinon je les aurait pas commencé, car dans la merde ou je suis, je ne peux plus me permettre le luxe de coder "pour rien", je veux dire si ça ne rentre pas dans le cadre d'une de mes applis

C'est pourquoi, je suis hyper ennervé de ne plus avancer.
Si encore j'etais bloqué au debut, je dirais laisse tomber c'est trop compliqué.
Mais souvent ça marche super bien et a 80% y manque une bricole qui bloque, et souvent comme je m'y suis mal pris...et bah faut des heures pour expliquer ce que je voudrais...et c'est la qu'on me dit :

"Ah ah ah....c'est pas possible ce que tu demandes"
Ou "c'est pas comme ça qu'il faut faire"

Alors, KCC il la remet dans sa culotte., ou le plus souvent, il essaye d'adapter le bijou de code qu'on m'a donné, dans la boite a camenbert , que je lui reserve comme ecrin
Si parfois certains de vous voyaient ce que je fais des codes que l'on me donne, pour qu'ils marchent dans mon appli....ben je crois que pour la protection des codes et eviter la torture..y m'en redonnerait plus jamais

Pour l'histoire de la poule...j'espere que compliqué comme je suis...si je lui donne une carotte ...je me tromperais pas de coté

[Kwai chang caine]

Tu utilise quoi pour enregistrer tes jpg KCC?

Bah c'est IphotoExpres de Ulead...un vieux programme comme mon lave linge et ma voiture

[Kwai chang caine]

Bon je viens de faire plusieurs essais ...et meme en changeant les couleurs, en creant une nouvelle ou j'a ecris du texte, en essayant de la reenregistrer avec un autre logiciel....et ben elles fon toutes comme ça

[Kwai chang caine]

Par contre, je viens de creer une photo JPG avec PhotoFiltre, et ça marche nickel
Et en plus mon giciel il la lit sans probleme, et quand je la reenregistre avec mon giciel PB la relis aussi nickel.

Donc ce qui viendrait a dire que :

1/ Quand elle est créée avec mon giciel
Elle marche en 4.30 et pas en 4.40

2/ Quand elle est créée avec PhotoFiltre
Elle marche tout le temps
Et quand je la modifie avec mon giciel et ben elle marche encore

Donc ce serait le format de JPG de mon giciel qui n'est pas reconnu par la 4.40, mais qui est bien reconnu par la 4.30 et tous les autres giciels de photo.

Je viens de tester l'exe compilé avec un losange sur une autre machine W2000...et ben ça marche pas non plus
Et je viens d'essayer l'exe qui marche pas sur W2000, sur un VISTA..et ben il marche

Donc pour l'instant c'est bien la 4.40 qui pose le probleme...enfin sur cette machine, mais aussi sur une autre
ce qui porterait a croire que toutes les W2000 feraient pareil
Peut etre que certains vieux logiciels ont un format JPG legerement differents de ceux de maintenant, et que la 4.40 ne prend pas en compte
Ca reste quand meme à mon avis genant, car je doit pas etre le seul dans le monde à utiliser encore W2000, y'aura bien un jour quelqu'un qui se retrouvera avec des images biscornues

[cederavic]

Pour les évènements (comme pour tout) chacun à sa façon de comprendre les choses, comme l'explique Djes (d'ailleurs comment vas-tu toi? ça fait un petit moment qu'on a pas discuter...).
Personnellement en programmation, quand j'essaie de transcrire ma chose dans la "vie réelle", je m'explique...

Comment essuyer un refus de sa femme ->

Code : Tout sélectionner

Imaginons que je veuille une maison avec ma femme, je construit donc une maison : OpenWindow(#Maison, ...)
Avec une porte d'entree : CreateGadget(#Porte_Entree, ...)
Dans ma maison il y a une salle de bain : OpenWindow(#Salle_De_Bain...)
Avec une porte : CreateGadget(#Porte_Salle_De_Bain, ...)

Je vie dans cette maison : Repeat...

[Première passe de la boucle]
Ma femme va prendre une douche, pour ça elle ouvre la porte de la salle de bain...

Il se passe des choses dans ma maison : Select WindowEvent()...

  Il y a donc un évènement dans une pièce de ma maison, une porte fermée : Case #PB_Event_CloseWindow 
    Non....
    Sur un objet? : Case #PB_Event_Gadget
    Mais où ? : Select EventWindow()
      Dans la Salle de bain : Case #Salle_De_Bain
        Et sur quoi? : Select EventGadget()
          Sur la porte, elle l'a ouverte... : Case #Porte_Salle_De_Bain
            Maintenant faut savoir quel type d'évènement il y a eu : Select EventType()
             Elle à simplement appuyer sur la poignée pour l'ouvrir : Case #PB_EventType_LeftClick
                Ducoup on sait où, sur quoi et comment et on agit en conséquence : Rejoindre_Sa_Femme.b = #True
                Mais ma femme refuse : Accord_De_Sa_Femme.b = #False
            On a fini d'analyser les différents types d'évènements : EndSelect
        On a fini d'analyser les différents objets de la pièce : EndSelect ; On a juste créer une porte donc bon...
    Mais il aurait pu avoir un évènement dans la Maison : Case #Maison
      Ce qui n'est pas le cas pendant la première passe...
  On a fini d'analyser où aurait pu se produire l'évènement : EndSelect
Notre curiosité est satisfaite : EndSelect

[Seconde passe de la boucle]
Ma femme me voit devant elle alors qu'elle allait refermer la porte, mais elle à refuser mon intrusion...
J'agis en conséquence et sors de la maison, frustré : If Rejoindre_Sa_Femme = #True And Accord_De_Sa_Femme = #False : CloseWindow(Maison) : Endif

Il se passe alors quelques chose dans la maison.. Comme tout à l'heure, je cherche à savoir : Select WindowEvent()
  Une porte de la maison à été fermée : Case #PB_Event_CloseWindow
    Laquelle? : Select EventWindow()
      La salle de bain? : Case #Salle_De_Bain
        Non...
      C'est celle de la maison : Case #Maison
        La vie est dure et autre chose l'est moins ducoup... : End
    On a fini d'analyser où aurait pu se produire l'évènement : EndSelect
  Ou autre chose : Case #PB_Event.....
Notre curiosité est satisfaite : EndSelect

Et la vie continue quand même : Forever

Me suis un peut éloigner du sujet...