BComPort в Delphi7

[min@y™]

а последняя цифра это состояние выхода 0 или 1.

так и писал бы: если нечётное, тогда изменить checked(RadioButton1) на True, чётное - false.
почему BComPort и Delphi7?

[Oksymoron]

Сообщение от kutani

так поправьте переменную на вашу 's' при чтении вместо 'str' )

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var s: string;
  i: integer;
begin
  s:= '';
  BComPort1.ReadStr(s, count);

  for i:= 1 to count do begin
    if Ord(s[i])=134 then RadioButton1.checked:= true;
    if Ord(s[i])=130 then RadioButton1.checked:= false;
  end;

И потом, приведите дамп с portmon вашего обмена с буратиной, так будет видно что реально шлется и будет понятно чего выделять. Скетч-то отсутствует по-прежнему )

скетч вот:
int led = 13;
void setup() {
Serial.begin(9600);
pinMode(led, OUTPUT);
}
void loop() {
digitalWrite(led, HIGH);
Serial.println(131);
delay(1000);
digitalWrite(led, LOW);
Serial.println(130);
delay(1000);
}
Это обычный блинк с добавлением отсылки в сериал.
изменил как вы и писали но не выходит.

[Oksymoron]

Сообщение от min@y™

так и писал бы: если нечётное, тогда изменить checked(RadioButton1) на True, чётное - false.
почему BComPort и Delphi7?

Я не программист но мне показали начальные азы в этой программе))

[kutani]

Serial.println(131);

почитайте справку по операторам. Print используется для передачи данных как символов, Println добавляет перевод каретки. Write передаст в бинарном виде. Соответственно, если вы используете Serial.println(131), то на верхнем уровне мы увидим 4 байта, байтовое (аски) отображение символа 1=31, 3=33, 1=33 и 13. Отсюда и прием нужно строить и нет смысла переводить в байты через ord() у меня.

изменил как вы и писали но не выходит.

когда копипастите, будьте внимательнее. Нахрена событие приема выкинули и вперли в клик чекера? Скопируйте код полностью без своих изысканий, раз уж так )

[Oksymoron]

Сообщение от min@y™

так и писал бы: если нечётное, тогда изменить checked(RadioButton1) на True, чётное - false.
почему BComPort и Delphi7?

Четные или нечетные здесь не подадут я взял порт 13 так как на нем висит светодиод и я вижу каждое срабатывание, на каждый порт свой RadioButton. Когда получиться с 13 портом я все остальные допиши по примеру.

[min@y™]

Четные или нечетные здесь не подадут я взял порт 13 так как на нем висит светодиод и я вижу каждое срабатывание

2хЯть!

нечётное число - 0-й бит = 1.

[Oksymoron]

Сообщение от kutani

Нахрена событие приема выкинули и вперли в клик чекера?

Прошу прощения но я Вас не могу понять, для меня жаргон программиста очень сложен. Прошу Вас разъяснить мне как все исправить.

[kutani]

Для начала, если справка никак не читается по религиозным соображениям, то просто взгляните в свой же код поста #3 и свой скриншот поста #12. Без комментариев )

[Oksymoron]

Все сделал, сори за мои тормазнутость. checked не меняется(

[min@y™]

checked не меняется(

use a debugger