*
*
Графические возможности.
Содержание:
Графические элементы управления.
Ученику
Учителю
Дополнительно
*
*
*
*
*
*
*
*
Простейшими элементами управления для работы с графикой являются Line и Shape.
1. Линия (Line): используются для размещения на форме линий различной толщины и стилей.
Некоторые свойства:
Name: по умолчанию Line1
X1, Y1, X2, Y2: координаты начальной и конечной точек
BorderColor: цвет линии, BorderWidth: толщина линии
BorderStyle: стиль линии (если свойство BorderWidth=1, то может принимать целые значения от 0 до 6: сплошная, пунктирная, штрих-пунктирная и другие стили).
2. Фигура (Shape): используются для размещения на форме геометрических фигур (прямоугольник, квадрат, овал, окружность, скругленный прямоугольник, скругленный квадрат).
Некоторые свойства:
Name: по умолчанию Shape1
Shape: задает тип фигуры (целые значения от 0 до 5)
BorderColor: цвет линии границы, BorderWidth: толщина линии границы
BorderStyle: стиль линии границы (если BorderWidth=1, то целые значения от 0 до 6)
FillColor: цвет заполнения фигуры, FillStyle: стиль заполнения (целые значения от 0 до 7: прозрачный, сплошная заливка, вертикальные линии и другие стили).
Отличие линий и фигур от других элементов управления заключается в том, что для них не обрабатываются никакие события.
В Visual Basic существуют специальные элементы управления для размещения на форме готовых изображений, хранящихся в графических файлах формата JPG, GIF, BMP, ICO.
3. Поле образа (Image) - элемент управления, который помещает изображение в нужное место формы, может изменять его размеры и пропорции.
Некоторые свойства:
Name: по умолчанию Image1
Stretch: способ подгонки изображения
а) Если Stretch=True, то размер загружаемого изображения подгоняется под размер Image
б) Если Stretch=False, то размер Image подгоняется под размер загружаемого изображения
Picture: путь доступа к файлу, хранящему загружаемое в Image изображение
4.Графическое поле (PictureBox) - элемент управления, который помещает изображение в нужное место формы, а также имеет собственную систему координат и позволяет использовать графические методы и анимацию. В отличие от элемента Image, элемент Picture Box не может изменять исходный размер изображения.
Некоторые свойства:
Name: по умолчанию Picture1
AutoSize: а) Если AutoSize =True, то размер Picture подгоняется под размер загружаемого изображения; б) Если AutoSize =False, то размер Picture не подгоняется под размер загружаемого изображения.
Picture: путь доступа к файлу, хранящему загружаемое в Picture изображение
AutoRedraw: перерисовка изображения.
Замечание: Во время выполнения приложения для загрузки изображения на форму, командную кнопку, в элементы Image и Picture Box применяется функция LoadPicture(), которая имеет вид: Image1.Picture = LoadPicture(“C:\Рисунки\ris1.bmp”).
Для удаления изображения надо вместо полного имени файла указать пустую строку:
Picture1.Picture = LoadPicture(“”).
1. Линия (Line): используются для размещения на форме линий различной толщины и стилей.
Некоторые свойства:
Name: по умолчанию Line1
X1, Y1, X2, Y2: координаты начальной и конечной точек
BorderColor: цвет линии, BorderWidth: толщина линии
BorderStyle: стиль линии (если свойство BorderWidth=1, то может принимать целые значения от 0 до 6: сплошная, пунктирная, штрих-пунктирная и другие стили).
2. Фигура (Shape): используются для размещения на форме геометрических фигур (прямоугольник, квадрат, овал, окружность, скругленный прямоугольник, скругленный квадрат).
Некоторые свойства:
Name: по умолчанию Shape1
Shape: задает тип фигуры (целые значения от 0 до 5)
BorderColor: цвет линии границы, BorderWidth: толщина линии границы
BorderStyle: стиль линии границы (если BorderWidth=1, то целые значения от 0 до 6)
FillColor: цвет заполнения фигуры, FillStyle: стиль заполнения (целые значения от 0 до 7: прозрачный, сплошная заливка, вертикальные линии и другие стили).
Отличие линий и фигур от других элементов управления заключается в том, что для них не обрабатываются никакие события.
В Visual Basic существуют специальные элементы управления для размещения на форме готовых изображений, хранящихся в графических файлах формата JPG, GIF, BMP, ICO.
3. Поле образа (Image) - элемент управления, который помещает изображение в нужное место формы, может изменять его размеры и пропорции.
Некоторые свойства:
Name: по умолчанию Image1
Stretch: способ подгонки изображения
а) Если Stretch=True, то размер загружаемого изображения подгоняется под размер Image
б) Если Stretch=False, то размер Image подгоняется под размер загружаемого изображения
Picture: путь доступа к файлу, хранящему загружаемое в Image изображение
4.Графическое поле (PictureBox) - элемент управления, который помещает изображение в нужное место формы, а также имеет собственную систему координат и позволяет использовать графические методы и анимацию. В отличие от элемента Image, элемент Picture Box не может изменять исходный размер изображения.
Некоторые свойства:
Name: по умолчанию Picture1
AutoSize: а) Если AutoSize =True, то размер Picture подгоняется под размер загружаемого изображения; б) Если AutoSize =False, то размер Picture не подгоняется под размер загружаемого изображения.
Picture: путь доступа к файлу, хранящему загружаемое в Picture изображение
AutoRedraw: перерисовка изображения.
Замечание: Во время выполнения приложения для загрузки изображения на форму, командную кнопку, в элементы Image и Picture Box применяется функция LoadPicture(), которая имеет вид: Image1.Picture = LoadPicture(“C:\Рисунки\ris1.bmp”).
Для удаления изображения надо вместо полного имени файла указать пустую строку:
Picture1.Picture = LoadPicture(“”).
Сохраните программу и сравните с образцом.
Проект "Биоритмы".
Создадим приложение "Биоритмы".Разместите на форме элементы управления и задайте им свойства, как показано на рис.1.
Рис 1. Окно программы "Биоритмы".
Для кнопки очистить создайте программный код, благодаря которому объект PictureBox будет очищаться, а для кнопки выход - программный код, закрывающий приложение.
Создадим программный код для кнопки начало, при нажатии на которую должна будет высчитаться разница между датой рождения и текущей датой. затем просчитается значение физического, эмоционального и интеллектуального биоритмов. После этого в элементе PictureBox должен построиться график, с помощью которого пользователь сможет увидеть свои биоритмы нагляднее.
Итак, для просчета всех значений напишите в программный код следующие строчки:
IntData = DateDiff("d", Text2.Text, Text1.Text)
Text3 = Sin(2 * 3.14 * IntData / 23)
Text4 = Sin(2 * 3.14 * IntData / 28)
Text5 = Sin(2 * 3.14 * IntData / 33)
В переменную IntData помещается разница между введеными пользователем датами.
затем высчитываются значения физический, эмоциональный и интеллектуальный показатели, по формуле установленной наукой.
Начинаем построение графика:
c = 7
Pic.Scale (0, 1)-(30, -1)
For sngx = 0 To 30 Step 0.01
Pic.PSet (sngx, Sin(2 * 3.14 * (IntData + sngx) / 23)), vbYellow
Pic.PSet (sngx, Sin(2 * 3.14 * (IntData + sngx) / 28)), vbRed
Pic.PSet (sngx, Sin(2 * 3.14 * (IntData + sngx) / 33)), vbBlue
Next sngx
Pic.Line (0, 0)-(30, 0)
For byti = 0 To 30
Pic.PSet (byti, 0)
Pic.Print c
If c >= 31 Then c = c - 31
c = c + 1
Next byti
Pic.Line (0, 1)-(0, -1)
For byti = 1 To -1
Pic.PSet (0, byti)
Pic.Print byti
Next byti
Создадим программный код для кнопки начало, при нажатии на которую должна будет высчитаться разница между датой рождения и текущей датой. затем просчитается значение физического, эмоционального и интеллектуального биоритмов. После этого в элементе PictureBox должен построиться график, с помощью которого пользователь сможет увидеть свои биоритмы нагляднее.
Итак, для просчета всех значений напишите в программный код следующие строчки:
IntData = DateDiff("d", Text2.Text, Text1.Text)
Text3 = Sin(2 * 3.14 * IntData / 23)
Text4 = Sin(2 * 3.14 * IntData / 28)
Text5 = Sin(2 * 3.14 * IntData / 33)
В переменную IntData помещается разница между введеными пользователем датами.
затем высчитываются значения физический, эмоциональный и интеллектуальный показатели, по формуле установленной наукой.
Начинаем построение графика:
c = 7
Pic.Scale (0, 1)-(30, -1)
For sngx = 0 To 30 Step 0.01
Pic.PSet (sngx, Sin(2 * 3.14 * (IntData + sngx) / 23)), vbYellow
Pic.PSet (sngx, Sin(2 * 3.14 * (IntData + sngx) / 28)), vbRed
Pic.PSet (sngx, Sin(2 * 3.14 * (IntData + sngx) / 33)), vbBlue
Next sngx
Pic.Line (0, 0)-(30, 0)
For byti = 0 To 30
Pic.PSet (byti, 0)
Pic.Print c
If c >= 31 Then c = c - 31
c = c + 1
Next byti
Pic.Line (0, 1)-(0, -1)
For byti = 1 To -1
Pic.PSet (0, byti)
Pic.Print byti
Next byti