roboforum.ru

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

procedure TForm1.Button1Click(Sender: TObject);
var ostatok: real;
    shagovX, shagovY: integer;
    iX, iY: integer;
begin
  ostatok:=0;

  shagovX:=60;
  shagovY:=25;

  for iY:=1 to shagovY do
  begin//+**
    for iX:=1 to round(int(shagovX/shagovY)) do
    begin//+***
      ostatok:=ostatok+frac(shagovX/shagovY);
      if ostatok>=1 then
      begin
        ostatok:=ostatok-1;
        //делаем дополнительный шаг по Х
        labelX.caption:=intToStr(strToInt(labelX.caption)+1); //Счетчик шаго по Х
        application.ProcessMessages;
      end;
      //делаем шаг по Х
      labelX.caption:=intToStr(strToInt(labelX.caption)+1); //Счетчик шаго по Х
      application.ProcessMessages;
    end;//+***
    //делаем шаг по Y
    labelY.caption:=intToStr(strToInt(labelY.caption)+1); //Счетчик шаго по У
    application.ProcessMessages;
  end;//+**
end;

avr123.nm.ru писал(а):Пора добавлять

1) устранение люфтов по осям

2) 4-ю ось - пока не поздно

3) последовательную передачу инфы в контроллер по 1 ножке - ни в одной проге не видел а считаю что очень нужная фича и прием по другой в формате 8n1 UART.   Эти команды можно использовать и для смены инструмента и для других прибамбасов по усмотрению пользователя. Например программно устанавливать ток ШД и считывать.

Myp писал(а):ммммммм
типа пока мы одной осью подкручиваем чтоб люфт убрать вторая ось(например идеальная без люфта) уже делает рабочий ход??

ну тода надо добавить коррекцию, типа пока выбираем люфт вторая ось не еззит =)

Master писал(а):самый классный вариан сделать нормальную механику и не мудохаться.