VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
Caption = "Relais-Steuerung Sundox 1001495"
ClientHeight = 2640
ClientLeft = 45
ClientTop = 330
ClientWidth = 3375
OleObjectBlob = "RelaisTest1.frx":0000
StartUpPosition = 1 'Fenstermitte
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Simple Ansteuerung einer Relaiskarte "Sundox 1001495"
'ⁿber Druckerschnittstelle OHNE Kerneltreiber und Admin-Rechte
'061017 Erstellung
Private gCurLpt$
Private Sub Ausgabe()
Dim RelayState As Byte
RelayState = 0
If Bit0.Value Then RelayState = RelayState Or 1
If Bit1.Value Then RelayState = RelayState Or 2
If Bit2.Value Then RelayState = RelayState Or 4
If Bit3.Value Then RelayState = RelayState Or 8
If Bit4.Value Then RelayState = RelayState Or 16
If Bit5.Value Then RelayState = RelayState Or 32
If Bit6.Value Then RelayState = RelayState Or 64
If Bit7.Value Then RelayState = RelayState Or 128
Open "\\.\" & gCurLpt$ For Binary Access Write As #1 '"\\." ist fⁿr Win98/Me
Put #1, , RelayState
Close #1 ' sonst kein FLUSH!!
End Sub
Private Sub AllesEin_Click()
Bit0.Value = True
Bit1.Value = True
Bit2.Value = True
Bit3.Value = True
Bit4.Value = True
Bit5.Value = True
Bit6.Value = True
Bit7.Value = True
End Sub
Private Sub AllesAus_Click()
Bit0.Value = False
Bit1.Value = False
Bit2.Value = False
Bit3.Value = False
Bit4.Value = False
Bit5.Value = False
Bit6.Value = False
Bit7.Value = False
End Sub
Private Sub Bit0_Click()
Ausgabe
End Sub
Private Sub Bit1_Click()
Ausgabe
End Sub
Private Sub Bit2_Click()
Ausgabe
End Sub
Private Sub Bit3_Click()
Ausgabe
End Sub
Private Sub Bit4_Click()
Ausgabe
End Sub
Private Sub Bit5_Click()
Ausgabe
End Sub
Private Sub Bit6_Click()
Ausgabe
End Sub
Private Sub Bit7_Click()
Ausgabe
End Sub
Private Sub UserForm_Initialize()
gCurLpt$ = "LPT1"
Ausgabe
End Sub
Detected encoding: OEM (CP437) | 1
|
|