Code Sample |
[color="#0021E6"]Public[/color] [color="#0021E6"]Declare[/color] [color="#0021E6"]Sub[/color] Out [color="#0021E6"]Lib[/color] "inpout32.dll" [color="#0021E6"]Alias[/color] "Out32" ([color="#0021E6"]ByVal[/color] PortAddress [color="#0021E6"]As[/color] [color="#0021E6"]Integer[/color], [color="#0021E6"]ByVal[/color] Value [color="#0021E6"]As[/color] [color="#0021E6"]Integer[/color]) |
Code Sample |
[color="#0021E6"]Dim[/color] Led [color="#0021E6"]As[/color] [color="#0021E6"]Boolean[/color] |
Code Sample |
[color="#0021E6"]Private[/color] [color="#0021E6"]Sub[/color] Form_Load() Led = [color="#0021E6"]False[/color] Out &H378, 0 Timer1.Interval = 200 [color="#0021E6"]End[/color] [color="#0021E6"]Sub[/color] |
Code Sample |
[color="#0021E6"]Private[/color] [color="#0021E6"]Sub[/color] Timer1_Timer() [color="#0021E6"]If[/color] Led = [color="#0021E6"]True[/color] [color="#0021E6"]Then[/color] Out &H378, 2 Led = [color="#0021E6"]False[/color] [color="#0021E6"]Else[/color] Out &H378, 1 Led = [color="#0021E6"]True[/color] [color="#0021E6"]End[/color] [color="#0021E6"]If[/color] [color="#0021E6"]End[/color] [color="#0021E6"]Sub[/color] |
Code Sample |
[color="#0021E6"]Private[/color] [color="#0021E6"]Sub[/color] Form_Unload(Cancel [color="#0021E6"]As[/color] [color="#0021E6"]Integer[/color]) Out &H378, 0 [color="#0021E6"]End[/color] [color="#0021E6"]Sub[/color] |
Code Sample |
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) |
Code Sample |
Dim Led As Boolean |
Code Sample |
Private Sub Form_Load() Led = False Out &H378, 0 Timer1.Interval = 200 End Sub |
Code Sample |
Private Sub Timer1_Timer() If Led = True Then Out &H378, 2 Led = False Else Out &H378, 1 Led = True End If End Sub |
Code Sample |
Private Sub Form_Unload(Cancel As Integer) Out &H378, 0 End Sub |
Code Sample |
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) |
Code Sample |
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer |
Code Sample |
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) |
Code Sample |
Private Sub Form_Load() Label1.Caption = “” Timer1.Interval = 5 End Sub |
Code Sample |
Private Sub Timer1_Timer() Label1.Caption = Inp(&H379) End Sub |
Code Sample |
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) |