Нужна индивидуальная работа?

Подберем литературу

Поможем справиться с любым заданием

Подготовим презентацию и речь

Оформим готовую работу

Узнать стоимость своей работы

Дарим 200 руб.
на первый
заказ

Курсовая работа

Информатика

Курсовая работа на тему: Теоретическая часть. Практическая часть. Приложение 1. Руководство пользователя

Купить за 350 руб.

Страниц

Размер файла

699 КБ

Просмотров

Покупок

Введение

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

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

Данная программа, написанная на языке программирования Visual Basic for Application, представляет собой анализ успеваемости студентов.

Проект выполнен в рамках курса "Проектирование информационных систем" с использованием соответствующего средства выполнения Microsoft Visual Basic for Application.

Цель написания данной курсовой работы - автоматизация расчетов успеваемости студентов, а также обучение проектированию ИС.

Курсовая работа проста, удобна и практична в использовании.

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

Заключение

В данной курсовой работе была разработана программа анализ успеваемости студентов.

Программа была разработана с помощью языка программирования Visual Basic for Application (VBA).

Язык программирования Visual Basic for Application - быстрое, простое решение многих задач, связанных с программированием офисных приложений.

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

Visual Basic for Application обладает достаточно широкими возможностями базового языка Visual Basic, и позволяет обращаться практически ко всем возможностям Microsoft Excel по созданию, обработке и хранению информации.

Язык программирования Visual Basic for Application наиболее удобен в работе и прост в обращении для широкого круга пользователей, желающих самостоятельно научиться создавать программы.

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

Список литературы

1. Лекционный материал по курсу "Проектирование ИС", Федоренко Г.А.

2. Потапкин А.В., Основы VISUAL BASIC, "ЭКОМ", М., 1996.

3. Рахманина Г. Excel 2000. Руководство пользователя с примерами. М., 2001.

4. У. Орвис "Visual Basic for Application", БИНОМ, М., 1995.

5. Э. Бунин "Excel Visual Basic для приложений", БИНОМ, М., 1996.

Приложения

ПРИЛОЖЕНИЕ 1

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

При открытии файла появляется следующее диалоговое окно:

Окно 1 "Курсовая работа"

Рис.1

На нем расположены несколько кнопок: редактирование базы данных, создание отчета, диаграмма успеваемости группы, диаграмма успеваемости студента, выход. А также сведения об авторах.

При нажатии кнопки "Редактирование базы данных" появляется диалоговое окно:

Окно 2 "Редактирование базы данных"

Рис.2

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

При нажатии на кнопку "<<", мы переходим в начало списка.

При нажатии на кнопку "<", мы переходим к предыдущему элементу списка.

При нажатии на кнопку ">", мы переходим к следующему элементу списка.

При нажатии на кнопку ">>", мы очищаем поля для создания новой записи.

При нажатии на кнопку "Добавить", происходит добавление новой записи.

При нажатии на кнопку "Удалить", происходит удаление выделенной записи.

При нажатии на кнопку "Закрыть", происходит закрытие данного окна.

Из списка предметов с помощью мышки, мы выбираем предмет, с помощью линейки прокрутки можно изменять оценки студентов.

При нажатии кнопки "Создание отчета", появляется следующее диалоговое окно:

Окно 3 "Отчет"

Рис.3

Данное окно используется для создания отчета по успеваемости студента или группы студентов.

Кнопки ">>" и "<<" добавляют и удаляют студентов из списка для создания отчёта:

Рис.4

Кнопка "Очистить" - очищает поле списка студентов.

Кнопки "Вверх" и "Вниз" - позволяют перемещать студентов по списку.

При нажатии на кнопку "Создать" - появляется отчет по введенным параметрам:

Рис.5

При нажатии кнопки "Закрыть" - данное окно закрывается.

При нажатии на кнопку "Диаграмма успеваемости группы" появляется диалоговое окно:

Окно 4 "Диаграмма успеваемости группы":

Рис.6

В поле "Группа" выбираем нужную из списка, в поле "Предмет" выбираем предмет и выбираем курсором 1-ый или 2-ой семестр. Нажимаем на кнопку "Создать". Появляется окно:

Рис.7

Кнопка "Закрыть" - для выхода.

При нажатии на кнопку "Диаграмма успеваемости студента" появляется окно:

Окно 5 "Диаграмма успеваемости студента":

Рис.8

Выбираем группу, студента и семестр и создаем диаграмму по заданным параметрам:

Рис.9

Кнопка "Закрыть" - для выхода из окна.

При нажатии кнопки "Выход" в окне "Курсовая работа" осуществляется выход из программы.

ПРИЛОЖЕНИЕ 2

ИСХОДНЫЙ КОД ПРОГРАММЫ

Форма "MainForm":

Unload Ме

Форма "ReportForm":

For i = 0 То Queue.ListCount - 1

MsgBox "Такой элемент уже есть в очереди!"

Ме.Hide

For i = 0 То Queue.ListCount - 1

.Cells(Row, 1).Value = "Группа"

.Cells(Row + 1, 1).Value = "Студент"

.Cells(Row + 2, 1).Value = "Оценки по предметам"

.Cells(Row + 2, 2).Value = "1-ый семестр"

.Cells(Row + 2, 3).Value = "2-ой семестр"

For к = 0 То 8

.Cells(Row + 3 + к, 1).Value = Worksheets("Storage").Cells(1, к + 5).Value

.Cells(Row + 3 + к, 2).Value = Split(Worksheets("Storage").Cells(j, к + 5).Value, ":")(0)

.Cells(Row + 3 + к, 3).Value = Split(Worksheets("Storage").Cells(j, к + 5).Value, ":")(1)

Next к

Range(.Cells(Row + 3, 2), .Cells(Row + 2 + к, 3)).Select

Range(.Cells(Row, 1), .Cells(Row + 2 + к, 1)).Select

Range(.Cells(Row, 1), .Cells(Row + 2 + к, 3)).Select

Row = Row + к + 5

For j = 0 То Group.ListCount - 1

Форма "DataForm":

Ме.Hide

ItemCount.Caption = "Новый элемент"

MsgBox "Необходимо ввести номер группы!"

MsgBox "Необходимо ввести фамилию студента!"

MsgBox "Необходимо ввести имя студента!"

MsgBox "Необходимо ввести отчество студента!"

For i = 0 То Objects.ListCount - 1

ItemCount.Caption = "Элемент " + Str(Cursor + 1) + " из " + Str(Count)

For j = 0 То Objects.ListCount - 1

For i = 0 То Objects.ListCount - 1

ItemCount.Caption = "Элемент " + Str(Cursor + 1) + " из " + Str(Count)

For i = 0 То Objects.ListCount - 1

Форма "DiaGroupForm":

Ме.Hide

For i = 0 То 3

.Cells(1, 1).Value = "Диаграмма успеваемости группы " + Group.Value

.Cells(2, 1).Value = "по предмету " + Object.Value

.Cells(3, 1).Value = "за " + Str(Index + 1) + "-й семестр"

For i = 0 То 3

.Cells(i + 4, 1).Value = "Оценка " + Str(5 - i)

ChartObj.Chart.ChartTitle.Text = "Диаграмма успеваемости группы " + Group.Value + Chr(10) + "по предмету " + Object.Value + Chr(10) + "за " + Str(Index + 1) + "-й семестр"

For j = 0 То Group.ListCount - 1

For j = 0 То 8

Форма "DiaStudentForm":

Ме.Hide

For i = 0 То 3

For i = 0 То 8

.Cells(1, 1).Value = "Диаграмма успеваемости студента: "

.Cells(3, 1).Value = Str(Index + 1) + "-й семестр"

For i = 0 То 3

.Cells(i + 4, 1).Value = "Оценка " + Str(5 - i)

ChartObj.Chart.ChartTitle.Text = "Диаграмма успеваемости студента" + Chr(10) + Student.Value + Chr(10) + Str(Index + 1) + "-й семестр"

For j = 0 То Group.ListCount - 1