Не хватает "end" .Delphi7

[zvygin1964]

Работает, но не всё (В этой теме флудить можно. Кто помогает за денежные знаки, сразу пишите в л/с сколько должен за каждый чих... Пусть накапливается до целого 0,5 литра):

procedure TForm1.Timer1Timer(Sender: TObject);//Timer1.Enabled:=false;// отключить таймер//Timer1.Enabled:= true; //включить
var  //Положение курсора до первого срабатывания  Timer  не учитывается
  i:integer;  //номер столбца в StringGrid1
  ErrorArcTan: Extended;//знаменатель в дроби не должен оказаться равен "нулю"
  X_rotation, Y_rotation:integer; //текущие координаты
  Trunc_ArcTan2: Extended;//угол направления поворота со знаком
  numerator_ArcTan2: Extended;//the numerator and denominator (числитель и знаменатель   ArcTan2)
 // column : integer;  //номер столбца в StringGrid1
begin
   moment_time:= moment_time+1;  //счетчик времени
   X_rotation:=Mouse.CursorPos.X-kX ;////текущие координаты приведенные к полюсю полярной системы координат поворота
   Y_rotation:=Mouse.CursorPos.Y-kY ;
  begin
  if column < Ncolumn-1
  then column:=column+1
  else column:=1;// переполнения StringGrid1 не будет
  StringGrid1.Cells[column,1]:=IntToStr(moment_time); //[столбуец , строка]
  end;
  
  if member_array < turn_over then  //поворот закончен по количеству выборочных расчетов
   begin //переполнения массива не допустим
    if (X_rotation <> coordinate_rotation[member_array-1].X) or (Y_rotation <> coordinate_rotation[member_array-1].Y) then  //поворот закончен по количеству выборочных расчетов
     begin //переполнения массива не допустим
      begin
        StringGrid1.Cells[column,2]:=IntToStr(X_rotation);   StringGrid1.Cells[0,2]:='  Положение курсора X в момент OnTimer';
        StringGrid1.Cells[column,3]:=IntToStr(Y_rotation);   StringGrid1.Cells[0,3]:='  Положение курсора Y в момент OnTimer';
        coordinate_rotation[member_array].X:= X_rotation;//заполняем массив
        coordinate_rotation[member_array].Y:= Y_rotation;
        //   member_array:= member_array+1;  //счетчик массива
        numerator_ArcTan2:= ((coordinate_rotation[member_array-1]).X*(coordinate_rotation[member_array].Y)) - ((coordinate_rotation[member_array-1].Y)*(coordinate_rotation[member_array].X));
        ErrorArcTan:=coordinate_rotation[member_array-1].X*(coordinate_rotation[member_array].X)+coordinate_rotation[member_array-1].Y*(coordinate_rotation[member_array].Y); // знаменатель в дроби никогда не равен нулю , не допущу!
        member_array:= member_array+1;  //счетчик массива
        StringGrid1.Cells[6,6]:=FloatToStr(member_array);//заполняется элемент массива с номером
       begin
        if  ErrorArcTan=0 then  ErrorArcTan:=0.1 else
        asm nop end;
         StringGrid1.Cells[1,4]:=FloatToStr(ErrorArcTan);//показываем знаменатель дроби не равный нулю
       end;
       begin
        Trunc_ArcTan2:=(Trunc(ArcTan2(numerator_ArcTan2, ErrorArcTan)))* (180 / Pi);   //переводим в градусы; //полярный угол курсора относительно полюса
        StringGrid1.Cells[4,4]:=FloatToStr(Trunc_ArcTan2); // угол и направление поворота [столбуец , строка]
       end;
      end;
      if Trunc_ArcTan2<= 0 then  //поворот против часовой стрелки
         StringGrid1.Cells[4,4]:=FloatToStr(-1)
      else
         StringGrid1.Cells[4,4]:=FloatToStr(1);//поворот по часовой стрелки
       end;
    end
    else
  begin
        StringGrid1.Cells[0,5]:='  поворот закончен по количеству выборочных расчетов turn_over';
   asm nop end;
  end;

  if moment_time < turn_over_time then  //поворот закончен по количеству выборочных расчетов
  begin //продолжается время отсчета манипуляций
  asm nop end;
  end else //asm nop end;
        StringGrid1.Cells[0,6]:='  окончилось контрольное время поворота turn_over_time';
end;

Исходники положил сюда: http://rghost.ru/8grg9K98s

[Аватар]

Там по-моему лишние end-ы. Нормально отформатировать, лишние операторные блоки убрать и все видно станет

[evg_m]

begin //переполнения массива не допустим
begin

может это ? (лишние begin)

[zvygin1964]

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

может это лишние begin

Нет, не этот. Без него всё стало коричневым.

Сообщение от Аватар

Нормально отформатировать, лишние операторные блоки убрать

, - это я не умею...

[ResourceSpace]

гм... А что оно вообще делает? о__О

asm nop end; - это для чего? Ассемблерная вставка какая-то, но смысл/назначение я не понял.

У меня если вызывается код выше чем "не работает это место" - то и само "место" тоже вызывается.
Может где-то обнулять нужно?: StringGrid1.Cells[4,4]:='';

[JUDAS]

Автор, вот так работает

procedure TForm1.Timer1Timer(Sender: TObject);//Timer1.Enabled:=false;// отключить таймер//Timer1.Enabled:= true; //включить
var  //Положение курсора до первого срабатывания  Timer  не учитывается
  i:integer;  //номер столбца в StringGrid1
  ErrorArcTan: Extended;//знаменатель в дроби не должен оказаться равен "нулю"
  X_rotation, Y_rotation:integer; //текущие координаты
  Trunc_ArcTan2: Extended;//угол направления поворота со знаком
  numerator_ArcTan2: Extended;//the numerator and denominator (числитель и знаменатель   ArcTan2)
 // column : integer;  //номер столбца в StringGrid1
begin
  moment_time:= moment_time+1;  //счетчик времени
  X_rotation:=Mouse.CursorPos.X-kX ;////текущие координаты приведенные к полюсю полярной системы координат поворота
  Y_rotation:=Mouse.CursorPos.Y-kY ;

  if column < Ncolumn-1
  then column:=column+1
  else column:=1;// переполнения StringGrid1 не будет
  StringGrid1.Cells[column,1]:=IntToStr(moment_time); //[столбуец , строка]

  
  if member_array < turn_over then  //поворот закончен по количеству выборочных расчетов
  begin //переполнения массива не допустим
    if (X_rotation <> coordinate_rotation[member_array-1].X) or (Y_rotation <> coordinate_rotation[member_array-1].Y) then 
   //поворот закончен по количеству выборочных расчетов
    begin //переполнения массива не допустим
      StringGrid1.Cells[column,2]:=IntToStr(X_rotation);   StringGrid1.Cells[0,2]:='  Положение курсора X в момент OnTimer';
      StringGrid1.Cells[column,3]:=IntToStr(Y_rotation);   StringGrid1.Cells[0,3]:='  Положение курсора Y в момент OnTimer';
      coordinate_rotation[member_array].X:= X_rotation;//заполняем массив
      coordinate_rotation[member_array].Y:= Y_rotation;
      //   member_array:= member_array+1;  //счетчик массива
      numerator_ArcTan2:= ((coordinate_rotation[member_array-1]).X*(coordinate_rotation[member_array].Y)) -
     ((coordinate_rotation[member_array-1].Y)*(coordinate_rotation[member_array].X));
      ErrorArcTan:=coordinate_rotation[member_array-1].X*(coordinate_rotation[member_array].X)+
  coordinate_rotation[member_array-1].Y*(coordinate_rotation[member_array].Y); // знаменатель в дроби никогда не равен нулю , не допущу!
      member_array:= member_array+1;  //счетчик массива
      StringGrid1.Cells[6,6]:=FloatToStr(member_array);//заполняется элемент массива с номером

      if  ErrorArcTan=0 then  ErrorArcTan:=0.1 else
      asm nop end;
      StringGrid1.Cells[1,4]:=FloatToStr(ErrorArcTan);//показываем знаменатель дроби не равный нулю


      Trunc_ArcTan2:=(Trunc(ArcTan2(numerator_ArcTan2, ErrorArcTan)))* (180 / Pi);   //переводим в градусы; 
//полярный угол курсора относительно полюса
      StringGrid1.Cells[4,4]:=FloatToStr(Trunc_ArcTan2); // угол и направление поворота [столбуец , строка]
      if Trunc_ArcTan2<= 0 then  //поворот против часовой стрелки
         StringGrid1.Cells[4,4]:=FloatToStr(-1)
      else
         StringGrid1.Cells[4,4]:=FloatToStr(1);//поворот по часовой стрелки
    end;  

  end else
  begin
    StringGrid1.Cells[0,5]:='  поворот закончен по количеству выборочных расчетов turn_over';
    asm nop end;
  end;



  if moment_time < turn_over_time then  //поворот закончен по количеству выборочных расчетов
  begin //продолжается время отсчета манипуляций
    asm nop end;
  end else //asm nop end;
    StringGrid1.Cells[0,6]:='  окончилось контрольное время поворота turn_over_time';
end;

ели вчехлил как запускать таймер. Подержал мышку нажатой пару секунд, что-то в гриде заполняется

[zvygin1964]

Проверил. Выделенный на рисунке фрагмент, как и раньше не работает. Знаменатель дроби вычисляется, а Trunc_ArcTan2 уже нет.

[zvygin1964]

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

А что оно вообще делает?
asm nop end; - это для чего?

,- это продолжение темы: http://programmersforum.ru/showthrea...=267214&page=6
(симулятор работы оборудования).
Нажал на левую кнопку мыши и поворачиваешь по рисунку секунд 10 и более. Потом отпустить. Узнаем куда был поворот. Будем делать другие действия...

"asm nop end",- нет операции. Поставил, чтобы занять строку, вдруг там она нужна?

По Timer1Timer заполняю массив координат, где был курсор.
Требования:
-Не допустить переполнения StringGrid1;
-Не допустить переполнения массива координат;
-Заполнять только при изменении положения курсора;
-Вычислять угол поворота вокруг заданного центра при каждом изменении массива между двумя последними значениями,
определить направление поворота (-1 -это против часовой стрелки);
-По заполнению массива остановить его заполнение;
-По истечении контрольного времени - сообщить об этом.

[ResourceSpace]

Всё равно не соображу какие действия мышкой к чему должны приводить... %)

       begin
        if  ErrorArcTan=0 then  ErrorArcTan:=0.1 else
        asm nop end;
         StringGrid1.Cells[1,4]:=FloatToStr(ErrorArcTan);//показываем знаменатель дроби не равный нулю
       end;
       begin
        Trunc_ArcTan2:=(Trunc(ArcTan2(numerator_ArcTan2, ErrorArcTan)))* (180 / Pi);   //переводим в градусы; //полярный угол курсора относительно полюса
        StringGrid1.Cells[4,4]:=FloatToStr(Trunc_ArcTan2); // угол и направление поворота [столбуец , строка]
       end;
      end;
      if Trunc_ArcTan2<= 0 then  //поворот против часовой стрелки
         StringGrid1.Cells[4,4]:=FloatToStr(-1)
      else
         StringGrid1.Cells[4,4]:=FloatToStr(1);//поворот по часовой стрелки
       end;

Прежде всего у вас StringGrid1.Cells[4,4] заполняется сначала значением Trunc_ArcTan2, а после затирается на -1 или 1.
Дальше мне кажется в Trunc неправильно скобки расставлены, может так?:

Trunc_ArcTan2:=Trunc(ArcTan2(numerator_ArcTan2, ErrorArcTan)*(180/Pi));   //переводим в градусы;

А сам участок кода выполняется, можно проверить выводя: Label2.Caption:='test-'+IntToStr(GetTickCount);

[JUDAS]

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

Проверил. Выделенный на рисунке фрагмент, как и раньше не работает. Знаменатель дроби вычисляется, а Trunc_ArcTan2 уже нет.

Автор, давай проАНАЛизируем указаную тобой строку

Trunc_ArcTan2:=(Trunc(ArcTan2(numerator_ArcTan2, ErrorArcTan)))* (180 / Pi);   //переводим в градусы;

пусть numerator_ArcTan2 = 1 и ErrorArcTan = 1, то есть арктангенс dy/dx при обоих значениях в 1 = pi/4 (45 градусов если на русском языке)
теперь мы делаем Trunc (отброс дробной части) = 0
теперь 0 * 180 / pi = 0
то есть всё корректно работает. В твоём случае автор, значение всегда будет 0.
Теперь переписываем строку так, чтобы она делала то что в комментарии

Trunc_ArcTan2:=  trunc( ArcTan2(numerator_ArcTan2, ErrorArcTan)*180 / Pi  );   //переводим в градусы;