PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → simplifier un code
simplifier un code
Iniciado por Stephane Vital OHOU, 11,jun. 2020 17:48 - 5 respuestas
Miembro registrado
157 mensajes
Publicado el 11,junio 2020 - 17:48
Bonjour à tous,
j'ai plusieurs fois essayé de simplifier mon code mais sans succès. Pouvez vous m'aider ? voici mon code:

SI SAI_BTN_001 = "Occupée" ALORS
BTN_CHAMBRE_001 = "001" + " Occupée"
BTN_CHAMBRE_001..ImageFond = Null
BTN_CHAMBRE_001..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_001 = "Réservée" ALORS
BTN_CHAMBRE_001 = "001" + " Réservée"
BTN_CHAMBRE_001..ImageFond = BTN_RESERVER..ImageFond
BTN_CHAMBRE_001..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_002 = "Occupée" ALORS
BTN_CHAMBRE_002 = "002" + " Occupée"
BTN_CHAMBRE_002..ImageFond = Null
BTN_CHAMBRE_002..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_002 = "Réservée" ALORS
BTN_CHAMBRE_002 = "002" + " Réservée"
BTN_CHAMBRE_002..ImageFond = BTN_RESERVER..ImageFond
BTN_CHAMBRE_002..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_003 = "Occupée" ALORS
BTN_CHAMBRE_003 = "003" + " Occupée"
BTN_CHAMBRE_003..ImageFond = Null
BTN_CHAMBRE_003..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_003 = "Réservée" ALORS
BTN_CHAMBRE_003 = "003" + " Réservée"
BTN_CHAMBRE_003..ImageFond = BTN_RESERVER..ImageFond
BTN_CHAMBRE_003..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_004 = "Occupée" ALORS
BTN_CHAMBRE_004 = "004" + " Occupée"
BTN_CHAMBRE_004..ImageFond = Null
BTN_CHAMBRE_004..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_004 = "Réservée" ALORS
BTN_CHAMBRE_004 = "004" + " Réservée"
BTN_CHAMBRE_004..ImageFond = BTN_RESERVER..ImageFond
BTN_CHAMBRE_004..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_005 = "Occupée" ALORS
BTN_CHAMBRE_005 = "005" + " Occupée"
BTN_CHAMBRE_005..ImageFond = Null
BTN_CHAMBRE_005..CouleurFond = RougeFoncé
FIN

SI SAI_BTN_005 = "Réservée" ALORS
BTN_CHAMBRE_005 = "005" + " Réservée"
BTN_CHAMBRE_005..ImageFond = BTN_RESERVER..ImageFond
BTN_CHAMBRE_005..CouleurFond = RougeFoncé
FIN

--
Très respectueusement
Miembro registrado
310 mensajes
Publicado el 11,junio 2020 - 19:06
Bonjour,
Avec des indirections par exemple :

POUR nchambre=1 À 5

SI {"SAI_BTN_"+Droite("000"+nchambre,3),indChamp}="Occupée" ALORS
{"BTN_CHAMBRE_"+Droite("000"+nchambre,3),indChamp}=Droite("000"+nchambre,3)+" Occupée"
{"BTN_CHAMBRE_"+Droite("000"+nchambre,3),indChamp}..ImageFond = Null
{"BTN_CHAMBRE_"+Droite("000"+nchambre,3),indChamp}..CouleurFond = RougeFoncé
FIN
SI {"SAI_BTN_"+Droite("000"+nchambre,3),indChamp}="Réservée" ALORS
{"BTN_CHAMBRE_"+Droite("000"+nchambre,3),indChamp}=Droite("000"+nchambre,3)+" Réservée"
{"BTN_CHAMBRE_"+Droite("000"+nchambre,3),indChamp}..ImageFond = BTN_RESERVER..ImageFond
{"BTN_CHAMBRE_"+Droite("000"+nchambre,3),indChamp}..CouleurFond = RougeFoncé
FIN

FIN
Miembro registrado
157 mensajes
Publicado el 11,junio 2020 - 20:06
Salut Samir BOUCHETIBAT,
extraordinaire ton code simplifié. Il marche très bien. Merci

--
Très respectueusement
Miembro registrado
2.682 mensajes
Publicado el 11,junio 2020 - 20:06
BoutonChambre est un Champ

POUR nchambre=1 À 5
BoutonChambre <- {"BTN_CHAMBRE_"+NumériqueVersChaîne(nchambre,"03d"),indChamp}

BoutonChambre..Libellé = NumériqueVersChaîne(nchambre,"03d") + " " + {"SAI_BTN_"+Droite("000"+nchambre,3),indChamp}
BoutonChambre..CouleurFond = RougeFoncé
SELON {"SAI_BTN_"+Droite("000"+nchambre,3),indChamp}
CAS "Occupée"
BoutonChambre..ImageFond = Null

CAS "Réservée"
BoutonChambre..ImageFond = BTN_RESERVER..ImageFond
FIN
FIN


--
Cordialement,

Philippe SAINT-BERTIN
Miembro registrado
1.002 mensajes
Publicado el 11,junio 2020 - 21:08
Bonjour,

Tu avais déja demander de simplifier ton code (il y a une petite variante je te l'accorde)

https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/239723-simplifier-code-239733/read.awp

Philippe Pasquali, t'avais deja aidé....

Jordan
Miembro registrado
157 mensajes
Publicado el 12,junio 2020 - 15:32
Bonjour Jordan,

Merci de me l'accorder. Je crois que avec toutes ces bonnes réponses, je vais pouvoir moi aussi aider quelqu'un dans ce cas spécifique.
Merci à tous. Vont codes sont extraordinaires et sa marche très bien.

--
Très respectueusement