591
General Mach Discussion / Re: PDB issue Mach 3 ATC
« on: June 19, 2020, 08:06:31 AM »
Are you running Mach3 or Mach4 because you have files from both here M6Start.mcc is compiled Mach4 Lua and M131.m1s is Visual Basic from Mach3
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
' Emco 8 station turret index
' Version 1.0.2
' (c) G. Waterworth 11/12/2007
Sub Main()
If IsLoading() then
' do nowt
Else
OldTurretPos=(GetOEMDRO(824)) 'current tool position
NextTool=GetSelectedTool() 'tool to be indexed
If OldTurretPos<>NextTool Then
' new tool required
If NextTool<1 Or NextTool>8 Then 'valid tool check
Message("Next Tool out of range")
Exit Sub
End If
ActivateSignal(OUTPUT4) 'rotate Turret
'=== Index Tool ===
Select Case NextTool
Case 1
count=1
Case 2
count=3
Case 3
count=2
Case 4
count=6
Case 5
count=4
Case 6
count=12
Case 7
count=8
Case 8
count=9
End Select
thistool=OldTurretPos
While thistool<>count
sensors=0
While sensors=0
if IsActive(OEMTRIG1) then sensors=sensors+1
if IsActive(OEMTRIG2) then sensors=sensors+2
if IsActive(OEMTRIG3) then sensors=sensors+4
if IsActive(OEMTRIG4) then sensors=sensors+8
Wend
thistool=sensors
Wend
Code"G04 P50"
While Ismoving()
Wend
DeActivateSignal(OUTPUT4) 'stop turret rotation
SetCurrentTool(thistool)
End If
End If
End Sub
'The actual timings are:-
'
'opto 1 2 3 4
'pin 10 11 12 13
'value 1 2 4 8
'Tool 1 on off off off
'Tool 2 on on off off
'Tool 3 off on off off
'Tool 4 off on on off
'Tool 5 off off on off
'Tool 6 off off on on
'Tool 7 off off off on
'Tool 8 on off off on