Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ошибка в тетрисе при добавлении блока, ошибка в тетрисе при добавлении блока 
:(
    Опции темы
WWW123
Дата 28.5.2017, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 28.9.2016

Репутация: нет
Всего: нет



Здравствуйте. Делал тетрис. С одним блоком работает. Добавляю второй блок- то не запускается, то запускается. Если запускается, то работает неправильно. То не доходит до края, то проскакивает ниже. Помогите найти ошибки.
Код

   Dim шаг As Integer
    Dim p As Single
    Dim блок1, блок2 As Label
    Dim линия As Graphics
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        шаг = 10
        падающий_блок()
 
    End Sub
 
    Private Sub падающий_блок()
        Randomize()
        p = Math.Round(1 + Rnd())
        If p = 1 Then новый_блок1()
        If p = 2 Then новый_блок2()
    End Sub
    Private Sub новый_блок1()
        блок1 = New Label
        Me.Controls.Add(блок1)
        With блок1
            .Width = 20
            .Height = 20
            .Left = 100
            .BackColor = Color.Green
        End With
 
    End Sub
    Private Sub новый_блок2()
        блок2 = New Label
        Me.Controls.Add(блок2)
        With блок2
            .Width = 40
            .Height = 10
            .Left = 100
            .BackColor = Color.Green
        End With
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        блок1.Top = блок1.Top + шаг
 
        If блок1.Top > 160 Then
            блок1.Refresh()
            падающий_блок()
        End If
        линия = Me.CreateGraphics
        линия.FillRectangle(Brushes.Blue, 10, 10, 5, 200)
        линия.FillRectangle(Brushes.Blue, 150, 10, 5, 200)
        линия.FillRectangle(Brushes.Blue, 10, 210, 145, 5)
 
    End Sub




Это сообщение отредактировал(а) WWW123 - 28.5.2017, 12:31

Присоединённый файл ( Кол-во скачиваний: 0 )
Присоединённый файл  тетрис5.rar 21,87 Kb
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »


 




[ Время генерации скрипта: 0.0941 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.