Hello Guest it is November 18, 2019, 09:05:29 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

1041
German / Re: Bauteil ausrichten
« on: December 29, 2017, 02:57:53 AM »
Servus ocram12,

das ist mit Mach3 auch möglich.
G68/G69 ist hier die gewünschte Funktion.

Zuerst mal mußt Du Dir aber einen Kantentaster bauen/kaufen,
und in Betrieb nehmen.

Dazu gibt es hier hier im Forum einige Info's.

Der Rest ist dann "nur" noch ein kleines macro, das 2 Punkte misst,
und dann den Winkel ausrechnet.

Gruß Tom

1042
Brains Development / Re: Stop any movement of axis if Input is not active
« on: December 29, 2017, 02:43:46 AM »
Hi,

i think you have to "split" this into two parts.

part 1 witch is in the macro what enables the nailer.
here you have to wait for the Input after the nailing something like this:

Code: [Select]

'wait for Input1
While Input1 = false
Sleep(200)
Wend


part 2 will be in macropump, and only stop X-Axis if x-Axis is running and Input1 is off

Code: [Select]

IF ((GetoemDRO(806) > 0) and (Input1 = False)) Then
  DoOEMButton(1003)
End If


Thomas   

1043
VB and the development of wizards / Re: Debugging code
« on: December 23, 2017, 03:39:52 AM »
i also figured out
Code: [Select]
 message("Message1")
  message("Message2")
is not working, means is not showing up in logfile.
Code: [Select]
 message("Message1")
  sleep(100)
  message("Message2")
  sleep(100)
is working.

Thomas

1044
Mach3 under Vista / Re: Mach3 won't load new g codes
« on: December 23, 2017, 03:37:57 AM »
or post one of your "new" g-gode files, to have a look.

Thomas

1045
VB and the development of wizards / Re: Debugging code
« on: December 22, 2017, 03:41:37 PM »
it will only Show up in logfile if text is different.

i.e. Message( "Tool Radius 1 is " & ToolRadius )

1046
VB and the development of wizards / Re: Debugging code
« on: December 22, 2017, 03:13:06 PM »
Hello,

it's working here, if i run it in the VB Scripter Window.

1047


So you got yourself a comparing LED ?

what do you want to do ?

1048
Mach Screens / Re: Knee Mill Mach3 On Screen Calculator
« on: December 22, 2017, 01:32:55 PM »
Hello Max,

if you can post your Screen, maybe we can get some more ideas what you are trying to do.
for the moment i am no able ,maybe depending on my bad english, what you are trying
to do.
Regards Thomas

1049
Mach Screens / simple numeric keyboard for input in DRO
« on: December 22, 2017, 01:25:36 PM »
Hello,

here a simple solution with "on board" possibilities (VB script) to do Inputs to DRO (touch Screen).

put the following code into a macro in your macrofolder:

Code: [Select]

Global value As String

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


Begin Dialog UserDialog1 60,60, 105, 180, "Eingabe:"  , .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

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


Dim Dlg1 As UserDialog1

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

NumericKeyboard = CDbl(Dlg1.FText)
SetOEMDro(DRONum,CDbl(Dlg1.FText))
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$ = "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   



ok lets say you put into C:\mach3\macros\yourprofile\numerickeyboard.m1s

if you put following code into a transparent button over the a-axis dro
the code do edit x-axis would be:

Code: [Select]
Sub Main
call NumericKeyboard(800)

End Sub


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


call NumericKeyboard(800)

the number is the OEMDro you want to edit.

Regards Thomas

1050
Hi,
thats boolean locic:


Thomas