Messages

1361

VB and the development of wizards / Re: Export coordinates with machining time in .txt file

« on: April 18, 2019, 06:14:37 AM »

Sorry missed your answer

for a simple timestamp

replace
 Write #1, oldX , oldY, oldZ

by

 Write #1, Time(),oldX , oldY, oldZ

1362

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

« on: April 17, 2019, 01:36:07 AM »

strange.

i have tested the code here on a
Version R3.043.066 and
Version R3.043.022

both with a CSMIO -IP S
and no Problem.

try to copy line by line to the VB scripter window

1363

General Mach Discussion / Re: Parallel Port to Ethernet?

« on: April 16, 2019, 01:49:01 PM »

"UC400ETH ETHERNET Motion Controller"

good choice

1364

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

« on: April 16, 2019, 01:46:51 PM »

ok, not good,
give me pls some more Information about your complete System.

Thomas

1365

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

« on: April 16, 2019, 09:53:43 AM »

you can copy all your code to

Operator -> VB Scripter Window

and use the >|| button to step through to see what is going on

1366

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

« on: April 16, 2019, 09:50:34 AM »

add

msgbox ("M6 Start executed")

at the begin of the macro to see that the macro is called

like this ?

msgbox ("M6 Start executed")
OldTool = GetOEMDRO (1200)
Tool = GetSelectedTool()
MaxToolNum = 4      'Max number of tools for the changer

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

While Tool > MaxToolNum
Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend

Call StartTool

While NewTool <> Tool
   Call CheckPins
   While IsMoving()
   Wend
Wend

Call StopTool

Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)

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

Sub StartTool
   ActivateSignal(Output8)
   'Code "G4 P4.0"    'Wait for the tool to rotate past the sensor
      While IsMoving()
      Wend
End Sub

Sub CheckPins
   If Not IsActive(Input22) Then
      NewTool = 1
      End If
   If Not IsActive(Input21) Then
      NewTool = 2
      End If
   If Not IsActive(Input20) Then
      NewTool = 3
      End If
   If Not IsActive(Input19) Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
      While IsMoving()
      Wend
   ActivateSignal(Output9) 
      Code "G4 P1.0"    'Wait for the tool to rotate onto ratchet stop
      While IsMoving()
      Wend
   DeActivateSignal(Output9)
      While IsMoving()
      Wend
End Sub 

yes

1367

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

« on: April 16, 2019, 09:25:56 AM »

do you have enabled in

Config -> General Config -> Tool Change -> Auto Tool Change

1368

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

« on: April 16, 2019, 09:22:45 AM »

add

msgbox ("M6 Start executed")

at the begin of the macro to see that the macro is called

1369

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

« on: April 16, 2019, 09:07:33 AM »

how do you initiate toolchange

in lathe mode it is

M6 T0101 for example

1370

VB and the development of wizards / Re: Export coordinates with machining time in .txt file

« on: April 15, 2019, 03:40:51 AM »

then replace:
Open "c:\TESTFILE.txt" For Output As #1 ' Open to write file

by:
Open "c:\TESTFILE.txt" For Append As #1 ' Open to write file