Hello Guest it is December 08, 2019, 07:30:04 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

421
General Mach Discussion / Re: Mach 3 Z-axis brake control by mach 3 estop
« on: January 09, 2019, 02:40:59 AM »
Config -> Ports&Pins -> Outputs -> Enable1 to Enable6 should work.

422
General Mach Discussion / Re: New to site - Mach3 homing support needed
« on: January 07, 2019, 04:45:30 AM »
ok that is a normal PP BoB.

can you post some screenshots of your motortunig Screens.
maybe your acceleration is so "soft" that the axis is not able to stop on the Limit Switch ?

423
General Mach Discussion / Re: New Mach 3 Won't load G code
« on: January 07, 2019, 01:29:09 AM »
have you tryed to load roadrunner example code ?

424
General Mach Discussion / Re: New to site - Mach3 homing support needed
« on: January 07, 2019, 01:27:46 AM »
witch BOB are you using?

425
VB and the development of wizards / Re: Y axis manual input
« on: January 06, 2019, 04:11:38 AM »
hi tmax1,

here the code with "online update" of the DRO during Input.

Code: [Select]
Global value As String
Global DroNum  As Integer

Sub Main
'declare variables
Dim YPos As Double
Dim OldDroValue As Double
Dim YMinPos As Double
Dim YMaxPos As Double

'preset the variables
YMinPos = 1.0
YMaxPos = 50.0
DroNum  = 1201

'get the actual DRO value
OldDroValue = GetOemDro(DroNum)

'show the virtual keyboard
call NumericKeyboard(DroNum,YMinPos,YMaxPos)

'get the new DRO value
YPos = GetOEMDro(DroNum)


'check that the entered value has changed
If YPos <> OldDroValue Then
'doe the move
Code "G0Y"+CStr(YPos)
Message "driving Y to: " & YPos
End If
End Sub



'TPS 01.12.2017
'numerische Eingabe
Function NumericKeyboard(ByVal DRONum as Integer , ByVal Min as Double , ByVal Max as Double) As Double
Dim title as String
value = "" 'GetOemDRO(DRONum)
title = Header


Begin Dialog UserDialog1 60,60, 105, 210, "input value:"  , .Enable

PushButton 10, 10, 25, 25, "7", .but7
PushButton 40, 10, 25, 25, "8", .but8
PushButton 70, 10, 25, 25, "9", .but9

PushButton 10, 40, 25, 25, "4", .but4
PushButton 40, 40, 25, 25, "5", .but5
PushButton 70, 40, 25, 25, "6", .but6

PushButton 10, 70, 25, 25, "1", .but1
PushButton 40, 70, 25, 25, "2", .but2
PushButton 70, 70, 25, 25, "3", .but3

PushButton 10, 100, 25, 25, ".", .butD
PushButton 40, 100, 25, 25, "0", .but0
PushButton 70, 100, 25, 25, "<-", .butB

PushButton 10, 130, 25, 25, "+/-", .butN
PushButton 40, 130, 25, 25, "Del", .butDel

TextBox 10, 160, 85, 18, .FText
PushButton 10, 185, 40, 21,"OK", .OK
CancelButton 55, 185, 40, 21
End Dialog


Dim Dlg1 As UserDialog1

Dlg1.FText = CStr(value)
x = Dialog( Dlg1 )

NumericKeyboard = CDbl(Dlg1.FText)
If CDbl(Dlg1.FText) < Min Then NumericKeyboard = Min
If CDbl(Dlg1.FText) > Max Then NumericKeyboard = Max

SetOEMDro(DRONum,NumericKeyboard)
End Function

Function Enable( ControlID$, Action%, SuppValue%)

Select Case Action%
Case 1

Case 2 'Button wurde gerückt
If ControlID$ = "but0" Then
value = CStr(value) + "0"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but1" Then
value = CStr(value) + "1"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but2" Then
value = CStr(value) + "2"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but3" Then
value = CStr(value) + "3"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but4" Then
value = CStr(value) + "4"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but5" Then
value = CStr(value) + "5"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but6" Then
value = CStr(value) + "6"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but7" Then
value = CStr(value) + "7"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but8" Then
value = CStr(value) + "8"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "but9" Then
value = CStr(value) + "9"
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "butD" Then
   If InStr(1,value,".") = 0 Then
value = CStr(value) + "."
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
   End If
End If
If ControlID$ = "butB" Then
value = Left(value,Len(value)-1)
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "butN" Then
If Left(value,1) = "-" Then
value = "+" + CStr(Right(value,Len(value)-1))
Else
If Left(value,1) = "+" Then
value = "-" + CStr(Right(value,Len(value)-1))
Else
value = "-" + CStr(value)
End If
End If
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "butDel" Then
value = ""
DlgText "FText", CStr(value)
SetOEMDro(DRONum,CDbl(value))
Enable =1
End If
If ControlID$ = "OK" Then
Enable = -1
End If
Case 3 'Text verändert
'MsgBox Dlg1.FText
Case Else
End Select

'Wert zurückgeben
If Enable = -1 Then
Enable = value
End If

End Function   

426
General Mach Discussion / Re: Windows xp vs Windows 7
« on: January 05, 2019, 11:15:36 AM »
there is a Little tool called "Move Mouse" as Freeware avaliable,
maybe this will avoid to go into power save mode?

427
Hi TPS,
Have you tried it?
Craig

no, because i think it is waste of time.

TPS

428
hi Craig,
maybe it is off Topic

Quote
Hi TPS,
does that include Windows 10 32 bit? Certainly any 64 bit Windows is no go for PP.

a short look lool to NFS Homepage -> mach3 -> Software requirements (https://www.machsupport.com/software/mach3/):

Requirements if using the parallel port for machine control:
Desktop PC with at least one parallel port
(Laptops are not supported)
32-bit version of Windows 2000, Windows XP, Windows Vista, or Windows 7
(64-bit versions will not work)
1Ghz CPU
512MB RAM
Non-integrated Video Card with 32MB RAM
(Large G-code files, especially 3D files will require a video card with 512MB RAM or higher)


there is nothing about Win10 32Bit.
if you only remeber all this Win7 (32bit) PP + Win Update K(i can not remember the number) Trouble,
do you realy think to get a Win10 (32bit) to work with PP porper?

IMHO i do not think so, but this is only my completly insignificant personal meaning.  

i personaly get scared of all this 5V (3.3V) NPN Pull Up/Pull Down/Pull somewhere stuff.

i prefere to use stuff witch has a "touch" of industrial standard (CSMIO), 24V Inputs 24V Outputs an so on.

sorry to be "off Topic".

TPS
 

429
G-Code, CAD, and CAM discussions / Re: Homing on the fly
« on: January 03, 2019, 01:53:11 PM »
try to get the root cause, not fight against the effects.

430
VB and the development of wizards / Re: Y axis manual input
« on: January 03, 2019, 01:44:24 PM »
hi,

here is a code sample witch uses DRO for strorage (to Display).
it uses a selfmade virtual Keyboard for numeric Input via touch Screen.
all values (min max DRONum) are adjustable in top aeria.

Code: [Select]
Global value As String

Sub Main
'declare variables
Dim YPos As Double
Dim OldDroValue As Double
Dim YMinPos As Double
Dim YMaxPos As Double
Dim DroNum  As Integer

'preset the variables
YMinPos = 1.0
YMaxPos = 50.0
DroNum  = 1201

'get the actual DRO value
OldDroValue = GetOemDro(DroNum)

'show the virtual keyboard
call NumericKeyboard(DroNum,YMinPos,YMaxPos)

'get the new DRO value
YPos = GetOEMDro(DroNum)


'check that the entered value has changed
If YPos <> OldDroValue Then
'doe the move
Code "G0Y"+CStr(YPos)
Message "driving Y to: " & YPos
End If
End Sub



'TPS 01.12.2017
'numerische Eingabe
Function NumericKeyboard(ByVal DRONum as Integer , ByVal Min as Double , ByVal Max as Double) As Double
Dim title as String
value = "" 'GetOemDRO(DRONum)
title = Header


Begin Dialog UserDialog1 60,60, 105, 210, "input value:"  , .Enable

PushButton 10, 10, 25, 25, "7", .but7
PushButton 40, 10, 25, 25, "8", .but8
PushButton 70, 10, 25, 25, "9", .but9

PushButton 10, 40, 25, 25, "4", .but4
PushButton 40, 40, 25, 25, "5", .but5
PushButton 70, 40, 25, 25, "6", .but6

PushButton 10, 70, 25, 25, "1", .but1
PushButton 40, 70, 25, 25, "2", .but2
PushButton 70, 70, 25, 25, "3", .but3

PushButton 10, 100, 25, 25, ".", .butD
PushButton 40, 100, 25, 25, "0", .but0
PushButton 70, 100, 25, 25, "<-", .butB

PushButton 10, 130, 25, 25, "+/-", .butN
PushButton 40, 130, 25, 25, "Del", .butDel

TextBox 10, 160, 85, 18, .FText
PushButton 10, 185, 40, 21,"OK", .OK
CancelButton 55, 185, 40, 21
End Dialog


Dim Dlg1 As UserDialog1

Dlg1.FText = CStr(value)
x = Dialog( Dlg1 )

NumericKeyboard = CDbl(Dlg1.FText)
If CDbl(Dlg1.FText) < Min Then NumericKeyboard = Min
If CDbl(Dlg1.FText) > Max Then NumericKeyboard = Max

SetOEMDro(DRONum,NumericKeyboard)
End Function

Function Enable( ControlID$, Action%, SuppValue%)

Select Case Action%
Case 1

Case 2 'Button wurde gerückt
If ControlID$ = "but0" Then
value = CStr(value) + "0"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but1" Then
value = CStr(value) + "1"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but2" Then
value = CStr(value) + "2"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but3" Then
value = CStr(value) + "3"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but4" Then
value = CStr(value) + "4"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but5" Then
value = CStr(value) + "5"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but6" Then
value = CStr(value) + "6"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but7" Then
value = CStr(value) + "7"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but8" Then
value = CStr(value) + "8"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "but9" Then
value = CStr(value) + "9"
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butD" Then
   If InStr(1,value,".") = 0 Then
value = CStr(value) + "."
DlgText "FText", CStr(value)
Enable =1
   End If
End If
If ControlID$ = "butB" Then
value = Left(value,Len(value)-1)
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butN" Then
If Left(value,1) = "-" Then
value = "+" + CStr(Right(value,Len(value)-1))
Else
If Left(value,1) = "+" Then
value = "-" + CStr(Right(value,Len(value)-1))
Else
value = "-" + CStr(value)
End If
End If


DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "butDel" Then
value = ""
DlgText "FText", CStr(value)
Enable =1
End If
If ControlID$ = "OK" Then
Enable = -1
End If
Case 3 'Text verändert
'MsgBox Dlg1.FText
Case Else
End Select

'Wert zurückgeben
If Enable = -1 Then
Enable = value
End If

End Function