В режиме проектирования поместим на

                Гр.FillEllipse(Brushes.Black, 30, 230, 80, 80)                'Зеленая_лампа гаснет
            Case "Y"
                Гр.FillEllipse(Brushes.Black, 30, 30, 80, 80)                   'Красная_лампа гаснет
                Гр.FillEllipse(Brushes.Yellow, 30, 130, 80, 80)               'Желтая_лампа загорается
                Гр.FillEllipse(Brushes.Black, 30, 230, 80, 80)                 'Зеленая_лампа гаснет
            Case "G"
                Гр.FillEllipse(Brushes.Black, 30, 30, 80, 80)                   'Красная_лампа гаснет
                Гр.FillEllipse(Brushes.Black, 30, 130, 80, 80)                 'Желтая_лампа гаснет
                Гр.FillEllipse(Brushes.Green, 30, 230, 80, 80)                'Зеленая_лампа загорается
            Case Else
                MsgBox("Наберите символы R, Y или G")
        End Select
End Sub
114.
В режиме проектирования поместим на форму два PictureBox. Назовем их Самолет и Снаряд.
Dim Клавиша_нажата As Boolean = False                                  'Поначалу клавиш не нажимали
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Самолет.Left = Самолет.Left - 1                                      'Движем самолет
        If Not Клавиша_нажата Then Exit Sub 'Если клавиша не нажата, ничего дальше делать не надо
        Снаряд.Top = Снаряд.Top - 3                                             'Движем снаряд
        'Условие попадания: Если координаты самолета и снаряда достаточно близки
        'как по горизонтали, так и по вертикали:
        If Math.Abs(Снаряд.Top - Самолет.Top) < 20 And Math.Abs(Снаряд.Left - Самолет.Left) < 40 Then
            Timer1.Enabled = False
           MsgBox("Попадание!")
        End If
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
        Клавиша_нажата = True
End Sub
115-1.
Добавляем в процедуру Form1_Load оператор Машина.Visible = False, а в процедуру Кнопка_начинай_сначала_Click – оператор Машина.Visible = True.

Содержание  Назад  Вперед

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий