disabling checkslots in macropump

Author: Haimana

MachStdMill/Set Files/Custom/MSM_ATC.set

@@ -1 +1 @@
-Option Explicit' setuserled(s+210,0) - stingem ledul rosu de eroare' setuserled(s+210,1) - aprindem ledul rosu de eroare' getuserled(s+200) = 0 - slot ocupat' getuserled(s+200) = 1 - slot liber' s + 500 = 0 => slot gri, declarat neocupat' s + 500 = 1 => slot ocupat' s + 300 = 0 => slot verde (dar trebuie detectat in combinatie cu s+500=1)' s + 300 = 1 => slot ocupat si tool in spindleDim s As Integer' daca senzorii sunt activatiIf getuserled(1152) = 1 Then	For s = 1101 To 1110		'daca slotul este activat		If getuserled(s+40) = 0 Then			'daca slotul raporteaza liber in timp ce are scula declarata in el			If getuserled(s+300) = 0 And getuserled(s+500) = 0 And getuserled(s+200) = 1 Then 				setuserled(s+210,1)			'daca slotul raporteaza ocupat in timp ce scula aferenta este incarcata in spindle			ElseIf getuserled(s+300) = 1 And getuserled(s+500) = 0 And getuserled(s+200) = 0 Then 				setuserled(s+210,1)			'daca slotul raporteaza ocupat in timp ce este declarat liber, fara scula alocata			ElseIf getuserled(s+500) = 1 And getuserled(s+200) = 0 Then 				setuserled(s+210,1)			Else				setuserled(s+210,0)			End If		Else			setuserled(s+210,0)		End If	Next s   Else	'daca senzorii sunt dezactivati stingem toate ledurile de eroare	For s = 1101 To 1110		setuserled(s+210,0)	Next sEnd IfExit Sub
+Option Explicit'exit subsettimer(12)' setuserled(s+210,0) - stingem ledul rosu de eroare' setuserled(s+210,1) - aprindem ledul rosu de eroare' getuserled(s+200) = 0 - slot ocupat' getuserled(s+200) = 1 - slot liber' s + 500 = 0 => slot gri, declarat neocupat' s + 500 = 1 => slot ocupat' s + 300 = 0 => slot verde (dar trebuie detectat in combinatie cu s+500=1)' s + 300 = 1 => slot ocupat si tool in spindleDim s As Integer' daca senzorii sunt activatiIf getuserled(1152) = 1 Then	For s = 1101 To 1110		'daca slotul este activat		If getuserled(s+40) = 0 Then			'daca slotul raporteaza liber in timp ce are scula declarata in el			If getuserled(s+300) = 0 And getuserled(s+500) = 0 And getuserled(s+200) = 1 Then 				setuserled(s+210,1)			'daca slotul raporteaza ocupat in timp ce scula aferenta este incarcata in spindle			ElseIf getuserled(s+300) = 1 And getuserled(s+500) = 0 And getuserled(s+200) = 0 Then 				setuserled(s+210,1)			'daca slotul raporteaza ocupat in timp ce este declarat liber, fara scula alocata			ElseIf getuserled(s+500) = 1 And getuserled(s+200) = 0 Then 				setuserled(s+210,1)			Else				setuserled(s+210,0)			End If		Else			setuserled(s+210,0)		End If	Next s   Else	'daca senzorii sunt dezactivati stingem toate ledurile de eroare	For s = 1101 To 1110		setuserled(s+210,0)	Next sEnd Ifmessage "timer12 = " & gettimer(12)Exit Sub

ScreenSetMacros/MachStdMill.set/Custom/Scripts/checkslots.m1s

@@ -1 +1 @@
-Option ExplicitDim s As IntegerFor s = 1101 To 1110	If getuserled(s+30) = 1 Then	'daca slotul este activat			setuserled(s+40,0)	'grey, slot enabled				If getoemdro(s) = getoemdro(824) And getoemdro(s) <> 0 Then 			setuserled(s+300,1)	'orange, tool in spindle			setuserled(s+500,0)	'slot not free		End If				If getoemdro(s) <> getoemdro(824) And getoemdro(s) <> 0 Then 			setuserled(s+300,0)	'green, tool NOT in spindle			setuserled(s+500,0)	'slot not free		End If				If getoemdro(s) = 0 Then 			setuserled(s+300,0)	'grey, tool NOT in slot			setuserled(s+500,1)	'slot free		End If			If InStr(1, GetToolDesc(getoemdro(s)), "NRH") > 0 Then 			setuserled(s+100,1)	'turn off NRH led		Else			setuserled(s+100,0)	'turn on NRH led		End If			'citim inputurile oem si stabilim starea ledurilor in interfata - ocuparea sloturilor din magazie		If Not (IsActive(28+s-1100)) And GetUserLED(1152) <> 0 Then 'And getoemdro(1920) <> getoemdro(1913) 			setuserled(s+200,1)		Else			setuserled(s+200,0)		End If'		If (getuserled(s+200) = 1 And getuserled(s+300) = 0) Or (getuserled(s+200) = 0 And getuserled(s+500) = 0) Then '			setuserled(s+210,0)'		Else'			setuserled(s+210,1)'		End If			Else		setuserled(s+500,1)	'grey, slot disabled		setuserled(s+40,1)	'grey, slot disabled	End If 	'end if daca slotul este activatNext sSetOEMDRO(245,ToolLengthOffset)'checking slot for errors (if sensor report empty when should have tool loaded or when slot report tool in it when should be empty)'#expand <Custom\Scripts\checkslots>Call RunScript("ScreenSetMacros\" & GetActiveScreenSetName() & "\" & "Custom\Scripts\checkslots")Exit Sub		                              
+Option Explicit'SetTimer(11)Dim s As IntegerFor s = 1101 To 1110	If getuserled(s+30) = 1 Then	'daca slotul este activat			setuserled(s+40,0)	'grey, slot enabled				If getoemdro(s) = getoemdro(824) And getoemdro(s) <> 0 Then 			setuserled(s+300,1)	'orange, tool in spindle			setuserled(s+500,0)	'slot not free		End If				If getoemdro(s) <> getoemdro(824) And getoemdro(s) <> 0 Then 			setuserled(s+300,0)	'green, tool NOT in spindle			setuserled(s+500,0)	'slot not free		End If				If getoemdro(s) = 0 Then 			setuserled(s+300,0)	'grey, tool NOT in slot			setuserled(s+500,1)	'slot free		End If			If InStr(1, GetToolDesc(getoemdro(s)), "NRH") > 0 Then 			setuserled(s+100,1)	'turn off NRH led		Else			setuserled(s+100,0)	'turn on NRH led		End If			'citim inputurile oem si stabilim starea ledurilor in interfata - ocuparea sloturilor din magazie		If Not (IsActive(28+s-1100)) And GetUserLED(1152) <> 0 Then 'And getoemdro(1920) <> getoemdro(1913) 			setuserled(s+200,1)		Else			setuserled(s+200,0)		End If'		If (getuserled(s+200) = 1 And getuserled(s+300) = 0) Or (getuserled(s+200) = 0 And getuserled(s+500) = 0) Then '			setuserled(s+210,0)'		Else'			setuserled(s+210,1)'		End If			Else		setuserled(s+500,1)	'grey, slot disabled		setuserled(s+40,1)	'grey, slot disabled	End If 	'end if daca slotul este activatNext sSetOEMDRO(245,ToolLengthOffset)'checking slot for errors (if sensor report empty when should have tool loaded or when slot report tool in it when should be empty)'#expand <Custom\Scripts\checkslots>'Call RunScript("ScreenSetMacros\" & GetActiveScreenSetName() & "\" & "Custom\Scripts\checkslots")'message "timer11 = " & GetTimer(11)Exit Sub