ник: ra4hrz
Засунуть всё или первые две строчки. А остальное в форму?
Option Explicit
Public Declare Function Inp Lib "C:\WINDOWS\system32\inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Dim statusint As Variant
statusint = Inp(889)
If statusint = 95 Then RF = RF + StepNet
Call To_TRX
End If
|