Dim Skidka, Itog As Double
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 по-прежнему широко используется и особенно востребован и широко используется на страницах сайтов в Интернет.