931
VB and the development of wizards / Re: Getting familiar with macros and cant get isMoving() to return right value
« on: May 08, 2020, 03:34:35 AM »
just tested here in the VB Scripter window. working here.
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.
' 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)
' API Funktionen der InpOut32.dll
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" ( _
ByVal PortAdress As Integer) As Integer