cnc-club.ru

'INPUT1 - реверсный датчик
'INPUT2 - номерной датчик инструмента
'INPUT3 - нулевой датчик инструмента


dim k,t,instr
instr = 3 ' Количество инструментов для смены

if instr > 1 then ' Если задано правильное (положительное) значение инструмента то делаем цикл
if instr < 15 then
ActivateSignal(OutPut19) 'Включение нормального вращения
sleep(700) ' ожидание для того чтобы он не считал свой первый датчик

k=0
' цикл вращения пока переменная k не достигнет нужного количества инструмента
Do Until k = instr
if isActive(INPUT2) = TRUE then ' если датчик номера инструмента сработал то
k=k+1 ' изменяем значение переменной
'msgbox(k)
sleep(700) ' пауза, для того чтобы машина успела выключить датчик, т.е. чтобы за 1 милисекунду он не посчитал все значения сразу
end if
Loop

sleep(300) ' ожидание срабатывания трещетки возврата

deActivateSignal(OutPut19) ' выключить вращение

sleep(100) ' пауза для приличия, можно удалять. Теоретически

ActivateSignal(Output20) ' включение реверса
ActivateSignal(OutPut19) ' включение вращения

k = 0
' цикл вращения до момента срабатывания датчика реверса
Do Until k = 1
if isActive(INPUT1) = TRUE then ' Если сработал датчик реверса, т.е. машина достигла упора, то
deActivateSignal(OutPut19) ' выключение вращения
deActivateSignal(Output20) ' выключение реверса
Exit Do 'ВНИМАНИЕ!!! Потенциально опасно, выход из цикла. Других выходов не предусмотренно, если датчик не сработает будет зависание, т.е. бесконечный цикл
End If
Loop
' Страховочное отключени
deActivateSignal(OutPut19)
deActivateSignal(Output20)
end if
end if