Демо (html) Информационные технологии

Для создания анимации (иллюзии движения на экране какого-либо объекта) применяется принцип смены кадров (изображений), как это делается в мультипликации. Программа, имитирующая движение, должна реализовывать следующие этапы:

- создание изображения на экране;

- реализация временной паузы для того, чтобы глаз зафиксировал изображение;

- коррекция изображения.

Анимация часто используется для показа движения объектов. Чтобы объекты двигались, можно использовать циклы, но удобнее воспользоваться таймером.

Элемент управления Timer - это невидимый секундомер, который обеспечивает доступ к системным часам. Он может быть использован как таймер для обратного отсчета от заданного интервала времени, что позволяет создавать паузы в программе или организовать повторение действий через заданные интервалы времени. Основные свойства таймера:

Name - имя таймера;

Enabled – включение/отключение таймера;

Interval - интервал обновления таймера в миллисекундах, например, если Interval=1000, таймер будет обновляться каждую секунду.

Хотя объекты таймера во время выполнения программы не видны, с каждым таймером связана процедура события, которая выполняется при истечении заданного интервала времени таймера. Установить интервал таймера можно с помощью свойства Interval, а активизировать таймер можно, установив его свойство Enabled в значение True. Когда таймер активизирован, он постоянно работает, выполняя через заданные промежутки времени свою процедуру события до тех пор, пока пользователь не остановит программу или не отключит таймер.

Проект 1. «Отражение объектов»

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR7___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Отражение объектов.

4. Разместите на форме кнопку Button1, измените свойство Text кнопки – Движение по горизонтали:

5. Разместите на форме элемент управления Label1, измените свойства элемента управления:

AutoSize = True

ForeColor = Red

Font.Size = 20

Font.Style = Bold

Text = O

6. Добавьте на форму элемент управления Timer1. Установите свойство Interval = 50:

7. Дважды щелкните по кнопке Движение по горизонтали и введите событийную процедуру (щелчок по кнопке активизирует таймер, который в свою очередь, сдвигает объект на 1 пиксел влево):

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub

8. Добавьте событийную процедуру для таймера. Для этого в поле Class Name в режиме редактирования кода программы установите Timer1, в поле Method Name – Tick.

9. Введите событийную процедуру:

Private Sub Timer1___Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Label1.Left <= 0 Then

' остановка таймера при достижении левого края формы

Timer1.Enabled = False

End If

Label1.Left = Label1.Left - 1

End Sub

10. Сохраните проект. Проверьте работу приложения.

11. Для отражения объекта от края формы введите глобальную переменную direction, отвечающую за направление движения, внесите изменение в процедуру Timer1___Tick(…):

Dim direction As Integer = 1

Private Sub Timer1___Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Left = Label1.Left - 1 * direction

' Отскок от левого края формы

If Label1.Left <= 0 Then

direction = -1

End If

' Отскок от правого края формы. Учитываем ширину мячика

If Label1.Left >= ClientSize.Width - Label1.Width Then

direction = 1

End If

End Sub

12. Сохраните проект. Проверьте работу приложения.

13. Добавьте на форму две кнопки, одна кнопка останавливает объект, другая обеспечивает движение объекта по вертикали. Введите соответствующие событийные процедуры.

14. Сохраните проект. Проверьте работу приложения.

Создать проект, имитирующий вращение секундной стрелки:

Создать проект, обеспечивающий вращение квадрата против часовой стрелки:

Создать проект, обеспечивающий вращение прямой линии по часовой стрелке:

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

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

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен:

· уметь создавать анимационные объекты.

Список рекомендуемой литературы:

1. Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.

2. Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.

3. Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.

4. Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.

Проект 1. «Нестандартный вид элементов управления»

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR8___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Нестандартный вид элементов управления.

4. Разместите на форме кнопку Button1:

5. Дважды щелкните по кнопке Button1 и введите событийную процедуру (при нажатии на кнопку кнопка становится овальной):

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim gp As New GraphicsPath

Dim g As Graphics = CreateGraphics()

' Создадим новый прямоугольник с размерами кнопки

Dim newRectangle As Rectangle = Button1.ClientRectangle

' Уменьшим размеры прямоугольника

newRectangle.Inflate(-3, -3)

'Создадим эллипс с полученными размерами

gp.AddEllipse(newRectangle)

Button1.Region = New Region(gp)

' Нарисуем окантовку для круглой кнопки

g.DrawEllipse(New Pen(Color.Gray, 2), Button1.Left + 1, ___

Button1.Top + 1, ___

Button1.Width - 3, Button1.Height - 3)

'Освобождаем ресурсы

g.Dispose()

End Sub

6. Перед описанием класса формы добавьте строку:

Imports System.Drawing.Drawing2D

Public Class Form1

………………………

End Class

7. Сохраните проект. Проверьте работу приложения.

8. Разместите на форме элемент управления CheckBox1:

9. Добавьте событийную процедуру Form1___Load(…) (при загрузке формы все элементы управления CheckBox обводятся красной рамкой). Для этого в поле Class Name в режиме редактирования кода программы установите (Form Events), в поле Method Name – Load, добавьте код событийной процедуры:

Private Sub Form1___Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim g As Graphics = e.Graphics

Dim p As New Pen(Color.Red, 3)

Dim ctrl As Control

For Each ctrl In Me.Controls

If TypeOf ctrl Is CheckBox Then

g.DrawRectangle(p, New ___

Rectangle(ctrl.Location, ctrl.Size))

End If

Next

End Sub

10. Сохраните проект. Проверьте работу приложения.

Текстовое поле – один из самых используемых элементов управления в приложениях. Область применения – текстовые редакторы, поля для ввода паролей, информационные сообщения и др.

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

Разработать проект, создающий элемент управления ListView:

Разработать проект, создающий элемент управления ListView:

Создать проект, который обводит овальной рамкой все элементы управления Label формы:

Вид формы при запуске:

Нажатие на кнопку Преобразовать:

Создать проект, преобразующий форму элемента управления PictureBox в овальную:

Вид формы при запуске:

Нажатие на кнопку Преобразовать:

Создать проект, преобразующий форму элемента управления TextBox в овальную:

Вид формы при запуске:

Нажатие на кнопку Преобразовать:

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен уметь:

· создавать элементы управления произвольной формы;

· осуществлять контроль вводимых данных;

· создавать новые элементы управления.

Список рекомендуемой литературы:

1. Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.

2. Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.

3. Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.

4. Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Используемые файлы:

DigitOnly.txt, 1.jpg, 2.jpg, 3.jpg, pic.jpg

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.

Проект 1. «Печатающая строка»

1. Запустите Microsoft Visual Basic 2005.

2. Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR9___1.

3. Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Печатающая строка.

4. Разместите на форме элемент управления Label1 и кнопку Button1. Свойству Text элемента управления Label1 присвойте значение Программирование, свойству Text элемента управления Button1 присвойте значение Старт:

5. Добавьте на форму элемент управления Timer1. Установите свойство Interval = 50:

6. Дважды щелкните по кнопке Button1 и введите событийную процедуру (включение-выключение таймера):

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "Старт" Then

Timer1.Enabled = True

Button1.Text = "Стоп"

Else

Timer1.Enabled = False

Button1.Text = "Старт"

End If

End Sub

7. Добавьте событийную процедуру для таймера:

Private Sub Timer1___Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

' Анимация слева направо

Dim title As String = "Программирование"

Static c As Integer = 0

Label1.Text = title.Substring(0, c)

c += 1

If c = title.Length() + 1 Then c = 0

End Sub

8. Сохраните проект. Проверьте работу приложения.

9. Измените проект так, чтобы строка печаталась справа налево.

Создать проект, в котором текст заголовка формы печатается слева направо:

Вид формы при запуске:

Нажатие на кнопку Старт:

Создать проект, в котором текст на кнопке печатается справа налево:

Вид формы при запуске:

Нажатие на кнопку Старт:

Создать проект, главная форма которого при запуске выглядит следующим образом:

Параметры текста: градиентная заливка, шрифт - Arial, размер шрифта – 36.

Создать проект, главная форма которого при запуске выглядит следующим образом:

Параметры текста: объемный выпуклый, шрифт - Tahoma, размер шрифта - 36, полужирный.

Создать проект, главная форма которого при запуске выглядит следующим образом:

Параметры текста: узор кирпича, шрифт - Arial, размер шрифта – 36.

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

Пример реализации печатающей строки:

Private Sub Button1___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "Старт" Then

Timer1.Enabled = True

Button1.Text = "Стоп"

Else

Timer1.Enabled = False

Button1.Text = "Старт"

End If

End Sub

Private Sub Timer1___Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

' Анимация слева направо

Dim title As String = "Занимательное программирование"

Static c As Integer = 0

Label1.Text = title.Substring(0, c)

Me.Text = title.Substring(0, c)

c += 1

If c = title.Length() + 1 Then c = 0

' Анимация справа налево

Dim title2 As String = "Кнопка"

Static i As Integer = title2.Length()

Button2.Text = title2.Substring(0, i)

i - = 1

If i = -1 Then i = title2.Length()

End Sub

Кнопка с надписью Старт запускает таймер, при этом надпись Старт меняется на Стоп. При повторном нажатии надпись Стоп заменяется обратно на Старт. При этом происходит включение и выключение таймера. Вся работа по созданию эффекта происходит в событии таймера Tick. Статическая переменная c служит счетчиком. С помощью метода Substring класса String выполняется наращивание строки, начиная с первого символа и заканчивая последним. После чего счетчик обнуляется, и все повторяется заново. Можно в любой момент прервать анимацию строки, а повторным нажатием на кнопку возобновить вывод строки с остановленной позиции. Анимированную строку можно добавить в заголовок формы:

Me.Text = title.Substring(0, c)

Для того чтобы текст не наращивать, а уменьшать, необходимо создать еще один счетчик i. Начальное значение счетчика равно длине заданной строки. При каждом срабатывании таймера будет вычитаться один символ из строки. При достижении счетчиком значения 0 счетчику снова присваивается значение длины строки.

Пример реализации бегущей строки (бегущая строка используется на электронных табло, где периодически повторяется одно и то же рекламное сообщение):

Private Sub Form1___Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

' Необходимо добавить несколько пробелов,

'чтобы строки не слипались

Me.Text = "Занимательное программирование "

End Sub

Private Sub Timer1___Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim StrTemp As String

StrTemp = Me.Text

StrTemp = Microsoft.VisualBasic.Right(StrTemp, Len(StrTemp) - 1) &

Microsoft.VisualBasic.Left(StrTemp, 1)

Me.Text = StrTemp

End Sub

Для реализации бегущей строки также используется элемент управления – таймер. Первый символ строки отбрасывается и добавляется в конец строки. Чтобы сформировать пространство между бегущими строками, необходимо добавить в выводимый текст несколько пробелов.

Цель:

изучение системы программирования Microsoft Visual Basic 2005.

Результаты обучения:

После успешного завершения занятия пользователь должен уметь:

· создавать печатающие и бегущие строки;

· программировать различные текстовые эффекты.

Список рекомендуемой литературы:

1. Степанов А., Шевякова Д. Самоучитель Visual Basic 2005. – СПб.: BHV, 2006.

2. Богданов М.Р. Visual Basic 2005 на примерах. – СПб.: BHV, 2007.

3. Патрик Т., Крейг К. Visual Basic 2005: рецепты программирования. – СПб.: BHV, 2008.

4. Балена Ф. Программирование на Microsoft Visual Basic 2005. – М.: «Эком», 2008.

Используемые программы:

Microsoft Visual Basic 2005 Express Edition

Используемые файлы:

Paint.txt

Microsoft Visual Basic 2005 Express Edition — средство разработки программного обеспечения, включающее язык программирования и среду разработки. Данный продукт предназначен для создания небольших Windows-приложений на основе технологии Windows Forms, являющейся частью Microsoft .NET. С помощью Visual Basic 2005 Express Edition можно создавать консольные приложения и компоненты.