- Преподавателю
- Информатика
- Проект по информатике «Летящая птица»
Проект по информатике «Летящая птица»
В школе каждый учитель сталкивается с проблемой при прохождении раздела по программированию, будь это визуальное программирование или иные языки программирования. Чтобы вызвать интерес к предмету учителю необходимо разрабатывать интересные проекты, которые учащиеся выполнили бы в рамках одного урока и посмотрели на результат своей деятельности. Ведь только тогда появится стимул к выполнению лабораторно-практических работ . Предлагаю разработку такого вот проекта, в котором учащиеся проработают м...
| Раздел | Информатика |
| Класс | - |
| Тип | Другие методич. материалы |
| Автор | Артюшкина В.А. |
| Дата | 20.02.2014 |
| Формат | doc |
| Изображения | Есть |
Поделитесь с коллегами:
Артюшкина В.А. учитель информатики
СОШЛ№20
Проект «Летящая птица»
Создайте в графическом редакторе два рисунка
При сохранении файлов рисунков присвойте им имя 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- Закрыть и введите программный код закрывающий форму.