Hello Guest it is March 29, 2024, 06:31:31 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

621
Machscreen Screen Designer / Re: [Help] One axis screen
« on: January 14, 2021, 09:44:14 AM »
you have to Change the DRO Number of yourinput field to 1400

622
Machscreen Screen Designer / Re: [Help] One axis screen
« on: January 14, 2021, 08:11:12 AM »
i assume you are referencing your machine to a limitswitch.
in this case the DRO Number for for Actual Pos is 83 not 86.

for the Manual Input you have to use a free DRO, not 800, because 800 is x-axis workcoord DRO.
the code for your Manual Input Button would then be something like this:
Code: [Select]
Sub Main
call NumericKeyboard(1400)
        Code "G0 X" &GetOEMDro(1400)
End Sub


#Expand <\..\..\macros\yourprofile\numerickeyboard>

make sure you use the correct path for #Expand intruction

to "work" through your loaded list i would set machine into single step  (DoOEMButton(1004)) and
then by each Cycle Start (DoOEMButton(1000)) it should exceute one line.



623
General Mach Discussion / Re: Changing from plasma to mill profile
« on: January 13, 2021, 12:05:27 PM »
you can use from main menu

View -> Load Screens

to load an other screenset

624
Cnc is driving me mad.
I need serious help
I can not get my laptop to talk with my cnc.
Using Windows 7 3040t mill
Lpt1 port.
And nothing happens.
4.6volts on out puts

Laptop on a docking station to give me a parrallel port
When in device manager I can make motor glitch only once when I change lpt1 to 2 to 3 etc.
I can't change the port configuration.
I'm rapidly loosing the will to live.
I've had this mill 5yrs and still can not get comes with it.
I've fitted a new 600watt air cooled spindle motor check all the wiring and voltages and come to the conclusion it's my laptop that is at fault.
But way and how can I use it.
Let port set to ecu.
Turned on.
No conflicts and driver saying all OK and upto date.
I wasn't expecting so much hassle just to get this mill to communicate with this old Dell Latitude D430 laptop.

I need serious help
Please

win7 32Bit?

625
German / Re: Getriebestufenwechsel Mach3 / CSMIO IP-A
« on: January 13, 2021, 05:19:28 AM »
da waren auch noch Schreibfehler bei den OEMTRIG drin

Code: [Select]
Sub Main()

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

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

   If SpinS > 201 And spin < 600 Then
      SetPulley(2)
      Call Gear2ON   
   End If   
   
   If SpinS > 601 And spin < 1400 Then
      SetPulley(3)
      Call Gear3ON   
   End If
   
   If SpinS > 1401 And spin < 4000 Then
      SetPulley(4)
      Call Gear4ON   
   End If

End Sub

Sub Gear1ON()

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

   'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT8)     
   DeActivateSignal(OUTPUT9)     
   DeActivateSignal(OUTPUT10)     
 
   'Ausgang zum schalten der 1ten Gang's aktivieren
   ActivateSignal(OUTPUT7)
   message "Ausgang für 1. Gang eingeschaltet -> warte auf Eingang."

   'auf den Eingang warten   
   While IsActive(OEMTRIG12) = False       
      Sleep(10)   
   Wend       
   
   Sleep(50)   
   Message "erster Gang eingelegt Spindel einschalten"   
   DeActivateSignal(OUTPUT7) '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(OEMTRIG13) Then   
      Message "zweiter Gang bereits eingelegt"
      Sleep(200)   
      Exit Sub   
   End If 

    'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT7)     
   DeActivateSignal(OUTPUT9)     
   DeActivateSignal(OUTPUT10)     

  'Ausgang zum schalten der 2ten Gang's aktivieren
   ActivateSignal(OUTPUT8)     
   message "Ausgang für 2. Gang eingeschaltet -> warte auf Eingang."

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

End Sub

Sub Gear3ON()     

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

   'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT7)     
   DeActivateSignal(OUTPUT8)     
   DeActivateSignal(OUTPUT10)     

   'Ausgang zum schalten der 3ten Gang's aktivieren
   ActivateSignal(OUTPUT9)     
   message "Ausgang für 3. Gang eingeschaltet -> warte auf Eingang."

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

End Sub

Sub Gear4ON()     

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

    'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT7)     
   DeActivateSignal(OUTPUT8)     
   DeActivateSignal(OUTPUT9)     

  'Ausgang zum schalten der 4ten Gang's aktivieren
   ActivateSignal(OUTPUT10)     
   message "Ausgang für 4. Gang eingeschaltet -> warte auf Eingang."

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

End Sub

626
German / Re: Getriebestufenwechsel Mach3 / CSMIO IP-A
« on: January 13, 2021, 05:13:25 AM »
habe Mal ein paar Sachen geändert. Bitte Test und screenshot von History.

Code: [Select]
Sub Main()

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

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

   If SpinS > 201 And spin < 600 Then
      SetPulley(2)
      Call Gear2ON   
   End If   
   
   If SpinS > 601 And spin < 1400 Then
      SetPulley(3)
      Call Gear3ON   
   End If
   
   If SpinS > 1401 And spin < 4000 Then
      SetPulley(4)
      Call Gear4ON   
   End If

End Sub

Sub Gear1ON()

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

   'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT8)     
   DeActivateSignal(OUTPUT9)     
   DeActivateSignal(OUTPUT10)     
 
   'Ausgang zum schalten der 1ten Gang's aktivieren
   ActivateSignal(OUTPUT7)
   message "Ausgang für 1. Gang eingeschaltet -> warte auf Eingang."

   'auf den Eingang warten   
   While IsActive(OEMTRI12) = False       
      Sleep(10)   
   Wend       
   
   Sleep(50)   
   Message "erster Gang eingelegt Spindel einschalten"   
   DeActivateSignal(OUTPUT7) '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(OEMTRIG13) Then   
      Message "zweiter Gang bereits eingelegt"
      Sleep(200)   
      Exit Sub   
   End If 

    'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT7)     
   DeActivateSignal(OUTPUT9)     
   DeActivateSignal(OUTPUT10)     

  'Ausgang zum schalten der 2ten Gang's aktivieren
   ActivateSignal(OUTPUT8)     
   message "Ausgang für 2. Gang eingeschaltet -> warte auf Eingang."

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

End Sub

Sub Gear3ON()     

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

   'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT7)     
   DeActivateSignal(OUTPUT8)     
   DeActivateSignal(OUTPUT10)     

   'Ausgang zum schalten der 3ten Gang's aktivieren
   ActivateSignal(OUTPUT9)     
   message "Ausgang für 3. Gang eingeschaltet -> warte auf Eingang."

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

End Sub

Sub Gear4ON()     

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

    'alle anderen Ventile ausschalten
   DeActivateSignal(OUTPUT7)     
   DeActivateSignal(OUTPUT8)     
   DeActivateSignal(OUTPUT9)     

  'Ausgang zum schalten der 4ten Gang's aktivieren
   ActivateSignal(OUTPUT10)     
   message "Ausgang für 4. Gang eingeschaltet -> warte auf Eingang."

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

End Sub

627
German / Re: Getriebestufenwechsel Mach3 / CSMIO IP-A
« on: January 13, 2021, 04:30:43 AM »
poste mal bitte Dein macro.

628
General Mach Discussion / Re: Changing from plasma to mill profile
« on: January 13, 2021, 01:49:39 AM »
try to run Mach3.exe from Mach3 Folder, then you get a window, where you can choose the profie you want, and then load
Mach3Mill screenset.
 

629
General Mach Discussion / Re: NFS Wizards - Gear Cutting
« on: January 12, 2021, 04:36:48 AM »
Looks like a Problem in the wizard.
working here V2.79

630
General Mach Discussion / Re: Changing from plasma to mill profile
« on: January 12, 2021, 04:06:44 AM »
that was only a example.

the real Name of your Profile is displayed in STD screenset right lower Corner.