Hallo Leute,
ich bin soweit.
Kann die Karte jetzt ansteuern, die einzelnen relais ein-/anschalten sowie alle an und alle aus.
Was ich noch nicht hinbekommen habe, ist die Deklaration der Variablen. Darum habe ich halt die CheckSumme per Hand ausgerechnet, war eh nicht schwer, da sich der Wert nur um eins Verschiebt.
Habe also für jedes Relais eine RadioGroup erstellt.
Delphi-Quellcode:
procedure TForm1.RadioGroup2Click(Sender: TObject);
var BefehlRG21, BefehlRG22: Char;
CheckSummeRG21, CheckSummeRG22: String;
begin
Start := Char(13);
KartenAdresse := Char(1);
BefehlRG21 := 'S';
BefehlRG22 := 'C';
RelaisNr := '2';
CheckSummeRG21:= Char(109);
ChecksummeRG22:= Char(125);
if RadioGroup2.Items[RadioGroup2.ItemIndex]= 'an' then
S:= Start + KartenAdresse + BefehlRG21 + RelaisNr + CheckSummeRG21;
if RadioGroup2.Items[RadioGroup2.ItemIndex]= 'aus' then
S:= Start + KartenAdresse + BefehlRG22 + RelaisNr + CheckSummeRG22;
C:= C+C;
SerialPortNG1.SendString(S);
Edit1.Text:= S;
für Relais 2 und
Delphi-Quellcode:
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
BefehlRG11, BefehlRG12: Char;
CheckSummeRG11, CheckSummeRG12: String;
begin
Start := Char(13);
KartenAdresse := Char(1);
BefehlRG11 := 'S';
BefehlRG12 := 'C';
RelaisNr := '1';
CheckSummeRG11:= Char(110);
ChecksummeRG12:= Char(126);
if RadioGroup1.Items[RadioGroup1.ItemIndex]= 'an' then
S:= Start + KartenAdresse + BefehlRG11 + RelaisNr + CheckSummeRG11;
if RadioGroup1.Items[RadioGroup1.ItemIndex]= 'aus' then
S:= Start + KartenAdresse + BefehlRG12 + RelaisNr + CheckSummeRG12;
C:= C+C;
SerialPortNG1.SendString(S);
Edit1.Text:= S;
end;
für Relais 1.
Wer möcht kann gerne den kompletten Code haben. Er muß mir nur zeigen, wie ich ihn hier verlinken kann.
Ich Danke schon mal Allen die mir geholfen haben und noch helfen werden.
und werde fleisig weiter
.
Mit Grüssen von der Mosel
HaGü