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

Handbuch EKS ActiveX

-Modul seriell / USB

4.2 Beispiel eines Event-Aufrufs in Visual Basic

Private Sub EKS_OnKey( )

Select Case KeyState

Case EKS_EVENT_KEYIN

Anwender Funktionen KeyIn

' z. B. Schlüsseldaten des EKS Key auslesen

' ACHTUNG ! Kein Aufruf der Read Methode erforderlich !

for i=0 to 123

SchluesselDaten = SchluesselDaten & EKS.Data(i)

Next i

Case EKS_EVENT_KEYOUT

Anwender Funktionen KeyOut

' z. B. Schlüsseldaten der Anwendersoftware löschen

SchluesselDaten = "-"

Case EKS_EVENT_OTHER

Anwender Funktionen Andere

' z. B. Statusnummer abfragen

Statusnummer = EKS.LastState

End Select

End Sub

Seite 18/20 Technische Änderungen vorbehalten 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