here is the macro as it stands which needs to be checked, all criticism is good to take
for the moment it is functional on the X
Dim angleX As Double?
?
Const rechercheMax = 10
Const degagement = 5
Const deplacementMaxPointB = 20 'un GETOEMDRO(1001) sera utilise plus tard pour choisir la deplacementMaxPointB
Const vitesseRapide = 1000
Const vitesseApproche = 100
Const vitesseLente = 50
YDro1 = 0??
YDro2 = 0
?
'deplacementMaxPointB = GETOEMDRO(1001) ' distance max à parcourir
?
SETOEMDRO(800,0) 'Mise à 0 de l'axe X
SETOEMDRO(801,0) 'Mise à 0 de l'axe Y
While isMoving()
Wend
?
'**** 1er MESURE ****
?
CODE "G31 Y"& rechercheMax &" F"& vitesseApproche
While isMoving()
Wend
?
YDro1 = GetOEMDRO(801)' Lit la valeur de Y
?
YDro1= YDro1 - degagement ' nouvelle valeur de Y
CODE "G1 Y" & YDro1 & "F"& vitesseRapide?
While isMoving()
Wend
?
CODE "G31 Y"& rechercheMax &" F"& vitesseLente
While isMoving()
Wend
?
YDro1= GETOEMDRO(801) ' Lit la valeur de Y
?
YDro1= YDro1 - degagement ' nouvelle valeur de Y
CODE "G1 Y" & YDro1 & "F" & vitesseRapide
While isMoving()
Wend
?
'**** 2éme MESURE ****
?
code "g1 x" & deplacementMaxPointB &" F"& vitesseRapide? 'Deplacement pour la 2éme mesure
CODE "G31 Y"& rechercheMax &" F" & vitesseApproche
While isMoving()
Wend
?
YDro2 = GetOEMDRO(801)' Lit la valeur de Y
?
YDro2= YDro2 - degagement ' nouvelle valeur de Y
CODE "G1 Y" & YDro2 & " F" & vitesseRapide?
While isMoving()
Wend
?
CODE "G31 Y"& rechercheMax &" F"& vitesseLente
While isMoving()
Wend
?
YDro2= YDro2 - degagement ' nouvelle valeur de Y
CODE "G1 Y" & YDro2 & " F"& vitesseRapide?
While isMoving()
Wend
?
'**** CACUL FINAL DE L'ANGLE *??
?
YDifference = YDro2-YDro1
MsgBox ("La difference sur X est de: " & YDifference & "mm")
angleX = Tan(YDifference/deplacementMaxPointB) 'angle en radian
MsgBox("L'angle sur X est de: " & angleX/(2*3.14159265359/360) & " degres") 'resultat converti en degres??
