3.3.8. Анализ проекта

В рассмотренной выше задаче ввод исходных данных реализован с помощью текстовых полей txtЦена и txtКоличество, а вычисление стоимости и вывод результата – одной строкой

lblрзтСтоимость = txtЦена * txtКоличество

в процедуре обработки события нажатия командной кнопки «cmdВычислить».

Поставленную задачу можно также решить без кнопки. Форма для этого случая приведена на рис. 3.3.

Рис. 3.3. Форма для вычисления стоимости товара (без кнопки)

Процесс вычисления стоимости можно связать с событием изменения значения (Change) в текстовых полях txtЦена и txtКоличество.

В этом случае код программы имеет вид:

PrivateSubtxtЦена_Change()

lblрзтСтоимость = txtЦена * txtКоличество

End Sub

Private Sub txtКоличество_Change()

txtЦена_Change

EndSub

Первая процедура создается путем двойного щелчка на текстовом поле «txtЦена» и ввода строки кода:

lblрзтСтоимость = txtЦена * txtКоличество

Вторая – также вначале двойным щелчком на текстовом поле txtКоличество, а затем копированием заголовка из первой процедуры во вторую. Такая запись говорит о том, что при изменении значения в текстовом поле txtКоличество выполняются те же действия, что и при изменении текстового поля txtЦена.

Вычисление стоимости происходит при любом изменении значения в одном из текстовых полей txtЦена или txtКоличество, в том числе и когда в другом еще не вводились никакие значения. Последняя ситуация может привести к ошибке, так как неизвестен второй сомножитель. Чтобы избавиться от такого варианта, введем в свойство Text каждого из этих полей цифру 0, т.е. если в поле еще не вводились никакие данные, то значением поля будет ноль.

Для того, чтобы на диске сохранялся и первый проект (с кнопкой) и второй (без кнопки), нужно после сохранения первого проекта и переделки его формы под второй проект сохранить новую форму командой File – Save Form As и ввести имя файла для формы frmКасса2. Затем сохранить весь проект в новом файле prКасса2 командой File – Save Project As.

Примечания. 1. При задании свойств Caption и Name производилось копирование значения из первого свойства во второе, что облегчает процесс задания свойства Name. В общем случае использовать такой прием не обязательно – значение свойства Name можно задавать путем его ввода с клавиатуры.

2. Если значение свойства Caption состоит из нескольких слов (например, Новая цена), то после его копирования в свойстве Name необходимо избавиться от пробелов между словами (например, сформировать имя txtНовая_цена или txtНоваяЦена).

3.3.9. Выполнение программы и анализ полученных результатов

На рис. 3.4 показано использование разработанного приложения «Касса» для расчета стоимости товара при цене 5,2 грн. и количестве 4 шт. Полученный результат (20,8 грн.) совпадает с ожидаемым, который был вычислен без данного приложения. Это приложение может использоваться в качестве простейшего кассового аппарата.

Рис. 3.4. Вычисление стоимости товара

4. Типы данных

4.1. Константы и переменные

В рассмотренной выше программе в силу ее простоты промежуточные вычисления не понадобились – сразу вычислялся результат. В более сложных задачах для хранения значений промежуточных вычислений в ходе выполнения программы используют переменные. Они представляют собой поля памяти, куда можно записать какие-либо данные (число, текст и т.д.). Для обращения к такому полю памяти ему присваивается имя. Оно начинается с буквы и содержит не более 255 символов (букв, цифр и символа подчеркивания).

Если значение, которое хранится в поле памяти не изменяется в процессе выполнения программы, то оно называется константой и объявляется в операторе Сonst.

Оператор объявления константы имеет следующий формат:

[Public | Private] Const Имя_константы = Значение

Здесь использованы следующие обозначения:

квадратные скобки указывают, что заключенные в них конструкции могут либо присутствовать, либо нет;

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

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

Примеры объявления констант:

Public Const Pi = 3,141592565

Private Const Валюта = "USD"

Const Курс_к_USD = 5.67

Const Подрядчик = "Фирма ""Комфорт"" "

В первом примере объявлена константа для числа , которая может использоваться во всех процедурах проекта. Во втором и третьем примерах объявлены локальные константы для обозначения названия валюты (текстовый тип) и ее курса (числовой тип). В последнем примере также объявлена локальная константа, в которой хранится название фирмы-подрядчика работ. Ее название "Комфорт" взято в двойные кавычки, поскольку все значение текстовой константы также заключается в кавычки.

Попытка изменить константу в программе приводит к ошибке, о которой сообщается пользователю.

Константы широко используются в среде VB для задания значений различных свойств. Они имеют префикс vb. Примеры констант представлены в табл. 4.1.

Таблица 4.1