alors je comprend pas ca ne marche pas si je test dooembutton(1021) seul ca marche mais dans la macro non
If isactive(input4) Then
activatesignal(output2)
sleep(200)
deactivatesignal(output2)
While Not isactive(input3)
Wend
While isactive(input3)
Wend
Exit Sub
End If
code"g01X-10.24 Y-7.42 Z-3.14 A20.46 B-9.49 C0 F1000"
code"g01x0y0z0a0b0"
Dim Msg, Style, Title, Response, MyString
Msg = "pas de bouteille présente dans l'étiqueteuse,vérifier et appuyer sur depart" ' Define message.
'Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Style = 0 ' Define buttons.
Title = "PROBLEME" ' Define title.
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "ok" ' Perform some action.
doOEMbutton (1021)
sleep(2000)
dooembutton(1002)
exit sub
End If
Exit Sub
mais je sens que j ai une coquille qq part
en gros si l entrée 4 est active
j envoi une impulsion de la sortie 2 pour envoyer une etiquette
j attend la lecture de l entrée 3 0->1->0 pour sortie de la macro
sinon
position de secu 1 puis 2
un stop du programme
un rewind
un arret d urgence
un message expliquant le probleme
on clique sur ok, on sort de la macro pret a recommencer le programme quand on aura appuyer sur depart
edit: si je retraduit ce que j ai ecrit, car celui la avait ete fait avec un exemple retravaillé
If isactive(input4) Then 'si il y a une bouteille presente dans l etiqueteuse
activatesignal(output2) 'impulsion etiqueteuse
sleep(200)
deactivatesignal(output2)
While Not isactive(input3)
Wend
While isactive(input3)
Wend 'tant que le capteur d etiquette a pas fait 0->1
Exit Sub
else 'sinon
code"g01X-10.24 Y-7.42 Z-3.14 A20.46 B-9.49 C0 F1000" 'mvmt secu 1
code"g01x0y0z0a0b0" 'mvmt secu 2
sleep(200)
dooembutton(1002) 'rembobinage gcode
sleep(200)
While (isestop() = 0) 'tant que pas d'Estop
doOEMbutton (1021)
sleep(50)
Wend
sleep(200)
Dim Msg, Style, Title, Response, MyString
Msg = "pas de bouteille présente dans l'étiqueteuse,vérifier et appuyer sur depart" ' Define message.
'Style = vbok
Style = 0 ' Define buttons.
Title = "PROBLEME" ' Define title.
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbok Then ' User chose ok.
MyString = "ok" ' Perform some action.
exit sub
end if
right?