pcsoft.fr.windevCopyright 2026, PC SOFT31 May 2020 00:01:52 Z30 May 2020 20:32:10 ZBonjour à tous, je galère depuis 3 jours pour la transmision d'une trame sur un port serie (comunication avec un equipement ophtlamologie) ci-joint mon code merci pour votre aide [code:wl] chp_shp est une chaîne = "- 1.25" chp_Cyl est une chaîne = "- 0.75" chp_axe est une chaîne = "165" Cmb_Sphere1 est une chaîne = "- 1.35" Cmb_Cyl1 est une chaîne = "- 0.85" Cmb_Axe1 est une chaîne = "175" Cmb_addD est une chaîne = "+ 2.00" Cmb_addG est une chaîne = "+ 2.25" SHH est Buffer = Caract(0x01) EBB est Buffer = Caract(0x17) ETT est Buffer = Caract(0x03) SXX est une Buffer = Caract(0x02) crr est une Buffer = Caract(0x0D) ARSCAR est une chaîne ="OR+ 2.25- 0.75180" ARSCAL est une chaîne ="OL+ 3.50- 1.00 75" ARPD est chaîne = "PD63" ARBLOC est chaîne = "DRM"+SXX+ARSCAR+EBB+ARSCAL+EBB+ARPD LMSCAR est une chaîne = " R- 2.25- 0.75180" LMSCAL est une chaîne = " L- 2.25- 0.75180" LMADDR est une chaîne = "AR+ 3.00" LMADDL est une chaîne = "AR+ 3.00" LMPRIR est une chaîne = "PR 2.80I"+EBB+"PR 3.10U" LMPRIL est une chaîne = "PL 2.80I"+EBB+"PL 3.10D" LMPD est une chaîne = "PD63" LMBLOC est une chaîne = "DLM"+SXX+LMSCAR+EBB+LMSCAL+EBB+LMADDR+EBB+LMADDL+EBB+LMPRIR+EBB+LMPRIL+EBB+LMPD RS est un Buffer = SHH+"C**"+SXX+"RS"+EBB+ETT SD est un Buffer = SHH+"CRL"+SXX+"SD"+EBB+ETT SI ExeLancé("GestiCabLink.exe") ALORS ExeTermine("GestiCabLink.exe") FIN ExeTermine("GestiCabLink.exe") ThreadPause(30) nPort est un entier = 3 sFerme(nPort) sFerme(nPort) sFerme(nPort) sFerme(nPort) sFerme(nPort) ThreadPause(30) _ok est un booléen = sOuvre(nPort, 4096, 4096, sTimeoutDéfaut, Vrai) SI _ok ALORS sFixeParamètre(3, 9600, 1, 7, 2,0,0,0) WHILE NOT sEchap(3,"SETDTR") sEchap(3,"SETDTR") FIN sEcrit(nPort, RS) // sEcrit(3,Caract(0x01)+"C**"+Caract(0x02)+"RS"+Caract(0x17)+caract(0x03)) WHILE sDansFileSortie(3)<>0 Multitâche() END ThreadPause(30) ThreadPause(30) ThreadPause(30) Nombre est un entier MessageLu est une chaîne Nombre = sDansFileEntrée(3) MessageLu = sLit(3, Nombre) SI MessageLu <> SD ALORS sClose(nPort) SINON ChaîneAEcrire est chaîne= SHH+ARBLOC+EBB+LMBLOC+EBB+ETT TailleEcrite est un numérique= sEcrit(nPort, ChaîneAEcrire) BOUCLE SI sDansFileSortie(2) = 0 ALORS SORTIR FIN FIN SI TailleEcrite = Taille(ChaîneAEcrire) ALORS Info("Jai ecrit") FIN FIN FIN Sablier(False) [/code] la transmission doit suivre ce process https://hostimage.windev.io/images/Annotation20200530183037_2c2d46c5442bfb9907f3a4e784fdb46f.png https://hostimage.windev.io/images/Annotation20200530183129_a6fd1a4fa58b3dce1e98c5918039feaf.png30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240053-transmission-sur-port-serie/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Philippe Pasqualipcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240053-transmission-sur-port-serie-240055/read.awp31 May 2020 00:01:52 ZBonsoir Mettre des chaines à la place des buffers. Supprimer le code inutile. Pour gérer les communications série j'utilis…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240053-transmission-sur-port-serie-240055/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240053-transmission-sur-port-serie-240055/read.awpTransmission sur port serie