- •Содержание
- •Основные понятия ооп
- •Объекты
- •Классы объектов
- •Свойства
- •События
- •Инкапсуляция
- •Наследование
- •Полиморфизм (имеющий много форм)
- •Визуальное проектирование интерфейса
- •Процесс создания приложений
- •Структура проекта
- •Событийно-управляемое программирование на vb
- •Типы данных, константы и переменные
- •Типы данных
- •Особые значения
- •Переменные
- •Объявление переменных
- •Константы
- •Выражения, операторы, встроенные функции Выражения
- •Операторы
- •Операции и выражения
- •Встроенные функции vb Математические функции vb
- •Функции преобразования данных vb
- •Функция InputBox
- •Функция MsgBox
- •Некоторые константы аргумента Кнопки
- •Ввод и вывод данных в vb
- •Ввод данных
- •Вывод результатов
- •Функция Format
- •Управляющие операторы
- •Основные логические операции
- •Условные операторы
- •Однострочный синтаксис
- •Блочный синтаксис
- •Select Case(оператор выбора)
- •Циклы с параметром
- •Циклы «Делать пока»
- •Массивы
- •Одномерные массивы
- •Многомерные массивы
- •Оператор Option Base
- •Оператор Erase
- •Ввод и вывод массивов Одномерные массивы
- •Двумерные массивы
- •Процедуры и функции
- •Событийные процедуры
- •Процедуры пользователя
- •Вызов процедур
- •Аргументы
- •Функции-процедуры
- •Данные символьного типа
- •Функция Split
- •Функция Join
- •Оператор Mid
- •Функции и операторы для работы с файлами
- •Открытие файлов
- •Закрытие файлов
- •Работа с файлами последовательного доступа
- •Чтение данных
- •Запись данных
- •Элемент управления CommonDialog
- •Графика в vb
- •Методы графики в vb
- •Задание цвета
- •Свойства объектов, влияющих на графические методы:
- •Применение метода Scale
- •Построение графика функции
- •Некоторые дополнительные элементы управления, которые часто используются в проектах. Объект управления Shape (Фигура)
- •Свойства
- •Объект управления Timer
- •События
- •Свойства
- •Окна общего диалога
- •Создание меню
- •Свойства
- •Работа с несколькими формами
Применение метода 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 |
Объект управления ProgressBar
Отображение процесса выполнения операций. В Windows этот элемент отображает течение процесса копирования, перемещения, загрузки и т.п. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.
Свойства
Важнейшими являются:
Min |
Нижняя граница |
Max |
Верхняя граница |
Value |
Текущее значение |
Дополнительные свойства
Orientation |
Ориентация элемента : - вертикальная (ccOrientationVertical) - горизонтальная (ccOrientationHorizontal) |
Scrolling |
Способ отображения процесса: - непрерывный (ccScrollingSmooth) - сегментарный (ccScrollingStandard) |
Метод
Refresh |
Позволяет принудительно вызвать перерисовку элемента управления. |
Пример
progressBar1.Min=0 progressBar1.Max=80 For j=0 To 80 ProgressBar1.Value=j Next
Объект управления Slider (Движок)
С помощью движка можно задавать значения переменных из диапазона значений. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.
Свойства
Важнейшими являются:
Min |
Минимальное значение для движка, когда он находится на левом краю. |
Max |
Максимальное значение для движка, когда он находится на правом краю. |
Value |
Текущее положение движка. |
SmallChange |
Малое изменение. Сдвиг движка на одну позицию. Шаг движка. |
LargeChange |
Большое изменение. Сдвиг движка при двойном нажатии на нем. |
Пример
a=Slider1.value
b=Slider2.value
For j=a to b
x=j*x
Print x; “ “;
Next
Результат 1 2 6 24 120, если значение первого 1, а значение второго 5.
Объект управления CheckBox (Флажок)
Флажки – это элементы управления, которые можно отмечать (ставить галочку), выбирая из ряда опций одну или несколько. CheckBox может иметь два различных состояния – отмеченное и не отмеченное.
Он может иметь и третье состояние. В этом случае элемент управления отображается как отмеченный, но недоступный. Установить такое состояние можно только программно.
События
Важнейшим для флажка является событие Click.
Свойства
Единственно важным свойством является Value (значение):
Величина |
Значение |
0 |
Не отмечен |
1 |
Отмечен |
2 |
Отмечен, но недоступен |
Пример
If Check2.Value Then Picture1.Cls
If Check1.Value Then
Picture1.Print Round(x)
Else Picture1.Print x
End if
Объект управления OptionButton (Переключатель)
Переключатели предназначены для установки только одной опции (одного действия) из группы.
События
Важнейшим как и для флажка является событие Click.
Свойства
Важнейшим свойством является Value (значение). С его помощью можно определить состояние переключателя. Это свойство может принимать значение True или False.
Пример
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)
Более подробно об объекте управления CommonDialog
Этот элемент управления позволяет использовать стандартные диалоговые окна Windows:
Для вызова стандартного диалогового окна Windows в VB используется специальный элемент управления CommonDialog . Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Common Dialog Control 6.0. Объект общего диалога невидим для пользователя при работе программы.
|