Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: USB K8055 Platine (Eingänge in Edit1 ausgeben)

  Alt 11. Jan 2007, 10:13
Herzlich willkommen in der Delphi-PRAXiS, OverClocker.

Die Bits kannst du so einlesen und darstellen:

Delphi-Quellcode:
const
  MAX_CHANNEL = 5;
var
  s: String[MAX_CHANNEL];
  i: Integer;
begin
  for i := 1 to MAX_CHANNEL do
    s[i] := Chr(Ord('0') + Ord(ReadDigitalChannel(i)));
  Edit.Text := s;
end;
Natürlich kannst du die einzelnen Bits auch getrennt darstellen.

Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat