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

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

03.02.2011, 06:55. Показов 8978. Ответов 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
Ответ Создать тему
Новые блоги и статьи
BOINC: 22 года — и всё ещё работает
Programma_Boinc 12.03.2026
BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru