4.1.3. Управление пикселем

Чтобы использовать режим управления пикселем необходимо установить свойство ScaleMode =3

Число твипов, приходящихся на один пиксель возвращают функции TwipsPerPixelX и TwipsPerPixelY.

Для управления цветом точки используется метод Pset. Синтаксис метода:

Pset(x,y) [, C].

Метод Pset можно использовать для изображения графиков функций, а также для закраски фигур произвольной формы. К сожалению, в VB нет полезной функции для закраски фигур произвольной формы.

Для определения цвета точки используется метод Point.

Этот метод возвращает длинное целое, используемое в кодировании (шестнадцатеричную константу). Синтаксис метода:

Object. Point(x,y)

Пример 4.4. Построение графика функции на заданном интервале.

Построить график функции e^x Sin(x) на отрезке от –2 до 2.

Порядок работы.

Для решения данной задачи необходимо протабулировать функцию на заданном отрезке с некоторым шагом и найти приближенное значение экстремумов функции. Затем провести масштабирование графического объекта (формы или элемента PictureBox) и построить график функции. Для построения графика функции повторите операцию табулирования функции, и на каждом шаге стройте точку. Чтобы график функции был плотным, шаг табулирования следует выбирать достаточно малым. С целью сокращения времени построения графика при некотором ухудшении качества для построения графика можно использовать метод Line.

Option Explicit Dim x As Single, y As Single Dim xn As Single, ymin As Single Dim xk As Single, ymax As Single Dim dx As Single ---------------------------------------------- Function FNy(x As Single) y = Exp(x) * Sin(x) FNy = y End Function ---------------------------------------------- Private Sub Form_Click() Picture1.Cls Picture1.ScaleMode = 3 xn = Val(Text1(0).Text)

xk = Val(Text1(1).Text) dx = Val(Text1(2).Text) ymax = FNy(xn): ymin = ymax For x = xn To xk + dx / 2 Step dx y = FNy(x) If y > ymax Then ymax = y If y < ymin Then ymin = y Next x Picture1.Scale (xn, ymin)-(xk, ymax) For x = xn To xk + dx / 2 Step dx y = FNy(x) Picture1.PSet (x, y), vbRed Next x End Sub

4.1.4. Упражнения: графические объекты

Задача 1. Разработать формы, написать и отладить программы в соответствии с примерами 4.1- 4.4.

Задача 2. Разработать форму для исследования свойств элемента Shape в соответствии с вариантами заданий, приведенных в 4.1.5.

Задача 3. Построить график функции e^x на отрезке [-2,2].

Указание к задаче 2. Протабулировать функцию на заданном отрезке, найти максимальное и минимальное значение функции на отрезке табулирования, выполнить масштабирование формы в соответствии с вычисленными параметрами. Построить график функции, используя метод Pset.