Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Вниз

Помогите! Как написать простой AI   Найти похожие ветки 

 
Knob ©   (2007-07-14 14:25) [0]

Мне нужно сделать так чтобы программа находила координаты курсора мышию. И чтобы форма медленно за ним двигалась(но не по диогонале).


 
Knob ©   (2007-07-14 14:48) [1]

Ну помогите!


 
Kolan ©   (2007-07-14 14:50) [2]

> [1] Knob ©   (14.07.07 14:48)
> Ну помогите!

Свойства Top, Left у формы есть.


> Ну помогите!

Конкретно что не получается? Где вопросы — нет. Вот и ответов тоже нет.


 
Инс ©   (2007-07-14 14:53) [3]


> но не по диогонале


А как?


 
Knob ©   (2007-07-14 14:55) [4]

Как курсор мыши найти? На форме ясно, а на рабочем столе?


 
Zagaevskiy ©   (2007-07-14 14:55) [5]


> но не по диогонале

Чего? Как сделать по диагонали знаешь?


 
Zagaevskiy ©   (2007-07-14 14:58) [6]


> Как курсор мыши найти? На форме ясно, а на рабочем столе?

GetCursorPos()?


 
Knob ©   (2007-07-14 14:59) [7]

Спасибо


 
Zagaevskiy ©   (2007-07-14 15:01) [8]

Всегда пожалста


 
Shamansky_ne   (2007-07-14 15:03) [9]

procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.Enabled then
timer1.Enabled:=false
else timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
p:TPoint;
begin
GetCursorPos(p);
application.MainForm.Top:=p.Y-10;
application.MainForm.Left:=p.X-10;
end;


10 - отступы от курсора
интервал на таймере ставишь по своему желанию
эту функцию хочешь цепляешь на таймер, как сделано у меня, хотя наверное правильнее было отлавливать событие движения мышки


 
Anatoly Podgoretsky ©   (2007-07-14 15:03) [10]

> Инс  (14.07.2007 14:53:03)  [3]

Вот это и есть твое AI


 
Zagaevskiy ©   (2007-07-14 15:08) [11]


> Shamansky_ne   (14.07.07 15:03) [9]


> И чтобы форма медленно за ним двигалась

Походу если курсор дёрнуть резко, то форма должна к нему плавно приближаться, но не по прямой ("диагонали")
Если я не прав, то сорри


 
Shamansky_ne   (2007-07-14 15:24) [12]

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


 
Zagaevskiy ©   (2007-07-14 15:25) [13]

Это если скорость движения формы должна меняться.А если нет?


 
Shamansky_ne   (2007-07-14 15:38) [14]


> Zagaevskiy ©   (

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


 
Zagaevskiy ©   (2007-07-14 15:41) [15]


> Shamansky_ne   (14.07.07 15:38) [14]
>
> > Zagaevskiy ©   (
>
> из примера видно, что интервал таймера - задержка с которой
> будет перемещаться форма вслед за курсором, а скорость движения
> формы будет такая же как и у курсора, то есть неравномерная
> во времени, т.к. добиться равномерного движения мышкой навряд
> удастся.
> Если же необходма реализация вида, сдвинул курсор, и форма
> начала с некоторой скоростью повторять траекторию, которую
> прошел курсор, то это уже совсем другое дело.

Откуда я знаю что нужно автору?
Пусть он скажет, а то мы моск парим, что да как :)


 
Shamansky_ne   (2007-07-14 15:47) [16]


> Zagaevskiy

Во блин, а я подумал, что ты у меня спрашиваешь:)

> Knob

Автор отпишись помогло тебе или нет.


 
Zagaevskiy ©   (2007-07-14 15:50) [17]


> > Knob
>
> Автор отпишись помогло тебе или нет.

Он ушёл и возвращаться не обещал


 
Инс ©   (2007-07-14 16:41) [18]


> Вот это и есть твое AI

Хм.. да. Вроде и выспался, а понять, что Вы имели в виду - никак!


 
Zagaevskiy ©   (2007-07-14 16:46) [19]


> Хм.. да. Вроде и выспался, а понять, что Вы имели в виду
> - никак!

Это тебе снится


 
Anatoly Podgoretsky ©   (2007-07-14 17:00) [20]

> Инс  (14.07.2007 16:41:18)  [18]

Это значит, что ты морщи мозг вместо автора


 
Инс ©   (2007-07-14 17:01) [21]


> [20] Anatoly Podgoretsky ©   (14.07.07 17:00)

Ясно


 
Knob ©   (2007-07-16 21:48) [22]

Помогло только не так работает.


 
Dib@zol ©   (2007-07-16 21:54) [23]

Епт. А как должно-то??? Объясни толком, телепаторы из-за низкой облачности барахлят!


 
Knob ©   (2007-07-16 21:56) [24]

Сначала по координатам X, а потом по Y


 
Dib@zol ©   (2007-07-16 21:59) [25]

Ну дык и двигай форму сначала по Х и проверяй, совпадает ли этот Х с мышковым. Если да - накчинай двигать по Y.


 
Knob ©   (2007-07-16 22:17) [26]

Знаю. Ужо сам догадался.


 
Юрий Зотов ©   (2007-07-17 01:35) [27]

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


 
Германн ©   (2007-07-17 01:46) [28]


> Юрий Зотов ©   (17.07.07 01:35) [27]

AI, NI - хоть бы кто разъяснил рядовому, необученному - что значат эти аббревиатуры?
:)


 
DrPass ©   (2007-07-17 01:51) [29]


> хоть бы кто разъяснил рядовому, необученному - что значат
> эти аббревиатуры?

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


 
Германн ©   (2007-07-17 02:03) [30]


> DrPass ©   (17.07.07 01:51) [29]
>
>
> > хоть бы кто разъяснил рядовому, необученному - что значат
> > эти аббревиатуры?
>
> AI - алгоритм действий высокоорганизованной материи, наделенной
> индивидуальностью и способностью самостоятельно принимать
> решения для достижения поставленной ее создателем цели.
> NI - моск
>

Примерно так я и понял :) Мне бы разъяснения по аглицки или по латыни. Точнее - расшифровку аббревиатуры на том языке, на котором её создали. :)


 
Инс ©   (2007-07-17 19:09) [31]


> Мне бы разъяснения по аглицки или по латыни.

Artificial intelligence


 
Dib@zol ©   (2007-07-17 19:10) [32]

Так.. А NI?


 
Инс ©   (2007-07-17 19:33) [33]

Предполагаю, что антоним слову искуственный - натуральный


 
Anatoly Podgoretsky ©   (2007-07-17 19:33) [34]

> Dib@zol  (17.07.2007 19:10:32)  [32]

Вроде как Normal



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.52 MB
Время: 0.049 c
2-1184135112
Б.А.С.
2007-07-11 10:25
2007.08.12
Программный вход в систему


2-1184772078
San17
2007-07-18 19:21
2007.08.12
Как запретить копирования файла ?


15-1184394641
@!!ex
2007-07-14 10:30
2007.08.12
Forex - подстава и воровство?


3-1177504661
Alek Arbuzov
2007-04-25 16:37
2007.08.12
Вопрос кеширования данных из базы на локальной машине


9-1148651868
TButton
2006-05-26 17:57
2007.08.12
гравитация и её последствия





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский