16.4.Применение метода 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

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

Общий вид формы	Изменение свойств графического окна при проектировании (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

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

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

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

17.1.1.Свойства

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

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

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

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

17.2.1.События

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

17.2.2.Свойства

Для установки интервала времени служит свойство 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

17.3.Объект управления ProgressBar

Отображение процесса выполнения операций. В Windows этот элемент отображает течение процесса копирования, перемещения, загрузки и т.п. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.

17.3.1.Свойства

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

Min	Нижняя граница
Max	Верхняя граница
Value	Текущее значение

17.3.2.Дополнительные свойства

Orientation	Ориентация элемента : - вертикальная (ccOrientationVertical) - горизонтальная (ccOrientationHorizontal)
Scrolling	Способ отображения процесса: - непрерывный (ccScrollingSmooth) - сегментарный (ccScrollingStandard)

17.3.3.Метод

Refresh

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

(1)Пример

progressBar1.Min=0 progressBar1.Max=80 For j=0 To 80 ProgressBar1.Value=j Next

17.4.Объект управления Slider (Движок)

С помощью движка можно задавать значения переменных из диапазона значений. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.

17.4.1.Свойства

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

Min	Минимальное значение для движка, когда он находится на левом краю.
Max	Максимальное значение для движка, когда он находится на правом краю.
Value	Текущее положение движка.
SmallChange	Малое изменение. Сдвиг движка на одну позицию. Шаг движка.
LargeChange	Большое изменение. Сдвиг движка при двойном нажатии на нем.

(1)Пример

a=Slider1.value

b=Slider2.value

For j=a to b

x=j*x

Print x; “ “;

Next

Результат 1 2 6 24 120, если значение первого 1, а значение второго 5.

17.5.

17.6.Объект управления CheckBox (Флажок)

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

Он может иметь и третье состояние. В этом случае элемент управления отображается как отмеченный, но недоступный. Установить такое состояние можно только программно.

17.6.1.События

Важнейшим для флажка является событие Click.

17.6.2.Свойства

Единственно важным свойством является Value (значение):

Величина	Значение
0	Не отмечен
1	Отмечен
2	Отмечен, но недоступен

(1)Пример

If Check2.Value Then Picture1.Cls

If Check1.Value Then

Picture1.Print Round(x)

Else Picture1.Print x

End if

17.7.Объект управления OptionButton (Переключатель)

Переключатели предназначены для установки только одной опции (одного действия) из группы.

17.7.1.События

Важнейшим как и для флажка является событие Click.

17.7.2.Свойства

Важнейшим свойством является Value (значение). С его помощью можно определить состояние переключателя. Это свойство может принимать значение True или False.

(1)Пример

If Option1.Value Then x = Val(Text1) + Val(Text2) If Option2.Value Then x = Val(Text1) - Val(Text2) If Option3.Value Then x = Val(Text1) * Val(Text2) If Option4.Value Then x = Val(Text1) / Val(Text2)

17.8.Более подробно об объекте управления CommonDialog

Этот элемент управления позволяет использовать стандартные диалоговые окна Windows:

	Для вызова стандартного диалогового окна Windows в VB используется специальный элемент управления CommonDialog . Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Common Dialog Control 6.0. Объект общего диалога невидим для пользователя при работе программы.