Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Проект по информатике «Летящая птица»
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

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

библиотека
материалов

Артюшкина В.А. учитель информатики

СОШЛ№20

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


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

hello_html_m40fd5ed0.gifhello_html_223171fb.gif




При сохранении файлов рисунков присвойте им имя 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- Закрыть и введите программный код закрывающий форму.



Краткое описание документа:

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

Автор
Дата добавления 26.03.2014
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров346
Номер материала 38132032631
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

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