Проект по информатике «Летящая птица»

Проект «Летящая птица»

Создайте в графическом редакторе два рисунка

При сохранении файлов рисунков присвойте им имя fly.bmp, fly1.bmp.

Создайте форму, разместите на ней кнопку Command1 присвойте ей св-во Caption- Запустить и введите для нее программный код.

Private Sub Command1_Click()

Dim objPics(1) As Picture

For i = 1 To 10

For J = 1 To 20050000

Next J

Set objPics(0) = LoadPicture("fly.bmp")

Set objPics(1) = LoadPicture("fly1.bmp")

Static intCount As Integer

If intCount = 0 Then

intCount = 1

Else

intCount = 0

End If

PaintPicture objPics(intCount), 0, 0

Next i

End Sub

Создайте вторую кнопку Command2 и присвойте ей св-во Caption- Закрыть и введите программный код закрывающий форму.

Краткое описание материала

В школе каждый учитель сталкивается с проблемой при прохождении раздела по программированию, будь это визуальное программирование или иные языки программирования. Чтобы вызвать интерес к предмету учителю необходимо разрабатывать интересные проекты, которые учащиеся выполнили бы в рамках одного урока и посмотрели на результат своей деятельности. Ведь только тогда появится стимул к выполнению лабораторно-практических работ . Предлагаю разработку такого вот проекта, в котором учащиеся проработают материал и в графическом редакторе и в среде визуального программирования.

Проект по информатике «Летящая птица»

Информатика

Другие методич. материалы

DOCX

26.03.2014

1186

Файл будет скачан в формате:

DOCX

Автор материала

Мухина Виктория Анатольевна

учитель

На сайте: 10 лет и 7 месяцев
Всего просмотров: 55647
Подписчики: 0
Всего материалов: 31

55647
просмотров
31
материалов
0
подписчиков

Настоящий материал опубликован пользователем Мухина Виктория Анатольевна.
Инфоурок является информационным посредником. Всю ответственность за опубликованные материалы несут пользователи, загрузившие материал на сайт. Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.