EUCHNER ActiveX Module serial/USB - Manual (Page 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