Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Пособие по VB. Часть1.doc
Скачиваний:
62
Добавлен:
02.02.2015
Размер:
1.42 Mб
Скачать

4.6. Проектирование решения задачи с различными типами данных

4.6.1. Постановка задачи

Цена на товар установлена производителем на период одной недели. Определить стоимость товара с учетом налога на добавленную стоимость (НДС) по известной цене производителя и количеству. По заданной дате начала периода указать начальную и конечную даты действия установленной цены.

4.6.2. Экономико-математическая модель

Вычисление стоимости товара с учетом НДС производится по формуле:

Стоимость = Ценандс * Количество,

где Ценандс – цена с учетом НДС определяется по формуле:

Ценандс = Цена + Цена * Ставкандс/100

Ставка НДС в настоящее время составляет 20%.

Конечная дата действия цены вычисляется по формуле:

Окончание = Начало + КД,

где Начало и Окончание – соответственно даты начала и окончания периода; КД – количество дней в периоде (в данном случае КД = 7 – неделя).

4.6.3. Алгоритм решения задачи

Алгоритм решения задачи приведен на рис. 4.1.

4.6.4. Структура данных

При решении задачи используются следующие данные:

Начало, Окончание – данные типа дата/время;

КД, Количество – целые числа;

Ставка НДС – дробное число;

Цена, Ценандс, Стоимость – числа денежного типа.

Рис. 4.1. Алгоритм решения задачи

Из них данные «КД» и «Ставка НДС» являются константами и в программе имеют такие же имена. «Начало», «Цена» и «Количество» вводятся с клавиатуры в текстовые поля, поэтому в программе им присвоены имена соответственно txtНачало, txtЦена и txtКоличество. «Ценандс» и «Стоимость» – вычисляемые поля, которые непосредственно не соответствуют никаким элементам управления на форме, поэтому в программе они представлены переменными денежного типа curЦенандс и curСтоимость соответственно. Вычисляемая величина «Окончани»е выводится на форму в виде надписи, поэтому в программе имеет имя lblрзтОкончание.

Аналогично результат решения задачи, содержащий выходные данные вместе с пояснительным текстом, представляется на форме в виде надписи с именем lblРезультат.

Используемые в программе величины приведены в табл. 4.9.

Таблица 4.9

Используемые данные

Реквизит

Имя

Назначение

Начало

txtНачало

Начало периода

Окончание

lblрзтОкончание

Окончание периода

КД

КД

Количество дней

Ставка НДС

СтавкаНДС

Ставка налога на добавленную стоимость

Цена

txtЦена

Цена производителя

Ценандс

curЦенаНДС

Цена с учетом НДС

Стоимость

curСтоимость

Стоимость товара

Результат

lblРезультат

Результат решения задачи

4.6.5. Интерфейс с пользователем

Решение задачи производится с помощью формы, приведенной на рис. 4.2.

На форме слова "Начало", "Цена" и "Количество" представляются надписями и соответствующие исходные данные вводятся в текстовые поля, расположенные справа от них.

Слово "Окончание" и соответствующее вычисленное значение представляются надписями. Результат решения задачи выводится в область под кнопкой «Вычислить». Эта область также представляется надписью.

Рис. 4.2. Форма для вычисления стоимости товара с учетом НДС

Взаимодействие пользователя с формой осуществляется следующим образом. При запуске программы на выполнение (событие «Загрузка формы») в текстовом поле «Начало» выводится текущая дата, а в поле надписи «Окончание» – та же дата, увеличенная на КД дней (в нашем случае на 7 дней).

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

После ввода цены и количества нужно щелкнуть на кнопке «Вычислить» (событие «Щелчок»). Происходит вычисление стоимости и вывод результата в соответствующую область.