Hello Guest it is March 19, 2024, 06:39:25 AM

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

2181
no i have no code to replace,
tryed to make you think about your code.

2182
ok lets try to read your code:

############################################################################################
   Dim x As Integer
   Dim CTPos As Integer 'Carrousel Tool Position Relative to OldTool Position
   CTPos=0

--> some declarations


   ActivateSignal(OUTPUT7)'Turns the AC Motor On

--> Switch Output 7 on

   code"g04 p05"

--> wait a Little bit

   Do Until IsActive(input1)
   ActivateSignal(OUTPUT7)'Turns the AC Motor On
   deactivatesignal(output7)
   sleep(0)
   Loop

--> Switch Output 7 on and off until input1 is on makes no sence
--> sleep(0) also senseless

      For x=0 To CWPos
         If IsActive(input1) Then
            x=x+1
            While IsActive(input1)'Wait for OEMTrig to de-assert
            Wend
         End If
      Next x

--> CWPos is no global variable and no Inputparameter of the function so nothing will happen

      CTPos=x

--> will be Zero, see Problem of CWPos

   DeactivateSignal(OUTPUT7)

--> Switch Output7 off , so it only will be on for G04 P5 nothing else

Regards Thomas

2183
if you are talking about length Offset

G43 HXX

is your friend.

2184
hi,
i am not sure, but you can try also:

DoButton(1)

should be the same, but let's try.

Thomas

2185
to use a macro function instead G31 will allways be to slow-

2186
VB and the development of wizards / Re: imagebox
« on: January 29, 2016, 03:24:15 AM »
Hi,

that is how i did it two years ago.

script from the file open button:

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


Thomas

2187
VB and the development of wizards / Re: Edge detection on input
« on: January 13, 2016, 05:51:45 PM »
can you see Input1 changing signal in diagnostic Screen ?

While is moving
Wend

is useless because no 'real' axis is moving.

TPS

2188
CS-Lab / Re: CSMIO/IP-S vs Panasonic Minas A5
« on: December 12, 2015, 05:02:54 AM »
TPS, does the above make sense to you and back up your suggested parameters?

not realy.

2189
CS-Lab / Re: CSMIO/IP-S vs Panasonic Minas A5
« on: December 10, 2015, 05:21:13 PM »
Hi Ziad,

only had time for a quick look.

i think

Pr0.06 --> 1
Pr0.07 --> 3

or

Pr0.06 --> 0
Pr0.07 --> 3

should be ok.

TPS

2190
General Mach Discussion / Re: CNC Lathe turret tool changer help?
« on: October 19, 2015, 09:21:46 AM »
Ok,

sounds good.

Thomas