Как организовать движение объекта к цели

@smsgeorge · Регистрация: 03.06.2011

Студворк — интернет-сервис помощи студентам

Всем, Здравствуйте! Интересует такой вопрос. Как организовать движение объекта (обьект , двигается вперед, но может поворачивать на определенный угол и снова едет вперед) к цели С, из A в B цель передвинулась, я получил координаты из них стороны и углы треугольника (через аркосинус), полученного вершинами, начала , куда передвинулся обьект и целью, Дальше нужно организовать перемещение , вернее , надо как то проверять условия, чтобы обьект , через определённые промежутки времени, опять проверял направление и снова двигался к цели. Уже 3 дня бьюсь над этой задачей. Не знаю как организовать проверку и правильный поворот. То есть цель , сама должна поворачиваться, потом двигаться , проверять и так далее) Помогите пожалуйста!

@smsgeorge · 24.09.2014, 17:03 **[ТС]**

The trick, Напиши подробнее пожалуйста куда мне вставлять мой угол и как ты его получил, у меня угол будет (2350(млс)/360*на угол) , как я понял для нахождения угла ты не использовал аркосинус?

Добавлено через 4 минуты
The trick,Что это будет у меня, как это применить?

Visual Basic
1
Private Const IncAngle  As Single = 3.14 / 180 * 5 ' инкримент поворота в радианах

@The trick · 24.09.2014, 17:06

smsgeorge, зачем мне знать величину угла?
У тебя поворот объекта всегда на фиксированную величину при нажатии кнопки. Нужно знать лишь отклонение и ориентацию.

@smsgeorge · 24.09.2014, 17:08 **[ТС]**

The trick, для чего это? что делает

Visual Basic
1
2
 'норма  
vec.X = vec.X / siz: vec.Y = vec.Y / siz

@The trick · 24.09.2014, 17:13

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

The trick, для чего это? что делает

Нормировка вектора между объектом и целью, чтобы найти далее косинус угла (скалярное произведение) между вектором направления объекта и этим вектором.

Добавлено через 1 минуту

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

The trick,Что это будет у меня, как это применить?

При нажатии кнопки поворота у тебя объект поворачивается на определенный угол, это есть величина этого угла в радианах.

@smsgeorge · 24.09.2014, 17:29 **[ТС]**

The trick,а как я буду поворачивать если я могу определить координаты только если по цвету пикселя, я не могу взять и прибавить к примеру к Х + 20, так как для этого надо передвинуться, а передвигатьтсяя я могу только клавишами

Visual Basic
1
2
3
4
' поворачиваем вектор
    vec = src.d
    src.d.X = vec.X * Cos(dir) - vec.Y * Sin(dir)
    src.d.Y = vec.X * Sin(dir) + vec.Y * Cos(dir)

@The trick · 24.09.2014, 17:42

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

The trick,а как я буду поворачивать если я могу определить координаты только если по цвету пикселя, я не могу взять и прибавить к примеру к Х + 20, так как для этого надо передвинуться, а передвигатьтсяя я могу только клавишами

Где ты увидел у меня прибавление X + 20? В моем примере объект перемещается вперед относительно своего направления вот тут:

Visual Basic
1
2
3
4
5
If ang > 0.707 Then
    ' Сюда вставляй свое нажатие на клавишу "W"
    src.p.X = src.p.X + src.d.X * IncDist
    src.p.Y = src.p.Y + src.d.Y * IncDist
End If

Поворот делается тут:

Visual Basic
1
2
3
' Определяем направление
If (vec.X * src.d.Y - vec.Y * src.d.X) < 0 Then dir = IncAngle Else dir = -IncAngle
' Если меньше нуля, то к примеру клавиша A иначе клавиша D

@smsgeorge · 24.09.2014, 17:46 **[ТС]**

The trick, Во , а куда повороты налево направо и нужно ли вставлять налево прямо , направо прямо и куда , и где я должен буду снова определять координаты чтобы их вносить, так как у меня все время не показываются они, мне приходится делать поиск по цвету.

@The trick · 24.09.2014, 17:48

smsgeorge, я тебе нормально пояснил.

@smsgeorge · 24.09.2014, 17:57 **[ТС]**

The trick, Извини , что навязчиво, просто я еще в этом всем как ребенок, нужно ткнуть пальцем, мне тяжело сразу освоить весь код. Если ты мне еще чуть-чуть уделишь внимание и досконально обьяснишь, все вопросы у меня отпадут, гемороя) мне еще хватит , так как придется это все делать в другой программе. Я очень тебе благодарен за отзывчивость! И вообще все здесь молодцы ребята. Помогают друг другу! Спасибо!

@The trick · 24.09.2014, 18:04

smsgeorge, читай этот пост до просветления.

@smsgeorge · 25.09.2014, 10:59 **[ТС]**

The trick, Но куда вставлять, все стирать и вставлять W ? в каких местах еще ставить проверку по координатам. и все, отстану!

Добавлено через 9 минут
The trick, C W разобрался , осталось только понять где проверять координаты (по цвету) и фух.... ребята, благодарю, что вытерпели меня!)

Добавлено через 16 часов 29 минут
вот мой код в программе переведенный

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
//16711680
#ps2_keyboard
$edpov=2350/360
$minras=10
 
 
 
mmm: IF(iskeydown(1)=0)
 
IF(iskeydown(1)=1)
   $xc=$_xmouse
   $yc=$_ymouse
   goto(nnn)
END_IF
END_IF
goto(mmm)
nnn:
                         
 
LCLICK(692,211)  // 5740204
m1:
GETSCREEN
IF_PIXEL_IN(241,35, 1037,717, 255 )
$x0=$_return1
$y0=$_return2
// move($_return1, $_return2)
WAITMS(50)
 
else
KEYDOWN(#A)
WAITMS(500)
KEYUP(#A)
goto(m1)
END_IF
GETSCREEN
IF_PIXEL_IN(241,35, 1037,717, 16711680)
$xb=$_return1
$yb=$_return2
// move($_return1, $_return2)
WAITMS(50)
else
KEYDOWN(#A)
WAITMS(500)
KEYUP(#A)
goto(m1)
END_IF
m2:
 
 
 
 
 
print(" peremeshenie ", $xb,"   ", $yb)
print(" obect  ",  $x0,"   ", $y0)
print(" celi  ",  $xc,"   ",$yc)
 
 
$vecX=$xc-$x0
$vecY=$yc-$y0
print(" vec  ",  $vecX,"   ",$vecY)
 
$rast=DIST($xc,$yc,$x0,$y0)
if($rast<$minras)
print("celi dostignuta")
end_if
 
$vecx=$vecx/$rast
$vecy=$vecy/$rast
 
$ang=$vecx*$xb+$vecy*$yb
 
if($vecx*$yb-$vecy*$xb)<0
$dir=$ugol
KEYDOWN(#d)
WAITMS(50)
KEYDOWN(#d)
else
$dir=-$ugol
KEYDOWN(#a)
WAITMS(50)
KEYDOWN(#a)
end_if
 
$vecx=$xb
$vecy=$yb
 
$xb=$vecx*cos($dir)-$vecy*sin($dir)
$yb=$vecx*sin($dir)-$vecy*cos($dir)
 
if ($ang>0.707)
KEYDOWN(#w)
WAITMS(50)
KEYDOWN(#w)
 
 
print($rast)
 
 
 
 
 
 
 
 
halt

Добавлено через 6 минут
The trick, Здравствуй! не дали отредактировать(
1)не знаю как определиться с углом, я делил время полного оборота на 360 $edpov=2350/360

2)также не понял что делает это условие ?

Visual Basic
1
2
3
4
if ($ang>0.707)
KEYDOWN(#w)
WAITMS(50)
KEYDOWN(#w)

поясни в своем коде пожалуйста что делает это и правильно ли я это использую?

Visual Basic
1
2
3
4
  'поворачиваем вектор
    vec = src.d
    src.d.X = vec.X * Cos(dir) - vec.Y * Sin(dir)
    src.d.Y = vec.X * Sin(dir) + vec.Y * Cos(dir)

вот твой код, переведенный на мой язык.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#ps2_keyboard
$edpov=2350/360
$minras=10
 
 
 
mmm: IF(iskeydown(1)=0)
 
IF(iskeydown(1)=1)
   $xc=$_xmouse
   $yc=$_ymouse
   goto(nnn)
END_IF
END_IF
goto(mmm)
nnn:
                         
 
LCLICK(692,211)  // 5740204
m1:
GETSCREEN
IF_PIXEL_IN(241,35, 1037,717, 255 )
$x0=$_return1
$y0=$_return2
// move($_return1, $_return2)
WAITMS(50)
 
else
KEYDOWN(#A)
WAITMS(500)
KEYUP(#A)
goto(m1)
END_IF
GETSCREEN
IF_PIXEL_IN(241,35, 1037,717, 16711680)
$xb=$_return1
$yb=$_return2
// move($_return1, $_return2)
WAITMS(50)
else
KEYDOWN(#A)
WAITMS(500)
KEYUP(#A)
goto(m1)
END_IF
m2:
 
 
 
 
 
print(" peremeshenie ", $xb,"   ", $yb)
print(" obect  ",  $x0,"   ", $y0)
print(" celi  ",  $xc,"   ",$yc)
 
 
$vecX=$xc-$x0
$vecY=$yc-$y0
print(" vec  ",  $vecX,"   ",$vecY)
 
$rast=DIST($xc,$yc,$x0,$y0)
if($rast<$minras)
print("celi dostignuta")
end_if
 
$vecx=$vecx/$rast
$vecy=$vecy/$rast
 
$ang=$vecx*$xb+$vecy*$yb
 
if($vecx*$yb-$vecy*$xb)<0
$dir=$ugol
KEYDOWN(#d)
WAITMS(50)
KEYDOWN(#d)
else
$dir=-$ugol
KEYDOWN(#a)
WAITMS(50)
KEYDOWN(#a)
end_if
 
$vecx=$xb
$vecy=$yb
 
$xb=$vecx*cos($dir)-$vecy*sin($dir)
$yb=$vecx*sin($dir)-$vecy*cos($dir)
 
if ($ang>0.707)
KEYDOWN(#w)
WAITMS(50)
KEYDOWN(#w)
 
 
print($rast)
 
 
 
 
 
 
 
 
halt

@The trick · 25.09.2014, 11:05

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

также не понял что делает это условие ?

Чтобы вперед двигался если отклонение от курса ±45° (≈0.707 в радианах).

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

поясни в своем коде пожалуйста что делает это и правильно ли я это использую?

Там все написано что этот код делает. Правильно ли ты его используешь - известно только тебе.

@smsgeorge · 25.09.2014, 13:23 **[ТС]**

The trick, нажимаю ему куда идти, а он крутится начинает. http://youtu.be/pSEYdJaHxAs.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#ps2_keyboard
 
$minras=10
$ugol=5 *2350/360*3.14 / 180
$pov=round( 5*2350/360 ,0)
 
mmm: IF(iskeydown(1)=0)
 
IF(iskeydown(1)=1)
   $xc=$_xmouse
   $yc=$_ymouse
   goto(nnn)
END_IF
END_IF
goto(mmm)
nnn:
                         
 
 
 
mstart:
m1:
GETSCREEN
IF_PIXEL_IN(241,35, 1037,717, 255 )
$x0=$_return1
$y0=$_return2
// move($_return1, $_return2)
WAITMS(50)
 
else
KEYDOWN(#A)
WAITMS(500)
KEYUP(#A)
goto(m1)
END_IF
GETSCREEN
IF_PIXEL_IN(241,35, 1037,717, 16711680)
$xb=$_return1
$yb=$_return2
// move($_return1, $_return2)
WAITMS(50)
else
KEYDOWN(#A)
WAITMS(500)
KEYUP(#A)
goto(m1)
END_IF
m2:
 
print(" peremeshenie ", $xb,"   ", $yb)
print(" obect  ",  $x0,"   ", $y0)
print(" celi  ",  $xc,"   ",$yc)
 
 
$vecX=$xc-$x0
$vecY=$yc-$y0
print(" vec  ",  $vecX,"   ",$vecY)
 
$rast=DIST($xc,$yc,$x0,$y0)
if($rast<$minras)
print("celi dostignuta")
goto(mkonec)
end_if
 
$vecx=$vecx/$rast
$vecy=$vecy/$rast
 
$ang=$vecx*$xb+$vecy*$yb
if($vecx*$yb-$vecy*$xb)<0
 
$dir=$ugol
KEYDOWN(#a)
WAITMS($pov)
KEYDOWN(#a)
 
else
 KEYDOWN(#d)
WAITMS($pov)
KEYDOWN(#d)
$dir=-$ugol
 end_if
 
$vecx=$xb
$vecy=$yb
$xb=$vecx*|!REG3XP3!>cos($dir)-$vecy*|!REG3XP3!>sin($dir)
$yb=$vecx*|!REG3XP3!>sin($dir)-$vecy*|!REG3XP3!>cos($dir)
 
if ($ang>0.707)
KEYDOWN(#w)
WAITMS(50)
KEYDOWN(#w)
 end_if
 
goto(mstart)
 
mkonec:
 
halt

Комментарий модератора

Пользуйся тегами! И не нужно делать цветным текст, для этого есть специальные теги, например [BASIC]

@Апострофф · 25.09.2014, 13:40

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

а он крутится начинает

На орбиту вышел, наверно

@Pro_grammer · 25.09.2014, 13:41

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

переведенный на мой язык.

Это что за язык, конструктор игр какой то?

@Апострофф · 25.09.2014, 14:04

Если крутится вокруг цели, то это не шутка.
Попробуйте уменьшить скорость и(ли) увеличить инкремент угла.

@Alex77755 · 25.09.2014, 14:38

а он крутится начинает

Вот именно поэтому я и говорил, что прежде чем шагать нужно определить направление на цель.

@smsgeorge · 25.09.2014, 14:53 **[ТС]**

Но тут то все работает( друзья пожалуйста не издевайтесь, помогите, я уже 4 день бьюсь над вопросом, встаю в 8 и до 2 ночи( Вы опытнее меня, помогите пожалуйста.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Explicit
 
Private Type vec
    X As Single
    Y As Single
End Type
Private Type player
    p As vec        ' Ïîçèöèÿ
    d As vec        ' Íàïðàâëåíèå
End Type
 
Dim WithEvents tmr  As Timer
Dim dst             As vec
Dim src             As player
 
Private Const IncAngle  As Single = 3.14 / 180 * 5 ' Èíêðåìåíò ïîâîðîòà â ðàäèàíàõ
Private Const IncDist   As Single = 4              ' Èíêðåìåíò ðàññòîÿíèÿ â ïèêñåëÿõ
 
Private Sub Form_Load()
    ScaleMode = vbPixels
    Set tmr = Me.Controls.Add("VB.Timer", "tmr")
    tmr.Interval = 32
    src.p.X = Scalewidht / 2
    src.p.Y = ScaleHeight / 2
    src.d.X = 0
    src.d.Y = -1
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    dst.X = X: dst.Y = Y
End Sub
 
Private Sub tmr_Timer()
    Dim ang As Single
    Dim siz As Single
    Dim vec As vec
    Dim dir As Single
    ' Íàõîäèì âåêòîð
    vec.X = dst.X - src.p.X
    vec.Y = dst.Y - src.p.Y
    ' Íàõîäèì ðàññòîÿíèå
    siz = Sqr(vec.X * vec.X + vec.Y * vec.Y)
    ' Åñëè ðàññòîÿíèå ìåíüøå èíêðåìåíòà òî çíà÷èò öåëü íàñòèãíóòà
    If siz < IncDist Then
        Caption = "Íàéäåí"
        Exit Sub
    Else: Caption = ""
    End If
    ' Íîðìà
    vec.X = vec.X / siz: vec.Y = vec.Y / siz
    ' Êîñèíóñ óãëà
    ang = vec.X * src.d.X + vec.Y * src.d.Y
    ' Îïðåäåëÿåì íàïðàâëåíèå
    If (vec.X * src.d.Y - vec.Y * src.d.X) < 0 Then dir = IncAngle Else dir = -IncAngle
    ' Ïîâîðà÷èâàåì âåêòîð
    vec = src.d
    src.d.X = vec.X * Cos(dir) - vec.Y * Sin(dir)
    src.d.Y = vec.X * Sin(dir) + vec.Y * Cos(dir)
    ' Åñëè íàïðàâëåíèå â îäíó ñòðîðîíó äâèãàåì (+-45 Ãðàäóñîâ)
    If ang > 0.707 Then
        src.p.X = src.p.X + src.d.X * IncDist
        src.p.Y = src.p.Y + src.d.Y * IncDist
    End If
    Draw
End Sub
 
Private Sub Draw()
    Cls
    Line (src.p.X, src.p.Y)-Step(src.d.X * 15, src.d.Y * 15)
    Circle (src.p.X, src.p.Y), 3
    Circle (dst.X, dst.Y), 3, vbRed
End Sub

Добавлено через 2 минуты
Pro_grammer, да сборка такая. как понял, программа состоит из нескольких языков, но это ничего не меняет.

Добавлено через 1 минуту
Alex77755, Алекс, помоги, вот я выложил 2 кода , один из VB другой в моей программе, они похожи, так как я делал по шаблону из VB, запусти VB оно там норм работает, а у меня не хочет(

@The trick · 25.09.2014, 15:01

smsgeorge, нужно включать голову. Тебе дали готовый алгоритм, разжевали. Там все элементарно.

@smsgeorge · 25.09.2014, 15:10 **[ТС]**

The trick, Благодарю за Алгоритм! Так и помоги, чего мучать то, дали алгоритм, где цель передвигается по координатам, я не могу к х прибавить какую нубудь величину, я могу повернуться и пойти прямо, в твоей программе все движется по координатам, у меня нету такого, считай я двигаюсь в пространстве где нет координат. Я даже твою программу расписал на листочке, в клеточку с реальными координатами, но это не помогло мне понять как реализовать у меня, так как у тебя координаты , а у меня их нет( Ты 11-классник, а я 3-классник.

Добавлено через 2 минуты
The trick, Ты даже код наверно мой не посмотрел( Все, что пока я мог сделал, если ты меня хочешь научить, то уж тогда давай с намеками, типа вот это тут не тот , тебе надо сделать это. У меня нет такого опыта, как у тебя. Я и так сколько сделал, за неделю освоил. Не все же сразу.

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .

@smsgeorge -1 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 106

	Как организовать движение объекта к цели 23.09.2014, 18:33. Показов 9066. Ответов 129 Метки нет (Все метки) Всем, Здравствуйте! Интересует такой вопрос. Как организовать движение объекта (обьект , двигается вперед, но может поворачивать на определенный угол и снова едет вперед) к цели С, из A в B цель передвинулась, я получил координаты из них стороны и углы треугольника (через аркосинус), полученного вершинами, начала , куда передвинулся обьект и целью, Дальше нужно организовать перемещение , вернее , надо как то проверять условия, чтобы обьект , через определённые промежутки времени, опять проверял направление и снова двигался к цели. Уже 3 дня бьюсь над этой задачей. Не знаю как организовать проверку и правильный поворот. То есть цель , сама должна поворачиваться, потом двигаться , проверять и так далее) Помогите пожалуйста! Миниатюры 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	24.09.2014, 17:06
	smsgeorge, зачем мне знать величину угла? У тебя поворот объекта всегда на фиксированную величину при нажатии кнопки. Нужно знать лишь отклонение и ориентацию. 0

@smsgeorge -1 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 106
	24.09.2014, 17:46 [ТС]
	The trick, Во , а куда повороты налево направо и нужно ли вставлять налево прямо , направо прямо и куда , и где я должен буду снова определять координаты чтобы их вносить, так как у меня все время не показываются они, мне приходится делать поиск по цвету. 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	24.09.2014, 17:48
	smsgeorge, я тебе нормально пояснил. 0

@smsgeorge -1 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 106
	24.09.2014, 17:57 [ТС]
	The trick, Извини , что навязчиво, просто я еще в этом всем как ребенок, нужно ткнуть пальцем, мне тяжело сразу освоить весь код. Если ты мне еще чуть-чуть уделишь внимание и досконально обьяснишь, все вопросы у меня отпадут, гемороя) мне еще хватит , так как придется это все делать в другой программе. Я очень тебе благодарен за отзывчивость! И вообще все здесь молодцы ребята. Помогают друг другу! Спасибо! 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	24.09.2014, 18:04
	smsgeorge, читай этот пост до просветления. 0

@Апострофф 9912 / 3935 / 743 Регистрация: 11.10.2011 Сообщений: 5,916
	25.09.2014, 14:04
	Если крутится вокруг цели, то это не шутка. Попробуйте уменьшить скорость и(ли) увеличить инкремент угла. 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	25.09.2014, 15:01
	smsgeorge, нужно включать голову. Тебе дали готовый алгоритм, разжевали. Там все элементарно. 0

@smsgeorge -1 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 106
	25.09.2014, 15:10 [ТС]
	The trick, Благодарю за Алгоритм! Так и помоги, чего мучать то, дали алгоритм, где цель передвигается по координатам, я не могу к х прибавить какую нубудь величину, я могу повернуться и пойти прямо, в твоей программе все движется по координатам, у меня нету такого, считай я двигаюсь в пространстве где нет координат. Я даже твою программу расписал на листочке, в клеточку с реальными координатами, но это не помогло мне понять как реализовать у меня, так как у тебя координаты , а у меня их нет( Ты 11-классник, а я 3-классник. Добавлено через 2 минуты The trick, Ты даже код наверно мой не посмотрел( Все, что пока я мог сделал, если ты меня хочешь научить, то уж тогда давай с намеками, типа вот это тут не тот , тебе надо сделать это. У меня нет такого опыта, как у тебя. Я и так сколько сделал, за неделю освоил. Не все же сразу. 0