Hello Guest it is October 17, 2021, 12:25:04 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

just tested here in the VB Scripter window. working here.

ok but you to figure out first, witch port Adresses these Card are using.
my sample is only for 8 bit's so they must use more adresses.

do you know the type of the Cards?

i think macropump script can do this Job.
i dont know witch contec card's you have, but if they are port based something like this will read the data
and store it in UserLed's

Code: [Select]
  ' Our port address
  PortAddr = 1016 ' 0x3f8
  ' Read data register of parallel port at 0x3f8
  PortData = GetPortByte(PortAddr)
  ' write the data to OEMLed's
  SetUserLed(2001,PortData And &H01)
  SetUserLed(2002,PortData And &H02)
  SetUserLed(2003,PortData And &H04)
  SetUserLed(2004,PortData And &H08)
  SetUserLed(2005,PortData And &H10)
  SetUserLed(2006,PortData And &H20)
  SetUserLed(2007,PortData And &H40)
  SetUserLed(2008,PortData And &H80)

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.