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 пользователем Юрец

[Реклама]

Организация питания на основе надежных литиевых аккумуляторов EVE и микросхем азиатского производства

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

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

[ivan219]

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

Удали (PVOID)

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

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

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

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

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

Вобщем жуть

[Реклама]

Сравнительное тестирование аккумуляторов EVE Energy и Samsung типоразмера 18650

Инженеры КОМПЭЛ провели сравнительное тестирование аккумуляторов EVE и Samsung популярного для бытовых и индустриальных применений типоразмера 18650. 

Для теста были выбраны аккумуляторы литий-никельмарганцевой системы: по два образца одного наименования каждого производителя – и протестированы на двух значениях тока разряда: 0,5 А и 2,5 А. Испытания проводились в нормальных условиях на электронной нагрузке EBD-USB от ZKEtech, а зарядка осуществлялась от лабораторного источника питания в режиме CC+CV в соответствии с рекомендациями в даташите на определенную модель. Подробнее>>

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

[Юрец]

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

Удали (PVOID)

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

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

было дело...

[Реклама]

Литиевые аккумуляторы EVE Energy и решения для управления перезаряжаемыми источниками тока (материалы вебинара)

Опубликованы материалы вебинара Компэл, посвященного литиевым аккумуляторам EVE Energy и решениям для управления перезаряжаемыми источниками тока.

На вебинаре мы представили информацию не только по линейкам аккумуляторной продукции EVE, но и по решениям для управления ею, что поможет рассмотреть эти ХИТ в качестве дополнительной альтернативы для уже выпускающихся изделий. Также рассмотрели нюансы работы с производителем и сервисы, предоставляемые Компэл по данной продукции. Подробнее>>

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

[ivan219]

было дело...

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

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

[Реклама]

Литиевые батарейки и аккумуляторы от мирового лидера  EVE в Компэл

Компания Компэл, официальный дистрибьютор EVE Energy, бренда №1 по производству химических источников тока (ХИТ) в мире, предлагает продукцию EVE как со склада, так и под заказ. Компания EVE широко известна в странах Европы, Америки и Юго-Восточной Азии уже более 20 лет. Недавно EVE была объявлена поставщиком новых аккумуляторных элементов круглого формата для электрических моделей «нового класса» компании BMW.

Продукция EVE предназначена для самого широкого спектра применений – от бытового до промышленного. Подробнее>>

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

[Юрец]

А что тогда этот проэкт на 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

[Юрец]

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