5. Добавляем надпись

Надписи, как мы знаем, создаются при помощи компонента Label (Надпись). Нам потребуется три надписи: две для сомножителей и одна для произведения. Выберите компонент Label (Надпись) и нарисуйте надпись на форме методом протягивания. Первую надпись надо разместить справа от верхнего движка.

Остальные надписи добавляются на форму точно так же. Вторую надпись поместите рядом со вторым движком, а третью расположите внутри заготовленной рамки. Чтобы числа выглядели красиво, выровняйте правые границы надписей по одной вертикальной линии.

6. Настраиваем надписи

Числа, которые должны отображаться в надписях, могут быть однозначными, двузначными, трёхзначными и четырёхзначными. Хотелось бы, чтобы отведенное им место не зависело от длины числа. Для этого надо, чтобы значение свойства AutoSize (Автоподбор) для всех трёх надписей было равно False (Нет). Именно это значение задаётся по умолчанию, так что менять его не надо. Уточните с помощью маркеров размеры каждой надписи. Ещё нам надо изменить их текст. Так как наши движки установлены в крайнее левое положение, начальные значения множителей равны 2, а начальное значение произведения равно, соответственно, 4. Введем нужные значения в свойство Caption (Заголовок) каждой из надписей.

Теперь выравниваем наши надписи. Для этого изменяем значение свойства Alignment (Выравнивание) для объектов-надписей. Задайте для всех трёх надписей значение 1 – Right Justify (Выравнивание по правому краю).

7. Добавляем и настраиваем флажок

Выберите компонент CheckBox (Флажок) на панели компонентов и нарисуйте флажок под движками. Измените свойство Caption (Заголовок) – введите подпись Квадрат. Можно также изменить значение свойства Alignment (Выравнивание). Если выбрать значение 1 – Right Justify (Выравнивание по правому краю), то метка флажка окажется не слева, а справа от подписи. Теперь форма готова и можно приступить к программированию.

8. Программируем работу движков

Щелкните правой кнопкой мыши на верхнем движке. Откроется контекстное меню. Выберите в нем пункт View Code (Показать код) – откроется окно кода.

Первый объект – движок называется Slider1. Выберите название этого объекта в окне кода в раскрывающемся списке слева. В списке справа выберите событие Change (Изменение).Итак, надо поменять две надписи, а значит, добавить 2 оператора:

Label1.Caption = Str$(Slider1.Value)

Label3.Caption = Str$(Slider1.Value * Slider2.Value)

Для обработки изменения второго движка нужно создать аналогичную процедуру – обработчик. Выберите в окне кода в раскрывающемся списке слева Slider2. В списке справа выберите событие Change (Изменение).

Вот как выглядят нужные операторы:

Label2.Caption = Str$(Slider2.Value)

Label3.Caption = Str$(Slider1.Value * Slider2.Value)

9. Программируем влияние флажка

Если флажок установлен, бегунки должны всегда иметь одинаковые положения. При этом какой бы бегунок не двигали, второй должен двигаться точно также. Для этого необходимо добавить процедуру обработки щелчка на флажке, а также изменить процедуры обработки движков с учетом влияния флажка.

Выберите в окне кода в раскрывающемся списке слева объект Check1 (флажок). Система VB создаст процедуру обработки щелчка. Можем привести движки к одинаковому виду, просто сделав значение второго движка таким же, как у первого. Для этого нужен оператор:

Slider2.Value = Slider1.Value

Эта процедура готова. Теперь надо внести изменения в обработчики события Change (Изменение) для движков.

Выяснить установлен флажок или сброшен, можно с помощью свойства Value (Значение). Если флажок сброшен это свойство содержит значение 0, а если установлен – 1. Для этого используется условный оператор:

If Check1.Value = 1 Then

Если флажок установлен, приводим второй движок к значению первого

Slider2.Value = Slider1.Value

Такие же операторы надо вставить и во вторую процедуру обработки. Единственное отличие состоит в том, что приводим первый движок в соответствие со вторым.

Всё программа готова! Запустите программу, нажав клавишу F5.

Для самостоятельной работы

Создать 4 формы, на которых будут обрабатывать математические функции: сумма, разность, произведение, деление с помощью движков. Для двух операций таких как сумма и произведение применить более 2-х движков.