Hello Guest it is July 28, 2021, 07:32:04 AM

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 - jgsturbo

Pages: 1 2 3 »
1
This has been an interesting machine, I'm using Mach3 to tie together 2 Industrial devices.
The First Device is a laser diameter micrometer, the Z-mike 4050g. Its very similar to an optical comparator in it passes light between a transmitter and receiver.
Then it can locate the edges of what is missing (aka your tool), unbelievably repeatable 0.000001 accuracy but one needs a fixture to make it useful for any multiple step measuring.
The other device is a Tymka Vereo 20w 1070nm Fiber laser, now it has its own built in mirror motion, drawing software, etc. but mach will help rotating, fine locating and part handling.
Now for the good part.



Started with one of those little china ball screw desktop routers, Think it saved a bit as far as the gantry, ball screws, etc.
And My customized Mach3 screens

Lots of head banging trying to get usable data out of GetFiFoEntry, the Z-mike send 3-4 different lines in no perfect order and GetFiFoEntry fetches 1 at a time... I finally got a multistep IF...THEN...ELSE to work the buffer until it reads the value. The Z-mike accepts purl commands so I have mach using SendFiFo to Clear, Start and SendDATA automatically.
Function but still a work in progress.  


2
Mach4 General Discussion / Re: Mach missing steps on glass scales?
« on: June 26, 2014, 10:41:06 PM »
I too realized I might be exceeding the samples per min. reading. Increased the kernel speed some and slowed the rapid.

3
Mach4 General Discussion / Mach missing steps on glass scales?
« on: June 24, 2014, 12:26:28 AM »
Seems like if I rapid my machine (<100IPM), MACH miss counts my 1 micrometer glass scale? It's acurite senc 150 , 1UM res. Go slow and the counts make sense.
Any thoughts?

4
VB and the development of wizards / triming text files with cypress / VB ?
« on: December 21, 2013, 06:12:54 PM »
Is it possible to trim textfiles (copy lines X to X) and then run a find/replace script?
I can/have done such work with  Linux Bash commands but I'm wondering if its possible in Cypress ?

5
VB and the development of wizards / Re: LoadRun hangs loading G-code?
« on: December 07, 2013, 11:01:14 AM »
No, runs great in VB script editor.
Re-saved it in the base mach dir and made a script button has -
RunScript ("filename")
Works awesome.

6
VB and the development of wizards / Re: LoadRun hangs loading G-code?
« on: December 07, 2013, 12:20:02 AM »
Is this code too big for an macro? It hangs on the first file load running as an macro.
Code: [Select]
'M2000
value1 = GetuserDRO(1005) 'Tube Dia scale
value2 = GetuserDRO(1000) 'Tube length
value3 = GetuserDRO(1001) 'Rotation
value4 = GetuserDRO(1003) 'Start Cope angle file
value5 = GetuserDRO(1004) 'End Cope file
indeg = (value3*0.00872222)

Code "G92 X0 Y0 Z0"
Sleep (1000)
Code "G50"
Sleep (500)
Code "G51 Y"&value1

If value4 = 90 Then
LoadFile ("Gcode\90.NCF")
ElseIF value4 = 60 Then
LoadFile ("Gcode\60.NCF")
ElseIF value4 = 45 Then
LoadFile ("Gcode\45.NCF")
ElseIF value4 = 30 Then
LoadFile ("Gcode\30.NCF")
ElseIf value4 = 20 Then
LoadFile ("Gcode\20.NCF")
ElseIf value4 = 15 Then
LoadFile ("Gcode\15.NCF")
End If
While IsLoading ()
Sleep (2000)
Wend
Sleep(500)
RunFile ()
Sleep (5000)
While IsMoving()
Sleep (2000)
Wend
If value5 = 90 Then
LoadFile ("Gcode\90.NCF")
ElseIF value5 = 60 Then
LoadFile ("Gcode\60.NCF")
ElseIF value5 = 45 Then
LoadFile ("Gcode\45.NCF")
ElseIF value5 = 30 Then
LoadFile ("Gcode\30.NCF")
ElseIf value5 = 20 Then
LoadFile ("Gcode\20.NCF")
ElseIf value5 = 15 Then
LoadFile ("Gcode\15.NCF")
End If
While IsLoading ()
Sleep (2000)
Wend
Sleep(500)
Code "G0 X"&value2
While IsMoving()
Sleep(500)
Wend
Code "G50"
Sleep (500)
Code "G51 X-1.0"
Sleep (500)
Code "G0 Y"&indeg
Sleep (500)
While IsMoving()
Sleep(500)
Wend
Code "G51 Y"&value1
Sleep (500)
RunFile ()
But it runs just fine under the VB script editor  ???
Need to run it when the user pushes a button.

7
Thank you  BR549! I did figure out how to read values into names... I think.
Code: [Select]
code "M98 ("&value1".NCF")"?

8
VB and the development of wizards / LoadRun hangs loading G-code?
« on: December 05, 2013, 01:20:52 AM »
(Inside of a macro)...
Code: [Select]
value1 = GetuserDRO(1005) 'Tube Dia scale
value2 = GetuserDRO(1000) 'Tube length
value3 = GetuserDRO(1001) 'Tube length
value4 = GetuserDRO(1003) 'Start Cope angle file
value5 = GetuserDRO(1004) 'End Cope file

Code "G51 Y"&value1

If value4 = 90 Then
LoadRun ("D:\Mach3\Gcode\90.NCF")
ElseIF value4 = 60 Then
Print 60
ElseIF value4 = 45 Then
Print 45
ElseIF value4 = 30 Then
Print 30
ElseIf value4 = 20 Then
Print 20
ElseIf value4 = 15 Then
Print 15
End If
Not sure WHY? I can run the program no problem. I've tried loading the file, that works. But DoOEMButton(0) didn't work.
RunFile didn't work.

9
Can I read a userDRO into a filename as a variable?

10
I guess I'll need to string them together?

Pages: 1 2 3 »