Разработка и реализация программы расчета платежа за электроэнергию - Программирование, компьютеры и кибернетика курсовая работа
Главная
Программирование, компьютеры и кибернетика
Разработка и реализация программы расчета платежа за электроэнергию
Методы обработки информации при решении прикладных задач. Математическая модель задачи. Блок-схема алгоритма программы. Компоненты, которые используются для работы в программе: элементы интерфейса; процедуры; операторы. Текст программы с пояснениями.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение высшего профессионального образования
Находкинский инженерно-экономический институт (филиал) Дальневосточного государственного технического университета (ДВПИ имени В.В. Куйбышева)
по дисциплине «Программирование на языках высокого уровня»
Тема: «Разработка и реализация программы расчета платежа за электроэнергию»
обобщение, закрепление и углубление знании, полученных за время изучения дисциплины;
получение практических навыков подготовки инженерно-технических задач к решению на компьютере (ПК);
ознакомление с наиболее распространёнными методами обработки информации при решении прикладных задач;
закрепление навыков работы в Pascal;
получение навыков в использовании научно-технической и нормативной литературы, ГОСТов;
приобретение опыта в оформлении текстовых и графических материалов курсовых работ.
Задание: разработать и реализовать программу расчета платежей за потребленную электроэнергию.
Информация (ФИО, адрес, дата, тариф, начислено, долг, заранее оплачено) должна вводиться пользователем. Программа должна корректно воспринимать данные, а также обрабатывать их с целью получения полной информации о предстоящем платеже за электроэнергию с учетом как тарифа и текущих начислений, так и с учетом долга и заранее погашенных платежей.
Исходные данные: Тариф (а), начислено (b), долг (с), заранее оплачено (d).
Операции: Результат(rez):=(тариф(а)*начислено(b))+долг(с)-заранее оплачено(d).
Тариф обозначим как переменную а, начислено обозначим как переменную b, долг обозначим как переменную с, а заранее оплачено обозначим как переменную d.
Так как РЕЗУЛЬТАТ равен (тариф*начислено)+долг-заранее оплачено то в формульном виде это будет выглядеть следюющим образом:
4. Блок-схема алгоритма программы
Для работы в программе используются:
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:=Изменение высоты элемента;
Операционная система: Windows xp/vista/seven.
Совместимость с Linux: не тестировалась.
Процессор: Pentium 3 800MHz и выше.
Объем на HDD: 544 КБ (557 056 байт)
Для начала работы с программой щелкните 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) //экран приложения//
//Строки в которые пользователь вводит информацию//
Edit4: TEdit;//Тариф (цена за кВ)//
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 программы - в зависимости от полученной суммы программа будет выводить различные сообщения (используется оператор УСЛОВИЕ)//
If rez<10 then begin label9.Caption :='Так мало... Вы как так умудрились?';end;
If rez>10 then begin label9.Caption :='Вы счастливчик !!! Это совсем немного';end;
If rez=0 then begin label9.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;
If rez=0 then begin label9.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 учебник).
Создание блок-схемы алгоритма и реализующей его программы, снабженных пояснениями, для решения задач. Реализация программы в среде Delphi как проекта консольного приложения. Основные алгоритмические структуры, соответствующие операторы для их реализации. контрольная работа [447,4 K], добавлен 08.10.2012
Этапы процедуры принятия решений. Разработка математического алгоритма. Блок-схема алгоритма работы программы. Разработка программы на языке программирования С++ в среде разработки MFC. Текст программы определения технического состояния станка с ЧПУ. курсовая работа [823,0 K], добавлен 18.12.2011
Структурная схема модели системы, временная диаграмма, блок-схема моделирующего алгоритма, математическая модель, описание машинной программы решения задачи, результаты моделирования. Сравнение имитационного моделирования и аналитического расчета. курсовая работа [209,7 K], добавлен 28.06.2011
Разработка алгоритма решения задачи численного интегрирования методом трапеции. Словесное описание и блок-схема разработанного алгоритма программы. Описание интерфейса, главного окна и основных форм программы. Проверка работоспособности программы. курсовая работа [1,4 M], добавлен 16.03.2012
Разработка блок-схемы и программы обработки одномерного массива с доступом к элементам с помощью индексов и с помощью указателей. Словесное описание алгоритма и пользовательского интерфейса, листинг программы обработки матрицы и результат её выполнения. курсовая работа [391,1 K], добавлен 30.09.2013
Разработка технологии обработки информации, структуры и формы представления данных. Проектирование программных модулей. Блок-схема алгоритма и исходный код программы анализа арифметического выражения, синтаксического анализа простой программы на языке С. курсовая работа [2,4 M], добавлен 12.12.2011
Решение задачи по методу Адамса. Блок-схема функции main. Блок-схема функции Adams. Листинг программы. Блок-схема функции MMinor. Блок-схема функции MatrixMultiply. Блок-схема функции Determinant. Результат решения задачи на ЭВМ. курсовая работа [68,9 K], добавлен 16.04.2004
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .
© 2000 — 2021
Разработка и реализация программы расчета платежа за электроэнергию курсовая работа. Программирование, компьютеры и кибернетика.
Сочинение Для Чего Нужен Английский Язык
Сочинение На Тему Люби И Защищай Природу
Курсовая Работа 4а112мв6у3 4 Квт
Контрольная Работа Химия 8 Класс Онлайн
Реферат: Особенности социализации молодежи в современной России
Научная Работа На Тему Формы Осуществления Труда
Реферат по теме История развития криоэлектроники
Шпаргалка: История государственного управления в России
Дипломная Работа На Тему Державний Устрій Та Соціально-Економічний Розвиток України У Хviii Ст.. Ліквідація Козацької Державності
Курсовая работа по теме Линия по производству извести
Памятка Для Написания Сочинения 9.3
Доклад: Финансово-экономическая политика лейбористского правительства
Контрольная работа: Расчет грузового плана проекта "Сормовский"
Дипломная работа по теме Коллективные соглашения и их роль в правовом регулировании социально-трудовых отношений
Как Писать Сочинение По Истории Егэ
Реферат: Сущность конфликтов и возможные методы их урегулирования
Реферат по теме Современные лекарственные препараты, применяемые при эндометритах
Уголовная Ответственность За Мошенничество Дипломная Работа
Курсовая работа: Политический режим и его эволюция в современной России
Орудия Труда Чеченцев Реферат
Коллективный договор и соглашение - Государство и право контрольная работа
Римская империя в I в. н.э. - История и исторические личности курсовая работа
Экономическое и организационное развитие фондового рынка развивающихся стран (на примере Азербайджана) - Международные отношения и мировая экономика автореферат