У вас вопросы?
У нас ответы:) SamZan.net

тематики и информатики Дисциплина- Информатика Курсовая работа Разработка приложений в среде

Работа добавлена на сайт samzan.net: 2016-03-05

Поможем написать учебную работу

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

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 3.2.2025

Санкт-Петербургский государственный архитектурно-строительный университет

Общестроительный факультет

Кафедра прикладной математики и информатики

Дисциплина: Информатика

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

Разработка приложений в среде Excel 2013

Выполнил

Студент Чукавина А.Ю

Группа 7-С-1

Проверила  Нарбут Л.К.

Санкт-Петербург

2013

Оглавление

1. «МАГАЗИНЫ» 4

2. Построение графиков Функции 5

3. Программирование функций пользователя на VBA 8

4.Табуляция 10

5. Cоздание пользовательских форм 11

5.1. Форма 1 11

5.2. Форма 2 12

5.3. Форма 3 14

5.4 .Форма 4 16

5.5. Форма 5 18

Заключение 21

Список использованной литературы 22


Введение

Для освоения приложений в среде Excel 2013 мы проделали следующие графические работы:

  1.  В Excel: составление отчетной ведомости «Магазины». Использование формул СУММ, РАНГ, СРЗНАЧ, Частота. Построение круговой диаграммы и гистограммы.
  2.  Построение графиков функций: обычных, разветвляющихся на 2 и 3 направления, двух в одних осях, поверхности.
  3.  Разработка функций пользователя для функций из п.2. Вычисление значений функций пользователя и сравнение с полученными в п.2. Элементы языка VBA: процедура Function, оператор if.
  4.  Табуляция функций. Разработка процедур для табулирования функций пользователя из п.4. Элементы языка VBA: процедуры Sub, операторы Input, присваивания, Cells, For… next, макрос. Запуск функций пользователя из макроса.
  5.  Формы. Активизация и выгрузка из памяти. Элементы управления Поле, Список, Поле со списком, Полоса прокрутки. Разработка проектов, включающих: заполнение списков, выбор элементов из списков; многостолбцовые списки, многоэлементный выбор из списка, заполнение списка из диапазона ячеек.
  6.  Файлы. Разработка процедур на VBA для чтения из файла в Поле (TextBox) и записи из Поля в файл.

1. «МАГАЗИНЫ»

Задание:

Набрать таблицу квартальной отчетной ведомости для сети магазинов в соответствии с вариантом задания и образцом таблицы. Выполнить обработку введенных данных, в результате которой заполняются столбцы: "Суммарная выручка", "Среднемесячная выручка", "Место магазина", "Процент".

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

Выполнение:

  1.  Заполнили заданные строки и столбцы: месяцы, количество магазинов, выручка за каждый месяц.
  2.  Записали формулы СУММ, РАНГ, СРЗНАЧ, Частота в нужные ячейки.
  3.  Протянули бегунок на всю длину столбца, получив тем самым таблицу.
  4.  Составили круговую диаграмму, задав нужные параметры (проценты, название диаграммы, легенду диаграммы), с помощью функции Вставка.
  5.  Составили гистограмму, задав нужные параметры (название осей, числовые значения, название) с помощью функции Вставка.
  6.  Выровняли, для удобного просмотра.

2. Построение графиков Функции

Чтобы построить графики функций в среде Excel, необходимо воспользоваться мастером диаграмм с большим набором графиков и диаграмм. Для того, чтобы построить график функции следует сначала построить таблицу значений зависимости переменной Y от X, при чем аргумент изменяется с фиксированным шагом. В моем случае шаг равен 0,2.

Задание: 

1. Построить в разных системах координат при графики функций:

  1.  Построить в одной системе координат при графики функций:

 Y=3cos (πx)-sin(2πx)                      z=sin(2πx)+cos2(πx) 

3. Построить поверхность  

Выполнение:

  1.  Указали в первом столбце Х и его значения, затем во втором столбце Y, затем G и Z.
  2.  В ячейках Е2, F2, G2 записали формулы.
  3.  Протянули на всю длину столбца.
  4.  Затем построили графики по заданным точкам, с помощью Вставка-Диаграмма-График.
  5.  Выровняли для удобного просмотра.

 

  1.  Программирование функций пользователя на VBA

Задание:

Задать функции из предыдущего задания в VBA №1 и №2.

Выполнение:

  1.  Нажали Alt+F11
  2.  Выбрали Insert → Module

В появившемся окне написали текст программы.

  1.  Перешли на лист Excel и в ячейках E2, F2 и G2 написали названия искомых функций.
  2.  На первом шаге надо выбрать y(x) в категории «Функции определенные пользователем», на втором шаге в качестве аргумента x указать ячейку A2. В результате в ячейке E3 будет записана формула =y(A3). Эту формулу протащить на весь диапазон E3:E20, аналогично с F3 и G3.

4.Табуляция

Задание:

Сделать программу в VBA для функции

Выполнение:

  1.  Открыли файл Excel с графиками функций, чтобы использовать «живую» функцию
  2.  Вызвали VBA (Alt + F11)
  3.  Создали новый  Modul
  4.  Записали программу
  5.  Вышли из режима Конструктор и запустили кнопку

Sub tabul()

Dim x0 As Single, xk As Single, h As Single

Dim x As Single, n As Integer

x0 = -2: xk = 1.8: h = 0.2: n = 1

Cells(n, 1) = "x": Cells(n, 2) = "g"

For x = x0 To xk Step h

n = n + 1

Cells(n, 1) = x: Cells(n, 2) = g(x): Next

End Sub

5. Cоздание пользовательских форм

5.1. Форма 1

Задание:

Задать форму в VBA

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA
  4.  Запустили программу


Private Sub CommandButton1_Click()

Dim x As Double

Dim x1 As Double

Dim s As Double

s1 = 1:

s = 0

If CheckBox1 Then

For x = -1.8 To 1.81 Step 0.2

s = s + x * x

Next

TextBox1 = s

End If

If CheckBox2 Then

For x = -1.8 To 1.81 Step 0.2

s1 = s1 * x * x

Next

TextBox2 = s1

End If

End Sub

                                                            5.2. Форма 2

Задание:

Задать форму в VBA

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA
  4.  Создадим кнопки «add»-прибавлять «remove»-перемещать «сlear» -очистить «home back»- вернуться
  5.  Вернувшись на лист Exel, в первом столбце записали 10 фамилий
  6.  Затем создали с помощью Разработчика кнопку «Показать форму»
  7.  Запустили программ

Private Sub CommandButton1_Click()

Cells(5, 5) = ListBox1.Text

End Sub

------------------------------------------------------

Private Sub CommandButton2_Click()

ListBox1.Clear

End Sub

--------------------------------------------------------

Sub CommandButton3_Click()

Static iconnt As Long

While icount < 10

icount = icount + 1

ListBox1.AddItem CStr(Cells(1 + icount, 1)) & (CStr(icount))

Wend

End Sub

---------------------------------------------------------

Private Sub CommandButton4_Click()

With ListBox1

If .ListCount >= -1 Then

If .ListIndex = -1 Then Exit Sub

.RemoveItem .ListIndex

End If

End With

End Sub

--------------------------------------------------------

5.3. Форма 3

Задание:

Задать форму в VBA

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA
  4.  Затем в VBA запустили программу
  5.  Ввели некоторые цифры
  6.  Теперь мы можем сосчитать Сумму

Sub CommandButton1_Click()

Dim a As Double, b As Double

Dim h As Double, x As Double

Dim i As Long, n As Integer

Dim S As Double

a = CDbl(TextBox1.Text)

b = CDbl(TextBox2.Text)

h = CDbl(TextBox3.Text)

If b < a Then Exit Sub

ListBox1.Clear: i = 0

For x = a To b Step h

f = Sin(x)

f = Format(f, "0.000")

ListBox1.AddItem x

ListBox1.List(i, 1) = f

i = i + 1

Next x

n = 4

Cells(n, 6) = "x": Cells(n, 7) = "y=f(x)": Cells(n, 8) = "сумма"

For i = 0 To 10

n = n + 1

Cells(n, 6) = ListBox1.List(i, 0)

Cells(n, 7) = CDbl(ListBox1.List(i, 1))

Next i

Cells(5, 8) = "=Sum(g5:g15)"

TextBox4 = CStr(Cells(5, 8))

Cells(5, 9) = "=average(g5:g15)"

End Sub

Sub UserForm_initialize()

With ListBox1

.ColumnCount = 2

.ColumnWidths = "40;60"

End With

End Sub

5.4 .Форма 4

Задание:

Сделать программу в VBA для функции

      aX1+bX2+c=0

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA
  4.  Затем в VBA запустили программу

Private Sub CommandButton1_Click()

Dim a, b, c, D As Double

a = CDbl(TextBox1)

b = CDbl(TextBox2)

c = CDbl(TextBox3)

D = b * b - 4 * a * c

If a = 0 Then

TextBox4 = -c / b

textBoxt5 = Empty

Else

If D >= 0 Then

TextBox4 = (-b + Sqr(D)) / (2 * a)

TextBox5 = (-b - Sqr(D)) / (2 * a)

Else

TextBox4 = "корней нет"

textBoxt5 = Empty

End If

End If

End Sub

5.5. Форма 5

Задание:

Создать форму в VBA

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA
  4.  Перешли на лист Excel
  5.  Записали 10 фамилий и их доход
  6.  Запустили программу и выполнили нужные действия. Теперь мы можем найти интересующие фамилии, вывести на экран зарплату.

Private Sub CommandButton1_Click()

Static icount As Long

Dim I As Integer

I = 0

While icount <= 10

icount = icount + 1

ListBox1.AddItem Cells(1 + icount, 1)

ListBox1.List(I, 1) = CDbl(Cells(1 + icount, 2))

I = I + 1

Wend

End Sub

--------------------------------------------------

Private Sub CommandButton2_Click()

Dim I As Integer, n As Integer

n = 0

For I = 0 To 10

If ListBox1.List(I, 0) = CStr(TextBox1) Then

TextBox2 = ListBox1.List(I, 1)

n = 1

End If

Next I

If n = 0 Then MsgBox "Такой фамилии нет"

End Sub

-------------------------------------------------------

Private Sub CommandButton3_Click()

Dim I As Integer, n As Integer

n = 14

For I = 0 To 10

n = n + 1

Cells(n, 10) = ListBox1.List(I, 1)

Next I

Cells(15, 11) = "=max(j15:j25)"

TextBox3 = CStr(Cells(15, 11))

End Sub

---------------------------------------------------

Sub UserForm_initialize()

With ListBox1

.ColumnCount = 2

.ColumnWidths = "60;60"

End With

End Sub

Заключение

Excel - это программа для работы с таблицами семейства Microsoft Office. Основная идея программы Excel состоит: хранит информацию, организуя ее с помощью таблиц. Однако хранение информации - это еще половина дела. Второе и главное преимущество Excel - это многочисленные возможности для анализа этой информации: проведения всевозможных вычислений, построения наглядных зависимостей. Любому, кто сталкивался с необходимостью анализировать какую-либо информацию известно, что даже если нет необходимости в выполнении вычислений, иногда имеет смысл располагать информацию в табличной форме, чтобы подчеркнув тем самым некую систему, облегчить ее субъективное восприятие. Поэтому и сама программа Excel ориентирована на самый широкий круг пользователей и применима при решении широчайшего спектра задач.

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

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


Список использованной литературы

  1.  Гарнаев А.Ю.  Excel, VBA, Internet в экономике и финансах, СПб, изд. «БХВ-Петербург», 2005г.
  2.  Власовец А. Информатика и программирование. Pascal и Vba. Учебник, Андреевский издательский дом,2010 г.
  3.  Гаевский  А.Ю., Информатика Учебник для 7-11 классов,2010г.




1. Основные положения аудита
2. Газпром добыча Надым 18 2
3. Президент Республики Беларусь президентская власть; 2 органы законодательной представительной власти;
4. Информационно-поисковые тезаурусы
5. Экологическая экспертиза и предупреждение негативного воздействия на окружающую среду
6. Общие положения В УК РФ пТава двадцатая специально посвящена преступлениям против семьи и несовершенноле
7. на тему- Расчет основных техникоэкономических показателей производственной деятельности цеха
8. реферат дисертації на здобуття наукового ступеня кандидата економічних наук Харків 2000
9. Тема 7 Рынок совершенной конкуренции При выборе масштабов производства производители руководствуются м
10. Михаил Иванович Глинка

Материалы собраны группой SamZan и находятся в свободном доступе