Автоматизация и боты

 Помощь      Поиск      Пользователи
Сайт Кибор     Программируемый кликер Кибор     Видео обучение     Заказать бот

 Страниц (1): [1]   

> Без описания
Nikolo12
Отправлено: 02 Октября, 2013 - 13:08:13
Post Id



Пользователь
Прохожий


Покинул форум
Сообщений всего: 8
Дата рег-ции: Сент. 2013  
Репутация: 0




Поделитесь алгоритмом рисования круга в Паинте, пока попроще, Паинт в фокусе и развернут на весь экран. В школьные годы был такой язык что-то про черепаху, код примерно такой
CODE:

int x0=600, y0=400, t=0, x, y; // t просто для цикла

mousemove(x0, y0); //Переместить в центр Паинта
mousedown(LEFT); //Опустить перо
a: if (t<100) {
sleep(500);
x=x0+2*t*sin(t);
y=y0+2*t*cos(t);
sleep(100);
mousemove(x, y);
t++;
goto a;}
 
 Top
Kibor
Отправлено: 02 Октября, 2013 - 14:10:58
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




CODE:
double x0=600, y0=400, r=50;
double d=0.5;
double n=0;
double x1, y1;

mouse(LEFT, x0, y0); //Центр
sleep(200);
mousedown(LEFT, x0+r, y0); //Опустить перо

h: if (n<360)
{
x1=x0+(r*cos(n));
y1=y0+(r*sin(n));
mousemove(x1, y1);
n=n+d;
goto h;
}

mouseup(LEFT, x1, y1); //Поднять перо


Встретил баг в программе ... С умножением.. Позже поправлю. В таком виде будет работать. Пока надо умножение в скобки взять.
 
 Top
Nikolo12
Отправлено: 02 Октября, 2013 - 19:51:45
Post Id



Пользователь
Прохожий


Покинул форум
Сообщений всего: 8
Дата рег-ции: Сент. 2013  
Репутация: 0




От благодарю, на основе вашего алгоритма составил алгоритм обхода по спирали
CODE:
double x0=600, y0=400, r=0;
double d=5; //Точность отрисовки, чем меньше тем более точный круг
double n=0, m=0; //Переменные цикла
double x1, y1;

mouse(LEFT, x0, y0); //Центр
sleep(200);
mousedown(LEFT, x0, y0); //Опустить перо

b: if (m<10)
{
n=0;

h: if (n<360)
{
x1=x0+(r*cos(n));
y1=y0+(r*sin(n));
mousemove(x1, y1);
n=n+d;
r=r+0.2;
sleep(1);
goto h;
}

m=m+1;
goto b;
}
mouseup(LEFT, x1, y1); //Поднять перо

Думаю применить к поиску сагрившихся мобов в Lineage.
 
 Top
Kibor
Отправлено: 04 Октября, 2013 - 08:35:59
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




Устранил баг с умножением.
 
 Top
Zireael
Отправлено: 21 Ноября, 2017 - 03:20:03
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 4465
Дата рег-ции: Нояб. 2017  
Репутация: 585




 Цитата:
Устранил баг с умножением.

Так работает:
CODE:
double x, y;

for (int i=0; i<360; i++)
{
x = 500 + 200 * sin(i);
y = 500 + 200 * cos(i);
mousemove (x, y);
sleep (1);
}

А так нет:
CODE:
double x, y;

for (int i=0; i<360; i++)
{
x = 500 + sin(i) * 200;
y = 500 + cos(i) * 200;
mousemove (x, y);
sleep (1);
}
 
 Top
Kibor
Отправлено: 21 Ноября, 2017 - 13:15:08
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




Есть баг. Причину нашел. Устраню в следующем обновление.
 
 Top
Kibor
Отправлено: 22 Ноября, 2017 - 04:39:09
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




Устранил. Спасибо за баг.
 
 Top
Страниц (1): [1]
Сейчас эту тему просматривают: 3 (гостей: 3, зарегистрированных: 0)
« Вопросы и решение проблем »


Все гости форума могут просматривать этот раздел.
Только зарегистрированные пользователи могут создавать новые темы в этом разделе.
Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
 




Powered by