Отчет по курсовой работе

Задача: С помощью программных средств VBA разработать программу-справочник или специальный калькулятор, реализующую орфографический словарь (20-30 слов).

 

Пояснения: Панель инструментов Элементы управления (см. рис), обычно содержит следующие кнопки: Выбор объектов, Надпись, Поле, Поле со списком, Список, Флажок, Переключатель, Выключатель, Рамка, Кнопка, Набор вкладок, Набор страниц, Полоса прокрутки, Счетчик, Рисунок, RefEdit.

Добавление формы:

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

Форма словаря содержит 2 кнопки, 1 надпись и Поле со списком. Поле со списком заполняется данными при инициализации процедуры командой ComboBox1.AddItem "Значение элемента списка".

В процедуре CommandButton1_Click() происходит обработка нажатия кнопки «Выберите слово и нажмите здесь». В надпись в свойство Caption с помощью оператора case в соответствие выбранному из списка слову вписываются данные словаря или выдается сообщение, что такого слова нет в словаре.

Sub CommandButton2_Click() закрывает форму.

Текст программы:

Private Sub CommandButton1_Click()

Dim slovo As String

slovo = ComboBox1.text

Select Case slovo

Case "ДИОГЕН"

Label2.Caption = "Диоген Диог`ен, -а: б`очка Диог`ена, фон`арь Диог`ена"

Case "АВАНГАРД"

Label2.Caption = "авангард аванг`ард, -а"

Case "БОГ ЕГО (ЕЕ, ИХ) ЗНАЕТ"

Label2.Caption = "бог его (её, их) знает б`ог ег`о (её, `их) зн`ает (неизвестно, не знаю)"

Case "ВРАСТЯЖКУ"

Label2.Caption = "врастяжку враст`яжку, нареч."

Case "ГАЛОП"

Label2.Caption = "галоп гал`оп, -а"

Case "ЕПИТРАХИЛЬ"

Label2.Caption = "епитрахиль епитрах`иль, -и"

Case "ЖОНГЛИРОВАТЬ"

Label2.Caption = "жонглировать жонгл`ировать, -рую, -рует"

Case "ЗЯТЮШКА"

Label2.Caption = "зятюшка з`ятюшка, -и, р. мн. -шек, м."

Case "ИДИОТСТВО"

Label2.Caption = "идиотство иди`отство, -а"

Case "ЙЕТИ"

Label2.Caption = "йети й`ети, нескл., м."

Case "КОНТАЧИТЬ"

Label2.Caption = "контачить конт`ачить, -чу, -чит"

Case "ЛЯГНУТЬ"

Label2.Caption = "лягнуть лягн`уть, -н`у, -нёт"

Case "МУЖ"

Label2.Caption = "муж муж, -а, тв. -ем, мн. муж`и, -`ей, -`ам (мужчины) и мужь`я, муж`ей, мужь`ям (супруги)"

Case "НУЛЛИФИЦИРОВАТЬСЯ"

Label2.Caption = "нуллифицироваться нуллифиц`ироваться, -руется"

Case "ОЖИДАНИЕ"

Label2.Caption = "ожидание ожид`ание, -я"

Case "ПЫТКА"

Label2.Caption = "пытка п`ытка, -и, р. мн. п`ыток"

Case "РИСКОВАННЫЙ"

Label2.Caption = "рискованный риск`ованный; кр. ф. -ан, -анна"

Case "СУМЯТИЦА"

Label2.Caption = "сумятица сум`ятица, -ы, тв. -ей"

Case "ТЫКВА"

Label2.Caption = "тыква т`ыква, -ы"

Case "УЧАЩИЙСЯ"

Label2.Caption = "учащийся уч`ащийся, прич."

Case "ФУФАЙКА"

Label2.Caption = "фуфайка фуф`айка, -и, р. мн. -`аек"

Case "ХУЛАХУП"

Label2.Caption = "хулахуп хулах`уп, -а"

Case Else

Label3.Caption = "Ошибка!"

Label2.Caption = "В словаре нет этого слова"

End Select

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

ComboBox1.AddItem "ДИОГЕН"

ComboBox1.AddItem "АВАНГАРД"

ComboBox1.AddItem "БОГ ЕГО (ЕЕ, ИХ) ЗНАЕТ"

ComboBox1.AddItem "ВРАСТЯЖКУ"

ComboBox1.AddItem "ГАЛОП"

ComboBox1.AddItem "ЕПИТРАХИЛЬ"

ComboBox1.AddItem "ЖОНГЛИРОВАТЬ"

ComboBox1.AddItem "ЗЯТЮШКА"

ComboBox1.AddItem "ИДИОТСТВО"

ComboBox1.AddItem "ЙЕТИ"

ComboBox1.AddItem "КОНТАЧИТЬ"

ComboBox1.AddItem "ЛЯГНУТЬ"

ComboBox1.AddItem "МУЖ"

ComboBox1.AddItem "НУЛЛИФИЦИРОВАТЬСЯ"

ComboBox1.AddItem "ОЖИДАНИЕ"

ComboBox1.AddItem "ПЫТКА"

ComboBox1.AddItem "РИСКОВАННЫЙ"

ComboBox1.AddItem "СУМЯТИЦА"

ComboBox1.AddItem "ТЫКВА"

ComboBox1.AddItem "УЧАЩИЙСЯ"

ComboBox1.AddItem "ФУФАЙКА"

ComboBox1.AddItem "ХУЛАХУП"

End Sub

Примеры работы формы:

Отчет по курсовой работе

по дисциплине

«Структуры и алгоритмы обработки данных»

Тема: «Реализация алгоритмов на графах»

Вариант 0

 

	Выполнил: Бабушкин Павел Проверил: Белкина А.В.

 

Г. ЕКАТЕРИНБУРГ, 2012 ГОД

Содержание

1. Задание на курсовую работу.............................................................. 3

2. Анализ предметной области................................................................ 4

3. Исходный код программы.................................................................. 7

4. Вывод................................................................................................. 19

5. Литература......................................................................................... 20