Sum = Val(TextBox1.Text)
If Sum > 10000 Then
Skidka = Sum * 0.05
TextBox2.Text = Str(Skidka)
TextBox2.Visible = True
Itog = Sum - Skidka
TextBox3.Text = Str(Itog)
Label2.Caption = " Сумма скидки составляет"
Label2.Visible = True
Else
Itog = Sum
TextBox3.Text = Str(Itog)
Label2.Visible = True
Label2.Caption = "Извините, скидка Вам не положена"
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label2.Visible = False
TextBox2.Visible = False
End Sub
Private Sub CommandButton3_Click()
MsgBox ("Программу разработал И.И. Иванов")
End Sub
Private Sub CommandButton4_Click()
End
End Sub
9. После завершения работы над программой следует запустить ее на выполнение и протестировать программу при различных исходных данных, вводимых в первое текстовое окно.
10. Продемонстрировать преподавателю работы программы на тестовых примерах.
Контрольные вопросы
1. Что такое условный переход?
2. Какую функцию реализует условный переход?
3. Какую последовательность команд нужно использовать в программе для реализации условного перехода?
4. Как вывести в среде VBA на экран окно программного кода?
5. Поясните принцип работы условного оператора
IF….THEN…..ELSE ….. в языке программирования VBA.
6. Какое свойство определяет видимость или невидимость объекта?
7. Поясните принцип работы оператора MsgBox.
8. Что такое сокращенный условный оператор?
9. Что содержит Toolbox?
10. Чем отличается полная и сокращенная формы записи условного оператора?
Литература/источники
1. Программирование на VBA и создание макросов, электронный ресурс:
http://www.lessons-tva.info/edu/e-inf2/m2t3_7.html
2. Самоучитель программирования на VBA в MS Office, электронный ресурс: http://www.libray.narod.ru/rapid/vba_programmirovanie_office.htm
3. Стив Камминг «VBA для чайников», электронный ресурс:
http://www.proklondike.com/books/vb/vb_Cummings_VBA_Dummies.html
4 Программирование на VBA, электронный ресурс:
http://itteach.ru/vba/programmirovanie-na-vba
РАБОТА № 15
Создание GIF-анимации
Цель: Освоение способов создания анимированных изображений в формате GIF.
Введение.
GIF (англ. Graphics Interchange Format – формат для обмена изображениями) – формат растровых графических изображений, позволяющий создавать простую анимацию – чередующиеся кадры. Анимация представляет собой последовательность из нескольких статичных кадров и информацию о времени показа каждого кадра на экране. Можно сделать, чтобы вслед за последним кадром начиналось воспроизведение первого кадра и т.д. Такая анимация называется цикличной.
Формат GIF способен хранить сжатые данные (алгоритм сжатия LZW, Лемпеля-Зива-Велча). Не зависящий от аппаратного обеспечения формат GIF был разработан в 1987 году фирмой CompuServe для передачи растровых изображений по компьютерным сетям. В 1989-м формат был модифицирован, были добавлены поддержка анимации.
Число цветов палитры - от 2 до 256. Каждый цвет палитры имеет глубину 24 бита на 1 пиксел (выбор из 16 миллионов цветов). Число повторов анимации – бесконечное. Время показа одного кадра анимации - от 0,01 секунды до 655 секунд. Число кадров анимации - неограниченно.
Процесс подготовки GIF-анимации можно условно разделить на несколько этапов:
· создание отдельных кадров;
· генерация движущегося изображения;
· оптимизация целевого файла.
Для создания последовательности растровых изображений и для их преобразования в GIF-анимацию можно использовать многофункциональные растровые редакторы (Adobe Photoshop, CinePaint, cosmigo Pro Motion, PhotoLine) или специальные редакторы GIF-анимации (Gif Construction Set(tm) Professional, Animagic Gif, Ulead Gif Animator, WWW Gif Animator, Xara Webster, Gif Movie Gear).
В Интернете также есть ресурсы, предлагающие создание GIF-анимации онлайн: http://gifovina.ru/, http://minimultik.ru/, http://ru.toolson.net/GifAnimation.
При создании GIF-анимации можно задать величину задержки появления каждого кадра, чем она меньше, тем лучше качество анимации. Кроме того, можно установить количество повторений (от одного до бесконечности) последовательности кадров, хранящихся в GIF-файле. Большое количество кадров ведет к лучшему качеству анимации, но при этом увеличивает размер GIF-файла.
Хотя к настоящему времени создан новый формат PNG, формат GIF по-прежнему широко используется и особенно востребован и широко используется на страницах сайтов в Интернет.
