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

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

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

Урок "Работаем с графикой"

Выберите документ из архива для просмотра:

Выбранный для просмотра документ Программа Салют.doc

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

Александр Георгиевич Задорожный

Учитель информатики и ИКТ

МБОУ СОШ № 125

с углубленным изучением математики

г.Снежинска

Информатика и ИКТ

9 класс

Факультативное занятие

Создание программы «Салют»

Цель занятия: формирование навыка изготовления модели средствами Visual Basic

Задача занятия: научить разрабатывать модель по этапам .

Опорные знания: модель, датчик случайных чисел.

Оборудование урока:

  • ПК (презентация работы программы и ее текста на проекторе);

Основные этапы занятия.

  1. Постановка цели и задачи занятия, актуализация знаний по теме «Модели».

  2. Сhello_html_mccebb92.jpgоставление макета программы «Салют». Программа «Салют» моделирует простейший фейерверк, расходящихся радиальных цветных лучей. Для ее выполнения предусматриваем настраиваемое число линий, из которых и будет состоять салют. Линии, в свою очередь, разбиваются на разноцветные куски, количество которых также настраивается. Размер фейерверка задается параметром «мах». В программе используется пять цветов. Макет программы представлен ниже.



















3. Обсуждение вариантов написания программы и составления текста программы. Приведенная программа дается как образец. Учащиеся изменяют количество линий, число фрагментов линий и масштаб фейерверка для понимания работы программы. Далее учащимся предлагается внести уже более существенные изменения в текст программы. Например, они могут увеличить количество цветов или сделать фейерверк несимметричным.

Программа «Салют»

Private Sub Command1_Click()

Dim I, IL, IR, NL, NR, Xm As Long, X0, Y0, X, Y, RM, LM, SL, SR, K, Col As Single


NL = Text1.Text: NR = Text2.Text: Xm = Text3.Text: SL = 360 / NL: SR = 4 / NR

Picture1.Scale (-Xm, Xm)-(Xm, -Xm): K = 3.1415926 / 180

If Rnd > 0.5 Then

X

N линий

50

Picture1

0 = Rnd * Xm: RM = Rnd + 4

Else

X

N кусков

1000

0 = -Rnd * Xm: RM = 4 - Rnd

End If

If Rnd > 0.5 Then

Y

Max

10

0 = Rnd * Xm

Else

Y0 = -Rnd * Xm

E

Command1_Пуск

Command2_CSL


nd If

Picture1.PSet (X0, Y0), vbGreen


For IR = 1 To RM Step SR

For IL = 360 To 0 Step -SL

X = X0 + IR * Sin(IL * K): Y = Y0 + IR * Cos(IL * K):

Col = (IR + 5 * Rnd) Mod 5

Select Case Col

Case 1: Picture1.Line (X, Y)-(X0, Y0), vbRed

Case 2: Picture1.Line (X, Y)-(X0, Y0), vbGreen

Case 3: Picture1.Line (X, Y)-(X0, Y0), vbYellow

Case 4: Picture1.Line (X, Y)-(X0, Y0), vbBlue

Case 5: Picture1.Line (X, Y)-(X0, Y0), vbSilver

End Select

Next IL

Next IR


End Sub


Private Sub Command2_Click()

Picture1.Cls

End Sub


Результат работы программы может выглядеть так:

hello_html_m13a796cd.jpg


















hello_html_m12217d1d.png























А это настоящий фейерверк.



hello_html_1d818a1e.jpg















  1. Подведение итогов.

Перед учащимися ставится вопросы:

- Какие другие идеи можно использовать для моделирования фейерверка?

- Какое прикладное значение может иметь программа?

- Как изменить программу для появления звукового эффекта?


Литература:

  1. Браун С. Visual Basic. Учебный курс. – Спб.: Питер, 2002.

  2. Угринович Н.Д. Информатика и ИКТ: учебник для 9 класса. 2 издание. – М.: БИНОМ, 2009.

  3. Угринович Н.Д. Исследование информационных моделей. Элективный курс.: Учебное пособие – 2 издание. – М.: БИНОМ, 2006.

Автор
Дата добавления 14.11.2016
Раздел Информатика
Подраздел Статьи
Просмотров43
Номер материала ДБ-351529
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 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

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

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