Hello Guest it is December 21, 2024, 10:55:35 AM

Author Topic: 0em functions  (Read 3818 times)

0 Members and 1 Guest are viewing this topic.

0em functions
« on: June 18, 2011, 10:03:33 AM »
Hi
I need help wrinting a macro or some other method to use the oem #297 (reverese)
activated by a high or low input on oem#1 pin
how do I go about it.
Clive

Offline Hood

*
  •  25,835 25,835
  • Carnoustie, Scotland
Re: 0em functions
« Reply #1 on: June 18, 2011, 10:33:58 AM »
Are you meaning OEM279    Reverse Run?
What exactly are you trying to do as I think you need to feedhold before you can reverse, then again its something I never use so could be wrong.
Hood
Re: 0em functions
« Reply #2 on: June 18, 2011, 11:15:59 AM »
Hi
Im building a wire edm.
the electronic feedback unit on the machine monitors the burn cycle and requests the drive software to pause and then reverse a short way before continuing on with the job.
This is represented by a single line giving a a high or low logic level to the drive software.
Pause alone is not enough a small amount of backing of is reqd.
Clive

Offline Hood

*
  •  25,835 25,835
  • Carnoustie, Scotland
Re: 0em functions
« Reply #3 on: June 19, 2011, 03:35:18 AM »
I am not sure how easy that would be to achieve. I am no expert at VB so probably best left to others but I would think you would have to use a macropump and have it looking at the input and  the Run LED for its backup and then Input and Single block LED for its restart. Reason you will want it to look at the LEDs is you will only want things acting on the input whilst you are actually running code.

I will have a messs around and see if I can come up with something but as said my VB skills are crap.

Hood

Offline Hood

*
  •  25,835 25,835
  • Carnoustie, Scotland
Re: 0em functions
« Reply #4 on: June 19, 2011, 07:28:59 AM »
This in the macropump seems to work fine if you are looking at Input1 for your signal.
Hood

If GetOemLED(821) And GetOemLED(804) And Not GetOemLED(97) Then
DoOemButton (1001)
While IsMoving()
Wend
DoOemButton(279)
Sleep 50
 End If
If GetOemLED(97) And Not GetOemLED(821) Then
DoOemButton(1001)
While IsMoving()
Wend
DoOemButton(1000)
 End If
« Last Edit: June 19, 2011, 07:31:00 AM by Hood »