1 / 13

Графические возможности языка Visual Basic

Графические возможности языка Visual Basic. Рисование графических примитивов. На формах ( Form ). В графических полях (окнах) ( PictureBox ). Выполните задание: создайте интерфейс будущего проекта следующим образом:. Графическое поле PicterBox Name - PicGraph.

tait
Download Presentation

Графические возможности языка Visual Basic

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Графические возможности языка Visual Basic

  2. Рисование графических примитивов На формах (Form) В графических полях (окнах) (PictureBox)

  3. Выполните задание: создайте интерфейс будущего проекта следующим образом: Графическое поле PicterBox Name - PicGraph При щелчке на кнопке ПУСК в графическом поле будут выводиться графические примитивы: точка, линия, прямоугольник, закрашенный прямоугольник, окружность.

  4. Графические примитивы (точка, линия и т.д.) рисуются с помощью графических методов

  5. Графический метод Scale Объект.Scale(x1,y1) – (x2,y2) – задает систему координат и масштаб для формы и графического поля. (x1,y1) и (x2,y2)– координаты противоположных углов объекта.

  6. Графический метод Pset Объект.Pset(x,y), цвет – устанавливает точку с координатами x,y заданного цвета.

  7. Цвета: 2 способ: QBColor(номер) 0 – черный 1 – синий 2 – зеленый 3 – и т.д. до 15 (всего 16 цветов) 1 способ: vbBlack – черный vbBlue – синий vbGreen – зеленый vbCyan – голубой vbRed – красный vbMagenta – сиреневый vbYellow – желтый vbWrite - белый

  8. Выполните задание: в программном коде кнопки ПУСК запишите команды для задания системы координат и установки точки. Private Sub Command1_Click() PicGraph.Scale (0, 350)-(350, 0) PicGraph.PSet (10, 10), vbRed End Sub Запустите проект Обратите внимание, где располагается точка начала координат. Измените строку PicGraph.Scale (0, 350)-(350, 0) на PicGraph.Scale (350, 0)-(0, 350). Обратите внимание на изменение местоположения начала координат.

  9. Графический метод Line Объект.Line(x1,y1)-(x2,y2), цвет – рисует линию. Объект.Line(x1,y1)-(x2,y2), цвет, B – рисует прямоугольник. Объект.Line(x1,y1)-(x2,y2), цвет, BF – рисует закрашенный прямоугольник.

  10. Графический метод Circle Объект.Circle(x,y), радиус, цвет – рисует окружность заданным цветом с центром в точке (x,y)

  11. Выполните задание: допишите программный код кнопки ПУСК Private Sub Command1_Click() PicGraph.Scale (0, 350)-(350, 0) PicGraph.PSet (175, 175), vbRed PicGraph.Line (0, 0)-(100, 160), QBColor(12) PicGraph.Line (100, 100)-(250, 40), QBColor(10), B PicGraph.Line (100, 200)-(250, 260), QBColor(10), BF PicGraph.Circle (250, 300), 20, 15 End Sub Экспериментальным путем самостоятельно определите цвета от 0 до 15

  12. Выполните задание: запишите программный код кнопки Очистить Private Sub Command2_Click() PicGraph.Cls End Sub

  13. Сохраните проект в папке «Знакомство с графическими примитивами»

More Related