Применение метода Scale

Имя_объекта.Scale(Xmin,Ymax)-(Xmax,Ymin)

Private Sub Command1_Click() Picture1.Cls Picture1.Scale (0, 6)-(10, 0) For j = 0 To 6 Step 0.5 Picture1.Line (0, j)-(10, j), vbWhite Next For i = 0 To 10 Step 0.5 Picture1.Line (i, 0)-(i, 6), vbWhite Next End Sub

Построение графика функции

Общий вид формы	Изменение свойств графического окна при проектировании (FillColor, FillStyle, AutoRedraw)

'Задание вида функции Function F(x) F = 3 * Sin(x) * Cos(x / 6) End Function

Private Sub Command1_Click() Const pi = 3.1415926 Picture1.Cls miny = 0: maxy = 0: minx = 0: maxx = 0 'Цикл для нахождения минимального и 'максимального значения функции For x = -2 * pi To 2 * pi Step 0.1 y = F(x) If y < miny Then miny = y minx = x End If If y > maxy Then maxy = y maxx = x End If Next 'Разметка графического окна методом Scale Picture1.Scale (-2 * pi, maxy)-(2 * pi, miny) 'Вывод на метку значений минимума и максимума функции с 'соответствующими аргументами Label1.Left = maxx - 1 'Задание координат левого Label1.Top = -0.3 'верхнего угла метки Label1.Caption = Format(maxx, "0.00")+"; "+Format(maxy, "0.00") Label2.Left = minx – 1 Label2.Top = 0.5 Label2.Caption = Format(minx, "0.00")+"; "+Format(miny, "0.00") 'Построение оси Х Picture1.Line (-2 * pi, 0)-(2 * pi, 0), vbBlack 'Построение оси y Picture1.Line (0, -2 * pi)-(0, 2 * pi), vbBlack 'Цикл для построения графика функции методом Pset For x = -2 * pi To 2 * pi Step 0.01 y = F(x) Picture1.PSet (x, y), vbRed Next 'Пометка на графике точек максимума и минимума функции Picture1.Circle (maxx, maxy), 0.15, vbRed Picture1.Line (maxx, maxy)-(maxx, 0), vbWhite Picture1.Circle (minx, miny), 0.15, vbRed Picture1.Line (minx, miny)-(minx, 0), vbWhite End Sub

Некоторые дополнительные элементы управления, которые часто используются в проектах.

Объект управления Shape (Фигура)

Позволяет создать фигуру.

Свойства

Важнейшими являются:

Shape	Задает форму фигуры (круг, квадрат и т.п.)
Height	Высота фигуры
Width	Ширина фигуры
Left	Расстояние до фигуры слева (левый верхний угол)
Top	Расстояние до фигуры сверху (левый верхний угол)
BorderColor	Цвет окантовки фигуры
BorderStyle	Стиль окантовки фигуры
FillStyle	Стиль заливки фигуры
FillColor	Цвет заливки фигуры

Объект управленияTimer

Использование таймера является хорошим способом управления программой. С помощью таймера можно запускать или завершать процессы приложения в определенные моменты времени. Во время проектирования таймер размещается на форме, во время выполнения программы его на форме не видно.

События

Таймер имеет единственное событие - Timer, которое вызывается по истечении установленного временного интервала.

Свойства

Для установки интервала времени служит свойство Interval, значение которого устанавливается в миллисекундах. Например, задание значения 250 вызывает событиеTimerчерез каждые 250 миллисекунд независимо от того, какое приложение активно. Для отключения таймера следует присвоить свойствуIntervalзначение 0 или свойствуEnabledзначениеFalse.

Максимально допустимый интервал составляет 64757 миллисекунд. Но ОС может обрабатывать только 18,2 прерывания таймера в секунду, поэтому точность задания интервала составляет максимум одну восемнадцатую секунду. В Windowsможно использовать не более 32 таймеров.

Пример использования таймера для перемещения объекта Shape(красного круга) в графическом окне 3000х4000.

Код программы

Свойства объектов Shape1 и Timer1

Dim x As Integer Dim y As Integer Dim r As Integer Dim h As Integer Dim h1 As Integer Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() x = Shape1.Left y = Shape1.Top r = 200 h = r h1 = r End Sub Private Sub Timer1_Timer() If (x + 200) > Picture1.Width Then h = -r end if If (x - 200) < 0 Then h = r If (y + 200) > Picture1.Height Then h1 = -r end if If y - 200 < 0 Then h1 = r 'Установка координат левого верхнего 'угла объекта-окружности x = x + h y = y + h1 Shape1.Left = x Shape1.Top = y End Sub