Разработка приложения на VBA "Тест"

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

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

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

ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«НИЖЕГОРОДСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИМ. Н.И. ЛОБАЧЕВСКОГО»

АРЗАМАССКИЙ ФИЛИАЛ

отделение среднего профессионального образования

(Арзамасский политехнический колледж имени В.А.Новикова)

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

по дисциплине: «Прикладное программирование (офис)»

тема: Разработка приложения на VBA “Тест”

Выполнил(а) студент(кА)

3 курса группы 34ПР

очной формы обучения

Кокорева М.Ю.

Арзамас 2014г.

Оглавление

Введение

Теоретическая часть

1.1 Анализ задания

1.2 Выбор технических и программных средств

1.3 Описание переменных

1.4 Описание команд

1.5 Алгоритм решения задачи

1.6 Разработка теста

2. Практическая часть

2.1 Интерфейс программы

2.2 Тестирование программы

2.3 Листинг программы

Заключение

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

Введение

Цель данной курсовой работы - закрепление на практике знаний, полученных при изучении курса "МДК 01.02. Прикладное программирование", и приобретение опыта самостоятельной разработки прикладного программного обеспечения для решения расчетных задач для персонального компьютера.

Моей задачей является разработка приложения тест в среде Visual Basic for Applications .

Visual Basic for Applications (VBA, Visual Basic для приложений) -- немного упрощённая реализация языка программирования Visual Basic, встроенная в линейку продуктов Microsoft Office

Одно из достоинств VBA в том, что этот язык является единым для всех офисных приложений Microsoft и поэтому позволяет связывать их между собой.

1. Теоретическая часть

1.1 Анализ задания

В данной курсовой работе необходимо разработать тестовую программу. Мне всегда были очень интересны разнообразные психологические тесты. Поэтому для своего проекта я решила создать тест, чтобы определить, какое у человека полушарие мозга доминирует или этот человек обладает счастливым свойством равновесия между обоими полушариями, а также установить слабые и сильные стороны преобладания того или иного полушария. Тест разрабатывается с применением наиболее распространенного языка Visual Basic for Applications

1.2 Выбор технических и программных средств

В качестве среды программирования мною была выбрана среда Visual Basic for Application (VBA), встроенная в офисный пакет приложений, созданный корпорацией Microsoft для операционной системы Microsoft Windows. С помощью VBA можно легко и быстро создавать пользовательские приложения, используя единую для всех офисных программ среду и язык.

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

VBA - самый удобный язык для работы с приложениями Office, ведь язык VBA встроен в приложения Office (и не только), и код на языке VBA можно хранить внутри документов приложений Office - документах Word, книгах Excel, презентациях PowerPoint и т.п. Конечно же, этот код можно запускать оттуда на выполнение, поскольку среда выполнения кода VBA (на программистском сленге - хост) встроена внутрь этих приложений.

В настоящее время VBA встроен:

· во все главные приложения MS Office - Word, Excel, Access, PowerPoint, Outlook, FrontPage, InfoPath;

· в другие приложения Microsoft, например, Visio и Microsoft Project;

· и в более чем 100 приложений третьих фирм, например, CorelDraw и Corel WordPerfect Office 2000, AutoCAD и т.п.

VBA - универсальный язык. Освоив его, вы не только получите ключ ко всем возможностям приложений Office и других, перечисленных выше, но и будете готовы к тому, чтобы:

· создавать полноценные приложения на Visual Basic (поскольку эти языки - близкие родственники);

· использовать все возможности языка VBScript (это - вообще урезанный VBA). В результате в вашем распоряжении будут универсальные средства для создания скриптов администрирования Windows, для создания Web-страниц, для создания Web-приложений ASP и многое-многое другое.

VBA изначально был ориентирован на пользователей, а не на профессиональных программистов (хотя профессионалы пользуются им очень активно), поэтому создавать программы на нем можно очень быстро и легко. Кроме того, в Office встроены мощные средства, облегчающие работу пользователя: подсказки по объектам и по синтаксису, макрорекордер и т.п.

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

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

Программы на VBA по умолчанию не компилируются и поэтому вносить в них исправления очень удобно. Не нужно разыскивать исходные коды и перекомпилировать программы.

1.3 Описание переменных

При написании своей курсовой работы я использовала 5 переменных. Первая - I заполняется из textox1, располагающимся на первой форме.

i = TextBox1.Text

Переменная I - это имя тестируемого пользователя

Остальные переменные аналогичны друг другу. Они используются для сохранения ответов пользователя. В каждую из переменных a, b, c и d помещаются значения 1 или 0, где 1 - это ответ «право», а 0 - ответ «лево»

a = 1

b = 0

Все переменные должны быть глобальными, чтобы распознавались всеми формами. Для этого они введены в Module 1.

1.4 Описание команд

В моей программе использовались следующие команды и методы:

Sub - оператор объявления. Он совместно с соответствующим ему оператором End Sub объявляет процедуру с именем. Он также указывает, что процедура является Public, что означает, что любой код, который к нему обращается, может его вызвать.

Unload me - закрытие активной формы

Show - метод перехода к другой форме

If - оператор условного перехода

And - оператор логического умножения

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

1.5 Алгоритм решения задачи

программа листинг интерфейс

1.6 Разработка программы

Программа состоит из 4 вопросов:

1. Ведущий глаз. Вытянуть руку и соединить подушечки большого и указательного пальцев. Образовавшееся отверстие (окошко) направить на какой-либо объект, посмотрев при этом двумя глазами. Затем закрыть правый глаз и посмотреть в окошко левым, потом закрыть левый глаз и посмотреть правым. Определить, какой глаз позволяет видеть через отверстие-окошко, не сдвигая его. Это и есть ведущий глаз.

2. Ведущая рука. Скрестить руки в позе Наполеона. Та рука, которая окажется сверху - ведущая.

3. Ведущий палец. Сложить правую и левую ладонь и сцепить пальцы. Ведущий - верхний большой палец.

4. Ведущая ладонь. Аплодирование - ведущая ладонь та, которая сверху.

Пользователь отвечает на каждый вопрос «право» или «лево».

2. Практическая часть

2.1 Интерфейс программы

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

Заготовки для будущих форм.

В первой форме я использовала такие элементы как label, commandbutton и textbox.

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

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

И пример результата:

2.2 Тестирование программы

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

Тестирование - это динамический контроль программы, т.е. проверка правильности программы при ее выполнении на компьютере

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

Тестировали мою программу 5 человек и результаты у всех были разные. Проблем с пониманием заданий не было. Ошибок или неполадок не возникало. Я считаю, что моя программа прошла свое тестирование на ура.

2.3 Листинг программы

1. Вводим глобальные переменные

Public a

Public b

Public c

Public d

Public I as string

2. Листинг для приветствия (Userform1)

Private Sub CommandButton1_Click()

I= textbox1.text

UserForm2.Show

Unload Me

End Sub

3. Листинг для 1 вопроса (Userform2)

Private Sub CommandButton1_Click()

a = 1

UserForm3.Show

End

End Sub

Private Sub CommandButton2_Click()

a = 0

UserForm3.Show

Unload Me

End Sub

4. Листинг для 2 вопроса (Userform3)

Private Sub CommandButton1_Click()

b = 1

UserForm4.Show

Unload Me

End Sub

Private Sub CommandButton2_Click()

b = 0

UserForm4.Show

Unload Me

End Sub

5. Листинг для 3 вопроса (Userform4)

Private Sub CommandButton1_Click()

c = 1

UserForm5.Show

Unload Me

End Sub

Private Sub CommandButton2_Click()

c = 0

UserForm5.Show

Unload Me

End Sub

6. Листинг для 4 вопроса и обработки данных (Userform5)

Private Sub CommandButton1_Click()

d = 1

If a = 1 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППП - ориентация на общепринятое мнение, на стереотипы, консервативный тип характера, что обеспечивает наиболее стабильное объединение"

If a = 1 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППЛ - неуверенный слабый темперамент. При наличии одного теста на фоне противоположных соответствующая черта характера проявляется наиболее ярко - в данном случае - нерешительность"

If a = 1 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛП - такому человеку присущи способность к кокетству, решительность, чувство юмора, активность, энергичность, темперамент, артистизм. При общении с ним необходимы юмор и решительность, т.к. этот сильный характер не воспринимает слабые типы"

If a = 1 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛЛ - редкий и самостоятельный тип характера. Близок к предыдущему типу, но мягче, нерешительнее и менее энергичен. Некоторое противоречие между нерешительностью (левое аплодирование) и твердостью характера (правый ведущий глаз). Высокая контактность, но медленное привыкание"

If a = 1 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПП - деловой тип характера, сочетающий аналитический склад и мягкость (основная черта). Чаще встречается у женщин (3,6 %). Общепринятый тип деловой женщины. Медленное привыкание, осторожность. Никогда не идут на конфликт «в лоб», преобладает расчет, терпимость, «вязкость», замедленность в развитии отношений, некоторая холодность"

If a = 1 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПЛ - самый слабый тип характера, очень редок. Беззащитность и слабость связана, как со способностью идти на конфликт, так и с подверженностью различным влияниям"

If a = 1 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛП - склонность к новым впечатлениям и способность не создавать конфликтов. Некоторое непостоянство, способность кокетничать на «правом» аналитическом фоне при особой мягкости. Подобным характерам свойственна эмоциональная медлительность, томность. Простота и редкая смелость в общении, способность переключаться на новый тип поведения. Значительно чаще встречается у женщин (8,5 % женщин, 3,5 % мужчин)"

If a = 1 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛЛ - непостоянный и независимый характер, основная черта - аналитичность в сочетании с остальными левыми тестами. Встречается редко (2,6 % мужчин и 1,6 % женщин)"

If a = 0 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППП - один из наиболее часто встречающихся типов характера, с очень хорошей адаптацией к различным условиям (15,7 % мужчин и 12,2 % женщин). Основная черта - эмоциональность в сочетании с недостаточной настойчивостью, которая проявляется, прежде всего, в основных стратегических вопросах (брак, образование и т.п.). Высокая подверженность чужому влиянию. Легко контактирует практически со всеми остальными типами характера. У мужчин эмоциональность понижена, наблюдается склонность к флегматичности"

If a = 0 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППЛ - еще меньшая настойчивость, мягкость, уступчивость осторожному влиянию, наивность. Требует особо тщательного отношения к себе - тип «маленькой королевы»."

If a = 0 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛП - самый сильный тип характера, трудно поддается убеждению, для этого требуется сильное разнообразное влияние. Способен проявлять настойчивость, но иногда она переходит в «зацикливание» на второстепенных целях, Сильная индивидуальность. Энергичность, способность к преодолению трудностей. Некоторый консерватизм из-за недостаточности внимания к чужой точке зрения. Такие люди не любят инфантильности."

If a = 0 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛЛ - сильный, но ненавязчивый характер, практически не поддающийся убуждению. Основная черта - внутренняя агрессивность, прикрытая внешней мягкостью и эмоциональностью. Быстрое взаимодействие, но медленное взаимопонимание."

If a = 0 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПП - дружелюбие и простота, некоторая разбросанность интересов."

If a = 0 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПЛ - основные черты: простодушие, мягкость, доверчивость. Это очень редкий тип (1,3 % женщин), у мужчин практически не встречается."

If a = 0 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛП - эмоциональность в сочетании с решительностью (основная черта), энергичность, некоторая разбросанность приводят к тому, что у подобных характеров возможны эмоциональные, быстро принимаемые непродуманные решения. Поэтому в общении с ними важны дополнительные «тормозные механизмы»."

If a = 0 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛЛ - обладатели полного набора «левых» тестов - это люди, для которых характерны способность по-новому взглянуть на вещи (антиконсерватизм), наибольшая эмоциональность, индивидуальность, эгоизм, упрямство, защищенность, иногда переходящая в замкнутость. Способность «ослепительно» улыбаться, которая связана с левыми тестами, и прежде всего, с левой ведущей рукой."

Unload Me

End Sub

Private Sub CommandButton2_Click()

d = 0

If a = 1 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППП - ориентация на общепринятое мнение, на стереотипы, консервативный тип характера, что обеспечивает наиболее стабильное объединение"

If a = 1 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППЛ - неуверенный слабый темперамент. При наличии одного теста на фоне противоположных соответствующая черта характера проявляется наиболее ярко - в данном случае - нерешительность"

If a = 1 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛП - такому человеку присущи способность к кокетству, решительность, чувство юмора, активность, энергичность, темперамент, артистизм. При общении с ним необходимы юмор и решительность, т.к. этот сильный характер не воспринимает слабые типы"

If a = 1 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛЛ - редкий и самостоятельный тип характера. Близок к предыдущему типу, но мягче, нерешительнее и менее энергичен. Некоторое противоречие между нерешительностью (левое аплодирование) и твердостью характера (правый ведущий глаз). Высокая контактность, но медленное привыкание"

If a = 1 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПП - деловой тип характера, сочетающий аналитический склад и мягкость (основная черта). Чаще встречается у женщин (3,6 %). Общепринятый тип деловой женщины. Медленное привыкание, осторожность. Никогда не идут на конфликт «в лоб», преобладает расчет, терпимость, «вязкость», замедленность в развитии отношений, некоторая холодность"

If a = 1 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПЛ - самый слабый тип характера, очень редок. Беззащитность и слабость связана, как со способностью идти на конфликт, так и с подверженностью различным влияниям"

If a = 1 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛП - склонность к новым впечатлениям и способность не создавать конфликтов. Некоторое непостоянство, способность кокетничать на «правом» аналитическом фоне при особой мягкости. Подобным характерам свойственна эмоциональная медлительность, томность. Простота и редкая смелость в общении, способность переключаться на новый тип поведения. Значительно чаще встречается у женщин (8,5 % женщин, 3,5 % мужчин)"

If a = 1 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛЛ - непостоянный и независимый характер, основная черта - аналитичность в сочетании с остальными левыми тестами. Встречается редко (2,6 % мужчин и 1,6 % женщин)"

If a = 0 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППП - один из наиболее часто встречающихся типов характера, с очень хорошей адаптацией к различным условиям (15,7 % мужчин и 12,2 % женщин). Основная черта - эмоциональность в сочетании с недостаточной настойчивостью, которая проявляется, прежде всего, в основных стратегических вопросах (брак, образование и т.п.). Высокая подверженность чужому влиянию. Легко контактирует практически со всеми остальными типами характера. У мужчин эмоциональность понижена, наблюдается склонность к флегматичности"

If a = 0 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППЛ - еще меньшая настойчивость, мягкость, уступчивость осторожному влиянию, наивность. Требует особо тщательного отношения к себе - тип «маленькой королевы»."

If a = 0 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛП - самый сильный тип характера, трудно поддается убеждению, для этого требуется сильное разнообразное влияние. Способен проявлять настойчивость, но иногда она переходит в «зацикливание» на второстепенных целях, Сильная индивидуальность. Энергичность, способность к преодолению трудностей. Некоторый консерватизм из-за недостаточности внимания к чужой точке зрения. Такие люди не любят инфантильности."

If a = 0 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛЛ - сильный, но ненавязчивый характер, практически не поддающийся убуждению. Основная черта - внутренняя агрессивность, прикрытая внешней мягкостью и эмоциональностью. Быстрое взаимодействие, но медленное взаимопонимание".

If a = 0 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПП - дружелюбие и простота, некоторая разбросанность интересов."

If a = 0 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПЛ - основные черты: простодушие, мягкость, доверчивость. Это очень редкий тип (1,3 % женщин), у мужчин практически не встречается."

If a = 0 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛП - эмоциональность в сочетании с решительностью (основная черта), энергичность, некоторая разбросанность приводят к тому, что у подобных характеров возможны эмоциональные, быстро принимаемые непродуманные решения. Поэтому в общении с ними важны дополнительные «тормозные механизмы»."

If a = 0 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛЛ - обладатели полного набора «левых» тестов - это люди, для которых характерны способность по-новому взглянуть на вещи (антиконсерватизм), наибольшая эмоциональность, индивидуальность, эгоизм, упрямство, защищенность, иногда переходящая в замкнутость. Способность «ослепительно» улыбаться, которая связана с левыми тестами, и прежде всего, с левой ведущей рукой."

Unload Me

End Sub

Заключение

Во время выполнения своей курсовой работы я более глубоко и основательно изучила и укрепила на практике все тонкости и моменты среды программирования Visual Basic for Applications. Мне удалось на практике знания, полученных при изучении курса "МДК 01.02. Прикладное программирование", и приобрести опыт самостоятельной разработки прикладного программного обеспечения. Моя программа написана на языке программирования VBA и позволяет проводить тестирование.

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

1. В. Кузьменко «VBA. Эффективное использование» 624 стр. 2012г.

2. Андрей Гарнаев «Самоучитель VBA» 511 стр. 2012г.

3. Джон Уокенбах «Excel 2013. Трюки и советы Джона Уокенбаха» 453 стр. 2014г.

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