Towitoko Chipdrive LED-Anzeige steuern Zeigt, wie mit einfachen Mitteln, die LED-Anzeige mit VB gesteuert werden kann.
Autor:   Michael Nett	Bewertung:     [ Jetzt bewerten ]	Views:  19.451
www.panic-toolz.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 48 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.