pcsoft.fr.windevCopyright 2026, PC SOFT26 Feb 2020 11:51:03 Z26 Feb 2020 11:08:43 ZBonjour à toutes et à tous Lors du test de mon programme, j'ai une boucle infinie (je suppose), hors je n'arrive pas à en trouver l'origine. Le test que je réalise avec le fichier (voir Screenshot plus bas) me permet de directement recopier les lignes sans les traiter. Le programme devrait donc se lancer puis s’arrêter quasiment instantanément hors ce n'est pas le cas. Merci d'avance pour cette longue lecture https://hostimage.windev.io/images/Capture_3d8f7f056fed4008a654f384591e2f9b.PNG [code:wl] // Déclaration des variables FichierNonTraité est une chaîne sFichierTraité est une chaîne IDFichier est un entier LigneLue est une chaîne tabTableauEnregistre est un tableau <agrandissement=1> de chaînes TableauTraité est un tableau <agrandissement=1> de chaînes Extractchaine est une chaîne X1, X2, X3, Y1, Y2, Y3, E, rXmin ,rXmax, rYmin, rYmax, Dx, Dy, Cx, Cy, Rayon sont des réels rDecx,rDecy sont des réels //Xc, Yc, rRayonc sont des réels //a1, b1, a2, b2 sont des réels rVec1x, rVec1y, rVec2x, rVec2y sont des réels rVec1len, rVec2len, rVecAng, VecProd, rVecSca sont des réels //rXdeb,rYdeb sont des réels i,j,w sont des entier // Sélection du fichier à analyser et création du fichier d'extraction FichierNonTraité = fSélecteur("", "","Sélection du fichier gcode à analyser", ... "Fichier externe" + TAB + "*.gcode", "gcode", fselCrée) IDFichier = fOuvre(FichierNonTraité) SI IDFichier = -1 ALORS Erreur(ErreurInfo(errMessage)) SINON sFichierTraité = fCrée("C:\Users\Fnay\Desktop\ExtractWindev\FichierTraité.gcode") SI sFichierTraité = -1 ALORS Erreur(ErreurInfo(errMessage)) SINON fOuvre(sFichierTraité) SI sFichierTraité = -1 ALORS Erreur(ErreurInfo(errMessage)) SINON FIN FIN FIN // Boucle principale BOUCLE SupprimeTout(tabTableauEnregistre) SupprimeTout(TableauTraité) Ajoute(tabTableauEnregistre,LigneLue) j=1 // Extraction d'une couche dans le 1er tableau BOUCLE LigneLue = fLitLigne(IDFichier) SI ErreurDétectée ALORS Erreur(ErreurInfo()) SORTIR FIN SI ChaîneOccurrence(LigneLue,"; layer ")=1 OU LigneLue = EOT ALORS SORTIR tabTableauEnregistre[j]=LigneLue j=j+1 FIN j=1 w=1 E=0 // Inscription des commentaires et début de layer TANTQUE ChaîneOccurrence(tabTableauEnregistre[j],"; ")=1 TableauTraité[w]=tabTableauEnregistre[j] j=j+1 w=w+1 FIN // Inscription des codes ne contenant pas de X et Y TANTQUE ChaîneOccurrence(tabTableauEnregistre[j],"X")=0 OU ChaîneOccurrence(tabTableauEnregistre[j],"Y")=0 TableauTraité[w]=tabTableauEnregistre[j] j=j+1 w=w+1 FIN FinProgramme() BOUCLE SI TableauCherche(tabTableauEnregistre,tcLinéaireDernier,"")=(j-1) ALORS SORTIR POUR i=1 À 3 {"X"+i,indVariable}=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"X")+1 À]]) {"Y"+i,indVariable}=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"Y")+1 À]]) E=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"E")+1 À]])+E j=j+1 FIN rVec1x=X2-X1 rVec1y=Y2-Y1 rVec2x=X3-X2 rVec2y=Y3-Y2 rVec1len=rVec1x^2+rVec1y^2 rVec2len=rVec2x^2+rVec2y^2 VecProd=rVec1x*rVec2y-rVec2x*rVec1y rVecSca = rVec1x * rVec2x + rVec2y * rVec1y SI rVec1len<>0 ET rVec2len<>0 ALORS rVecAng=(((VecProd^2)/rVec1len)/rVec2len)*90 rVec1len = rVec1len^0.5 rVec2len = rVec2len^0.5 SINON SI rVecSca < 0 ALORS rVecAng= 180-rVecAng SINON FIN SI VecProd < 0 ALORS rVecAng = - rVecAng SINON FIN FIN SELON rVecAng CAS 0 : TableauTraité[w]=tabTableauEnregistre[j-3] w=w+1 TableauTraité[w]=tabTableauEnregistre[j-2] w=w+1 TableauTraité[w]=tabTableauEnregistre[j-1] w=w+1 CAS À 5 : rXmin=X1 rXmax=X1 rYmin=Y1 rYmax=Y1 BOUCLE SI ChaîneOccurrence(tabTableauEnregistre[j],"E0.0000")=1 OU ChaîneOccurrence(tabTableauEnregistre[j],"; ")=1 OU TableauCherche(tabTableauEnregistre,tcLinéaireDernier,"")=(j-1) ALORS SORTIR SI rXmin>Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"X")+1 À]]) ALORS rXmin=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"X")+1 À]]) SI rXmax<Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"X")+1 À]]) ALORS rXmax=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"X")+1 À]]) SI rYmin>Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"Y")+1 À]]) ALORS rYmin=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"Y")+1 À]]) SI rYmax<Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"Y")+1 À]]) ALORS rYmax=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"Y")+1 À]]) E=Val(tabTableauEnregistre[j][[Position(tabTableauEnregistre[j],"E")+1 À]])+E j=j+1 FIN Dx=rXmax-rXmin Dy=rYmax-rYmin Cx=(rXmax+rXmin)/2 Cy=(rYmax+rYmin)/2 Rayon=Dx/2 rDecx=Cx-Rayon*Cosinus(-5/(180*3.14)) rDecy=Cy-Rayon*Sinus(-5/(180*3.14)) TableauTraité[w]="G1 x" &rXmin &" Y" &Cy w=w+1 TableauTraité[w]="G3 X" &(rXmin+2*Rayon) &" Y" &Cy &" R" &Rayon &" E" &E/2 w=w+1 TableauTraité[w]="G3 X" &rDecx &" Y" &rDecy &" R" &Rayon &" E" &E w=w+1 TableauTraité[w]="G3 X" &rXmin &" Y" &Cy &" R" &Rayon w=w+1 CAS 5 À 180 : AUTRE CAS : FIN FIN POUR TOUT ValeurTableauTraite DE TableauTraité Extractchaine+=[RC] + ValeurTableauTraite FIN fSauveTexte("C:\Users\Fnay\Desktop\ExtractWindev\FichierTraité.gcode",Extractchaine) SI LigneLue= EOT ALORS SORTIR SAI_ContenuFichier=X1 + RC + Y1 + RC + X2 + RC + Y2 + RC + X3 + RC + Y3 + RC + rVecAng + RC + E FIN ToastAffiche("Traitement du fichier terminé") [/code]30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Quentin Lec.pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie-237312/read.awp26 Feb 2020 11:51:03 ZBonjour, Update qui répond à ton commentaire, j'ai coupé lin fichier test afin de garder un minimum de ligne et le problème vie…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie-237312/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie-237312/read.awpBoucle infinieVoroltinquopcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie-237311/read.awp26 Feb 2020 11:27:52 ZBonjour, As-tu tenté d'exécuter ton code en mode pas à pas ? -- Il y a peut être plus simple, mais, ça tournehttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie-237311/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237309-boucle-infinie-237311/read.awpBoucle infinie