Hello Guest it is May 11, 2021, 04:47:06 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

2101
Mach Screens / translation main menue and submenues
« on: September 17, 2014, 10:22:06 AM »
hi,

does anybody know of a possibility to translate main menue bar and
al the submenues ?

Thanks Thomas

2102
Mach Screens / tooltiptext
« on: September 17, 2014, 03:55:45 AM »
has anyone a idea how to add a tooltiptext to a button ?

Thanks Thomas

2103
Screen designer tips and tutorials / Re: BMP automatic update
« on: September 17, 2014, 02:43:28 AM »
OK i found a solution.

here the code:
Code: [Select]
Dim objDialog
Dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")



' Create a dialog object
Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
objDialog.InitialDir = "C:\Programme\Platemaster\Projekte"
objDialog.Filter = "Programm|*.tap"
' Open the dialog and return the selected file name
If objDialog.ShowOpen Then


If filesys.FileExists(Left(objDialog.FileName, Len(Trim(objDialog.FileName)) - 4) + ".bmp") Then
filesys.CopyFile Left(objDialog.FileName, Len(Trim(objDialog.FileName)) - 4) + ".bmp", "C:\Mach3\Bitmaps\Platemaster\Anzeige.BMP"
    End If
LoadStandardLayout()
Sleep(3000)
LoadFile(objDialog.FileName)

Else
GetFileName = ""
End If

ok its reloading the whole screenset and not only the bitmap, but its working.

Thomas

2104
Screen designer tips and tutorials / Re: BMP automatic update
« on: September 16, 2014, 08:52:42 AM »
Hello Gerry,

sorry for the bad explaining.

my self written postprozessor is creating now a picture (BMP) of the coresponding
cnc program with the finished part.

what i am trying to do is to display this pricture on my screenset.

-i created a picuturebox in my screenset witch is diplaying the file part.bmp
-in my load G-code button a script is loading the g-code file (no problem) and it is doing a filecopy from actpart.bmp to the part.bmp
an here starts my problem, because the picturebox is not updated dynamicly. if i reload the screenset or stop and start Mach3 software
the picture is updated.

-in my close file button a script close the g-code file (no problem) and does a filecopy from blank.bmp to part.bmp and of course
the same problem with the update.

hope you understand now what i am trying to do.
any other solution is welcome.

Thanks Thomas






2105
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

2106
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

2107
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

2108
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
 

2109
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

2110
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