'------------------------------------------------------------------------- 
'---------------------------  ATIVIDADE MAKER  --------------------------- 
'------------------------------------------------------------------------- 
'----  atividademaker.com.br  -----  Versao 1.0  -----  04/05/2022   -----
'-------------------------------------------------------------------------
'---------------------------  AUTO TOOL ZERO  ----------------------------
'-------------------------------------------------------------------------
'-------------------------------------------------------------------------
'-------------------------------------------------------------------------
'-------------------  PARAMETROS PARA VOCE CONFIGURAR  -------------------
'-------------------------------------------------------------------------
ABusca 		= -15.00 		'Altura da busca pela base do Probe
VBusca 		= 100			'Velocidade de busca
ABase 		= 19.10 		'Altura da base do Probe
AAcima		= 5.00 			'Altura acima da base do Probe

'-------------------------------------------------------------------------
'------------------------------  NAO MEXER  ------------------------------
'------------------------------------------------------------------------- 
AFinal 		= ABase + AAcima
StopZmove 	= 0

If GetOemLed (825) <> 0 Then 
Code "(O PROBE ja esta conectado!)"

Else
CurrentFeed = GetOemDRO(818) 
DoSpinStop() 
DoOEMButton (1010) 

'init code
Code "G4 P2.0"
Code "(Aguarde! Procurando a base do Probe...)"
Code "G31 Z" &ABusca  & "F" &VBusca
While IsMoving()
Sleep(200)
Wend

PosicaoProbe = GetOEMDRO(802)
If PosicaoProbe = - ABusca Then
responce = MsgBox ("-- ERRO -- Nao foi encontrado a base da sonda")
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If

If StopZmove = 0 Then
Code "G0 Z" &PosicaoProbe
While IsMoving ()
Sleep (200)
Wend
End If

Call SetDro (2, ABase) 
Code "G4 P1"
Code "G0 Z" &AFinal
Code "(Eixo Z Zerado - visite atividademaker.com.br)"
Code "F" &CurrentFeed
End If