Курсовая работа: Разработка и реализация программы расчета платежа за электроэнергию

💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение высшего профессионального образования
Находкинский инженерно-экономический институт (филиал) Дальневосточного государственного технического университета (ДВПИ имени В.В. Куйбышева)
по дисциплине «Программирование на языках высокого уровня»

Тема: «Разработка и реализация программы расчета платежа за электроэнергию»

- обобщение, закрепление и углубление знании, полученных за время изучения дисциплины;
- получение практических навыков подготовки инженерно-технических задач к решению на компьютере (ПК);
- ознакомление с наиболее распространёнными методами обработки информации при решении прикладных задач;
- закрепление навыков работы в Pascal;
- получение навыков в использовании научно-технической и нормативной литературы, ГОСТов;
- приобретение опыта в оформлении текстовых и графических материалов курсовых работ.
Задание: разработать и реализовать программу расчета платежей за потребленную электроэнергию.
Информация (ФИО, адрес, дата, тариф, начислено, долг, заранее оплачено) должна вводиться пользователем. Программа должна корректно воспринимать данные, а также обрабатывать их с целью получения полной информации о предстоящем платеже за электроэнергию с учетом как тарифа и текущих начислений, так и с учетом долга и заранее погашенных платежей.
Исходные данные: Тариф (а), начислено (b), долг (с), заранее оплачено (d).
Операции: Результат(rez):=(тариф(а)*начислено(b))+долг(с)-заранее оплачено(d).
Тариф обозначим как переменную а, начислено обозначим как переменную b, долг обозначим как переменную с, а заранее оплачено обозначим как переменную d.
Так как РЕЗУЛЬТАТ равен (тариф*начислено)+долг-заранее оплачено то в формульном виде это будет выглядеть следюющим образом:
Для работы в программе используются:
TForm1 = class(TForm) экран приложения
Строки в которые пользователь вводит информацию
Label9: TLabel, Label10: TLabel; Выводоценки
Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;Label15: TLabel;Label16: TLabel;Label17: TLabel;Label18: TLabel;Label19: TLabel;
MonthCalendar1: TMonthCalendar; календарь
procedure Button1Click(Sender: TObject); НажатиекнопкиРАСЧИТАТЬ
procedure Button2Click(Sender: TObject); НажатиекнопкиАВТОР
procedure Button3Click(Sender: TObject); НажатиекнопкиБЛАНК
procedure Button4Click(Sender: TObject); НажатиекнопкиСКРЫТЬ
StrToFloat – перевод строчной величины в вещественную
FloatToStrF - перевод вещественной величины в строчную
Элемент интерфейса.Caption:= - Изменение заголовка/текста элемента
Элемент интерфейса.Visible:= - Изменение видимости элемента (True/False)
Элемент интерфейса.Height:=Изменение высоты элемента;
Операционная система: Windowsxp/vista/seven.
Совместимость с Linux: не тестировалась.
Для начала работы с программой щелкните 2 раза левой кнопкой мыши по иконке «Миниэлектрик V 1.0.exe» вследствие чего откроется главное окно программы с которым впоследствии мы и будем оперировать (рис. 1).
Для начала введем данные для расчетов про помощи клавиатуры в следующие поля (рис. 2):
ТАРИФ это стоимость за Квт. энергии в рублях (дробные числа вводятся в формате 3,5 в противном случае будет выведено сообщение об ошибке)
НАЧИСЛЕННО это сколько вам «накрутил» кВт в этом месяце счетчик.
ДОЛГ это ваша задолженность по предыдущим периодам (если таковая имеется) (рис. 3).
Заранее оплачено это размер платежей внесенных вами заранее (если таковые имеются)
Для удобства пользователя в программу встроен календарь, который поможет вам мгновенно вспомнить текущую дату. Найти его всегда можно в левом нижнем углу.
После ввода нажимаем кнопку РАСЧИТАТЬ после чего на экран будет выведено сообщение с результатом (рис. 4).
Для продолжения работы с программой нажмите ОК.
Под кнопкой РАСЧИТАТЬ теперь мы видим текущую оценку ваших расходов которая меняется в зависимости от величины результата (рис. 5).
Программа также имеет второй режим работы – вывод бланка. Для вывода бланка нажмите кнопку БЛАНК (рис. 6).
На экран будет выведен бланк с результатом (рис. 7)
Для возврата программы в нормальный вид нажмите кнопку СКРЫТЬ.
Для получения информации об авторе нажмите кнопку АВТОР после чего на экран будет выведено окно с информацией о создателе программы.
Для завершения работы с программой нажмите на крестик в верхнем правом углу.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls;
//Создание графического интерфейса//
TForm1 = class(TForm) //экран приложения//
//Строки в которые пользователь вводит информацию//
Button1: TButton;//КнопкаРАСЧИТАТЬ//
MonthCalendar1: TMonthCalendar; //календарь (дляудобствапользователя)//
Image2: TImage;//картинка - бланк//
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
//Описание процедуры НАЖАТЬ НОПКА 1 (РАСЧИТАТЬ)//
procedure TForm1.Button1Click(Sender: TObject);
//Присваиваем переменным значения введенные пользователем в строки //
a:= StrToFloat(Edit4.Text); //переводим строчные переменные в вещественные для дальнейших вычислений.//
ShowMessage('Уважаемый '+Edit1.Text+#13+'Проживающий по адресу '+Edit2.Text+#13+
'Сообщаем вам что на '+Edit3.Text+#13+'вы должны '+
FloatToStrF(rez,ffFixed,90,2)+' рублей'+#13+'за используемую вами электроэнергию.');
//Создание так называемой «системы оценки». Это так называемый Easter egg программы – в зависимости от полученной суммы программа будет выводить различные сообщения (используется оператор УСЛОВИЕ)//
Ifrez<10 thenbeginlabel9.Caption :='Так мало... Вы как так умудрились?';end;
Ifrez>10 thenbeginlabel9.Caption :='Вы счастливчик !!! Это совсем немного';end;
Ifrez=0 thenbeginlabel9.Caption :='Поздравляю вы не должны ни копейки'; end;
If rez<0 then begin label9.Caption :='Вы жулик !!! это невозможно'; end;
If rez>500 then begin label9.Caption :='Хм... немало... но терпимо'; end;
If rez>1000 then begin label9.Caption :='Ого... многовато'; end;
If rez>5000 then begin label10.Caption :='Быстро выключайте все !!! Уже и так света понажгли !!!'; end;
If rez>10000 then begin label9.Caption :='Вам капец...'; end;
If rez>50000 then begin label9.Caption :='Сдается мне вы юморист...'; end;
If rez>1000000 then begin label9.Caption :='Хватит прикалываться !!!'; end;
//Описание процедуры КНОПКА 2 НАЖАТЬ (АВТОР)//
procedure TForm1.Button2Click(Sender: TObject);
ShowMessage('Автор и разработчик данной программы: '+#13+'Оробец Максим Сергеевич НИЭИ ДВГТУ Группа 8221 2 курс '+#13+'Программа написана на Delphi 7.Код программы мой на 100 %'+#13+'Надеюсь вам понравилось');
//Описание процедуры НАЖАТЬ НОПКА 3 (бланк)//
//перед выводом бланка программа предворительно рассчитывает данные используя алгоритм приведенный выше но вместо вывода сообщения «выводит» бланк//
procedure TForm1.Button3Click(Sender: TObject);
//Предыдущий алгоритм расчета и оценки//
If rez<10 then begin label9.Caption :='Так мало... Вы как так умудрились?';end;
If rez>10 then begin label9.Caption :='Вы счастливчик !!! Это совсем немного';end;
Ifrez=0 thenbeginlabel9.Caption :='Поздравляю вы не должны ни копейки'; end;
If rez<0 then begin label9.Caption :='Вы жулик !!! это невозможно'; end;
If rez>500 then begin label9.Caption :='Хм... немало... но терпимо'; end;
If rez>1000 then begin label9.Caption :='Ого... многовато'; end;
If rez>5000 then begin label10.Caption :='Быстро выключайте все !!! Уже и так света понажгли !!!'; end;
If rez>10000 then begin label9.Caption :='Вам капец...'; end;
If rez>50000 then begin label9.Caption :='Сдается мне вы юморист...'; end;
If rez>1000000 then begin label9.Caption :='Хватит прикалываться !!!'; end;
//По сути так называемый «вывод» бланка представляет собой выведенную картинку таблицы (заранее заготовлена в Excel) где не указанны числа и слова с соответственных графах. На их местах стоят метки заголовки которых меняются на результаты расчетов. Изначально параметр Visible (видимость) этой картинки и Label – ов поставлен на False. А также размер программы подогнан так что пользователь не видит их, но по нажатию кнопки после выполнения расчетов размер программы меняется так, чтобы бланк и Label-ы были видны и их параметр visible меняется на false. Также параметр visible меняется у button 3 (бланк) и button 4 (скрыть) так что в результате кнопка БЛАНК исчезает и на ее месте появляется кнопка СКРЫТЬ//
label15.Caption :=FloatToStrF(rez,ffFixed,90,2);
//включение видимости изображения бланка и меток-надписей//
//Описание процедуры НАЖАТЬ НОПКА 4 (СКРЫТЬ)//
//Меняет размер окна программы так чтобы изображение бланка не было видно и после убирает кнопку СКРЫТЬ а на ее место возвращате кнопку БЛАНК чтобы пользователь мог повторить действие //
procedure TForm1.Button4Click(Sender: TObject);
Результатом выполнения курсовой работы является программа «Миниэлектрик V 1.0.exe», разработанная в среде Delphi 7.
Выполняя курсовую работу я научился пользоваться средой программирования Delphi 7, освоил работу с графическим интерфейсом и научился его создавать, нашел большие различия между средами Pascal и Delphi 7 и некоторые сходства, получил новые теоретические и практические знания по программированию в новой на тот момент (ни разу до этого момента не работал с delphi 7) для меня средой программирования которой теперь с удовольствием пользуюсь и для других целей.
1. Самоучитель по Delphi 7 для начинающих (Электронный .chm учебник).

Название: Разработка и реализация программы расчета платежа за электроэнергию
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа
Добавлен 06:37:21 09 января 2011 Похожие работы
Просмотров: 186
Комментариев: 15
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Курсовая работа: Разработка и реализация программы расчета платежа за электроэнергию
Курсовая работа по теме Герконовое реле
Своеобразие Поэмы Сузге Эссе
Сочинение Детей По Картине Золотая Осень
Управление Денежными Потоками Курсовая
Реферат по теме Физиотерапия при заболеваниях опорно-двигательного аппарата
Выявление и предупреждение незаконного оборота наркотических средств
Дипломная работа по теме Защита прав потребителей в гражданском процессе РК
Курсовая Работа На Тему Финансовая Устойчивость Предприятия В Реализации Инвестиционного Проекта
Легкая Атлетика Бег Реферат
Как Найти Друга Сочинение
Реферат: Кодификация советского законодательства
Курсовая Работа На Тему Методы Научного Исследования
Автор 24 Готовые Работы Курсовые
Реферат: О скитаньях вечных и о Земле
Дипломная работа: Права участников процесса при производстве следствия и дознания. Скачать бесплатно и без регистрации
Контрольная Работа По Музыке 1 Четверть
Ответы По Контрольной Работе По Немецкому
Курсовая Работа На Тему Бесіда На Уроках У Початкових Класах
Курсовая работа по теме Правоотношения как особый вид общественных отношений
Курсовая работа по теме Полномочия адвокатов
Контрольная работа: Протокол динамического распределения адресов DHCP. Интернет-технология и ее применение для задач управления организацией
Курсовая работа: Охорона праці неповнолітніх за трудовим законодавством України
Реферат: Внешнеэкономический договор купли-продажи