Использование системы объектно-ориентированного программирования Visual Basic при создании обучающих и контролирующих программ

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

Муниципальное общеобразовательное учреждение лицей «РИТМ»

Проект по информатике

"Использование системы объектно-ориентированного программирования Visual Basic при создании обучающих и контролирующих программ"

Работу выполнил:

Аникеев Григорий Андреевич

ученик 11А класса

Руководитель:

учитель информатики и ИКТ

Кирсанова Инна Викторовна.

г. Хабаровск

2011

Содержание

Введение

Описание процесса создания программы

Заключение

Список литературы

Приложения

Введение

Идею проекта подсказала наш учитель по информатике и информационным технологиям. Сейчас в обучении актуален контроль знаний учащихся с помощью тестирования. В педагогической науке существует целое направление, занимающееся разработкой правил составления тестов согласно законам психологии и дидактики. Тесты составляют методисты и учителя.

Проблема: Сегодня огромное количество всевозможных образовательных ресурсов предлагаются педагогам. Однако для конкретного урока учителю нужна конкретная (только для данного класса и урока) разработка. Поэтому возникает необходимость в умении «изменить», «поправить», «исправить» имеющийся продукт, или даже создать свой, авторский. компьютерный школа программа интерфейс

Решение проблемы: Создание обучающей и контролирующей программы для 2 класса начальной школы в системе объектно-ориентированного программирования Visual Basic, учитывая потребности учителей и учащихся нашего лицея.

Цели проекта: формирование интереса к обучению у учащихся младших классов; создание условия для активизации познавательной деятельности учащихся; развитие памяти, наблюдательности, познавательных интересов, творческих способностей, логического и алгоритмического мышления; воспитание заинтересованности к предметам, ответственности; привлечение старших школьников к созданию программ в среде объектно-ориентированного программирования Visual Basic.

Задачи проекта: обеспечить усвоение учебного материала полученного на уроках; сформировать умения и навыки учащихся путем применения полученных знаний;

Я также ставлю перед собой задачу: закрепить знания, полученные при изучении темы "Алгоритмизация и основы объектно-ориентированного программирования".

Ход проекта:

Ш Осмысление цели проекта; изучение литературы по информатике;

Ш Отбор материала, его анализ и составление вопросов с ответами;

Ш Продумывание удобного графического пользовательского интерфейса программы;

Ш Написание программы на языке объектно-ориентированного программирования Visual Basic;

Ш Тестирование программы; исправление ошибок;

Ш Создание инсталляционного пакета программы;

Ш Представление результата.

Проблемные вопросы:

Ш Определить темы и вопросы для использования в программе;

Ш Подобрать графические изображения;

Ш Разработать графический интерфейс программы.

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

Информационные ресурсы: различные словари, справочники, дидактические материалы, Интернет - ресурсы. Опираясь на знания, полученные на уроках информатики, я разработал программу, которая может проверять знания учащихся начальной школы 2 класса по предметам:

o Математика;

o Русский язык;

o Окружающий мир.

Описание процесса создания программы

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

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

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

При разработке и создании обучающей и контролирующей программы для начальной школы необходимо было учитывать следующие критерии:

o удобство работы с программой;

o удобство навигации между темами;

o необходимость предусмотреть невозможность нарушения работы программы в связи с некорректными или ошибочными действиями пользователя;

o программа должна быть разработана с учетом возрастных и психологических особенностей младших школьников.

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

Когда работа была почти готова, программа была апробирована учащимися 2-В класса. Ребятам очень понравилось работать с программой, они с большим интересом выполняли все предложенные им задания. А потом с охотой высказывали все свои пожелания, что они ёще хотели бы видеть в программе.

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

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



После прохождения всего теста выводится сообщение о количестве правильных и не правильных ответов. Оценка ребёнку не ставится, но даются рекомендации, например - «Срочно берись за учебник! У тебя всё получится!», «Учи словарные слова!».

При решении заданий из таблицы умножения, также ведется подсчет правильно решенных примеров. После каждого примера выводится сообщение «Молодец!» или «Не правильно! Попробуй ещё раз», а также появляется рисунок «улыбающийся смайлик» или «огорчённый смайлик» соответственно.



Я назвал свою программу Otlichnic-1,

Программа содержит задания по предметам:

o Математика;

o Русский язык;

o Окружающий мир.

Для работы с программой необходимо выполнить следующие действия:

1. Установить программу Otlichnic-1.

2. В меню выбрать предмет.

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

4. Прочитать внимательно задание и ввести в диалоговое окно ответ.

5. После завершения появится сообщение о результате пройденной работы.

6. Для смены задания необходимо снова выбрать предмет.

Заключение

Работа над этим проектом помогла мне лучше закрепить теоретические знания, полученные при изучении темы "Алгоритмизация и основы объектно-ориентированного программирования", отработать полученные навыки. В дальнейшем я хочу продолжить эту работу.

Созданная мной программа может использоваться, как индивидуально учащимися дома, так и на уроках.

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

Список литературы

1. Информатика и ИКТ. Профильный уровень: учебник для 10 класса / Н.Д. Угринович.

2. Итоговый контроль в начальной школе. Учебно-справочные материалы для 1 - 4 классов. «Окружающий мир», Е.В. Чудинова, М.Ю. Демидова.

3. Контрольно-измерительные материалы «Окружающий мир», 2 класс, сост. И.Ф. Яценко

4. Самоучитель «Понятно о Visual Basic .Net», С.Н. Лукин

5. Учебник «Русский язык», 2 класс, Р.Н. Бунеев, Е.В. Бунеева, О.В. Пронина.

Приложение 1

Создание инсталляционного пакета

Для того чтобы программа заработала на других компьютерах необходимо создать инсталляционный пакет моей программы.

Прежде всего, создадим новый проект особого типа, который будет инструментом для получения из проекта Новая неожиданность (это рабочее название моего проекта) инсталляционного пакета Otlichnic-1. Для этого:

Рисунок 1

1) Запустим VS. Затем File New Project в левом поле окна создания проекта (Рисунок 1) выберем Setup and Deployment Projects, а в правом - Setup Project дадим название для инсталляционного проекта, Otlichnic-1.OK.

Инсталляционный проект и решение созданы. Инструмент создан (Рисунок 2).



Рисунок 2

2) Теперь инструменту нужно объяснить, над чем он должен трудиться, чтобы получить инсталляционный пакет. Этим «предметом труда» и будет как раз мой рабочий проект Новая неожиданность. Нужно просто добавить проект Новаянеожиданность в решение. Делается это привычным образом: File Add Project Existing Project …

Таким образом, решение теперь состоит из двух проектов: инсталляционного проекта Otlichnic-1 и самого проекта Новаянеожиданность (Рисунок 3).

Рисунок 3

3) Следующий шаг. Выделим в Solution Explorer проект Otlichnic-1. Далее: Project Add Project Output. Перед нами возникнет окно (Рисунок 4).

Рисунок 4

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

Выделенный элемент Primary output означает, что результатом инсталляции будет то главное, что требуется, а именно: исполняемый файл приложения (exe) или библиотека (dll).

Однако результатом инсталляции могут быть и другие, вспомогательные объекты, например, файлы с исходным кодом программы. Нажимаем ОК. В окне Solution Explorer проект Otlichnic-1 начал наполняться содержанием.

4) Займемся настройкой папки приложения. Выделим элемент Application Folder и зайдем в окно свойств. Значением свойства DefaultLocation (Расположение по умолчанию) является некая условная схема:

[ProgramFilesFolder][Manufacturer]\[ProductName]

Она означает, что файлы инсталлируемого приложения по умолчанию располагаются на компьютере в папке с названием этого приложения (ProductName), которая располагается внутри папки с именем производителя приложения (Manufacturer) , которая располагается внутри папки Program Files. Мы можем оставить все как есть.

5) Теперь позаботимся о том, чтобы в стартовом меню пользователя оказался ярлык нашего приложения, иначе пользователь не сможет запускать наше приложение из стартового меню. Для этого, выделив в левой панели элемент Application Folder, щелкните правой клавишей мыши по элементу Primary output в правой панели и в контекстном меню выберите Create Shortcut to Primary output. Ярлык с длинным названием добавляется в папку приложения (Рисунок 5).

Рисунок 5

Там ему делать нечего, перетащим его в папку User's Programs Menu, а там переименуем во что-нибудь более удобоваримое и короткое, например, в Otlichnic-1.

6) В папке BIN внутри папки проекта Новая неожиданность имеются графические файлы, которыми проект пользуется во время работы. Эти файлы необходимо включить в инсталляционный пакет. Для этого выделяем в Solution Explorer проект Otlichnic-1, затем Project Add File находим на диске нужный файл и делаем по нему двойной щелчок. Файл оказывается в папке приложения. После инсталляции на компьютер пользователя он окажется там тоже в папке приложения.

7) Настраиваем конфигурацию: Build Configuration Manager. Появляется окно (Рисунок 6).

Рисунок 6

Проекты могут иметь конфигурацию Debug, удобную для отладки, а могут иметь конфигурацию Release, необходимую, когда уже все отлажено и приложение выпускается (Release) в большой свет. Нам отлаживать уже ничего не надо, поэтому в верхнем списке выбираем Release. Все должно быть как на рисунке. Нажмите Close.

8) Основные необходимые настройки мы сделали. Завершающий аккорд - компиляция инсталляционного пакета. Для этого - Build Build Solution. Некоторое время компьютер компилирует (причем компилируются оба проекта), в окне Output появляются сообщения, наконец в строке состояния возникает сообщение Build Succeeded. Это значит, что создание инсталляционного пакета успешно завершено.

Где же он - наш инсталляционный пакет? Выйдем из VS в Windows. Заглянем в папку проекта Otlichnic-1. Там появилась папка Release. В ней мы увидим среди других файлов файл Otlichnic-1.msi. Этот файл и есть наш инсталляционный пакет.

Приложение 2

Фрагмент программного кода

Public Class Form1

Dim a, b, p, n, s1, s2, c1, p1, p2, p3, p4, p5 As Integer

Dim otvet As String

Dim otet As String

Dim c, o1, o2, o3 As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'таблица умножения …

Randomize()

Label1.Text = Int(Rnd() * 10 + 1)

a = Label1.Text

Label3.Text = Int(Rnd() * 10 + 1)

b = Label3.Text

1: c = InputBox("Дайте ответ", "Ответ", "", 300, 500)

If c <> "" Then

If IsNumeric(c) Then

If c = a * b Then

PictureBox1.Show()

PictureBox1.Image = Image.FromFile("11.JPG")

MsgBox("МОЛОДЕЦ!") : p = p + 1

Label5.Text = a * b

Else

PictureBox1.Show()

PictureBox1.Image = Image.FromFile("2.JPG")

MsgBox("НЕ ПРАВИЛЬНО! Попробуй ещё раз.")

n = n + 1

2: c = InputBox("Дайте ответ", "Ответ", "", 300, 500)

If c <> "" Then

If IsNumeric(c) Then

If c = a * b Then

PictureBox1.Show()

PictureBox1.Image = Image.FromFile("11.JPG")

MsgBox("МОЛОДЕЦ!")

Label5.Text = a * b

Else

PictureBox1.Show()

PictureBox1.Image = Image.FromFile("2.JPG")

MsgBox("НЕ ПРАВИЛЬНО! Попробуй ещё раз.")

GoTo 2

End If

Else

MsgBox("Вводите только числа") : GoTo 2

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Exit Sub

Else

GoTo 2

End If

End If

End If

Else

MsgBox("Вводите только числа") : GoTo 1

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Exit Sub

Else

GoTo 1

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox2.Text = "Правильных ответов " & p & ", Неправильных ответов " & n

p = 0 n = 0

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

'ПРИРОДНЫЕ ЗОНЫ

p3 = 0

1: TextBox1.Text = "1. Кто живет в ледяной пустыне?"

PictureBox2.Image = Image.FromFile("1.1.JPG")

PictureBox3.Image = Image.FromFile("1.3.JPG")

PictureBox4.Image = Image.FromFile("1.7.JPG")

otvet = InputBox("Впишите вариант правильного ответа", "Ответ", "", 300, 500)

If otvet <> "" Then

If IsNumeric(otvet) Then

If otvet = 2 Then

MsgBox("Молодец!") : p3 = p3 + 1

Else

MsgBox("Не верно! Правильный ответ 2!")

End If

Else

MsgBox("Вводите только числа") : GoTo 1

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Exit Sub

Else

GoTo 1

End If

End If

2: TextBox1.Text = "2. Кто живет в тундре?"

PictureBox2.Image = Image.FromFile("1.11.JPG")

PictureBox3.Image = Image.FromFile("1.6.JPG")

PictureBox4.Image = Image.FromFile("1.2.JPG")

otvet = InputBox("Впишите вариант правильного ответа", "Ответ", "", 300, 500)

If otvet <> "" Then

If IsNumeric(otvet) Then

If otvet = 1 Then

MsgBox("Молодец!") : p3 = p3 + 1

Else

MsgBox("Не верно! Правильный ответ 1!")

End If

Else

MsgBox("Вводите только числа") : GoTo 2

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Exit Sub

Else

GoTo 2

End If

End If

6: TextBox1.Text = "6. Кто живет в тундре?"

PictureBox2.Image = Image.FromFile("21.JPG")

PictureBox3.Image = Image.FromFile("1.4.JPG")

PictureBox4.Image = Image.FromFile("1.13.JPG")

otvet = InputBox("Впишите вариант правильного ответа", "Ответ", "", 300, 500)

If otvet <> "" Then

If IsNumeric(otvet) Then

If otvet = 1 Then

MsgBox("Молодец!") : p3 = p3 + 1

Else

MsgBox("Не верно! Правильный ответ 1!")

End If

Else

MsgBox("Вводите только числа") : GoTo 6

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Exit Sub

Else

GoTo 6

End If

End If

TextBox2.Text = "У тебя " & p3 & " правильных ответа из 6."

End Sub

Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click 'словарные слова

p5 = 0

Label6.Show()

Label6.Text = "м..локо"

1: otet = InputBox("Впиши в окошко маленькую букву русского алфавита")

If otet <> "" Then

If otet = "о" Then

Label6.Text = "молоко" : MsgBox("Молодец!") : p5 = p5 + 1

Else

21: MsgBox("Не верно! Подумай ещё!")

otet = InputBox("Впиши в окошко маленькую букву русского алфавита")

If otet <> "" Then

If otet = "о" Then

Label6.Text = "молоко" : MsgBox("Молодец!")

Else

GoTo 21

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Button7.Hide()

Label6.Hide()

Exit Sub

Else

GoTo 1

End If

End If

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Button7.Hide()

Label6.Hide()

Exit Sub

Else

GoTo 1

End If

End If

Label6.Text = "т..лько"

2: otet = InputBox("Впиши в окошко маленькую букву русского алфавита")

If otet <> "" Then

If otet = "о" Then

Label6.Text = "только" : MsgBox("Молодец!") : p5 = p5 + 1

Else

22: MsgBox("Не верно! Подумай ещё!")

otet = InputBox("Впиши в окошко маленькую букву русского алфавита")

If otet <> "" Then

If otet = "о" Then

Label6.Text = "только" : MsgBox("Молодец!")

Else

GoTo 22

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Button7.Hide()

Label6.Hide()

Exit Sub

Else

GoTo 2

End If

End If

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Button7.Hide()

Label6.Hide()

Exit Sub

Else

GoTo 2

End If

End If

Label6.Text = "сн..чала"

11: otet = InputBox("Впиши в окошко маленькую букву русского алфавита")

If otet <> "" Then

If otet = "а" Then

Label6.Text = "сначала" : MsgBox("Молодец!") : p5 = p5 + 1

Else

32: MsgBox("Не верно! Подумай ещё!")

otet = InputBox("Впиши в окошко маленькую букву русского алфавита")

If otet <> "" Then

If otet = "а" Then

Label6.Text = "сначала" : MsgBox("Молодец!")

Else

GoTo 32

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Button7.Hide()

Label6.Hide()

Exit Sub

Else

GoTo 11

End If

End If

End If

Else

o3 = MsgBox("Ты уже уходишь?", MsgBoxStyle.YesNo)

If o3 = MsgBoxResult.Yes Then

MsgBox("Очень жаль. Пока!")

Button7.Hide()

Label6.Hide()

Exit Sub

Else

GoTo 11

End If

End If

Label6.Hide()

Button7.Hide()

TextBox2.Show()

Select Case p5

Case 11

TextBox2.Text = "Правильных ответов: " & p5 & ". Отлично! Какой ты умный!!!"

Case 10, 9

TextBox2.Text = "Правильных ответов: " & p5 & ". Хорошо! Ты неплохо постарался!"

Case 8, 7, 6

TextBox2.Text = "Правильных ответов: " & p5 & ". Твоя оценка: Удовлетворительно. Учи словарные слова! "

Case 5, 4, 3, 2, 1, 0

TextBox2.Text = "Правильных ответов: " & p5 & ". Срочно берись за учебник! У тебя всё получится!"

End Select

End Sub

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

...