Delphi. Алгоритм Жука. Скорость Движения Мышки.

[Юрец]

Здравствуйте!

у меня есть два вопроса: можно-ли (и как, если да) программно считать, изменить скорость перемещения указателя мыши?

и второй: как корректно занести в массив координаты всех точек контура закрашенной области растровой картинки?

если есть идеи, выложу исходник на дельфи. будем разбираться вместе.

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[ivan219]

Первый вопрос:

function SetMouseSpeed(NewSpeed: Integer): Boolean;
begin
Result := SystemParametersInfo(SPI_SETMOUSESPEED, 1, Pointer(NewSpeed), SPIF_SENDCHANGE );
end;

function GetMouseSpeed: Integer;
begin
SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Result, SPIF_SENDCHANGE );
end;

Выкладывай код посмотрим.

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[Юрец]

Выкладывай код посмотрим.

вот:grid.rar

проект в разработке (что-то убрал, что-то добавил), так-что не пугайтесь.

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

а по работе с программой так: в sprint layout экспортирую плату -> экспорт- картинка bmp. свойства картинки: цвет. размер: для платы размером 50х100мм размеры bmp в пикселях выставить 500х1000. один пиксель - 0,1мм. (при экспортировании в jpg цветов наблюдаются полутона на переходах фон-дорожка, поэтому только bmp).

после запуска программы необходимо указать файл сохраненной картинки. потом жмем кнопу sel_out, курсором жмем на картинке для выбора цвета фона . кнопа sel_in для выбора цвета дорожки (контура).

потом жмем на кнопку неп.лин. . далее курсором кликаем на дорожке (желательно ближе к левому краю,( контроль обхода контура подразумевает движение вверх от начальной точки).

после оконтуривания всех дорожек жмем кнопку G-code. программа генерирует G-code в listbox из stringgrid. далее: файл-сохранить как *gc.

отмеченный галочкой чекбокс ВЕКТОР позволяет не захламлять выходной *gc код излишним объемом строк. при снятой галке чекбокса в stringgrid записываются ВСЕ точки контура.

потом файл *gc загружаем в kcam для резки платы на станке.

а насчет скорости передвижения мышки - в Инете нашел такое:

Для того, чтобы изменить скорость перемещения мыши воспользуйтесь следующим кодом:

SystemParametersInfo(SPI_SETMOUSESPEED,0,(PVOID)5,SPIF_SENDCHANGE); // где 5 - скорость. (по умолчанию - 10).

у меня выдает ошибку при компиляции. (точно не помню, но ссылается на PVOID.).

попробуйте вставить в проект бегунок, ответственный за скорость перемещения указателя.

в form.create вставить код, считывающий скорость. а при form.close восстановить скорость.

Изменено 13 января, 2008 пользователем Юрец

[Реклама]

Выбираем схему BMS для корректной работы литий-железофосфатных (LiFePO4) аккумуляторов

 Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ, также как и для других, очень важен контроль процесса заряда и разряда, а специализированных микросхем для этого вида аккумуляторов не так много. Инженеры КОМПЭЛ подготовили список имеющихся микросхем и возможных решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[ivan219]

Юрец посмотри мой код он рабочий.

Удали (PVOID)

И ещё такой код читать не возможно и разобратся в нём сможешь только ты так что поработай на его оформлеием пользуйся процедурами а не GOTO используй дополнительные Unit чтобы разгрузить Unitn1

Да и коментария практически нет.

Куча глобальных переменных.

Практически везде прописные буквы ты случаем C++ до этого не изучал

С отступами тоже проблема.

Вобщем жуть

[Юрец]

Юрец посмотри мой код он рабочий.

Удали (PVOID)

завтра попробую (2 дня с машиной ковырялся).

Практически везде прописные буквы ты случаем C++ до этого не изучал

было дело...

[ivan219]

было дело...

Теперь понятно почему такое оформление кода.

А что тогда этот проэкт на Delphi пишешь???

[Юрец]

А что тогда этот проэкт на Delphi пишешь???

на Си пишу только для микроконтроллеров в оболочке CodeVisionAVR .

а насчет программы: ivan219, создайте (если не трудно) новый проект в дельфи, чтобы при form.create считывалась скорость перемещения мышки в переменную mouse_speed. а то что-то не получается. не могу разобраться.

буду ждать исходник.

Спасибо.

[Юрец]

А что тогда этот проэкт на Delphi пишешь???

на Си пишу только для микроконтроллеров в оболочке CodeVisionAVR .

а насчет программы: ivan219, с функцией GetMouseSpeed разобрался, а вот с SetMouseSpeed - нет.

вызываю SetMouseSpeed 5 -получаю ошибку: не достаточно параметров (not enough actual parameters). для чего признак Boolean в function SetMouseSpeed(NewSpeed: Integer): Boolean; ? и как правильно вызвать это функцию?

Спасибо.

[ivan219]

Boolean эта проверка на предмет устновленной скорости если True то скорость принята

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls;

type
 TForm1 = class(TForm)
TrackBar1: TTrackBar;
procedure FormCreate(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
{ Private declarations }
 public
{ Public declarations }
 end;

var
 Form1: TForm1;
 DefaultSpeel: Integer;

implementation

{$R *.dfm}

function SetMouseSpeed(NewSpeed: Integer): Boolean;
begin
Result := SystemParametersInfo(SPI_SETMOUSESPEED, 1, Pointer(NewSpeed), SPIF_SENDCHANGE );
end;

function GetMouseSpeed: Integer;
begin
SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Result, SPIF_SENDCHANGE );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DefaultSpeel := GetMouseSpeed;
Caption := IntToStr(DefaultSpeel);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if SetMouseSpeed(TrackBar1.Position) then Caption := IntToStr(GetMouseSpeed);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SetMouseSpeed(DefaultSpeel);
end;

end.

Ползунок поставь в диапазоне 0 - 30, уменя рабочии скорость от 1 до 20

[Юрец]

Большое СПАСИБО! все получилось!