Messages

701

General Mach Discussion / Re: Mach3turn Stop button?

« on: December 07, 2020, 03:34:13 PM »

ypo have to customize your stop button from a "normal" buttonpress to a custom macro, where you do the stopbutton and seperate DeActivate(output4).

702

CS-Lab / Re: [CSMIO-IP/S + MACH3] using an analogue output to control an external device

« on: December 07, 2020, 03:28:56 PM »

hello Eric,

Config -> Ports&Pins -> Motor Outputs -> enable B-axis

Pins will not matter because this is handled by the plugin.

Regards Tom

703

CS-Lab / Re: [CSMIO-IP/S + MACH3] using an analogue output to control an external device

« on: December 07, 2020, 09:59:39 AM »

hello Eric,
in the XML you sent B-Axis is not enabled?
if enabled do not forget the Motor Tuning

i would set 10 steps/per 10000 velocity and 10000 accel, to make sure
b-axis will not slow down the other axis.

704

CS-Lab / Re: [CSMIO-IP/S + MACH3] using an analogue output to control an external device

« on: December 06, 2020, 02:30:47 PM »

hello Eric,

tested your code here, and it is running without stopping movement.

can you pls post your prifile XML, than i will have a look.

Regards Tom.

705

General Mach Discussion / Re: Macro pauses my program

« on: December 05, 2020, 04:08:52 AM »

code for macropump:

Code: [Select]


'------------------------------------------------------------------------------------------------------------
Private Declare Function GetTickCount Lib "kernel32" () As Long
'------------------------------------------------------------------------------------------------------------

Const LastMsDRO = 1300 'DRO for data
Const StateDro = 1301 'DRO for data
Dim CurrentMs As Long
Dim LastMs As Long
Dim State As Long
'------------------------------------------------------------------------------------------------------------

Const BlowTime = 1000  'Blowing Time
Const PauseTime = 5000  'Pausing Time

Sub Main


'Read data
'-------------------------------------------------------
CurrentMs = GetTickCount()
LastMs = GetUserDRO(LastMsDRO)
State = GetUserDRO(StateDRO)

If(CurrentMs < LastMs) Then
LastMs = CurrentMs
End If

If ((State < 0) Or (State > 2)) Then
State = 0
End If

'check OEMLED to activate
If ((GetUserLed(1300) = 1) And (State = 0)) Then
ActivateSignal(OUTPUT2)
LastMs = CurrentMs
State = 1
End If

If ((CurrentMs > (LastMs + BlowTime)) And (State = 1)) Then
DeactivateSignal(OUTPUT2)
LastMs = CurrentMs
State = 2
End If

If ((CurrentMs > (LastMs + PauseTime)) And (State = 2)) Then
State = 0
End If

'save Data
'-------------------------------------------------------
SetUserDRO(LastMsDRO, LastMs)
SetUserDRO(StateDRO, State)


End Sub

code to activate:

Code: [Select]

  SetUserLed(1300,1)

code to deactivate:

Code: [Select]

  SetUserLed(1300,0)


706

CS-Lab / Re: [CSMIO-IP/S + MACH3] using an analogue output to control an external device

« on: December 03, 2020, 08:18:20 AM »

is the b axis enabled and assigned in CSLAB plugin?

707

CS-Lab / Re: [CSMIO-IP/S + MACH3] using an analogue output to control an external device

« on: December 03, 2020, 07:47:01 AM »

a

G1 X100 Y100 B100 F50
G1 X0 Y0 B0

should not stop Motion

metric if in imperial use suitable values

708

General Mach Discussion / Re: Looking for good DIY controller kit supplier

« on: December 03, 2020, 04:14:46 AM »

Wow :O Are those switches made from outback gold nuggets?

Parker Schnabel and his Team is coming over to mine the Gold for the contact's. .)

709

General Mach Discussion / Re: Macro pauses my program

« on: December 03, 2020, 02:09:35 AM »

sorry there was a small mistake in the code.

Code: [Select]


'------------------------------------------------------------------------------------------------------------
Private Declare Function GetTickCount Lib "kernel32" () As Long
'------------------------------------------------------------------------------------------------------------

Const LastMsDRO = 1300 'DRO for data
Dim CurrentMs As Long
Dim LastMs As Long
'------------------------------------------------------------------------------------------------------------

Const BlowTime = 1000  'Blowing Time


Sub Main

'Read data
'-------------------------------------------------------
CurrentMs = GetTickCount()
LastMs = GetUserDRO(LastMsDRO)

If(CurrentMs < LastMs) Then
LastMs = CurrentMs
End If

'check OEMLED to activate
If GetUserLed(1300) = 1 Then
SetUserLed(1300,0)
ActivateSignal(OUTPUT2)
LastMs = CurrentMs
End If

If(CurrentMs > (LastMs + BlowTime)) Then
DeactivateSignal(OUTPUT2)
End If

'save Data
'-------------------------------------------------------
SetUserDRO(LastMsDRO, LastMs)

End Sub




710

CS-Lab / Re: [CSMIO-IP/S + MACH3] using an analogue output to control an external device

« on: December 02, 2020, 02:04:10 PM »

with

Code: [Select]

SetModOutput(81,GetOemDro(804)*4.095)

the value is scaled to 0-100 not to 0-1000

for 0-1000 use

Code: [Select]

SetModOutput(81,GetOemDro(804)*0.4095)

to set b axis to Zero use

Code: [Select]

SetOemDro(804,0)