Manipulation d'une image

Bonjour à Tous,

Je commence la manipulation d'une image cliquable et je rencontre un problème.
Malgré l'aide WD, je n'arrive pas à maitriser le problème suivant:

1- J'ai créé une image
2- En fond d'image, j'ai inséré un plan
3- J'ai écrit le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

//TAILLE DE LA POLICE liFontSize est un entier = 8 dDébutDessin(IMG_Image1) // Déclaration de la couleur et du style par défaut des différents tracés dStylo(Noir, 3) dPolice("Arial",liFontSize,iNormal,0) //PLAN DU CADASTRE dRectangle(370,25,660,210, Transparent, Noir) //R-RECEP dRectangle(660,25,690,120, Transparent, Noir)//R-BOU-PIK dRectangle(555,260,660,350, Transparent, Noir)//R-CLI-PIK dRectangle(455,260,555,305, Transparent, Noir)//R-BOU-RES dRectangle(455,305,555,350, Transparent, Noir)//R-CLI-RES dRectangle(250,170,370,250, Transparent, Noir)//R-BOU-PRE dRectangle(250,90,370,170, Transparent, Noir)//R-CLI-PRE //ZONES EXPEDITIONS dRectangle(55, 70, 115, 130, Transparent, RougeFoncé) //R-EXPED-CLIENTS dRectangle(175, 70, 115, 130, Transparent, RougeFoncé)//R-EXPED-BOUTIQUES

---

Jusqu'à là, cela fonctionne.

Mais je souhaite faire apparaitre le nom de la zone lorsque je clic dessus.
Et je n'arrive pas à trouver la commande adéquate; J'ai tenté ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

x, y sont des entiers x = SourisPosX() y = SourisPosY() // Code de clic de IMAGE1   SI x > y ALORS LIB_Libellé1 = "R-EXPED-CLIENTS" SINON LIB_Libellé1 = "R-EXPED-BOUTIQUES" FIN

---

Mais je ne vois pas comment l'intégrer pour chaque zones dessinées

Par avance merci pour votre aide
Bonne journée

Si j'ai bien comprtis, le but est de retouver dans quel rectangle tu as cliqué.

Je présume que ceux ci ne se chevauchent pas.

A ta place, je ferai déclarerais 4 tableaux ou j'inscrirais chacune des coordonnées (x-mini, x-maxi, y-mini et y-maxi) de chacun des rectangles, ensuite je les dessinerais.

puis lors du clicage si x est compris entre x-mini et x-maxi et que u est compris entre y-mini et y-maxi tu as gagné.

Bonjour Mogway,

En effet, après contrôle, rien ne ce chevauche.
J'ai bien compris ce que tu dit, sauf les tableaux.
En effet, je vais finir par avoir à peut prêt 150 zones dans mon cadastre.

Aurait tu la gentillesse de m'éclairer sur ce point
Merci

Bonjour,

L'esprit est de :

- déclarer/mémoriser les zones de la carte
- dessiner les zones sur la carte
- à chaque clic, retourner la zone correspondante aux coordonnées cliquées

Si vous dessinez directement les zones sur la carte sans les mémoriser (BDD, variable tableau), vous ne serez pas capable de dire quelle zone a été cliquée.

Pour ça je propose les structures suivantes :

- Le plan qui contient x zones
- La zone qui est défini par 2 points et un libellé
- Le point qui est défini par 2 coordonnées x,y

L'implémentation suivante :

Classe Point

Code:

---

1 2 3 4

CPoint est une classe X est un entier Y est un entier FIN

---

Code:

---

1 2 3 4 5

PROCEDURE Constructeur(local pX est un entier, local pY est un entier)   :X = pX :Y = pY

---

Code:

---

1 2 3

FONCTION EstDansRectangle(poRectangle est un CRectangle dynamique)   RENVOYER = ((:X >= poRectangle:oPoint1:X ET :X <= poRectangle:oPoint2:X) ET (:Y >= poRectangle:oPoint1:Y ET :Y <= poRectangle:oPoint2:Y))

---

Classe Rectangle

Code:

---

1 2 3 4

CRectangle est une classe oPoint1 est un CPoint dynamique oPoint2 est un CPoint dynamique FIN

---

Code:

---

1 2 3 4

PROCEDURE Constructeur(poPoint1 est un CPoint dynamique, poPoint2 est un CPoint dynamique)   :oPoint1 = poPoint1 :oPoint2 = poPoint2

---

Code:

---

1 2 3

PROCEDURE Dessiner()   dRectange(:oPoint1:X, :oPoint1:Y, oPoint2:X, oPoint2:Y)

---

Classe Zone plan rectangle

Code:

---

1 2 3 4

CZonePlanRectangle est une classe hérite de CRectangle   sLibelle est une chaine

---

Code:

---

1 2 3 4

PROCEDURE Constructeur(poPoint1 est un CPoint dynamique, poPoint2 est un CPoint dynamique, LOCAL psLibelle est une chaine) Constructeur CRectangle(poPoint1, poPoint2)   :sLibelle = psLibelle

---

Classe plan

Code:

---

1 2 3 4 5

CPlan est une classe sChampImage est une chaine   taboZonePlan est un tableau de 0 CZonePlanRectangle dynamique FIN

---

Code:

---

1 2 3

PROCEDURE Constructeur(LOCAL psChampImage est une chaine)   :sChampImage = psChampImage

---

Code:

---

1 2 3

PROCEDURE AjouterZonePlanRectangle(poZoneRectangle est un CZonePlanRectangle dynamique)   tableauAjoute(:taboZonePlan, poZoneRectangle)

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

PROCEDURE Dessiner()   dDébutDessin(:sChampImage)   dStylo(Noir, 3) dPolice("Arial",liFontSize,iNormal,0)   oZonePlanRectangle est un CZonePlanRectangle dynamique POUR TOUT ELEMENT oZonePlanRectangle DE :taboZonePlan oZonePlanRectangle:Dessine() FIN

---

Code:

---

1 2 3 4 5 6 7 8

FONCTION ZoneRectangleDepuisPoint(poPoint est un CPoint dynamique)   oZonePlanRectangle est un CZonePlanRectangle dynamique POUR TOUT ELEMENT oZonePlanRectangle DE :taboZonePlan SI poPoint:EstDansRectangle(oZonePlanRectangle) ALORS RENVOYER oZonePlanRectangle FIN FIN

---

Exemple de code

Code de déclaration de la fenetre

Code:

---

1 2 3 4 5 6 7 8 9

//Construction de l'image oPlan est un CPlan(IMG_Image1)   oPlan:AjouterZonePlanRectangle(allouer un CZonePlanRectangle(allouer un CPoint(370,25), allouer un CPoint(660,210), "R-RECEP")) ... ...   oPlan:Dessine()

---

//Code Clic sur image

Code:

---

1 2 3 4 5 6

oPointClic est un CPoint(SourisPosX(), SourisPosY()) oZoneCliquee est un CZonePlanRectangle dynamique = oPlan:ZoneRectangleDepuisPoint(oPointClic)   SI oZoneCliquee <> Null ALORS Info("Vous avez cliqué sur la zone : " + oZoneCliquee:sLibelle) FIN

---

Si tu mets tout dans des tableaux il te suffira de parcourir tes tableaux

Ainsi au lieu d'ecrire :

Code:

---

1 2 3

dRectangle(370,25,660,210, Transparent, Noir) //R-RECEP dRectangle(660,25,690,120, Transparent, Noir)//R-BOU-PIK dRectangle(555,260,660,350, Transparent, Noir)//R-CLI-PIK

---

tu ecriras :

Code:

---

1 2 3 4 5 6 7 8

T1[1] = 370 T2[1] = 25 T3[1] = 660 T4[1] = 210   Pour i = 1 à n dRectangle(T1[i], T2[i], T3[i], T4[i], Transparent, Noir) fin

---

Puis idem pour les test de la position de la souris

Mogway,

Avant tout, je ne sais quoi dire autre que merci

Maintenant, je vais analyser tout cela et je vais recommencer ma programmation.
De là, je ne manquerais pas de revenir vers vous.

Vmolines,

Force de constater que tes explications sont exceptionnelles.
J'ai décidé de tester également ta solution, qui comme le dit Mogway est très complètes.

Je saurais revenir vous dire la suite....

Encore merci
Et très bonne journée

Euh.. oui

La solution de vmolines est a priori meilleure que la mienne. la mienne etant simple voire simpliste et la sienne plus complete et orientée objet.

Maintenant je prefere tout de même la mienne si c'est la sa seule utilisation. Si a l'avenir il y en a d'autres, la solution la plus complete risque de s'avérer la meilleure.

Bonsoir Vmolines
Et bonsoir à Tous,

Je suis sur le point de terminer la programmation des classes et procédures.
Mais je bloque sur un point:

En effet, Windev ne reconnait pas le mot FONCTION.

Code:

---

FONCTION est un mot clé WLangage, et son utilisation dans ce cas est incorrecte

---

J'ai regardé dans l'aide, mais je n'ai rien trouver comme palliatif à cette erreur.

Pourriez vous m'expliquer la signification de cette fonction

Par avance merci

PS: Pour mémoire
WD14
Serveur : SQLServer 2005

Bonne soirée

Bonsoir,

Citation:

---

Envoyé par Raptor92

[...]
En effet, Windev ne reconnait pas le mot FONCTION.

Code:

---

FONCTION est un mot clé WLangage, et son utilisation dans ce cas est incorrecte

---

J'ai regardé dans l'aide, mais je n'ai rien trouver comme palliatif à cette erreur.

Pourriez vous m'expliquer la signification de cette fonction

---

Dans le WLangage, le mot-clé FONCTION est un synonyme du mot-clé PROCEDURE.
Bref, le développeur l'utilise "intentionnellement" pour déclarer qu'une procédure doit retourner une valeur.
Mais on peut aussi très bien utiliser le mot-clé PROCEDURE et renvoyer une valeur (tu fais comme tu aimes ;)).

Pour ce qui te concerne, je verrai plutôt une facétie de l'éditeur.
Commence par remplacer FONCTION par PROCEDURE et recompile le projet.
_

Bonjour à Tous,

=JBO=

J'ai tenté ce que tu m'a amicalement proposé, à savoir:

- Remplacer Fonction par procédure
- Recompiler le projet

Mais cela m'indique le même message

Code:

---

1 2 3 4 5 6 7 8

PROCEDURE Constructeur(LOCAL pX est un entier, LOCAL pY est un entier)   :X = pX :Y = pY   PROCEDURE EstDansRectangle(poRectangle est un CRectangle dynamique)   RENVOYER =((:X >=poRectangle:oPoint1:X ET :X <+ poRectangle:oPoint2:X) ET (:Y >= porectangle:oPoint1:Y ET :Y <= poRectangle:oPoint2:Y))

---

Bonjour Vmolines,

Pensez vous que je commets une erreur de syntaxe ou de positionnement de mon code.

Je viens de penser à une chose, ne me fallait il pas interpréter le chapitre FONCTION comme une procédure à part entière, à savoir:

1- 1ere procédure:

Code:

---

1 2 3 4

PROCEDURE Constructeur(LOCAL pX est un entier, LOCAL pY est un entier)   :X = pX :Y = pY

---

2- 2eme procédure

Code:

---

1 2	FONCTION EstDansRectangle(poRectangle est un CRectangle dynamique) RENVOYER =((:X >=poRectangle:oPoint1:X ET :X <+ poRectangle:oPoint2:X) ET (:Y >= poRectangle:oPoint1:Y ET :Y <= poRectangle:oPoint2:Y))

---

Auquel cas, en effet, je n'ai plus d'erreur


Très bonne journée à Tous

Bonjour,

Le code est découpé en classes, vous devez donc passer par la création de classe via l'édteur si ce n'est pas déjà le cas.

Le constructeur est automatiquement déclaré à la création de la classe, il faut le compléter.

Pour les "procédures de classes", aussi appelées méthodes, il faut les ajouter une à une dans la classe respective.

Ici vous aviez effectivement déclaré "EstDansRectangle" à l'intérieur du constructeur de CPoint. Exemple pour Cpoint dans l'ordre :

- Créer la classe CPoint
- Compléter "CPoint est une classe"
- Compléter le constructeur (paramètres et code)
- Créer la méthode "EstDansRectangle"
- Compléter le code

Puis faites de même pour les autres classes.

Bonjour Vmolines,

En fait, j'ai compris ce matin le problème de la fonction, et c'est exactement ce que j'ai fait.

J'ai un dernier problème sur le champ "sChampImage"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

PROCEDURE Dessiner()   dDébutDessin(:sChampImage)   dStylo(Noir,3) dPolice("Arial",8,iNormal,0)   oZonePlanRectangle est une CZonePlanRectange dynamique POUR TOUT ELEMENT pclOZonePlanRectange DE :tabTaboZonePlan oZonePlanRectangle:Dessiner()   FIN

---

Voici l'erreur générée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Erreur à la ligne 3 du traitement Méthode Dessiner. Vous avez appelé la fonction dDébutDessin. Le passage du paramètre 1 a provoqué une erreur. Le champ C:\Mes Projets\T.D.S. Logistics\Image6.jpg est inconnu.   Informations techniques   Projet : T_D_S_ Logistics   Dump de l'erreur du module <WD140VM.DLL> <14.00Gp>.   - Appel WL : Traitement de <CPlan.Dessiner>, ligne <3>, thread <0> Fonction <dDébutDessin>, n° de syntaxe <0>   - Niveau : erreur fatale (EL_FATAL)   - Code erreur : 1017   - Code erreur WD55 : 0   - Pas de code d'erreur système   - Pas de message d'erreur système   - Que s'est-il passé ? Le passage du paramètre 1 a provoqué une erreur. Le champ C:\Mes Projets\T.D.S. Logistics\Image6.jpg est inconnu.   - Pas d'info de debug   - Infos attachées : EIT_PILEWL : Méthode Dessiner (CPlan.Dessiner), ligne 3 Déclarations globales de Menu_Test (Menu_Test), ligne 6 EIT_COMPOSANT :   EIT_DATEHEURE : 23/10/2009 08:27:08   - Identifiant dans le .err : 1017     Assistance

---

Je comprends bien sur ce que cela veut dire, mais je ne sais pas la résoudre.

Afin que vous puissiez m'aider, il faut savoir que dans le champ image de la fenêtre, je fait apparaître le un image jpg représentant le plan du batîment

Par avance merci

Il y a une petite erreur dans mon code de test :

Code:

---

1 2 3

//Construction de l'image oPlan est un CPlan(IMG_Image1..nom) ...

---

Pourquoi ..Nom, c'est que Windev ne gère pas le passage de champ directement en paramètre de fonction. C'est pourquoi il faut passer le nom du champ. "IMG_Image1" ou IMG_Image1...nom.

Ensuite ça devrait marcher à quelques bricoles près.

Vmolines,

Bien, ça, c'est fait et surtout compris.

J'ai commencé la phase test, de là, je tente de régler une erreur car cela m'indique que

Code:

---

1 2 3

Erreur à la ligne 10 du traitement Méthode Dessiner. L'objet dynamique oZonePlanRectangle n'a pas encore été alloué.

---

Code:

---

1 2 3 4 5

oZonePlanRectangle est une CZonePlanRectange dynamique POUR TOUT ELEMENT oZonePlanRectange DE :tabTaboZonePlan oZonePlanRectangle:Dessiner()   FIN

---

Je vérifie si je n'ai pas une erreur de synatxe

Mais c'est sympa, parce que, même si je m'ai du temps à coder, j'en profite pour analyser le tout avant.

Code:

---

1 2 3 4 5

oZonePlanRectangle est une CZonePlanRectange dynamique POUR TOUT ELEMENT oZonePlanRectange DE :tabTaboZonePlan oZonePlanRectangle:Dessiner()   FIN

---

Erreur sur POUR TOUT ELEMENT oZonePlanRectange DE :tabTaboZonePlan -> c'est rectangle

L'intérêt des classes est de bien organiser les données et les traitements associés. Cette organisation permet une maintenance plus facile, un code plus clair et des évolutions facilitées.

Dans le futur, imaginons que vous ayez des zones qui ne soient pas forcément rectangle.

On créera une classe intermédiaire CZone. CZoneRectangle héritera de CZone. Une nouvelle classe CZonePolygone sera créée et héritera de CZone. Les modifications seront très localisées et le code ne changera pas beaucoup.

Vmolines,

Bon, si en plus ont ne peut plus faire de faute d'orthographe.....

Blague à part, ont à toujours tendance à remercier les intervenants à la fin d'un message.

Pour le coût, je vais le faire avant, en effet, moi qui n'imaginais que l'utilisation de classe était réservés à des experts, je viens de me rendre compte que grâce à ces mêmes experts, on pouvait réaliser des choses extrêmement intéressante.

cela étant dit, il va de soit que tout fonctionne.
Maintenant, je vais compléter mon code afin de faire apparaître l'ensemble des zones du plan.

Ensuite, je mettrais la totalité du code complété afin d'en faire profiter le plus grand nombre.

J'ai en effet pût me rendre compte qu'il y avait un certain nombre de discussions sur le sujet non résolues.

En attendant, une nouvelle fois merci

Si en plus ça marche ... ;)

Petite parenthèse sur les possibilités autour de ces classes de gestion des zones.

Vous pouvez très bien stocker les zones dans votre base de données pour éviter d'avoir la définition de vos zones en dur dans le code. Le code de création de la zone seraient donc une boucle sur la table des zones. Cette table existe peut être déjà dans votre analyse et il ne manque peut être que les coordonnées pour ce faire.

Ce que je vous invite à faire, c'est compléter les classes de méthodes qui vous donneraient la possibilité de :

- Redéssiner la carte après un clic pour colorer la zone sélectionnée en rouge
- Saisir de nouvelles zones en cliquant directement sur la carte pour définir le coint haut gauche et bas droit du rectangle
- Afficher des infos au survol dans une fenêtre popup

N'hésitez pas à demander

Vmolines,

En fait, j'avais commencé par créer une table sur mon serveur appelée "ZONES_PLANS"

Avec à l'intérieur:

Code:

---

1 2 3 4 5 6

PANTIN Pantin 1 Rech Suspendu 690 5 1287 600 0 0 PANTIN Pantin 1 Apostrophe Suspendu 1287 5 1890 600 0 0 PANTIN Pantin 2 Rech Plat Boutiques 660 25 690 120 0 0 PANTIN Pantin 2 Rech Plat Clients 555 260 660 350 0 0 PANTIN Pantin 2 Rech Accessoires Boutiques 450 460 505 525 0 0 PANTIN Pantin 2 Rech Accessoires Clients 395 460 450 525 0 0

---

Ce qui fait que que j'ai opté pour la méthode suivante:

1- Rechercher comment faire appel à la table ZONES_PLAN
Non sur le fait de l'interrogation à la base de données SQL, mais bien dans le sens d'intégrer cela dans le code actuel
2- Définir l'ensemble des zones du plan
3- Mise en œuvre des vos suggestions de votre message précédent, à savoir:
a) Mise en couleur de la zone cliquée
b) Afficher des infos au survol dans une fenêtre popup
Dans mon cas des vêtements par modèles\coloris\tailles

Question:

Je vous cite:

Code:

---

1 2	- Saisir de nouvelles zones en cliquant directement sur la carte pour définir le coin haut gauche et bas droit du rectangle

---

Est ce à dire que de cette manière, il sera possible de dessiner les zones directement ou dois je comprendre que les zones supplémentaires font l'objet du même type de programmation précédemment effectuée ?

Il va de soit, que toutes remarques ou critiques de votre part sont les bienvenues

Pour saisir de nouvelles zones, nul besoin de redéfinir des classes. Dans un mode création de zone (qui doit être séparé de l'utilisation normale du plan), vous pouvez faire les choses suivantes :

- Appuie sur un bouton "Créer une zone"
- Capter deux clics sur l'image avec les coordonnées
- Demander de saisir les autres informations définissant une zone (libellé, etc...)
- Enregistrer tout ça dans une nouvelle ligne de la table Zone
- Rappeler le code d'affichage du plan

Vmolines,

De fait....Logique

Je suis en train de programmer le bouton "Nouvelle zone"
Du coût, je vais en profiter pour en créer 1 en suppression, réservé à l'administrateur (au cas où l'ont finirais par me le réclamer)