Visual Basic. Проектирование приложения, которое реализует вычислительный разветвляющийся процесс

Министерство образования  и науки Украины

Харьковский национальный экономический университет

Кафедра информатики

                                 Отчет

К лабораторной работе №4 по Visual Basic

На тему: Проектирование приложения, которое реализует вычислительный разветвляющийся процесс.

Выполнила:

студентка факультета учёт и аудит

1-го курса

 8 группы

Деркач Н.В.

Проверил:

Коврижных И.П.

                                          Харьков - 2009

Постановление задачи

Построить приложение для определения удачности дня продаж в магазине относительно средней выручки за день начиная с начала месяца

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

Отклонение  Выручки сегодняшней от  общей выручки за день вычисляется по формуле:

Отклонение  =  Выручка за день – Выручка сегодня

где  Выручка за день =  Общая выручка/Количество дней

Количество дней =  Количеству дней, которое прошло от начала месяца до сегодняшней даты

Если Отклонение > 0, то выводится сообщение о том, что день был удачным

Если  Отклонение < 0, то выводится сообщение о том, что день был неудачным

Если Отклонение = 0, то выводится сообщение о том, что день был нейтральным

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

Решение задачи осуществляется в соответствии с алгоритмом который приведен на Рис. 1.1.

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

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

Выручка за день, Выручка сегодня, Общая выручка, Отклонение, Сегодняшняя дата, Количество дней от начала месяца, День недели, Вывод

Данные Общая выручка и Выручка сегодня являются входными и вводятся с клавиатуры в текстовые поля, по этому в программе им дают имена  TxtВыручкаСегодня, TxtОбщаяВыручка соответственно. Данные  общая выручка выручка сегодня являются данными денежного типа  по –этому в программе они подаются переменными с именами CurVyruchkaSegodnya, CurObshayaVyruchka. Также данными денежного типа являются Выручка за день, Отклонение, которые не являються вводными и находяться с помощью  вычислений. Они подаются С именами CurOtklonenie, CurVyruchkaDen. Сегодняшняя дата это переменная типа даты и  по этому ей присваевается имя DtmSegodnayshnyayaData

Величины Количество дней от начала месяца (Вычисляется от начала месяца до сегодняшней даты) и День недели используются для вычислений Выручки за день и формирования вывода. Они являются переменными целого типа, которым присваиваются имена IntKolichestvoDnMesyac и IntDenNedeli соответственно.

Результат решения задачи Отклонение выводится с отпределенным обьяснительным текстом ( «День не был выгодным поскольку прибыль магазина за сегодня меньше чем»  <CurVyruchkaDen> «грн. Средней выручки магазина за день на » <CurOtklonenie> «грн.» или «День был выгодным поскольку прибыль магазина больше чем» <CurVyruchkaDen> «грн. Средней выручки магазина за день на » <CurOtklonenie> «грн.»)

Все сообщение про успешность дня формируется в переменной Вывод которой присваивается имя  StrVyvod и она задается переменной типа String.

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

Таблица 1.1. Использованные переменные

Реквизит	Имя	Назначение
Виручка сегодня	CurVyruchkaSegodnya	Значение сегодняшней виручки, грн
Общая выручка	CurObshayaVyruchka	Значение общей виручки с начала месяца, грн
Виручка за день	CurVyruchkaDen	Общая выручка за день, грн
Количество дней с  начала месяца	IntKolichestvoDnMesyac	Количество дней с начала месяца
Сегодняшняя дата	DtmSegodnayshnyayaData	Сегодняшняя дата которая используется для вычисления Количества деней прошедших с начала месяца
Отклонение	CurOtklonenie	Отлонение от  виручки за день в грн.
День недели	IntDenNedeli	День недели используется для определения  дня в котрый возможно провести расчет
Вывод	StrVyvod	Сообщение об отклонениии виручки за сегодня от  общей выручки за день

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

На форме слова «Выручка сегодня» и «Общая выручка с начала месяца» подаются надписями. Соответственные вводные данные вводят в текстовые поля. Расчет происходит при  нажатии кнопки «Расчет». Результат выводится сообщением с помощью оператора MsgBox. В зависимости от результата вычислений переменная  StrVyvod может преобретать значения:

1) «День не был выгодным поскольку прибыль магазина за сегодня меньше чем»  <CurVyruchkaDen> «грн. Средней выручки магазина за день на » <CurOtklonenie> «грн.»

2) «День был выгодным поскольку прибыль магазина больше чем» <CurVyruchkaDen> «грн. Средней выручки магазина за день на » <CurOtklonenie> «грн.»)

3) «День ни был ни выгодным ни убыточным поскольку прибыль магазина за день равна»<CurVyruchkaDen> «грн.средней выручки магазина за день».

4) «День не может быть ни прибыльным ни убыточным поскольку сегодня выходной»

Код программы

Расположен на Рис 1.2.

Рис. 1.1. Схема алгоритма