Hello Guest it is December 08, 2019, 06:06:40 PM

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

1391
Screen designer tips and tutorials / BMP automatic update
« on: September 16, 2014, 07:43:15 AM »
hi,

is there any possibility to update a BMP picture during runtime ?

mine is only update if i start the software.

Thanks Thomas

1392
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 16, 2014, 03:12:47 AM »
hello,

i'm back. this is the final macro, witch was working in my test scenario for more then
two hours without any stop. more then 4 times longer then any version before.

Code: [Select]
Sub Main()
' -------------------------------------------------------------------------------
' TPS 03.09.2014  
' Referenzschalter freifahren und anschliessend Referenzieren
' neue Version mit Benutzung von OEM Led's
' -------------------------------------------------------------------------------
'beim Laden des Files Abbrechen
If IsLoading() Then
    GoTo Ende
End If

'Geladenes Werkzeug lesen--------------------------------------------------------
AktWerkzeug = GetOEMDRO(1000)
'--------------------------------------------------------------------------------
If AktWerkzeug <> 0 Then
MsGBox "Referenzfahr mit geladenem Werkzeug nicht möglich. Bitte manuell entfernen."
        GoTo Ende
End If    
'--------------------------------------------------------------------------------

Message ("Automatische Referenzfahrt")

'Z referenzieren
Message ("Z-Achse referenzieren")
'RefCombination(4)   'Zuerst Z
DoOemButton(1024) 'Ref Z
Sleep(500)
While GetOemLed(809) = true
   Sleep(200)
   If GetOemLed(800) Then
       Sleep(500)
       Message"Fehler Referenzfahrt Z"
       End
   End If
Wend

'X und Y referenzieren
Message ("X/Y-Achse referenzieren")
'RefCombination(3) ' dann X und Y
DoOemButton(1023) 'Ref Y
DoOemButton(1022) 'Ref X
Sleep(500)
While ((GetOemLed(807) = true) Or (GetOemLed(808) = true))
   Sleep(50)
   If GetOemLed(800) Then
       Sleep(500)
       Message"Fehler Referenzfahrt X/Y"
       End
   End If
Wend

Code "G54" 'Koordinatenverschiebung ein
Sleep(500) 'warten
Message (" ") 'Stauszeile löschen
Exit Sub
 '--------------------------------------------------------------------------------

Ende:
 
 Message ("Automatisches Referenzieren Abgebrochen")
    
End Sub      


dont ask me about the difference between DoButton(22) and DoOEMbutton(1022),
but it seems to work.
Thomas

1393
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 07, 2014, 10:50:16 AM »
Brett,

i think i have to wait now, what the CSLab people figure out.
i have send them all the results off my testing.

let's see whats gona happen.

I will be offline until end of this week.

Thomas

1394
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 07, 2014, 03:09:25 AM »
Brett,

at the end this machine will be used in prof. conditions for drilling,tapping and labeling
for mounting plates for elecrical cabinets.

the normal work will be, load part, load programm hit start.
therefore a homing will be done at the beginning of every program to make sure
to start with the same conditions.

the machine will be operated of non CNC spezialists so have to create a easy to use
software. i have choosen Mach3/CSLabs for controlling the machine because
- its cheap
- its easy to use
- and on the main point with the screenset's, scripts and all the other open
functionality it gives me all the possibilities to create a package witch is exactly
what i need for this machine.

therefore i have to create test scenarios to make sure that all the particular
functions are working propperly.

i have also tested the homing by using dobutton(24) dobutton(23) and dobutton(22).

it ended up in a Error found Art Code 3336.
i was not able to find a list, witch discribes what this code means.

as long i am not not able to get this basic functionality working lets say up to 99%
stable it makes no sense to test further functions.

Thomas
 

1395
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 06, 2014, 03:12:42 AM »
Brett,

this macro is only a part of the final macro.

what i want at the end is

home Z
depending on my setup i only can check after homing z whether there is a tool loaded or not

if tool loaded
- home Y
- if Y is finshed home X, possibilty of crash

if no tool loaded
- home x/y together to save time

the code with the check of reset and reference via GetOemLed was the
workaround CS-Labs prevered, because IsMoving() is not stable.

maybe i am not seeing the forrest depending on all the trees.

Thomas

1396
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 05, 2014, 07:04:10 AM »
Hello Brett,

here the macro witch hangs:

Code: [Select]
Sub Main()
' -------------------------------------------------------------------------------
' TPS 04.09.2014 
' zuerst Z dann X/Y Referenzieren
' -------------------------------------------------------------------------------
'beim Laden des Files Abbrechen
If IsLoading() Then
    GoTo Ende
End If

Message ("Automatische Referenzfahrt")

    'Z referenzieren
    Message ("Z-Achse referenzieren")
RefCombination(4)   'Zuerst Z
    Sleep(200)
    While GetOemLed(809) = true
        Sleep(50)
        If GetOemLed(800) Then
            Sleep(500)
            Message"Fehler Referenzfahrt Z"
            End
        End If
    Wend
   
    'X und Y referenzieren
    Message ("X/Y-Achse referenzieren")
RefCombination(3) ' dann X und Y
    Sleep(200)
    While ((GetOemLed(807) = true) or (GetOemLed(808) = true))
        Sleep(50)
        If GetOemLed(800) Then
            Sleep(500)
            Message"Fehler Referenzfahrt X/Y"
            End
        End If
    Wend

Code "G54" 'Koordinatenverschiebung ein
Sleep(200) 'warten
    Message (" ") 'Stauszeile löschen
Exit Sub
 '--------------------------------------------------------------------------------

Ende:
 
 Message ("Automatisches Referenzieren Abgebrochen")
   
End Sub   
Thomas

1397
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 05, 2014, 02:08:38 AM »
Hello Brett,

small update

its clearing the home limts itself if in ->General Config the option ->Home Sw. Safety is disabled.
so i was able to delete the code for clearing the switches. but still the problem that the macro
hangs sometimes.

Home Off distance works after the homing to drive a declared distance after the homing was
finished.

Thomas

1398
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 04, 2014, 02:51:56 AM »
I think it will but would have to test to be certain..........

no its doing just nothing. only a message is created, that the limit switch is active.
i think CS-labs addon is not the problem, i think Mach is not notifying the addon
to do a reference because its checking the limit switch.

thats what i think, dont know for sure.

i am still in contact with CS-Labs, because with the new code the macros
still hangs up, but now without any internal error.

keep you informed.

Thomas

1399
VB and the development of wizards / Re: Act sometimes
« on: September 04, 2014, 02:26:51 AM »
hi,

looks like you have found the way.
probbably i could give you some ideas.

Thomas

1400
VB and the development of wizards / Re: homing macro and Ismoving
« on: September 03, 2014, 04:43:21 AM »
Hello Brett,

her the answer for CSLab

Quote
Dear sir,
Homing is an autonomous function of CSMIO/IP motion controllers and Mach3 may have a problem with IsMoving() function.

To control if homing is finished you can use LED diodes  GetOemLed(807)  / GetOemLed(808) / GetOemLed(809).

DoButton( 22 )
Sleep(200)
While GetOemLed(807) = true
    Sleep(50)
    If GetOemLed(800) Then
        Sleep(500)
        Message"Error"
        End
    End If

Wend
Message"Axis referenced"

 The way shown above works perfect

Regards

Wojtek Trawicki

Thomas