Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/43: Рейтинг темы: голосов - 43, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 71

Алгоритм игры "змейка". Как заставить двигаться хвост?

03.02.2011, 06:55. Показов 8905. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите плз, как заставить двигаться хвост змейки %)
Голова бегает нормально, а вот хвост чтоит на месте.

Покрайней мере заставил бегать только одно звено за головой %) а остальное стоит.
Подскажите алгоритм.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.02.2011, 06:55
Ответы с готовыми решениями:

Игра змейка С++ . Хвост. как создать хвост змейки
День добрый помогите, не знаю как сделать хвост. Код был взят с форума и переделан. Но с хвостом не знаю что делать... буду рад любому...

Змейка: как создать хвост?
Не знаю как создать хвост, объясните и помогите на примере моего кода. Заранее спасибо :) #include <iostream> #include...

Алгоритм игры змейка
Мне надо написать игрушку - Змейка ... неподскажете алгоритм... мыльте teem@netmail.kg

10
Silver
03.02.2011, 09:38
Прими это звено, которое бегает за головой за 'голову'
и повтори алгоритм для следующего, третьего звена.
Затем следующее... И так пока не кончатся звенья.
---
При данной постановке вопроса лучше ответить не могу.
Удачи!
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 71
06.02.2011, 07:10  [ТС]
Хех, до этого я и сам додумался
А вот как всетаки ее заставить двигаться ...
аааа карамба, уже башка не варит ету тему, помогите, ну хоть кто нибудь напишите алгоритм на VB.
вот что уменя получилось, и не получилось вобщем ::
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
Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
 
Dim Part As Integer
'Dim Snake As POINTAPI
 
Private Sub SnakeAdd()
Part = Snake.Count
Label1.Caption = Part
Load Snake(Part)
Snake(Part).FillColor = RGB(Int(250), Int(100), Int(200))
End Sub
 
Private Sub Form_Load()
SnakeAdd
Timer1.Interval = 500
End Sub
 
Public Sub SnakeMove()
If (Snake(0).Top > 405) And (Snake(0).Top < Snake_Shape.Height - 270) Then
 
If Snake.Count > 1 Then
For I = 1 To Snake.Count - 1
Snake(I).Top = Snake(I - 1).Top
Snake(I).Left = Snake(I - 1).Left
Next
Snake(0).Top = Snake(0).Top - 235
'Snake(0).Left = Snake(0).Left - 235
End If
End If
 
End Sub
 
Private Sub Timer1_Timer()
SnakeMove
End Sub
Граждан помогите ...
0
1 / 1 / 0
Регистрация: 18.11.2010
Сообщений: 139
06.02.2011, 09:00
Ты чё топишь штоль. Я делал змейку легче. Просто напросто последнее звено ставишь вперёд и всё!!! Оставь мне свой маил. Я посмотрю, остался у меня этот проект или нет.
0
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 71
06.02.2011, 09:25  [ТС]
мой мыл: fire555@nm.ru
Только тему письма сделай плз, что-то вроде ЗМЕЙКА для CronMix
А то вдруг затру вместе со спамом.
0
1 / 1 / 0
Регистрация: 18.11.2010
Сообщений: 139
07.02.2011, 13:49
Тока не торопись. Я мож на этой неделе не успею, но на следующей точно кину.
0
1 / 1 / 0
Регистрация: 18.11.2010
Сообщений: 139
15.02.2011, 10:14
Я тебе кинул. Ты мне только скажи, получил или нет.
0
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 71
16.02.2011, 07:34  [ТС]
хых, мошешь продублировать на cmx13@gala.net
А то я дома почту не проверял
0
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 223
16.02.2011, 11:53
давно-давно я писал змейку еще на QBASIC
динамический массив
TYPE zmeyka
x as long ' координаты точки тела
y as long '
char as long ' что было затерто на экране
end type

Redim body () as zmeyka

так вот смысл в том, что я делал простое копирование куска памяти (т.е. делал сдвиг body(2).x = body(1).x и так со всеми элементами)
а в первый элемент массива заносил новое значение.
также были два указателя plus_x =1 или (-1) и plus_y =1 или (-1), задающие вектор движения змейки.
грубо алгоритм выглядит так:
1) инициализировать массив, векторы, экран
2) считать клавиатуру
3) если были изменения (стрелки клавиатуры) - изменить вектор движения
4) 'сдвинуть' массив в памяти
5) записать новое значение в первую ячейку массива
6) восстановить на экране символ, который был до появления там змейки
(хранится в последнем элементе массив)
7) goto 1

вроде всё
0
1 / 1 / 0
Регистрация: 18.11.2010
Сообщений: 139
16.02.2011, 13:02
Отослал, лови.
0
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 71
17.02.2011, 02:25  [ТС]
2 shurezz - спасибо, оч хорошо.

2 PMSSpy - я алгоритм и сам знаю а вот реализация ето туго ...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.02.2011, 02:25
Помогаю со студенческими работами здесь

У меня экзаменационное задание (змейка) не понимаю как сделать хвост змейке, т.е. при съедение яблока должен появлятся
#include &lt;iostream&gt; #include &lt;cstdlib&gt; #include &lt;windows.h&gt; #include &lt;conio.h&gt; #include &lt;ctime&gt; using namespace std; ...

Змейка на паскале. Хвост
Ребята, помогите пожалуйста! Делаю змейку на PascalABC и никак не могу сделать нормальный рабочих хвост, как в классической змейке ...

Как заставить картинки двигаться??????
Solid Works позволяет сделать анимацию спроектированной детали

Как заставить двигаться Scroll?
Господа форумчане и иже выше от них стоящие !:pardon: Кто подскажет, как заставить двигаться этот ослячий элемент типа скролл.Жму на...

Анимация, как заставить двигаться?
Здравствуйте) Только изучаю с# и формы виндовс. Задание такое: нарисовать подмигивающий смайлик. Т.е при запуске проекта, рисуется смайлик,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru