XREFF.RU


Санкт-Петербургский государственный архитектурно-строительный университет Общестроительный факультет Кафедра прикладной...



Если Вам понравился сайт нажмите на кнопку выше
Санкт-Петербургский государственный архитектурно-строительный университет Общестроительный факультет Кафедра прикладной...

Санкт-Петербургский государственный архитектурно-строительный университет Общестроительный факультет Кафедра прикладной...

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

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


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


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



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

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




Выполнил

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

Группа 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

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





Введение

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

  1. В Excel: составление отчетной ведомости «Магазины». Использование формул СУММ, РАНГ, СРЗНАЧ, Частота. Построение круговой диаграммы и гистограммы.

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

  3. Разработка функций пользователя для функций из п.2. Вычисление значений функций пользователя и сравнение с полученными в п.2. Элементы языка VBA: процедура Function, оператор if.

  4. Табуляция функций. Разработка процедур для табулирования функций пользователя из п.4. Элементы языка VBA: процедуры Sub, операторы Input, присваивания, Cells, Fornext, макрос. Запуск функций пользователя из макроса.

  5. Формы. Активизация и выгрузка из памяти. Элементы управления Поле, Список, Поле со списком, Полоса прокрутки. Разработка проектов, включающих: заполнение списков, выбор элементов из списков; многостолбцовые списки, многоэлементный выбор из списка, заполнение списка из диапазона ячеек.

  6. Файлы. Разработка процедур на VBA для чтения из файла в Поле (TextBox) и записи из Поля в файл.











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

Задание:

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

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

Выполнение:









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


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

Задание:

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

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

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

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

Выполнение:








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

Задание:

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

Выполнение:

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





4.Табуляция

Задание:

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

Выполнение:



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

Выполнение:








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

Выполнение:

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

EndSub

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

5.3. Форма 3

Задание:

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

Выполнение:

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

Выполнение:





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

Выполнение:

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г.





  • Карта сайта