roboforum.ru

Duhas писал(а):настройки порта вводить надо в программе открывающей порт, а не в диспетчере устройств.

юзать лучше путти. настройки в путти поставить правильные и сохранить конфигурацию.

В программах то же меняю.
про пути не понял. что за настройки в пупи?

это в терминале?

у меня почемуто не соединяется, хотя все параметры в закладке serial выставил. что то еще надо настроить?

Добавлено спустя 16 минут 48 секунд:
соединился. но особой разници пока не вижу с гипертерминалом.
контроллер шлет попрежнему чушь, без команды, и не шъется.

CiSi писал(а):Реально не понял что сделал, но заработало! )))
во включенном состоянии поменял местами джамперы уарт-а на S, а потом обратно в положение М
и все.

Очуметь, плохой контакт у джампера - это что-то новое в моей практике

CiSi писал(а):А вот терминал orfa, все равно зависает ( но уже соединившись с модулем

Могу посоветовать только исходники+отладка.

Изготовил кранштейны под электронику и вкарячил ее в бота. С верху положил нетбук в него залил примитивную прогрммку. Управление происходит через вай фай и удаленый рабочий стол.

Вопрос по bts7960.Просветите пожалуйста как она управляется и что может, а то в описании не пойму.

Не могу решить одну проблему, дело скорей всего в программировании. Ошибка похоже в следующем: переполняется буфер обмена, ошибка (WriteFile) и плата перестает реагировать на команды с пк, а ошибка начинает вылетать после нажатия на любую из команд. Даже ком порт не отключается, приходится вырубать программку через диспетчер задач. после ее повторного запуска она не сразу конектится с ком портом.
Пробывал и входящий и исходящий буфер очищать, ошибка все равно вылезает. Очищаю буфер после получения ответа от платы.
Контроллер питается от бп или аккумулятора в 12В через стабилизатор 5В.

Код: Выделить всё • Развернуть

var
  Form1: TForm1;

   str: string;
   speed: string;

implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
  Var
  q: integer;
begin
  if getasynckeystate(vk_up)<0{(getasynckeystate(17)<0) and (getasynckeystate(38)<0)} then begin
      //Machine.TraverseTop(SpeedFreeMov);   вперед
      speed:=Labelededit1.Text;
      str:='DrvLR='+speed+','+speed;
      str := Str + #13#10;
      Form1.ComPort1.WriteStr(str);
      Memo1.Text := Memo1.Text + Str;

    end;
 if getasynckeystate(vk_down)<0{(getasynckeystate(17)<0) and (getasynckeystate(40)<0)} then begin
     // Machine.TraverseBottom(SpeedFreeMov); назад
     speed:='-'+Labelededit1.Text;
     str:='DrvLR='+speed+','+speed;
     str := Str + #13#10;
     Form1.ComPort1.WriteStr(str);
     Memo1.Text := Memo1.Text + Str;
    end;
    if getasynckeystate(vk_left)<0{(getasynckeystate(17)<0) and (getasynckeystate(40)<0)} then begin
     // Machine.TraverseBottom(SpeedFreeMov); Лево
    speed:=Labelededit1.Text;
 str:='DrvLR=-'+speed+','+speed;
 str := Str + #13#10;
 Form1.ComPort1.WriteStr(str);
 Memo1.Text := Memo1.Text + Str;
    end;
    if getasynckeystate(vk_right)<0{(getasynckeystate(17)<0) and (getasynckeystate(40)<0)} then begin
     // Machine.TraverseBottom(SpeedFreeMov); Право
      speed:=Labelededit1.Text;
 str:='DrvLR='+speed+',-'+speed;
 str := Str + #13#10;
 Form1.ComPort1.WriteStr(str);
 Memo1.Text := Memo1.Text + Str;
    end;
    if getasynckeystate(32)<0{(getasynckeystate(17)<0) and (getasynckeystate(40)<0)} then begin
     // Machine.TraverseBottom(SpeedFreeMov); стоп
     str:='DrvLR=0,0';
Str := Str + #13#10;
ComPort1.WriteStr(str);
    Memo1.Text := Memo1.Text + Str +'...'+Inttostr(q);
end;
end;

procedure TForm1.Button10Click(Sender: TObject); //влево
begin
 speed:=Labelededit1.Text;
 str:='DrvLR=-'+speed+','+speed;
 str := Str +#13#10;
 Form1.ComPort1.WriteStr(str);
 Memo1.Text := Memo1.Text + Str;
 Sleep(100);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ComPort1.ShowSetupDialog;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ComPort1.Connected then
    ComPort1.Close
  else
    ComPort1.Open;
end;

procedure TForm1.Button3Click(Sender: TObject);   //версия прошивки
begin
str:='V';
Str := Str + #13#10;
 Form1.ComPort1.WriteStr(str);
 //Memo1.Lines.Add(str);
 //Memo1.Lines.Text:=str;
 Memo1.Text := Memo1.Text + Str;
end;

procedure TForm1.Button4Click(Sender: TObject);    // закрыть
begin
ComPort1.Free;
Form1.ComPort1.Close;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Memo1.Lines.Clear;
end;

procedure TForm1.Button6Click(Sender: TObject);    // stop
begin
str:='DrvLR=0,0';
Str := Str +#13#10;
 ComPort1.WriteStr(str);
    Memo1.Text := Memo1.Text + Str;
    Sleep(100);
end;

procedure TForm1.Button7Click(Sender: TObject);    //вперед
begin
 speed:=Labelededit1.Text;
 str:='DrvLR='+speed+','+speed;
 str := Str +#13#10;
 Form1.ComPort1.WriteStr(str);
 Memo1.Text := Memo1.Text + Str;
 Sleep(100);
end;

procedure TForm1.Button8Click(Sender: TObject);       //назад
begin
 speed:='-'+Labelededit1.Text;
 str:='DrvLR='+speed+','+speed;
 str := Str +#13#10;
 Form1.ComPort1.WriteStr(str);
 Memo1.Text := Memo1.Text + Str;
 Sleep(100);
end;

procedure TForm1.Button9Click(Sender: TObject);    //вправо
begin
  speed:=Labelededit1.Text;
 str:='DrvLR='+speed+',-'+speed;
 str := Str +#13#10;
 Form1.ComPort1.WriteStr(str);
 Memo1.Text := Memo1.Text + Str;
 Sleep(100);
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
  ComPort1.ReadStr(Str, count);
  Memo1.Lines.Add(str);
  //PurgeComm(ComPort1.Handle, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);  // закрыть
begin
 Form1.ComPort1.Close;
end;

end.

не устаю радоваться названию )))