Разработка проекта в Visual Basic 6.0. Движение шара

Цель работы:

Научится применять такой инструмент как Timer, Picture, устанавливать свойство Inter

Домашнее задание:

Страница 72-73 проанализировать программный код выписать в тетрадь

Записать пояснение объектов

Создаем новый проект

Размещаем 3 «Timer», для периодического передвижение картинки

Размещаем 1 «Shape1», будет являться объектом движения (Фигура круг)

Кнопка «ПУСК»

СВОЙСТВА ДЛЯ ОБЪЕКТОВ «Timer»

Частота повторения в миллисекундах

(Передвижение) =Interval-1

Размещаем 1 «Shape1», будет являться объектом движения (Фигура круг)

Кнопка «ПУСК»

Пропишите процедуру для каждого объекта + пояснения

Private Sub Command3_Click()

If MsgBox("Вы действительно хотите выйти ?", 64 + vbYesNo, "Подтверждение") = vbYesThen End

'Выход

End Sub

Разместить кнопку ВЫХОД, разместить АВТОРА, установить цветовую гамму, подписать форму, установить круг

СОХРАНИТЕ ПРОДУКТ В СОБСТВЕННУЮ ПАПКУ

Сохранение продукта

Нажмите File

Save Project As-сохранение продукта (для дальнейшего редактирование) «Исходники»

Save Form1 As-сохранение формы (для дальнейшего редактирование) «Исходники»

Make Project.exe –компилирование продукта для запуска без VB

ПОМНИТЕ, создаем отдельную папку для исподников программы

Проверяем процедуру «программный код» ИТОГО:

Private Sub Command1_Click() ' Включается Timer1 и Timer3

Timer1.Enabled = True

Timer3.Enabled = True

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + 25 ' Каждую мл Shape1 будет сдвигатсяв право на 25

End Sub

Private Sub Timer2_Timer()

Shape1.Left = Shape1.Left -25 ' Каждую мл Shape1 будет сдвигатсяв влево на 25

End Sub

Private Sub Timer3_Timer()

If Shape1.Left <= -400 Then 'Если Shape1.Left <= -400 то

Timer1.Enabled = True ' Timer1 включается

Timer2.Enabled = False ' Timer2 выключается

End If

If Shape1.Left >= 4000 Then

Timer2.Enabled = True

Timer1.Enabled = False

End If

End Sub.

Весь материал - в архиве (pdf).