Quelltext /~heha/hs/relais1.zip/RelaisTest1.frm

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

Vorgefundene Kodierung: UTF-80