Rubrik: Verschiedenes / Sonstiges | VB-Versionen: VB4, VB5, VB6 | 27.04.01 |
Towitoko Chipdrive LED-Anzeige steuern Zeigt, wie mit einfachen Mitteln, die LED-Anzeige mit VB gesteuert werden kann. | ||
Autor: Michael Nett | Bewertung: | Views: 18.969 |
www.panic-toolz.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Beim Erwerb des TOWITOKO-Chipdrive Developer Kit erhalten Sie eine ausführliche Anleitung, wie Sie das Chipdrive unter Delphi ansprechen können. Leider wird Visual Basic "nur" nebenbei erwähnt und mit einem kleinem Projekt "abgefertig". Hier wird unteranderem nicht erläutert wie die LED-Anzeige angesprochen werden kann.
Das wichtigste ist, das "DataOut" als String mit Leerzeichen zu füllen ist, da sonst keine Kommunikation mit der DLL möglich ist und keine Daten zurückgesendet werden können (wurde auch nicht in der Dokumentation erwähnt).
Jetzt gibt es noch etwas zu beachten und zwar:
0 = Aus 1 = Rot 2 = Grün 3 = Gelb 01 = Blinken, Rot 0011 = Blinken, langsam, Rot 123 = Rot, Grün, Gelb im Wechsel
Beispiel:
Erstellen Sie ein neues Projekt und fügen in im Allgemein-Teil (Allgemein / Deklaration) folgendes ein:
Private Declare Function SCardComand Lib "SCARD32" ( _ Handle As Long, _ ByVal cmd As String, _ CmdLen As Long, _ ByVal DataIn As String, _ DataInLen As Long, _ ByVal DataOut As String, _ DataOutLen As Long) As Long Dim D As String
Plazieren Sie einen CommandButton auf das Formular und hinterlegen folgenden Code:
Private Sub Command1_Click() D = String(200, 0) SCardComand 0, "Device,SetLed,01", 0, nil, _ 0, D, 255 End Sub
Die 01 gibt an, wie sich das LED verhalten soll. Im Beispiel also mit einem rotem Blinken.