Parallele Schnittstelle

[delphi-projekt]

So, also nun mal ein Bild zur näheren Information.

Hier schauen

Gut also, es gibt ja die Pins 1-25 bei einem Stecker. Nun haben wir also unsere
Fernbedienung so umgebaut das der PIN3 das Auto gerade aus fahren lässt, PIN 5
dagegen rückwärts, usw...... .

An dem PIN 1 des Steckers soll der Plus Pol sein, dass heißt, wir haben in unserem Quelltext

Delphi-Quellcode:

procedure TForm1.cbData0Click(Sender: TObject);
var
  b : byte;
begin
  GetPortVal(port,@b,1);
  if cbData0.checked
  then
    b := b or 1     // Bit0 setzen
  else
    b := b and 254; // Bit0 zurücksetzen, 255-1
  SetPortVal(port,b,1);
end;

den Pin angesprochen, wenn die Checkbox aktiviert ist. Soweit ist das uns ja ganz klar.

Unser Problem ist jetzt nur das, das der PIN 3, 5 usw. sowie ganz wichtig der PIN 13 negativ gepolt sein müssen. Wie bekommen wir das nun hin? Weil nur so funktioniert das Auto auch.