donc ca marche impec
paér contre je vais ajouter une dro au jeu d ecran pour voir ou j en suis
et je vais mettre une dro quicompte le nombre de cycle et tout les 50 ou 100 bouteille je reference les axes
et je vais rajouter une verification de la led de referencement apres chaque axes parce que des fois il saute un axe
setoemdro(2000,0)
code"g01X-2.96 Y-5.44 Z2.01 A4.01 B-1.84 C0 F500"
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Vérifier si l'interrupteur ORIGINE est sur ON, cliquez sur ok quand fait" ' Define message.
Style = 0 ' Define buttons.
Title = "ATTENTION" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
While ismoving()
sleep(100)
Wend
dooembutton(1022)
While ismoving()
sleep(100)
Wend
sleep(1000)
if getoemled(807)=true then
Msg = "Probleme referencement axe X, faire referencement manuellement" ' Define message.
Style = 16 ' Define buttons.
Title = "PROBLEME" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
exit sub
Else ' User chose No.
MyString = "No" ' Perform some action.
exit sub
End If
end if
While ismoving()
sleep(100)
Wend
code"g01X-2.96"
While ismoving()
sleep(100)
wend
if getoemled(807)=true then
Msg = "Probleme referencement axe X, faire referencement manuellement" ' Define message.
Style = 16 ' Define buttons.
Title = "PROBLEME" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
exit sub
Else ' User chose No.
MyString = "No" ' Perform some action.
exit sub
End If
end if
While ismoving()
sleep(100)
Wend
dooembutton(1023)
While ismoving()
sleep(100)
Wend
sleep(1000)
if getoemled(808)=true then
Msg = "Probleme referencement axe Y, faire referencement manuellement" ' Define message.
Style = 16 ' Define buttons.
Title = "PROBLEME" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
exit sub
Else ' User chose No.
MyString = "No" ' Perform some action.
exit sub
End If
end if
While ismoving()
sleep(100)
Wend
dooembutton(1024)
While ismoving()
sleep(100)
Wend
sleep(1000)
if getoemled(809)=true then
Msg = "Probleme referencement axe Z, faire referencement manuellement" ' Define message.
Style = 16 ' Define buttons.
Title = "PROBLEME" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
exit sub
Else ' User chose No.
MyString = "No" ' Perform some action.
exit sub
End If
end if
While ismoving()
sleep(100)
Wend
dooembutton(1025)
While ismoving()
sleep(100)
Wend
sleep(1000)
if getoemled(810)=true then
Msg = "Probleme referencement axe A, faire referencement manuellement" ' Define message.
Style = 16 ' Define buttons.
Title = "PROBLEME" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
exit sub
Else ' User chose No.
MyString = "No" ' Perform some action.
exit sub
End If
end if
While ismoving()
sleep(100)
Wend
dooembutton(1026)
While ismoving()
sleep(100)
Wend
sleep(1000)
if getoemled(811)=true then
Msg = "Probleme referencement axe B, faire referencement manuellement" ' Define message.
Style = 16 ' Define buttons.
Title = "PROBLEME" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
exit sub
Else ' User chose No.
MyString = "No" ' Perform some action.
exit sub
End If
end if
While ismoving()
sleep(100)
Wend
code"g01X-2.96 Y-5.44 Z2.01 A4.01 B-1.84 C0 F500"
While ismoving()
sleep(100)
Wend
sleep(3000)
code"XXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
while ismoving()
sleep(100)
wend
dooembutton(1021)
while ismoving()
sleep(100)
wend
dooembutton(1002)
exit sub