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

Главная

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

Словесное описание алгоритма программы. Открытие файла процедурой Rewrite, его проверка на наличие ошибок при открытии. Особенности построения диаграммы. Листинг программы, ее тестирование и отладка. Выполнение процедуры CloseFile при закрытии файла.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Разработка программы представления табличных данных в виде диаграммы прямоугольников.
Нажатием кнопки «Новый» производится создание нового типизированного (nrec) файла: выводится диалоговое окно с текстовым полем для имени файла, затем это имя устанавливается в соответствие файловой переменной (fdata). Файл открывается процедурой Rewrite, затем производится проверка на наличие ошибок при открытии файла. Если открытие было успешным, то флаг is_open присваивается значение true, становятся доступными элементы для ввода записей.
Нажатием кнопки «Открыть» производится открытие файла для чтения процедурой Reset. Если файл открыт, производится считывание всех записей из этого файла и помещение их в таблицу (SG), флаг is_open устанавливается в true.
Нажатием кнопки «Ввод» проверяется не пусты ли текстовые поля EKEY и EVAL. Если «нет»б проверяются данные в поле EVAL. Если эти данные являются числом, то данные из EKEY и EVAL записываются в таблицу.
Диаграмма (GR) строится нажатием кнопки «Построить»: очищаются значения диаграммы, если в таблице значений не больше чем два, построение не выполняется.
Кнопка «Сохранить» перемещает указатель на начало файла и записывает все данные из таблицы в открытый файл.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
SG: TStringGrid; GR: TChart; EKEY: TEdit; EVAL: TEdit;
BENT: TButton; BNEW: TButton; BOPEN: TButton; BMAKE: TButton;
Button1: TButton; BCLO: TButton; BSAV: TButton; Label1: TLabel;
Label2: TLabel; Series1: TBarSeries;
procedure BNEWClick(Sender: TObject);
procedure BSAVClick(Sender: TObject);
procedure BENTClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure BOPENClick(Sender: TObject);
procedure BMAKEClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BCLOClick(Sender: TObject);
procedure TFMAIN.BNEWClick(Sender: TObject);
AssignFile(fdata, FDIALOG.getName);
MessageDlg('Ошибка при открытии файла!',
SG.Cells[0,1]:=''; SG.Cells[1,1]:='';
SG.Enabled:=true; EVAL.Enabled:=true;
GR.Enabled:=true; EKEY.Enabled:=true;
BENT.Enabled:=true; BMAKE.Enabled:=true;
BCLO.Enabled:=true; BSAV.Enabled:=true;
BNEW.Enabled:=false; BOPEN.Enabled:=false;
FMAIN.Caption:='Таблица '+FDIALOG.getName;
procedure TFMAIN.BSAVClick(Sender: TObject);
rec.val:=StrToFloat(SG.Cells[1, i]);
procedure TFMAIN.BENTClick(Sender: TObject);
if (EKEY.Text<>'')and(EVAL.Text<>'') then
MessageDlg('Вводить только числа', mtWarning, [mbOK], 0);
SG.Cells[0, SG.RowCount-1]:=EKEY.Text;
SG.Cells[1, SG.RowCount-1]:=EVAL.Text;
procedure TFMAIN.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TFMAIN.FormCreate(Sender: TObject);
procedure TFMAIN.BOPENClick(Sender: TObject);
AssignFile(fdata, FDIALOG.getName);
MessageDlg('Ошибка при открытии файла!',
SG.Cells[1, i]:=FloatToStr(rec.val);
SG.Enabled:=true; EVAL.Enabled:=true;
GR.Enabled:=true; EKEY.Enabled:=true;
BENT.Enabled:=true; BMAKE.Enabled:=true;
BCLO.Enabled:=true; BSAV.Enabled:=true;
FMAIN.Caption:='Таблица '+FDIALOG.getName;
BNEW.Enabled:=false; BOPEN.Enabled:=false;
procedure TFMAIN.BMAKEClick(Sender: TObject);
MessageDlg('В таблице нет данных!', mtWarning, [mbOK], 0);
for ser:=1 to SG.RowCount-2 do begin
GR.Series[0].Add(StrToFloat(SG.Cells[1, ser]),
procedure TFMAIN.Button1Click(Sender: TObject);
procedure TFMAIN.BCLOClick(Sender: TObject);
SG.Cells[0,1]:=''; SG.Cells[1,1]:='';
SG.Enabled:=false; EVAL.Enabled:=false;
GR.Enabled:=false; EKEY.Enabled:=false;
BENT.Enabled:=false; BMAKE.Enabled:=false;
BSAV.Enabled:=false; BCLO.Enabled:=false;
FMAIN.Caption:='Представление табл. данных прямоугольной диаграммой'
BNEW.Enabled:=true; BOPEN.Enabled:=true;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure BOKClick(Sender: TObject);
procedure BCANClick(Sender: TObject);
procedure TFDIALOG.BOKClick(Sender: TObject);
procedure TFDIALOG.BCANClick(Sender: TObject);
Forms, Kmain in 'Kmain.pas' {FMAIN}, KDialog in 'KDialog.pas' {FDIALOG};
Application.CreateForm(TFMAIN, FMAIN);
Application.CreateForm(TFDIALOG, FDIALOG);
При закрытии программы всегда выполняется процедура CloseFile;
Для каждой записи строится своя диаграмма;
При нажатии «Построить» данные из таблицы добавляются к прошлым значениям диаграммы;
При сохранении в файл считывается больше записей чем есть в таблице;
Не очищаются имена и значения в таблице при закрытии файла.
Чтобы при закрытии программы процедура CloseFile выполнялась только тогда, когда есть открытый файл введена переменная is_open;
GR.Series[i].Add(StrToFloat(SG.Cells[1, ser]), SG.Cells[0, ser], clMedGray);
GR.Series[0].Add(StrToFloat(SG.Cells[1, ser]), SG.Cells[0, ser], clMedGray);
В обработчике события OnClick кнопки «Построить» добавлена строка
Число записей читаемых из таблицы уменьшено на единицу:
В обработчике события OnClick кнопки «Закрыть» добавлено:
Определение необходимых модулей программы, структуры файла базы данных. Описание разработки программы, отладка и тестирование. Разработка приложения Organizer.exe, меню и руководство пользователя. Алгоритм обработки событий главного меню (расписания). курсовая работа [901,8 K], добавлен 11.02.2014
Процесс проектирования программы, состоящий из следующих шагов: описание прецедентов, построение диаграммы прецедентов, диаграммы взаимодействий, создание модели программных классов. Тестирование программы входными тестовыми вариантами, ее листинг. курсовая работа [1,9 M], добавлен 25.10.2012
Особенности разработки программы и выбор методов решения задачи. Составление алгоритма, распределение регистров программы и формирование файлов. Описание процедуры очистки памяти, сложения, вычитания, умножения. Тестирование и листинг программы. лабораторная работа [51,2 K], добавлен 14.05.2011
Анализ задания и разработка алгоритма. Основные принципы создания программы. Схема взаимодействия процессов Process 1 и Process 4, в режиме задачи и в режиме ядра. Листинг программы и ее тестирование. Результат работы и выполнения программы в консоли. контрольная работа [395,9 K], добавлен 18.09.2010
Разработка программы на языке Pascal. Описание переменных. Действия, которые должна выполнить программа согласно выбранного алгоритма. Детализация графической части программы. Листинг и тестирование программы. Вывод массива данных на экран монитора. контрольная работа [360,4 K], добавлен 13.06.2012
Разработка алгоритма решения задачи численного интегрирования методом трапеции. Словесное описание и блок-схема разработанного алгоритма программы. Описание интерфейса, главного окна и основных форм программы. Проверка работоспособности программы. курсовая работа [1,4 M], добавлен 16.03.2012
Графическая схема алгоритма выполнения программы определения запасов сырья. Решение задачи с помощью программы MS Excel. Разработка макроса для построения диаграммы. Использование интерфейса программы для работы с таблицей. Разработка базы данных. курсовая работа [1,2 M], добавлен 24.04.2014
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



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