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

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

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

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

434
it is working here

try to Change Display mode and the Regen Toolpath.

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

436
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]
SetOEMDro(DRONum,CDbl(Dlg1.FText))
   

to
Code: [Select]
Code Dlg1.FText

it should do something simular.

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

438
put a transparent button with no code over the dro.

439
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 



440
can you pls. post one of the gcode files?