Ключ (флажок)

Ключ (CheckBox) позволяет сделать активной какую либо опцию приложения.

На рисунке показан фрагмент формы с двумя расположенными на ней ключами.

Переключатель(поля выбора или «радиокнопки»)

Переключатель (OptionButton) позволяет выбрать одну из возможных опций, представленных в форме в виде списка.

На рисунке показан фрагмент формы с двумя расположенными на ней переключателями.

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

Текст программы на Visual Basic: Private Sub Command1_Click() If Check2.Value Then Picture1.Cls 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) If Check1.Value Then Picture1.Print Round(x) Else Picture1.Print x End Sub

2.1.1. Создание проекта

Проект в Visual Basic, который решает квадратное уравнение вида

Этап создания алгоритма:

Чтобы решить такое уравнение, нужно найти дискриминант и затем, корни.

Дискриминант ищется по формуле:

D = b*b - 4*a*c

А корни:

Если дискриминант > 0, то

X1 = (b + (корень из D)) / (2*a)
X2 = (b - (корень из D)) / (2*a)

Если дискриминант = 0, то

X1 = X2 = b / (2*a)

Если дискриминант < 0, то корней не существует.

Этап создания экранной формы:

На форме размещены:

- текстовые окна (TextBox), предназначенные для ввода исходных данных;

- метки (Label) для подписи текстовых окон;

- графическое окно (PictureBox) для вывода результатов решения уравнения;

- фрейм для визуального объединения компонентов формы;

- кнопки для выполнения действий приложения.

Может быть спроектирован и другой интерфейс программы с использованием различных вариантов организации ввода-вывода данных.

Написание программного кода:

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

Private Sub Command1_Click()

a = Text1

b = Text2

c = Text3