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

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

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

МБОУ СОШ № 125

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

г.Снежинска

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

9 класс

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

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

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

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

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

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

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

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

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

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

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

Picture10 = Rnd * Xm: RM = Rnd + 4

Else

X

N кусков

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

End If

If Rnd > 0.5 Then

Y

Max

100 = 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

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

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

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

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

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

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

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

Литература:

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

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

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