Euchner ActiveX Module Ethernet TCP/IP User Manual download pdf (Page 18)

Manual EKS ActiveX

Module Ethernet TCP/IP

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 EKS 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 102030-02-10/12

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

No comments

Euchner ActiveX Module Ethernet TCP/IP User Manual Page 18