Show Posts

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.

Messages - TPS

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 »

631

General Mach Discussion / Re: Remote Input to Start and output when complete

« on: April 29, 2019, 02:16:44 PM »

code to turn a Output ON

Code: [Select]

Sub Main()
 ActivateSignal(Output1)
End Sub

code to turn a Output OFF

Code: [Select]

Sub Main()
 DeactivateSignal(Output1)
End Sub

feel free to read any manual

632

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 26, 2019, 06:16:41 AM »

this would bo the complete code, with refernce check and X/Z move.

Code: [Select]

Public NewTool As Integer

Sub Main
	'//Declarations
	Dim StartTime, ActTime As Single
	MaxToolNum = 4      'Max number of tools for the changer

	OldTool = GetCurrentTool()
	Tool = GetSelectedTool()

	If OldTool = Tool Then
		Message ("Selected Tool already loaded")
		Exit Sub
	End If

	If Tool > MaxToolNum Then
		Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
	End If

	'X-Axis not in reference
	If GetOEMLED(807) Then
		DoButton(3)
		Sleep(500)
		Message ("X-Axis not referenced -> Abort !!")
		Exit Sub 
	End If

	'Z-Axis not in reference
	If GetOEMLED(809) Then
		DoButton(3)
		Sleep(500)
		Message ("Z-Axis not referenced -> Abort !!")
		Exit Sub 
	End If

	Message "ATC X-Axis to TC position"
	Code "G90 G53 G0 X2"
	While IsMoving()
		Sleep(15)
	Wend

	Message "ATC Z-Axis to TC position"
	Code "G90 G53 G0 Z2"
	While IsMoving()
		Sleep(15)
	Wend


doagain:

	Call StartTool

	While NewTool <> Tool
		Call CheckPins
	Wend

	Call StopTool

	're check
	Call CheckPins
	If NewTool <> Tool Then
		GoTo doagain
	End If

	SetCurrentTool(NewTool)
End Sub 


'//// Subroutines /////////

Sub StartTool
   ActivateSignal(Output8) 
End Sub

Sub CheckPins 
   If GetCsmioIn(91,6) = True Then
      NewTool = 1
      End If
   If GetCsmioIn(91,5) = True Then
      NewTool = 2
      End If
   If GetCsmioIn(91,4) = True Then
      NewTool = 3
      End If
   If GetCsmioIn(91,3) = True Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
   ActivateSignal(Output9)
   'wait for input 23 or timeout
	StartTime = Timer

   
   While GetCsmioIn(91,7) = False
	Sleep(20)
	ActTime = Timer
	If ActTime > StartTime + 3 Then
		DeActivateSignal(Output9)
		MsgBox "Timeout Input23!!"
		DoButton(3)
		Sleep(300)
		Exit Sub
	End If
   Wend	
   DeActivateSignal(Output9)
End Sub  

'CSMIO Eingang lesen
Function GetCsmioIn (ByVal adr As Integer, ByVal n As Integer) As Boolean
	If(GetInBit(adr, n)) Then
		GetCsmioIn = true
	Else
		GetCsmioIn = false
	End If
End Function

IMPORTANT:

it will move first X than Z axis!

the values of this two code lines:

Code "G90 G53 G0 X2"

Code "G90 G53 G0 Z2"

are in machine coord's and maybe Need to be adjusted.

633

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 26, 2019, 05:06:16 AM »

Code: [Select]

Public NewTool As Integer

Sub Main
	'//Declarations
	Dim StartTime, ActTime As Single
	MaxToolNum = 4      'Max number of tools for the changer

	OldTool = GetCurrentTool()
	Tool = GetSelectedTool()

	If OldTool = Tool Then
		Message ("Selected Tool already loaded")
		Exit Sub
	End If

	If Tool > MaxToolNum Then
		Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
	End If

doagain:

	Call StartTool

	While NewTool <> Tool
		Call CheckPins
	Wend

	Call StopTool

	're check
	Call CheckPins
	If NewTool <> Tool Then
		GoTo doagain
	End If

	SetCurrentTool(NewTool)
End Sub 


'//// Subroutines /////////

Sub StartTool
   ActivateSignal(Output8) 
End Sub

Sub CheckPins 
   If GetCsmioIn(91,6) = True Then
      NewTool = 1
      End If
   If GetCsmioIn(91,5) = True Then
      NewTool = 2
      End If
   If GetCsmioIn(91,4) = True Then
      NewTool = 3
      End If
   If GetCsmioIn(91,3) = True Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
   ActivateSignal(Output9)
   'wait for input 23 or timeout
	StartTime = Timer

   
   While GetCsmioIn(91,7) = False
	Sleep(20)
	ActTime = Timer
	If ActTime > StartTime + 3 Then
		DeActivateSignal(Output9)
		MsgBox "Timeout Input23!!"
		DoButton(3)
		Sleep(300)
		Exit Sub
	End If
   Wend	
   DeActivateSignal(Output9)
End Sub  

'CSMIO Eingang lesen
Function GetCsmioIn (ByVal adr As Integer, ByVal n As Integer) As Boolean
	If(GetInBit(adr, n)) Then
		GetCsmioIn = true
	Else
		GetCsmioIn = false
	End If
End Function

634

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 26, 2019, 04:37:33 AM »

ok mistake found.

Code: [Select]

Public NewTool As Integer

Sub Main
	'//Declarations
	Dim StartTime, ActTime As Single
	MaxToolNum = 4      'Max number of tools for the changer

	OldTool = GetCurrentTool()
	Tool = GetSelectedTool()

	If OldTool = Tool Then
		Message ("Selected Tool already loaded")
		Exit Sub
	End If

	If Tool > MaxToolNum Then
		Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
	End If

doagain:

	Call StartTool

	While NewTool <> Tool
		Call CheckPins
	Wend

	Call StopTool

	're check
	Call CheckPins
	If NewTool <> Tool Then
		GoTo doagain
	End If

	SetCurrentTool(NewTool)
End Sub 


'//// Subroutines /////////

Sub StartTool
   ActivateSignal(Output8) 
End Sub

Sub CheckPins 
   If GetCsmioIn(91,6) = True Then
      NewTool = 1
      End If
   If GetCsmioIn(91,5) = True Then
      NewTool = 2
      End If
   If GetCsmioIn(91,4) = True Then
      NewTool = 3
      End If
   If GetCsmioIn(91,3) = True Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
   ActivateSignal(Output9)
   'wait for input 23 or timeout
	StartTime = Timer

   
   While GetCsmioIn(91,7) = False
	Sleep(20)
	ActTime = Timer
	If ActTime > StartTime + 3 Then
		MsgBox "Timeout Input23!!"
		DeActivateSignal(Output9)
		DoButton(3)
		Sleep(300)
		Exit Sub
	End If
   Wend	
   DeActivateSignal(Output9)
End Sub  

'CSMIO Eingang lesen
Function GetCsmioIn (ByVal adr As Integer, ByVal n As Integer) As Boolean
	If(GetInBit(adr, n)) Then
		GetCsmioIn = true
	Else
		GetCsmioIn = false
	End If
End Function

635

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 26, 2019, 04:31:55 AM »

you mean the last code with the timeout included?
do you get any message in the statusline?

very hard to test here without the real Hardware.

636

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 26, 2019, 02:24:38 AM »

ok sorry for the delay.
here the code with a 3 second timeout for input23

Code: [Select]

Sub Main
	'//Declarations
	Dim StartTime, ActTime As Single
	MaxToolNum = 4      'Max number of tools for the changer

	OldTool = GetCurrentTool()
	Tool = GetSelectedTool()

	If OldTool = Tool Then
		Message ("Selected Tool already loaded")
		Exit Sub
	End If

	If Tool > MaxToolNum Then
		Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
	End If

doagain:

	Call StartTool

	While NewTool <> Tool
		Call CheckPins
	Wend

	Call StopTool

	're check
	Call CheckPins
	If NewTool <> Tool Then
		goto doagain
	End If

	SetCurrentTool(NewTool)
End Sub 


'//// Subroutines /////////

Sub StartTool
   ActivateSignal(Output8) 
End Sub

Sub CheckPins 
   If GetCsmioIn(91,6) = True Then
      NewTool = 1
      End If
   If GetCsmioIn(91,5) = True Then
      NewTool = 2
      End If
   If GetCsmioIn(91,4) = True Then
      NewTool = 3
      End If
   If GetCsmioIn(91,3) = True Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
   ActivateSignal(Output9)
   'wait for input 23   or timeout
	StartTime = Timer

   
   While GetCsmioIn(91,7) = False
	Sleep(20)
	ActTime = Timer
	If ActTime > StartTime + 3 Then
		MsgBox "Timeout Input23!!"
		DoButton(3)
		Sleep(300)
		Exit Sub
	End If
   Wend	
   DeActivateSignal(Output9)
End Sub  

'CSMIO Eingang lesen
Function GetCsmioIn (ByVal adr As Integer, ByVal n As Integer) As Boolean
	If(GetInBit(adr, n)) Then
		GetCsmioIn = true
	Else
		GetCsmioIn = false
	End If
End Function

IMHO i think for a save TC on a lathe some more things are necessary.

1. homing Limit Switches
machine should have homing Limits to have the possibillity to drive TC to a defined Position
(in machine coords) to be save for rotate the TC

here some code witch check' that X and Y axis are referenced

Code: [Select]

		'X-Axis not in reference
		If GetOEMLED(807) Then
			DoButton(3)
			Sleep(500)
			Message ("X-Axis not referenced -> Abort !!")
			Exit Sub 
		End If

		'Z-Axis not in reference
		If GetOEMLED(809) Then
			DoButton(3)
			Sleep(500)
			Message ("Z-Axis not referenced -> Abort !!")
			Exit Sub 
		End If

2. drive Z and X axis to a defined Position (in machine coords)

here some code:

Code: [Select]

		Message "ATC X-Axis to TC position"
		Code "G90 G53 G0 X2"
		While IsMoving()
			Sleep(15)
		Wend

		Message "ATC Z-Axis to TC position"
		Code "G90 G53 G0 Z2"
		While IsMoving()
			Sleep(15)
		Wend

637

Mach Screens / Re: chinese cnc probing macros?

« on: April 25, 2019, 07:06:16 AM »

Quote from: ger21 on April 25, 2019, 06:45:51 AM

GetVAR() is not a "legacy" function. It's the proper and only accurate way to read the trip point. And the majority of chinese controllers do not support it's use.

thats what i tryed to say.

638

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 25, 2019, 06:13:30 AM »

sorry

While GetCsmioIn(91,7) = True

Needs to be

While GetCsmioIn(91,7) = False

639

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 25, 2019, 06:08:47 AM »

here a new Version.
-all debug code deleted (faster Operation)
-Input 23 now used to stop reverse run
-after finish re check and retry

Code: [Select]

OldTool = GetCurrentTool()
Tool = GetSelectedTool()
MaxToolNum = 4      'Max number of tools for the changer

If OldTool = Tool Then
	Message ("Selected Tool already loaded")
	Exit Sub
End If

If Tool > MaxToolNum Then
	Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
End If

doagain:

Call StartTool

While NewTool <> Tool
   Call CheckPins
Wend

Call StopTool

're check
Call CheckPins
If NewTool <> Tool Then
	goto doagain
End If

SetCurrentTool(NewTool)

'//// Subroutines /////////

Sub StartTool
   ActivateSignal(Output8) 
End Sub

Sub CheckPins 
   If GetCsmioIn(91,6) = True Then
      NewTool = 1
      End If
   If GetCsmioIn(91,5) = True Then
      NewTool = 2
      End If
   If GetCsmioIn(91,4) = True Then
      NewTool = 3
      End If
   If GetCsmioIn(91,3) = True Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
   ActivateSignal(Output9)
   'wait for input 23    
   While GetCsmioIn(91,7) = True
	Sleep(20)
   Wend	
   DeActivateSignal(Output9)
End Sub  

'CSMIO Eingang lesen
Function GetCsmioIn (ByVal adr As Integer, ByVal n As Integer) As Boolean
	If(GetInBit(adr, n)) Then
		GetCsmioIn = true
	Else
		GetCsmioIn = false
	End If
End Function

640

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 25, 2019, 04:37:23 AM »

here the document, how I/O's are handled:

https://en.cs-lab.eu/wp-content/uploads/2016/06/csmio-ip-a-artykul.pdf