Dann hätte ich doch auch mal eine Frage.
Ich möchte eine dauerhafte Spannung an einem Pin anliegen haben, mein Code sieht bis jetzt so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Zeichen : char;
begin
if Button1.Caption = 'Start' then begin
Button1.Caption := 'Stop';
Zeichen := 'ÿ';
with TCom.Create(nil) do
try
Label2.Caption := 'läuft';
Label2.Font.Color := clLime;
if Open(1,RTS_DISABLED,DTR_DISABLED) then
while Button1.Caption = 'Stop' do begin
Send(Zeichen);
Application.ProcessMessages;
end;
finally
Label2.Caption := 'gestoppt';
Label2.Font.Color := clRed;
Button1.Caption := 'Start';
Close;
Free;
end;
end
else Button1.Caption := 'Start';
end;
Das Zeichen 'ÿ' habe ich genommen, weil es als Byte dargestellt "1111 1111" ist und daher dauernd Spannung anliegen müsste. Ich weiß zwar nicht ob mein Gedankengang bis jetzt richtig ist, doch ich weiß nicht an welchem Pin das Signal ausgegeben wird. Kann man das auch einstellen oder wird es auf allen Pins ausgegeben?
Hinzufügen möchte ich, dass ich ein altes Kabel einer Maus angeschlossen habe und dieses aufgeschnitten habe.Diese Kabel hat aber nur 5 Adern, kann ich damit überhaupt arbeiten?
Edit:
Zitat:
Objekte, die als Typ char deklariert sind, können jedes Zeichen aus dem nicht erweiterten
ASCII-Zeichensatz aufnehmen.
Funktioniert das überhaupt mit meinem Zeichen, denn es kommt im
ASCII-Zeichensatz gar nicht vor!?