Zitat von
M.Knebel:
so wie Du gesagt hast wird nur Pin1 angesprochen ? dass heisst Port(1) ist an, Port(0) ist aus ?
Code:
procedure TSteuerung.rbtnleftClick(Sender: TObject); assembler;
begin
port(1);
end;
procedure TSteuerung.rbtnrightClick(Sender: TObject); assembler;
begin
port(0);
end;
Was wäre wenn ich jetzt Pin 3 und 5 ansprechen möchte ?
Nachtrag: Oder könnte sein dass bei port(5) dann Pin 1 und 3 angesprochen wird wenn man an das Dualsystem denkt ?
hm...
Ich bin mir nicht ganz sicher was den Befehl Port(0) betrifft, aber es funktioniert. Bei dir wäre es:
Code:
procedure TSteuerung.rbtnleftClick(Sender: TObject); assembler;
begin
port(3);
port(5);
end;
Ich hab mir gedacht das man durch port(0) die dinger einfach auf masse (pin 26) legt.
Das was Christian gesagt hat ist richtig.
MfG Florian