Hello Guest it is October 25, 2021, 10:18: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

382
VB and the development of wizards / Re: How to interrupt a running script?
« on: December 12, 2020, 01:31:02 AM »
there is now way to get get Access do Screen button Events.

so one way is to to put:
Code: [Select]
  If IsStopped() Then
    Exit Sub
  End If

into the loop's

by editing the screenset, you can put a
Code: [Select]
  SetUserLed(*********)
to the button a react in your script.



383
just open your maro in VB script Editor

->file-> save as
-> choose -> Compiled code as filetype
-> done

384
German / Re: Getriebestufenwechsel Mach3 / CSMIO IP-A
« on: December 10, 2020, 02:46:17 AM »
Servus,
habe Dein Macro ein bisschen überarbeitet und formatiert.
Dabei bin ich von folgenden Signalen ausgegangen:
Output1 -> erster Gang einlegen
Output2 -> zweiter Gang einlegen
Input1 -> erster Gang ist eingelegt
Input2 -> zweiter Gang ist eingelegt

Code: [Select]
Sub Main()

DoSpinStop() 'TPS nur um sicherzustellen, das die Spindel wirklich aus ist

SpinS = GetRPM() 
 
If SpinS < 200 Then   
Call Gear1ON   
End If   

If SpinS > 201 And spin < 600 Then   
Call Gear2ON   
End If   

End Sub

Sub Gear1ON()

' der erste Gang ist bereits drin, also nichts zu tun
If IsActive(OEMTRIG1) Then   
Message "erster Gang bereits eingelegt"
Sleep(200) 
Exit Sub
End If 

'Ausgang zum schalten der 1ten Gang's aktivieren
ActivateSignal(OUTPUT1)     

'auf den Eingang warten
While IsActive(OEMTRIG1) = False       
Sleep(10)   
Wend       
   
Sleep(50)   
Message "erster Gang eingelegt Spindel einschalten"   
DeActivateSignal(OUTPUT1) 'Ausgang für 1. Gang ausschalten   
DoSpinCW() 'this is what was in the M3 macro   

End Sub   

Sub Gear2ON()     

' der zweite Gang ist bereits drin, also nichts zu tun
If IsActive(OEMTRIG2) Then   
Message "zweiter Gang bereits eingelegt"
Sleep(200)   
Exit Sub
End If 

'Ausgang zum schalten der 2ten Gang's aktivieren
ActivateSignal(OUTPUT2)     

'auf den Eingang warten
While IsActive(OEMTRIG2) = False       
Sleep(10)   
Wend       
   
Sleep(50)   
Message "zweiter Gang eingelegt Spindel einschalten"   
DeActivateSignal(OUTPUT2) 'Ausgang für 1. Gang ausschalten   
DoSpinCW() 'this is what was in the M3 macro   

End Sub



mfg Tom

385
German / Re: Getriebestufenwechsel Mach3 / CSMIO IP-A
« on: December 09, 2020, 12:06:52 PM »
Hallo,

in diesem Fall würde ich das im M3 macro machen.
Da kannst Du die angeforderte Geschwindigkeit abfragen, und
mit ein paar If Abfragen die entprechenden Ausgänge schalten,
dann auf den Eingang warten.

Vor allem kannst Du hier zuerst mal die Spindel ausschalten, für den Fall das
diese schon läuft.

Gruß Tom

386
in G1 move all axis start and stop together

B-Axis has 97mm to go, so it is about 20s.

and the x-move is 30mm, you start from X0

387
hi,
if i run your test here with all axis in Zero it takes about 21s.

388
FAQs / Re: Mach3 - Physical Limits and Homing
« on: December 09, 2020, 07:22:33 AM »

389
General Mach Discussion / Re: Mach3 custom macro with value question
« on: December 08, 2020, 05:26:07 AM »
RPM = Param1()

within the macro will read the value from P Parameter

if you call

Code: [Select]
M133 P2500

and in the macro:
Code: [Select]
RPM = Param1()

the RPM will be 2500

see:  www.machsupport.com/wp-content/uploads/2013/02/Mach3_V3.x_Macro_Prog_Ref.pdf

390
General Mach Discussion / Re: Mach3turn Stop button?
« on: December 08, 2020, 02:49:26 AM »
DoOemButton(1003)