Недавно родилась идея использовать мышь в качестве датчика траектории движения механизма. Идея очень проста - мышь фиксируется неподвижно, а к механизму прицепляется коврик. С помощью программы написаной на delphi рисовался график движения коврика под мышкой. Но возникла проблема - график постоянно смещается. Причем с постоянным приращением и в одном и том же направлении. Чем больше скорость механизма, тем больше смещение. Проблема точно не в механике, все сделано очень точно. Подскажите пожалуйста, кто знает, в чем может быть проблема? Что интересно - дойдя до угла монитора, курсор не забивается в угол. Траектория остается той же амплитуды и уже никуда не смещаецца
Мышь как датчик траектории
Код в студию..
Мышь как датчик траектории
Какой код?
Мышь как датчик траектории
darteagls писал(а):
....
С помощью программы написаной на delphi рисовался график движения коврика под мышкой.
...
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); //реакция на движение мыши
var
pos: TPoint; //позиция курсора мыши
parx: string; //координата курсора по оси х
pary: string; //координата курсора по оси у
begin
GetCursorPos(pos); //возвращает позицию курсора мыши
parx:= IntToStr(pos.x);
pary:= IntToStr(pos.y);
ListBox1.Items.Add(parx);
ListBox2.Items.Add(pary);
series1.AddXY(pos.x, pos.y,'',CLred);
end;
procedure TForm1.SaveButtonClick(Sender: TObject); //сохранение координат курсора в 2 текстовых файла
begin
if FileExists('x.txt') then
begin
ListBox1.Items.SaveToFile('x.txt');
ListBox2.Items.SaveToFile('y.txt');
end
end;
