Обмен данными

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ

" ГОМЕЛЬСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИМЕНИ ФРАНЦИСКА СКОРИНЫ"

Заочный факультет Кафедра автоматизированных систем обработки информации КУРСОВАЯ РАБОТА ОБМЕН ДАННЫМИ Исполнитель студент группы АС-31

Руководитель Гомель 2012

• Введение
• 1. Описание программного комплекса
• 2. Тестирование программного комплекса
• 3. Описание презентации
• Заключение
• Список использованных источников
• Приложения

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

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

Темой курсового проекта является «Обмен данными», которая является очень актуальной в связи с широкими возможностями информационных технологий.

Основными целями и задачами курсового проекта являются:

1. Разработка файла для хранения исходных данных в формате csv;

2. Загрузка данных в табличный процессор;

3. Изучение возможности ввода, хранения и обработки данных средствами Excel;

4. Создание графического изображения хранимых данных;

5. Изучения возможностей пакета Power Point и создание презентации.

Курсовой проект состоит из трех глав, введения, заключения, списка использованных источников, приложения.

В главе 1 Описание программного комплекса приводится структура данных по своему варианту, взаимодействие между компонентами комплекса.

В главе 2 Тестирование программного комплекса приводятся тесты и их результаты.

В главе 3 Описание презентации приводится процесс создания презентации.

В Заключение выполняется описание полученных результатов и выводы.

В приложении приводятся слайды презентации и исходный программный код.

1. Описание программного комплекса

Необходимо разработать информационную систему для хранения множества данных — самолеты аэропорта.

Информационная система для предметной области «Самолеты аэропорта» должна осуществлять хранение данных о предметной области в текстовом файле формата csv, загрузку начальных данных из текстового файла в табличный процессор, ввод, хранение, обработку.

Данные о самолетах должны содержать обязательные столбцы:

· максимальная высота полета (longint);

· название (string);

· количество (integer);

· примечание: принадлежит аэропорту, взят в аренду, личный.

Дополнительные столбцы:

· количество пассажиров

· экипаж

Исходные данные о самолетах аэропорта хранятся в файле

samolet. csv.

Рисунок 1.1 — Текстовый файл с исходными данными

Для загрузки данных из файла в рабочий лист электронной таблицы Microsoft Excel был разработан макрос, исходный код которого приведен в Приложении Б. Все данные, необходимые для работы, хранятся в файле Samolet. xlsm. Структура рабочей книги представлены рабочими листами:

· Данные;

· Сортировка;

· Промежуточные итоги;

· Автофильтрация;

· Расширенный фильтр;

· Сводная таблица;

· Диаграмма1;

· Диаграмма2;

· Диаграмма3.

На рабочем листе «Исходные данные», находится кнопка «Исходные данные», которой назначен макрос для загрузки исходных данных.

Макрос, разработан таким образом, чтобы выгружать данные на текущий рабочий лист.

Рисунок 1.2 — Выгруженные данные

После того, как данные были выгружены из файла, исходные данные были дополнены путем ручного ввода в ячейки соответствующих столбцов.

Рисунок 1.3 — Полученные данные

После этого на листах рабочей книги была выполнена обработка данных:

· Сортировка данных;

· Подведение промежуточных итогов;

· Автофильтрация данных;

· Использование расширенного фильтра;

· Создание сводных таблиц;

хранение информационный программный обработка После работы с исходными данными предметной области весь процесс разработки программного комплекса был представлен в презентации, отраженной в Приложении А.

2. Тестирование программного комплекса

При тестировании программного комплекса были использованы данные с рабочего листа Данные рабочей книги Samolet. xlsm.

Для сортировки выделяем исходные данные, задаем условия сортировки и используя встроенный возможности сортировки сортируем по трем полям.

Рисунок 2.1 — Диалоговое окно Сортировка

Рисунок 2.2 — Отсортированные данные по трем полям

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

Рисунок 2.3 — Диалоговое окно Промежуточные итоги

Рисунок 2.4 — Полученные итоги

Для того, чтобы получить только итоговые данные, нажимаем на кнопку 3.

Рисунок 2.5 — Итоговые данные

Для фильтрации данных скопируем данные на страницу Автофильтр и используя аппарат автофильтрации отберем необходимые данные:

Рисунок 2.6 — Автофильтр

Рисунок 2.7 — Результат работы Автофильтра

Для фильтрации данных скопируем данные на страницу Расширенный фильтр, используя исходные данные, указав диапазон условий и диапазон для вывода данных, удовлетворяющих условию, получим исходные данные:

Рисунок 2.8 — Диалоговое окно Расширенного фильтра

Рисунок 2.9 — Результат работы Расширенного фильтра

Для образования сводных таблиц используем команду Вставка — Сводная таблица, указываем формат сводной таблицы и получаем результат:

Рисунок 2.10 — Определение параметров Сводной таблицы

Рисунок 2.11 — Сводная таблица

По полученным данным, выделяя необходимый диапазон данных используя команду Вставка — Диаграмма, строим диаграммы.

3. Описание презентации

1. Загрузить программу Microsoft PowerPoint: Пуск — Программы — Microsoft PowerPoint.

2. Для создания слайда используем команду Вставка — Создать слайд;

3. Для выбора режима разметки слайда выбираем команду Формат — Разметка слайда;

4. Для вставки рисунка выбираем команду Вставка — Рисунок;

5. Набор текста на слайде, выполняем аналогично набору текста в Microsoft Word;

6. Для выбора вариантов оформления используем команду Формат — Оформление слайда;

7. Из предложенного перечня оформления слайда можно выбрать: Шаблоны оформления, Цветовые схемы, Эффекты анимации, которые можно применить как ко всем разрабатываемым слайдам, так и к выделенным.

8. Вариант смены показа слайдов можно применять, используя команду Показ слайдов — Смена слайдов, и из предложенного перечня выбрать необходимый.

9. Настройка времени презентации выполняем, используя команду Показ слайдов — Настройка времени. И настраиваем необходимое количество времени, для каждого слайда, используя кнопки: Далее, Пауза, Повтор.

10. Просмотр презентации осуществляем, используя команду Показ слайдов — Начать показ, или используя горячую клавишу F5.

Заключение

Внедрение современных информационных технологий позволяет сократить время, требуемое на подготовку конкретных маркетинговых и производственных проектов, уменьшить непроизводительные затраты при их реализации, исключить возможность появления ошибок в подготовке бухгалтерской, технологической и других видов документации, что дает коммерческой компании прямой экономический эффект.

Разумеется, для раскрытия всех потенциальных возможностей, которые несет в себе использование компьютеров, необходимо применять в работе на них комплекс программных и аппаратных средств, максимально соответствующий поставленным задачам. Поэтому в настоящее время велика потребность коммерческих компаний в компьютерных программах, оптимизирующих занятость сотрудников компании, а также в информации о способах оптимального использования имеющегося у компании компьютерного оборудования.

При работе над данным курсовым проектом были получены следующие результаты:

изучены возможности формирования файла данных в формате. csv;

изучены возможности макросов и способы их разработки;

изучены возможности пакета MS Excel по обработке данных;

разработана презентация, отражающая ход выполнения работы.

Список использованных источников

1. Гришина Е. А., Прикладная информатика. Минск: «Выш. шк.», 2003. — с.325.

2. Куперштейн В. И., Современные информационные технологии в делопроизводстве и управлении. — СПб.: БХВ — Санкт — Петербург, 1999. — 256 с.

3. Морозевич А. Н., Прикладная информатика. Учебное пособие, Минск: «Выш. шк.», 2003. — с.335.

4. Орлов С. А., Технологии разработки программного обеспечения. Разработка сложных программных систем. Учебник для вузов. — Питер, 2002. — 327 с.

5. Симонович С. В., Информатика для юристов и экономистов, СПб.: Питер, 2003. — с.688.

Приложение Б

Исходный программный код

Sub Макрос1 ()

'

' загрузить

'

'

With ActiveSheet. QueryTables. Add (Connection: = _

" TEXT; D: samolet. csv" _

Destination: =Range («$A$ 3»))

. Name = «samolet»

. FieldNames = True

. RowNumbers = False

. FillAdjacentFormulas = False

. PreserveFormatting = True

. RefreshOnFileOpen = False

. RefreshStyle = xlInsertDeleteCells

. SavePassword = False

. SaveData = True

. AdjustColumnWidth = True

. RefreshPeriod = 0

. TextFilePromptOnRefresh = False

. TextFilePlatform = 1251

. TextFileStartRow = 1

. TextFileParseType = xlDelimited

. TextFileTextQualifier = xlTextQualifierDoubleQuote

. TextFileConsecutiveDelimiter = False

. TextFileTabDelimiter = False

. TextFileSemicolonDelimiter = True

. TextFileCommaDelimiter = False

. TextFileSpaceDelimiter = False

. TextFileColumnDataTypes = Array (1, 2, 1, 2, 1, 1)

. TextFileTrailingMinusNumbers = True

. Refresh BackgroundQuery: =False

End With

Columns («A: A»). ColumnWidth = 23.43

Columns («A: A»). ColumnWidth = 32.86

Columns («A: A»). ColumnWidth = 28.29

Columns («B: B»). ColumnWidth = 21.86

Columns («C: C»). ColumnWidth = 14.71

Columns («E: E»). ColumnWidth = 11.43

Columns («E: E»). ColumnWidth = 15

Columns («A: A»). ColumnWidth = 20.14

Columns («F: F»). ColumnWidth = 9.57

Range («A2: F2»). Select

With Selection

. HorizontalAlignment = xlGeneral

. VerticalAlignment = xlBottom

. WrapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Selection. Font. Bold = True

Range («A1: F1»). Select

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Selection. Merge

Selection. Font. Bold = True

Selection. Font. Size = 12

Range («A2: F24»). Select

Selection. Borders (xlDiagonalDown). LineStyle = xlNone

Selection. Borders (xlDiagonalUp). LineStyle = xlNone

With Selection. Borders (xlEdgeLeft)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlEdgeTop)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlEdgeBottom)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlEdgeRight)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlInsideVertical)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlInsideHorizontal)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection

. HorizontalAlignment = xlGeneral

. VerticalAlignment = xlBottom

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Range («A2»). Select

ActiveCell. FormulaR1C1 = «Максимальная высота полета»

Range («B2»). Select

ActiveCell. FormulaR1C1 = «Название»

Range («C2»). Select

ActiveCell. FormulaR1C1 = «Количество»

Range («D2»). Select

ActiveCell. FormulaR1C1 = «Примечание»

Range («E2»). Select

ActiveCell. FormulaR1C1 = «Количество пассажиров»

Range («F2»). Select

ActiveCell. FormulaR1C1 = «Экипаж»

Range («A1: F1»). Select

ActiveCell. FormulaR1C1 = «Самолеты аэропорта»

Range («B9»). Select

End Sub