Euchner ActiveX Module serial/USB Instrukcja Użytkownika Pobierz pdf (Strona 18)

Manual EKS ActiveX

Module serial / USB

4.2 Example event call in Visual Basic

Private Sub EKS_OnKey( )

Select Case KeyState

Case EKS_EVENT_KEYIN

User functions KeyIn

' e. g. Read key data from the Electronic-Key

' Attention! It is not necessary to call the Read method!

for i=0 to 123

KeyData = KeyData & EKS.Data(i)

Next i

Case EKS_EVENT_KEYOUT

User functions KeyOut

' e. g. Delete Electronic-Key data in the user software

KeyData = "-"

Case EKS_EVENT_OTHER

User functions Other

' e. g. Poll status number

StatusNumber = EKS.LastState

End Select

End Sub

Page 18/20 Subject to technical modifications 098655-03-10/12

1 2 ... 13 14 15 16 17 18 19 20

Brak uwag

Euchner ActiveX Module serial/USB Instrukcja Użytkownika Strona 18