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
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.
Sub Main
call NumericKeyboard(1400)
Code "G0 X" &GetOEMDro(1400)
End Sub
#Expand <\..\..\macros\yourprofile\numerickeyboard>
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
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
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