Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОГО ГОСУДАРСТВЕННОГО БЮДЖЕТНОГО ОБРАЗОВАТЕЛЬНОГО

УЧРЕЖДЕНИЯ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«ТЮМЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

НИЖНЕВАРТОВСКИЙ ЭКОНОМИКО-ПРАВОВОЙ ИНСТИТУТ (филиал)

Кафедра математики и естественных наук

КОНТРОЛЬНАЯ РАБОТА

ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА И ПРОГРАММИРОВАНИЕ»

НА ТЕМУ «Помощник воспитателя»

Выполнила:

студент I-го курса

Ракутова Татьяна

Проверил:

Ионов Владимир Семенович

Нижневартовск - 2013

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

Microsoft Excel - программа для работы с электронными таблицами. Основные возможности электронных таблиц: проведение однотипных сложных расчётов над большими наборами данных; автоматизация итоговых вычислений; решение задач путём подбора значений параметров; обработка (статистический анализ) результатов экспериментов; проведение поиска оптимальных значений параметров (решение оптимизационных задач); подготовка табличных документов; построение диаграмм (в том числе и сводных) по имеющимся данным; создание и анализ баз данных (списков).

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

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

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

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

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

VBA ( Visual Basic for Applications) -- это диалект языка Visual Basic, расширяющий возможности Visual Basic и предназначенный для работы с приложениями Microsoft Office и другими приложениями от Microsoft и третьих фирм. В данной работе с помощью Microsoft Office Excel - VBA я сделал форму для заполнения. Мой проект позволит очень легко и быстро создать список сотрудников предприятия. После ввода всех необходимых данных в форму, эти данные сохраняются на лист Excel, где их можно увидеть.

Таблица объектов курсовой работы

Код курсовой работы

End Sub. электронный функция стандартный вычисление

'Кнопка для активизации листа "Данные о детском саде" и закрывании главной формы "Помощник воспитателя"

Private Sub cmd_svedinie_Click()

Worksheets("Данные о детском саде").Activate

Unload frm_pomohnik

End Sub

'Кнопка для завершения работы с программой

Private Sub cmd_vixod_Click()

Unload frm_pomohnik

End Sub

'Кнопка для активизации формы "Заявление" и закрывания главной формы "Помощник воспитателя"

Private Sub cmd_zaivlenie_Click()

Unload frm_pomohnik

frm_zaivlenie1.Show

End Sub

Форма

«Заявление_2»

Private Sub cmd_soxranit_1_Click()

'Проверка заполненности сведений о ребенке

'Проверка заполненности поля "Фамилия ребенка"

If txt_familia_rebenka.Text = "" Then

MsgBox "Введите фамилию ребенка"

txt_familia_rebenka.SetFocus

Exit Sub

End If

'Проверка заполненности поля "Имя ребенка"

If txt_ima_rebenka.Text = "" Then

MsgBox "Введите имя ребенка"

txt_ima_rebenka.SetFocus

Exit Sub

End If

'Проверка заполненности поля "Отчество ребенка"

If txt_ocestvo_rebenka.Text = "" Then

MsgBox "Введите отчество ребенка"

txt_ocestvo_rebenka.SetFocus

Exit Sub

End If

'Проверка заполненности поля "Дата рождения ребенка"

If txt_data_rogdenia_rebenka.Text = "" Then

MsgBox "Введите дату рождения ребенка"

txt_data_rogdenia_rebenka.SetFocus

Exit Sub

End If

'Проверка заполненности поля "Место жительство ребенка"

If txt_mesto_jitelstvo_rebenka.Text = "" Then

MsgBox "Введите место жительство ребенка"

txt_mesto_jitelstvo_rebenka.SetFocus

Exit Sub

End If

'Проверка заполненности поля "Хранические болезни и аллергии ребенка"

If txt_bolezni.Text = "" Then

MsgBox "Введите хранические болезни и аллергии ребенка"

txt_bolezni.SetFocus

Exit Sub

End If

'Условие для проверки заполненности поля "Наличие или отсутствие ссведетельства о рождении"

If ((opt_da = False) And (opt_net = False)) Then

MsgBox "Укажите наличие или отсутствие сведетельства о рождении "

Exit Sub

End If

'Активизация листа "Сведения о ребенке" и его заполнения через форму "Заявление_2"

Worksheets("Сведения о ребенке").Activate

Range("A3").Select

If Range("A3").Value = "" Then

Range("A3").Activate

Else

Range("A3").CurrentRegion.Select

ActiveCell.Offset(Selection.Rows.Count, 0).Activate

End If

With ActiveCell

Value = txt_familia_rebenka

Offset(0, 1).Value = txt_ima_rebenka

Offset(0, 2).Value = txt_ocestvo_rebenka

Offset(0, 3).Value = txt_data_rogdenia_rebenka

Offset(0, 4).Value = txt_mesto_jitelstvo_rebenka

Offset(0, 5).Value = txt_bolezni

If opt_da = True Then

Offset(0, 6).Value = "Да"

Else

Offset(0, 6).Value = "Нет"

End If

End With

End Sub

'Кнопка очищения формы "Заявление_2"

Private Sub cmd_ocistit_1_Click()

txt_familia_rebenka.Value = " "

txt_ima_rebenka.Value = " "

txt_ocestvo_rebenka.Value = " "

txt_data_rogdenia_rebenka.Value = " "

txt_mesto_jitelstvo_rebenka.Value = " "

txt_bolezni.Value = " "

If opt_da = True Then

opt_da = False

End If

If opt_net = True Then

opt_net = False

End If

End Sub

'Кнопка для закрывания формы "Завления_2" и активизации главной формы "Помощник воспитателя"

Private Sub cmd_vixod_1_Click()

Unload Me

frm_zaivlenie1.Show

End Sub

Форма «Квитанция за посещение»

1. Биллиг В.А., Дехтярь М.И. VBA и Office ХР. Офисное программирование. -М.: Русская редакция, 2004. -693 с.

2. Гарнаев А. Использование MS Excel и VBA в экономике и финансах. -СПб.: БХВ-Петербург, 2002. -420 с.

3. Информатика: учебник. Курносов А.П., Кулев С.А., Улезько А.В., Камалян А.К., Чернигин А.С., Ломакин С.В.: под ред. А.П. Курносова Воронеж, ВГАУ, 1997. -238 с.

Размещено на Allbest.ru