Hello Guest it is February 28, 2021, 10:44:00 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

did a Little bit of searching about These Contec PCI i/o cards , they have their own dll files to read the Inputs.

maybe the best way would be to run a Background thread witch reads the data and puts it into OEMLed's, then
you can read those in every script.

for direct Access via VB script you have to get familar with API functions by using inpout32.dll

Code: [Select]
' API Funktionen der InpOut32.dll
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" ( _
  ByVal PortAdress As Integer) As Integer

there are many examples avaliable on the Internet.

General Mach Discussion / Re: Setup and Control issue
« on: May 06, 2020, 03:22:07 PM »
pls post your Profile XML. to have a look.

it is working here

try to Change Display mode and the Regen Toolpath.

i assume you are using MachScreen from Klaus

if you left click on the dro you get a small window with all the controls witch are located at this place.
now select the transparent button, witch is normaly at the  bottom of the list, hold left mouse button
down and shift the selected line upwards in the list. it ust be higher as the dro.

Mach Screens / Re: Touchscreen buttons
« on: May 04, 2020, 06:08:15 AM »
not directly, you have to add some more Buttons (G,F,and so on) and modify the code

Code: [Select]

Code: [Select]
Code Dlg1.FText

it should do something simular.

Mach Screens / Re: Touchscreen buttons
« on: May 04, 2020, 05:15:03 AM »
here: https://www.machsupport.com/forum/index.php?topic=36213.msg247828#msg247828

i posted some code to do it with vb script.

put a transparent button with no code over the dro.

VB and the development of wizards / Re: infrared screen
« on: May 03, 2020, 04:05:26 AM »
try this

Code: [Select]
   Sub Main()
      If  GetOEMLED(804) Then ' is run
        If IsActive(INPUT1)And (GetLed(116) = true) Then
          DoOemButton(1004)      ' 1004 DoOemButton stop
        End If
      End If     
   End Sub 

can you pls. post one of the gcode files?