Датчик вращения мыши.

[Jeraldino74]

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

Разъясните-ка мне лучше вот этот код:

  x0:=(Screen.Width) div 2;
  y0:=(Screen.Height) div 1;
  x1:=(Screen.Width) div 1;
  y1:=(Screen.Height) div 1;

Ну это координаты точек абсциссы. Не?

И еще обратите внимание: не стоит привязывать рассчет угла к кнопке на форме, так как тогда курсор будет (всегда, заметьте!) в районе этой кнопки. Лучше уж тогда к правой/средней кнопе самой мыши это привязать.

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

[Sciv]

Ну это координаты точек абсциссы. Не?

Не. Вот так:

  x0:=(Screen.Width) div 2;   {Центр экрана}
  y0:=(Screen.Height) div 2;

  x1:=(Screen.Width);   {Вектор от центра до правого края экрана}
  y1:=(Screen.Height) div 2;
{или}
  x1:=0;   {Вектор от центра до левого края}
  y1:=(Screen.Height) div 2;
{или}
  x1:=(Screen.Width) div 2;   {Вектор от центра до нижнего края экрана}
  y1:=Screen.Height;
{или}
  x1:=(Screen.Width) div 2;   {Вектор от верхнего края до центра}
  y1:=0;

Как то так должно быть, если за начало координат считать центр экрана.
А смысла писать div 1 все-равно никакого нет

А с кнопкой - понятно, все логично.

UPDATE Я вот тут подумал, что если у Вас начало координат посередине центра нижней линии экрана - тогда все ОК. Надо было с этого вопроса и начать

[Jeraldino74]

Да я div 1 влепил, так как стирать обламывало

Ещё тут подумал, как сделать ограничение, чтобы больше 150 градусов не выводилось на экран.

if ag=150 then Edit1.text:=' ' else Edit1.Text:='угол ='+FloatToStr(ag);

Не работает, так. У переменной ag тип real, но даже если я ставлю значение 150, угол после 150 начинает считать.

Вот я совсем уже))) Не понимаю, что пишу))))

if ag>150 then Edit1.text:=' ' else Edit1.Text:='угол ='+FloatToStr(ag);

Я тут вроде жестоко ошибся. И это очень печально. Программа как бы работает, считает угол до 150 градусов и изменяется только в одну сторону. Но тут оказалось, что задание нужно было реализовать так:

Спроектировать измерительное устройство, связанное по COM порту с ЭВМ. В целях проектирования изучить датчик вращения манипулятора типа "мышь". Так же при проектировании учесть наличие схем EPM7032STC44-10 и ADM202EAN. Составить блок-схему алгоритма программы отображения на экране компьютера измеряемой величины.

Печально всё это. Я вот сижу и думаю, чего это всё зря чтоли? %)

[Sciv]

Да ладно, с чего бы зря? Какой-никакой, а опыт. Практика программирования, математические вычисления и вообще... Однако вопрос такой: где Вы будете брать мышь для COM-порта?

И вот еще интересно - как с этим заданием связана Дельфи?

[Jeraldino74]

Ну судя по всему писать надо на ассемблере. А мышку с COM портом, даже не представляю где взять. Пусть будет так: "Подключайте свою мышку, всё работает" :-)

Доброго времени суток.
Стала интересно как заставить работать счётчик нажатия ЛКМ не только на форме, но и вне.

// счётчик нажатий на ЛКМ
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button = mbLeft then Edit3.Text:=inttostr(strtoint(Edit3.Text)+1);
end;

К чему привязывать? Если не к FormMouseDown.

И второй вопрос, странный, но думаю разумный. Хочу, чтобы пользователь мог задать ComboBox1 (да/нет) Тройное нажатие клавиши.

For i := 1 To 10 Do
Begin
  Mouse_Event(MouseEventF_LeftDown, 0, 0, 0, 0);//нажимаем на левую кнопку
  Mouse_Event(MouseEventF_LeftUp, 0, 0, 0, 0);//отпускаем левую кнопку
End;

К какому обработчику событий это прикрутить, чтобы так же вне формы работал?
Помогите.

[New man]

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

К чему привязывать? Если не к FormMouseDown.

через хуки(hook), winAPI

[Sciv]

через хуки(hook), winAPI

Угу. Это уже в ту область, форма ограничена, за собственными пределами она уже не рулит.

[Jeraldino74]

О... нет! Только не hook! Так боялся, что до них дойдёт дело.

Нашел вроде хорошую статью про эти самые Hook'и http://www.realcoding.net/articles/i...k-v-delfi.html

Снизу приведен пример как раз обработка Wh_mouse. Но ни черта пока не понятно. :-)

Кажись, Sciv, вы были правы на счёт того, что нужно начать читать книжку по ООП.

Интересует такой вопрос. Например как нумеруются изображения курсора?
Стандартная мышка(стрелка):= 65539

procedure TForm2.Timer1Timer(Sender: TObject);
var CI: TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  Image1.Picture.Icon.Handle:= CI.hCursor
end;

Допусти я сделал так:

Label1.Caption:=IntToStr(Ci.hCursor);

Чтобы узнать какой номер стандартной мышки.

Image1.Picture.Icon.Handle:= 65539;

И ещё такой вопрос, например пользователь меняет стандартные курсоры на другие, они будут уже иметь другой номер? И как сделать:

Image1.Picture.Icon.Handle:= Стандартный режим;
Image1.Picture.Icon.Handle:= Выбор справки;
Image1.Picture.Icon.Handle:= Занят;
Image1.Picture.Icon.Handle:= ... ;

[Stilet]

какой номер стандартной мышки.

crDefault

const
crDefault = TCursor(0);
crNone = TCursor(-1);
crArrow = TCursor(-2);
crCross = TCursor(-3);
crIBeam = TCursor(-4);
crSize = TCursor(-22);
crSizeNESW = TCursor(-6);
crSizeNS = TCursor(-7);
crSizeNWSE = TCursor(-8);
crSizeWE = TCursor(-9);
crUpArrow = TCursor(-10);
crHourGlass = TCursor(-11);
crDrag = TCursor(-12);
crNoDrop = TCursor(-13);
crHSplit = TCursor(-14);
crVSplit = TCursor(-15);
crMultiDrag = TCursor(-16);
crSQLWait = TCursor(-17);
crNo = TCursor(-18);
crAppStart = TCursor(-19);
crHelp = TCursor(-20);
crHandPoint = TCursor(-21);
crSizeAll = TCursor(-22);

Это из сорцов