Probe zero tool TM16

Model : Probe zero tool TM16   
                  รุ่น TM16 มีไฟแสดงสถานะเมื่อ Zero
                  สาย ขาว ลบ  ( - )
                  สายแดงปากคีบ  ( + )
               

'VB Code Start

'-------------------

CurrentFeed = GetOemDRO(818)

DoSpinStop()

ZMove = 20 'Total lenght of Probe to move before Stop or no Contact Made. // ระยะที่แกน Z เลื่อนลงมาแตะ Probe แก้ไขได้เช่นกันครับไม่ควรตั้งค่าใว้เยอะ  ประมาณ20-30

ZOffset = 16.00 ' Plate Hight  // ความสูงของตัว Probe 

ZSal = ZOffset + 5.00 '+ Free Hight, Will possition the Proble 2 MM over the Material. //ระยะที่แกน Z ยกขึ้นเมื่อดอกแตะ Probe แก้ไขตามที่ต้องการได้ครับ อาจจะยกสูงหน่อยเพื่อเวลาเอาตัว Probe ออกได้สะดวก เช่น 5 mm 

StopZmove = 0

If GetOemLed (825)=0 Then

DoOEMButton (1010)

Code "G4 P2.5"

Code "G31 Z-"& ZMove & "F50"

While IsMoving()

Sleep(200)

Wend

Probepos = GetVar(2002)

If Probepos = - ZMove Then

responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )

Code "G0 Z10"

StopZmove = 1

Code "F" &CurrentFeed

End If

If StopZmove = 0 Then

Code "G0 Z" & Probepos

While IsMoving ()

Sleep (200)

Wend

Call SetDro (2, ZOffset)

Code "G4 P1"

Code "G0 Z" & ZSal

Code "(Z zeroed)"

Code "F" &CurrentFeed

End If

Else

Code "(Check Ground Probe)"

End If

Exit Sub

'-------------------

'VB Code Stop