Движение змейки

@Painkiller13 · Регистрация: 13.04.2016

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

VB.NET

    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Const r = 0
        Do While r = 0
            If e.KeyValue = 37 Then head.Left -= 5
            If e.KeyValue = 39 Then head.Left += 5
            If e.KeyValue = 38 Then head.Top -= 5
            If e.KeyValue = 40 Then head.Top += 5
            For i = 1 To 10000000
            Next i
        Loop
 
    End Sub

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

@Элд Хасп · 10.08.2018, 21:18

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

VB.NET

        Const r = 0
        Do While r = 0
           ' На цикл не влияют
        Loop

End Subподскажите, пожалуйста, почему змейка начинает двигаться в одну сторону и потом управление не работает

У Вас же здесь бесконечный цикл!
Обрабатывается одна клавиша и потом прерывание уходит в вечный цикл.

Добавлено через 6 минут
Если я правильно понял смысл Вашего кода, то надо так

VB.NET

    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        Select Case e.KeyValue
            Case 37
                head.Left -= 5
            Case 39
                head.Left += 5
            Case 38
                head.Top -= 5
            Case 40
                head.Top += 5
        End Select
 
    End Sub

На каждое нажатие клавиши будет один шаг в выбранную сторону.

Добавлено через 42 минуты
Если надо отслеживать удержание клавиш, то можно так

VB.NET

    'Переменные для запоминания направления шага
    Dim StepLeft As Integer = 0, StepTop As Integer = 0
 
    'Активация таймера при показе Формы
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Timer1.Interval = 100 ' Установка необходимого интервала в миллисекундах
        Timer1.Enabled = True
    End Sub
 
    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        ' Установка направления шага
        Select Case e.KeyValue
            Case 37
                StepLeft = -5
            Case 39
                StepLeft = 5
            Case 38
                StepTop = -5
            Case 40
                StepTop = 5
        End Select
 
        ' Один шаг сразу после нажатия клавиши
        head.Left += StepLeft
        head.Top += StepTop
 
        ' Запуск таймера для следующих шагов
        Timer1.Start()
 
    End Sub
 
    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
 
        ' Изменения направления шага по отпусканию клавиши
        Select Case e.KeyValue
            Case 37, 39
                StepLeft = 0
            Case 38, 40
                StepTop = 0
        End Select
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' Один шаг в выбранном направлении каждый установленный интервал
        head.Left += StepLeft
        head.Top += StepTop
    End Sub

@Painkiller13 · 11.08.2018, 17:10 **[ТС]**

Почему то происходит один шаг за одно нажатие, хотя змейка должна продолжать двигаться постоянно, а клавиши просто давать направление

@Элд Хасп · 11.08.2018, 18:19

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

Почему то происходит один шаг за одно нажатие, хотя змейка должна продолжать двигаться постоянно, а клавиши просто давать направление

Вы какой вариант, пробовали? С таймеров?
После отпускания клавиши змейка должна двигаться в выбранном направлении? Или только пока удерживаешь клавишу? По диагонали может двигаться?

@Painkiller13 · 11.08.2018, 18:28 **[ТС]**

я переписал весь код, что вы отправили, движение происходит только при нажатии клавиш

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

@Элд Хасп · 11.08.2018, 18:32

Вот ещё вариант:

Движение только по вертикали или горизонтали
Движение после отпускании клавиши не останавливается
Один шаг, каждые 100 мс.

VB.NET

    'Переменные для запоминания напраления шага
    Dim StepLeft As Integer = 0, StepTop As Integer = 0
 
    'Активация таймера при показе Формы
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Timer1.Interval = 100 ' Установка необходимого ингтервала в милисекундах
        Timer1.Enabled = True
    End Sub
 
    Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        ' Запись в переменные для запоминания направления шага
        Select Case e.KeyValue
            Case 37
                StepLeft -= 5
                StepTop = 0
            Case 39
                StepLeft += 5
                StepTop = 0
            Case 38
                StepLeft = 0
                StepTop -= 5
            Case 40
                StepLeft = 0
                StepTop += 5
        End Select
 
        ' Один шаг сразу после нажатия клавиши
        head.Left += StepLeft
        head.Top += StepTop
 
        ' Запуск таймера для следующих шагов
        Timer1.Start()
 
    End Sub
 
    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
 
        ' Закомментирован блок останавливающий движение после отпускания клавиши
        ' Изменения направления шага по отпусканию клавиши
        'Select Case e.KeyValue
        '    Case 37, 39
        '        StepLeft = 0
        '    Case 38, 40
        '        StepTop = 0
        'End Select
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' Один шаг в выбранном напралении
        head.Left += StepLeft
        head.Top += StepTop
    End Sub

Добавлено через 1 минуту
Таймер на Форму поставили?

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

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

я переписал весь код, что вы отправили, движение происходит только при нажатии клавиш

Я же два разных варианта посылал!
Там же написано.

@Painkiller13 · 11.08.2018, 18:40 **[ТС]**

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

@Элд Хасп · 11.08.2018, 18:53

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

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

Да, это я скопировал с Вашего кода. Подумал что Вам так и надо.
Чтобы скорость оставалась неизменной в блоке Select Case e.KeyValue уберите + и - перед знаком =.

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

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

меняю направление идет небольшой рывок

Попробуйте закомментировать Timer1.Start(), но тогда может срабатывать немного с опозданием. Проверьте.

@Painkiller13 · 11.08.2018, 19:00 **[ТС]**

решил эту проблему, просто обнулил upmove,leftmove перед каждым движением

Visual Basic

    Select Case e.KeyValue
            Case 37
                leftmove = 0
                leftmove -= 5
                upmove = 0
            Case 39
                leftmove = 0
                leftmove += 5
                upmove = 0
            Case 38
                upmove = 0
                leftmove = 0
                upmove -= 5
            Case 40
                upmove = 0
                leftmove = 0
                upmove += 5
        End Select

Добавлено через 5 минут
Убрал шаг сразу после нажатия, вроде помогло

Visual Basic

1
2
3

 ' Один шаг сразу после нажатия клавиши
        head.Left += StepLeft
        head.Top += StepTop

@Элд Хасп · 11.08.2018, 19:03

Сделайте так. Тоже самое но короче.

VB.NET

           Select Case e.KeyValue
            Case 37
                StepLeft = 5
                StepTop = 0
            Case 39
                StepLeft = 5
                StepTop = 0
            Case 38
                StepLeft = 0
                StepTop = 5
            Case 40
                StepLeft = 0
                StepTop = 5
        End Select

@Painkiller13 · 11.08.2018, 19:05 **[ТС]**

так он по диагонали ходит

@Элд Хасп · 11.08.2018, 19:12

Да, диагональ осталась. Я подправил посмотрите.

VB.NET

           Select Case e.KeyValue
            Case 37
                StepLeft = -5
                StepTop = 0
            Case 39
                StepLeft = 5
                StepTop = 0
            Case 38
                StepLeft = 0
                StepTop = -5
            Case 40
                StepLeft = 0
                StepTop = 5
        End Select

@Painkiller13 · 11.08.2018, 19:15 **[ТС]**

Так работает, спасибо за помощь!

@Элд Хасп · 11.08.2018, 19:31

Ок! Удачи!

@Элд Хасп Модератор 15466 / 10712 / 2786 Регистрация: 21.04.2018 Сообщений: 31,536 Записей в блоге: 2
	11.08.2018, 19:31	14
	Ок! Удачи! 0

@Painkiller13 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 27
	11.08.2018, 17:10 [ТС]	3
	Почему то происходит один шаг за одно нажатие, хотя змейка должна продолжать двигаться постоянно, а клавиши просто давать направление 0

@Элд Хасп Модератор 15466 / 10712 / 2786 Регистрация: 21.04.2018 Сообщений: 31,536 Записей в блоге: 2
	11.08.2018, 18:19	4
	Сообщение от Painkiller13 Почему то происходит один шаг за одно нажатие, хотя змейка должна продолжать двигаться постоянно, а клавиши просто давать направление Вы какой вариант, пробовали? С таймеров? После отпускания клавиши змейка должна двигаться в выбранном направлении? Или только пока удерживаешь клавишу? По диагонали может двигаться? 0

@Painkiller13 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 27
	11.08.2018, 18:28 [ТС]	5
	я переписал весь код, что вы отправили, движение происходит только при нажатии клавиш Добавлено через 2 минуты да, она должна двигаться в выбранном направлении 0

@Painkiller13 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 27
	11.08.2018, 18:40 [ТС]	7
	теперь движется без остановки, но когда меняю направление идет небольшой рывок, а когда нажимаю несколько раз одну клавишу скорость увеличивается 0

@Элд Хасп Модератор 15466 / 10712 / 2786 Регистрация: 21.04.2018 Сообщений: 31,536 Записей в блоге: 2
	11.08.2018, 18:53	8
	Сообщение от Painkiller13 еперь движется без остановки, но когда меняю направление идет небольшой рывок, а когда нажимаю несколько раз одну клавишу скорость увеличивается Да, это я скопировал с Вашего кода. Подумал что Вам так и надо. Чтобы скорость оставалась неизменной в блоке Select Case e.KeyValue уберите + и - перед знаком =. Добавлено через 2 минуты Сообщение от Painkiller13 меняю направление идет небольшой рывок Попробуйте закомментировать Timer1.Start(), но тогда может срабатывать немного с опозданием. Проверьте. 1

@Painkiller13 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 27
	11.08.2018, 19:05 [ТС]	11
	так он по диагонали ходит 0

@Painkiller13 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 27
	11.08.2018, 19:15 [ТС]	13
	Так работает, спасибо за помощь! 0

Движение змейки

Решение