Messages

1

VB and the development of wizards / Re: Help to finish a button

« on: February 18, 2021, 09:30:39 AM »

Code: [Select]

'*** turn soflimit's off if they are on

Dim SoftLimitswhereon As Boolean

If GetOEMLed(23) Then
   DoOEMButton(119)
   SoftLimitswhereon = True
End If

If GetOEMLed(832) then
    Code "G91 G1 Z-10 F100"
    Code "G90"
    While IsMoving()
    Wend
End If

Dobutton( 24 ) ' ZeroZ

While IsMoving()
Wend

Sleep 500

ZDRO = 85 'variavel dro maquina
ZWDRO = 2 'variavel dro trabalho

Z = GetOEMDRO( ZDRO ) 'passa o valor do dro maquina
Call SetDro (ZWDRO, Z) 'passa o valor do dro maquina

Sleep 500

'clear x-axis Limit Switch if needed
If GetOEMLed(830) then
    Code "G91 G1 X10 F100"
    Code "G90"
    While IsMoving()
    Wend
End If

Dobutton( 22 ) ' Zerox

While IsMoving()
Wend

Sleep 500

XDRO = 83 'variavel dro maquina
XWDRO = 0 'variavel dro trabalho

X = GetOEMDRO( XDRO ) 'passa o valor do dro maquina
Call SetDro (XWDRO, X) 'passa o valor do dro maquina

Sleep 500

'clear y-axis Limit Switch if needed
If GetOEMLed(831) then
    Code "G91 G1 Y10 F100"
    Code "G90"
    While IsMoving()
    Wend
End If

Dobutton( 23 ) ' ZeroY

While IsMoving()
Wend

Sleep 500

YDRO = 84 'variavel dro maquina
YWDRO = 1 'variavel dro trabalho

Y = GetOEMDRO( YDRO ) 'passa o valor do dro maquina
Call SetDro (YWDRO, Y) 'passa o valor do dro maquina


Sleep 500

Code "G28"

While IsMoving()
Wend

Sleep 500

'*** turn soflimit's back on if they where on

If ((Not GetOEMLed(23)) And (SoftLimitswhereon = True)) Then
   DoOEMButton(119)
   Sleep(500)
End If

Code   "( ZERO DONE )" 
I forgot that one and i could`t test it yet, the factory still closed.
Now i think it is done

Thanks

2

VB and the development of wizards / Re: Help to finish a button

« on: February 17, 2021, 06:08:55 PM »

Hi there

Thanks for all the help this is my final code.
Is it safe to use or something unexpected will appear?

Code: [Select]

'*** turn soflimit's off if they are on

Dim SoftLimitswhereon As Boolean

If GetOEMLed(23) Then
   DoOEMButton(119)
   SoftLimitswhereon = True
End If

If GetOEMLed(832) then
    Code "G91 G1 Z-10 F100"
    Code "G90"
    While IsMoving()
    Wend
End If

Dobutton( 24 ) ' ZeroZ

While IsMoving()
Wend

Sleep 500

ZDRO = 85 'variavel dro maquina
ZWDRO = 2 'variavel dro trabalho

Z = GetOEMDRO( ZDRO ) 'passa o valor do dro maquina
Call SetDro (ZWDRO, Z) 'passa o valor do dro maquina

Sleep 500

'clear x-axis Limit Switch if needed
If GetOEMLed(830) then
    Code "G91 G1 X10 F100"
    Code "G90"
    While IsMoving()
    Wend

Dobutton( 22 ) ' Zerox

While IsMoving()
Wend

Sleep 500

XDRO = 83 'variavel dro maquina
XWDRO = 0 'variavel dro trabalho

X = GetOEMDRO( XDRO ) 'passa o valor do dro maquina
Call SetDro (XWDRO, X) 'passa o valor do dro maquina

Sleep 500

'clear y-axis Limit Switch if needed
If GetOEMLed(831) then
    Code "G91 G1 Y10 F100"
    Code "G90"
    While IsMoving()
    Wend
End If

Dobutton( 23 ) ' ZeroY

While IsMoving()
Wend

Sleep 500

YDRO = 84 'variavel dro maquina
YWDRO = 1 'variavel dro trabalho

Y = GetOEMDRO( YDRO ) 'passa o valor do dro maquina
Call SetDro (YWDRO, Y) 'passa o valor do dro maquina


Sleep 500

Code "G28"

While IsMoving()
Wend

Sleep 500

'*** turn soflimit's back on if they where on

If ((Not GetOEMLed(23)) And (SoftLimitswhereon = True)) Then
   DoOEMButton(119)
   Sleep(500)
End If

Code   "( ZERO DONE )" 

Thanks once again cause this will make my job a bit easier.

Alex

3

VB and the development of wizards / Re: Help to finish a button

« on: February 02, 2021, 08:32:34 PM »

Hi there

Do you mean like this:

Code: [Select]

If GetOEMLed(830) then
    Code "G91 G1 X10 F100"
    Code "G90"
    While IsMoving()
    Wend
  End If
Dobutton( 22 ) ' Zerox

While IsMoving()
Wend

Sleep 500

XDRO = 83 'var dro machine
XWDRO = 0 'var dro work
X = GetOEMDRO( XDRO )
Call SetDro (XWDRO, X)
 
In this case it will check this condition before making zero but i get the error when it makes the last move to go away from switch. Is that ok?

About the limit switch it looks great and much cooler then mine.
I don´t get  "Dim SoftLimitswhereon As Boolean". Can you explain what Dim does? I understand the var SoftLimitswhereon stores the value but what Dim do?
Can´t wait to test this as soon as this confinement is over.

Thanks

4

VB and the development of wizards / Re: Help to finish a button

« on: February 01, 2021, 07:47:58 PM »

Hi there

thanks for help

ZASto i should told more about my settings.
I have offsets in all axis (X2.00, Y-318.00, Z2.00)
My softlimits are:
Xmax -1.00---- Xmin -3500
Ymax 315.00--- Ymin -315.00
Zmax -1.00---- Zmin-350

This way i lose 2mm in all axis but i guarantee that i work always a bit far from switches.
I have independent induction switch in all axis if that matters (1 pin for each) and board used is AXBB_E from CNCdrive.

TPS
 

Code: [Select]

  'check x-axis home Switch
  If GetOEMLed(830) then
    Code "G91 G1 X10 F100"
    Code "G90"
    While IsMoving()
    Wend
  End If
On this code it checks if led is ON, and if it is it will move 10mm far from switch is it correct?
Where is the best spot on the script to check this condition. Should be the last thing like this?

Code: [Select]


Dobutton( 22 ) ' Zerox

While IsMoving()
Wend

Sleep 500

XDRO = 83 'var dro machine
XWDRO = 0 'var dro work
X = GetOEMDRO( XDRO )
Call SetDro (XWDRO, X)
 If GetOEMLed(830) then
    Code "G91 G1 X10 F100"
    Code "G90"
    While IsMoving()
    Wend
  End If

With softlimits example it checks if led is OFF and if it is activate softlimits is it?
If i remove Not to condition and place it at the beginning of the script will it check if softlimits are activated and if yes it will deactivate .

Thanks
Alex

5

VB and the development of wizards / Help to finish a button

« on: January 31, 2021, 06:28:10 PM »

Hi there to all,


this is not my comfort area and is far from it, but in this crazy times found something that can improve my knowledge and simplify my work, so i am trying to create a button that does the starting routine that i always need to make when i start my machine

My manual routine is:
First press RESET button
Second press REF ALL HOME
Third press GO TO ZERO
fourth press zero x, zero y, and zero z (machine coordinates and work coordinates equal to zero )
Five press SOFT LIMITS
After this my machine is ready to safely work.

This is the script that i create:

Code: [Select]



Code   "(     STARTING MACHINE    )"   


DoOEMButton(119) 

Dobutton( 24 ) ' ZeroZ

While IsMoving()

Wend


Sleep 300


ZDRO = 85 'var dro machine


ZWDRO = 2 'var dro work


Z = GetOEMDRO( ZDRO ) 'passa o valor do dro maquina

Call SetDro (ZWDRO, Z) 'passa o valor do dro maquina


Sleep 500



Dobutton( 22 ) ' Zerox

While IsMoving()

Wend


Sleep 500

XDRO = 83 'variavel dro maquina

XWDRO = 0 'variavel dro trabalho



X = GetOEMDRO( XDRO ) 'passa o valor do dro maquina


Call SetDro (XWDRO, X) 'passa o valor do dro maquina


Sleep 500


Dobutton( 23 ) ' ZeroY

While IsMoving()

Wend



Sleep 500


YDRO = 84 'variavel dro maquina

YWDRO = 1 'variavel dro trabalho

Y = GetOEMDRO( YDRO ) 'passa o valor do dro maquina

Call SetDro (YWDRO, Y) 'passa o valor do dro maquina


Sleep 500


Code "G28"


While IsMoving()

Wend


Sleep 500


DoOEMButton(119) 



Code   "(          ZEROS DONE )"     



So my questions are:

Is it safe to use?
Sometimes it doesn't work and it gives me error "limit switch triggered", and stops script. In this case i have to
manually remove axis from switch that triggers.What can it be?
Any tips to improve this are more then welcome.

Thanks to all
Alex

 

6

General Mach Discussion / Re: NEED HELP Mach3 and 2HSS86H problem on AXBB-E

« on: September 22, 2020, 01:01:46 PM »

IT WORKED.

It looked like magic, all issues were gone, thanks.

Alex

7

General Mach Discussion / Re: NEED HELP Mach3 and 2HSS86H problem on AXBB-E

« on: September 21, 2020, 07:49:07 AM »

Oh ok i will try that and post for results.

Thanks

8

General Mach Discussion / Re: NEED HELP Mach3 and 2HSS86H problem on AXBB-E

« on: September 21, 2020, 07:32:51 AM »

You mean motor coils?

Change A+ to B+ and A- to B- ?

Thanks
 

9

General Mach Discussion / Re: NEED HELP Mach3 and 2HSS86H problem on AXBB-E

« on: September 21, 2020, 07:04:36 AM »

Hi Reuelt,

Thanks for our help.

I believe i don´t need to connect the enable signals because driver is enabled and motor shaft is locked when i start mach3. The problem is when i try to move axis it will only spin a small amount and driver gives error. Red led blinks 7 or 8 times not sure.
I tested all 3 drivers and same result for all.

Here is the link of my drivers
 https://www.aliexpress.com/item/32643410928.html?spm=a2g0o.productlist.0.0.4e0b738fSsKX2p&algo_pvid=b7c9c0ce-759a-49f1-abfe-a02615a2d6f8&algo_expid=b7c9c0ce-759a-49f1-abfe-a02615a2d6f8-10&btsid=0bb0623316006861580107870e66f0&ws_ab_test=searchweb0_0,searchweb201602_,searchweb201603_

Thanks for all
Alex

10

General Mach Discussion / NEED HELP Mach3 and 2HSS86H problem on AXBB-E

« on: September 21, 2020, 06:09:46 AM »

Hello,

Can anyone help i wonder?

I am trying to connect drivers to mach 3 to test them for first move but i harder then i thought.
Motor and encoder are wired according to label that is in motor.
This is the kit that i have: https://www.aliexpress.com/item/32802045718.html?spm=a2g0s.issue_5ptha.0.0.33334c4dEAMGhH

Configs that i am using are:
Pul+ Pin9
Pul- 5V0
DIR+ Pin19
DIR- 5V0

Switch in driver are config to default (400 steps)

Mach3 is config to 100 steps to mm velocity to 2000 and accel to 200. Step pulse and Dir pulse are both set to 5.
I believe AXBB-E is properly config because i have home induction switch and are working as supposed. I can activate them and mach3 is recognizing them

The problem is when i try to rotate motor in arrow keys i get driver error alarm and it blinks 7 times.
I tried several configs and kernel speeds but no success.

Any help is welcome.

Thanks
Alex

EDIT: Link corrected.