Hello Guest it is January 15, 2021, 11:58:21 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

1521
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.

1522


So you got yourself a comparing LED ?

what do you want to do ?

1523
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

1524
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

1525
Hi,
thats boolean locic:


Thomas

1526
Mach Screens / script by loading screenpage (Mach3)
« on: December 18, 2017, 03:00:56 AM »
Hello,
is there a possibility to run a script automaticly, when a page of a sreenset is opened ?
ok i can strart the script with the button, witch opens the page.

Thank You Thomas

1527
VB and the development of wizards / Re: How to Rest the Spindle Speed
« on: December 17, 2017, 11:51:07 AM »
oembutton(183) resets the override

1528
Screen designer tips and tutorials / Re: Tranparent Pushbutton - Dro Mach3
« on: December 15, 2017, 05:25:29 AM »
Hi Klaus,

that was the clue. did not know that can Change order in this selectbox.

every day a new Experience.

Thank You very much.

Thomas

1529
Screen designer tips and tutorials / Re: Tranparent Pushbutton - Dro Mach3
« on: December 15, 2017, 03:01:16 AM »
Hello Klaus,

ich denke wir könnten in Deutsch weitermachen, aber um die anderen im "Rennen" zu halten machen wir in Englisch weiter.

i am using your screeneditor.

usage is very easy.
-copy the attached macro in your macrofolder

put this code into button , for example to edit OEMDRO(824)

Code: [Select]
Sub Main
  newvalue = NumericKeyboard("OEM DRo 824", GetOEMDRO(824) )
SetOEMDRO(824 ,newvalue)

End Sub
'-----------------------------------------------------------
'TongIL has to be replayced with your Profile Name
'-----------------------------------------------------------
#Expand <\..\..\macros\TongIl\Numeric_1>


as wiritten, the code itselve is not the Problem, only to get the "Tranparent Pushbutton" to be the 1st if it is placed over the DRO.

Thank You Thomas

1530
Screen designer tips and tutorials / Tranparent Pushbutton - Dro Mach3
« on: December 14, 2017, 12:48:26 PM »
Hi guy's

for the moment i am a Little bit out of ideas (probably im am sitting on the pipe)

I have written a VBScript for numeric Inputs , via transparent button, on a Touchsreen witch is able to to enter values into a specified DRO (i know this Auto-Calculator Option) .

to use it, it is necessary, to put a "transparent Button" over the DRO Display.

for the moment i am hang up, to get the "transpartent button" as the "TOP" Event,
means the DRO is the master, and takes the focus for Input, and the button Event is not triggerd.

hope somebody understands what i am trying to explain in my bad Bavarin english.

Thank You Thomas

PS. if i get this running, it will be shared.