Проект по программированию.

Тема: « Электронные кроссворды по информатике».

Выполнил:

Зайцева Н. Н., Шайхулин Д.Р.

                            г. Аша,2008 г.

СОДЕРЖАНИЕ

Введение

Постановка задачи

Требование к оборудованию

Правила работы с программой

Блок схема

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

Заключение  

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

Приложение 1

Приложение 2

Приложение 3

Приложение 4

Приложение 5

                   Введение

Наличие класса ПК предоставляет широкие средства и возможности индивидуализации обучения и контроля результатов. Здесь, наравне с общеизвестными методами, учитель встречается с нетрадиционными средствами, с системами, реализуемыми через ПК. Речь идет о материалах для закрепления через решение электронного кроссворда.

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

Программа  « Электронные кроссворды по информатике »  была  разработана для того, чтобы проверить, как ученики знают предмет «информатика», и  какую тему они больше знают.

Постановка задачи

Данная программа позволяет:

1.     Ввести ответ на вопрос кроссворда

2.     Узнать правильно ли введен ответ на вопрос

3.     Проверить знание ученика по предмету информатика

4.     Развить пользовательские умения работы на ПК

5.     Привить интерес к предмету информатика

Эта программа проста в использовании и понятна пользователю. Также она требует глубоких познаний в пользовании компьютером.

Требования к оборудованию

Данная программа работоспособна  на машине типа IBM PC. Текст программы набран в программе Microsoft Visual Basic 6.0, а затем скомпилирован в EXE файл. При открытии электронного кроссворда, ненужно устанавливать Microsoft Visual Basic 6.0.

                              Правила работы с программой

При запуске программы необходимо:

1.     Кликнуть на теме кроссворда, по которому необходимо проверить знания.

2.     Кликнуть на номер вопроса,  на который хотите ответить

3.     В появившемся окне вписать ответ, на русском языке  строчными буквами.

4.     При появлении сообщения о неправильном ответе, попробовать вписать другой ответ.

5.     Проверить себя на правильность ответа: если ответ верный, то данное слово в кроссворде заполнится буквами

                                Блок - схема

Код программы

Form 1

Private Sub Form_Load ()

Form1.Visible = False

Form5.Visible = True

End Sub

Private Sub Label2_Click ()

Form1.Visible = False

Form4.Visible = True

End Sub

Private Sub Label3_Click ()

Form1.Visible = False

Form3.Visible = True

End Sub

Private Sub Command1_Click ()

End

End Sub

Private Sub Label4_Click ()

Form1.Visible = False

Form2.Visible = True

End Sub

Form 2

Dim otv1 As String

Dim otv2 As String

Dim otv3 As String

Dim otv4 As String

Dim otv5 As String

Dim otv6 As String

Private Sub Command1_Click ()

Form1.Visible = True

End Sub

Private Sub Label7_Click ()

otv1 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Комбинация IP-адреса и номера порта в протоколах TCP и UDP???")

If otv1 = "сокет" Then

Text1.Text = "С"

Text2.Text = "О"

Text3.Text = "К"

Text4.Text = "Е"

Text5.Text = "Т"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label9_Click ()

otv2 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Название сетевого пакета на уровне протокола IP???")

If otv2 = "дейтаграмма" Then

Text15.Text = "Д"

Text11.Text = "Е"

Text16.Text = "Й"

Text17.Text = "Т"

Text18.Text = "А"

Text19.Text = "Г"

Text20.Text = "Р"

Text21.Text = "А"

Text22.Text = "М"

Text23.Text = "М"

Text24.Text = "А"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label11_Click ()

otv3 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Набор протоколов, обеспечивающий сетевое взаимодействие на нескольких уровнях модели OSI???")

If otv3 = "стек" Then

Text32.Text = "С"

Text31.Text = "Т"

Text33.Text = "Е"

Text34.Text = "К"

End If

End Sub

Private Sub Label13_Click ()

otv4 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Название сетевого пакета на уровне протокола IP???")

If otv4 = "соединение" Then

Text6.Text = "С"

Text7.Text = "О"

Text3.Text = "Е"

Text8.Text = "Д"

Text9.Text = "И"

Text10.Text = "Н"

Text11.Text = "Е"

Text12.Text = "Н"

Text13.Text = "И"

Text14.Text = "Е"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label15_Click ()

otv5 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Место публикации стандартов набора протоколов TCP/IP???")

If otv5 = "интернет" Then

Text25.Text = "И"

Text26.Text = "Н"

Text17.Text = "Т"

Text27.Text = "Е"

Text28.Text = "Р"

Text29.Text = "Н"

Text30.Text = "Е"

Text31.Text = "Т"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label17_Click ()

otv6 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Логический номер канала в протоколах TCP и UDP, обеспечивающий подключение и взаимодействие между узлами в сети TCP/IP???")

If otv6 = "порт" Then

Text35.Text = "П"

Text36.Text = "О"

Text20.Text = "Р"

Text37.Text = "Т"

End If

End Sub

Form 3

Dim otv1 As String

Dim otv2 As String

Dim otv3 As String

Dim otv4 As String

Dim otv5 As String

Dim otv6 As String

Dim otv7 As String

Dim otv8 As String

Dim otv9 As String

Private Sub Command1_Click ()

Form1.Visible = True

End Sub

Private Sub Label15_Click ()

otv1 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Программа, портящая информацию - это ...???")

If otv1 = "вирус" Then

Text1.Text = "В"

Text2.Text = "И"

Text3.Text = "Р"

Text4.Text = "У"

Text5.Text = "С"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label16_Click()

otv2 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Как называется каталог в Windows???")

If otv2 = "папка" Then

Text12.Text = "П"

Text11.Text = "А"

Text10.Text = "П"

Text9.Text = "К"

Text7.Text = "А"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label17_Click ()

otv3 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Что такое поименованная область внешней памяти???")

If otv3 = "файл" Then

Text19.Text = "Ф"

Text15.Text = "А"

Text20.Text = "Й"

Text21.Text = "Л"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label18_Click ()

otv5 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Как называется всемирная компьютерная сеть???")

If otv5 = "интернет" Then

Text26.Text = "И"

Text25.Text = "Н"

Text27.Text = "Т"

Text28.Text = "Е"

Text29.Text = "Р"

Text30.Text = "Н"

Text31.Text = "Е"

Text32.Text = "Т"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label25_Click ()

otv4 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Сеть от которой произошел Интернет???")

If otv4 = "арпанет" Then

Text11.Text = "А"

Text13.Text = "Р"

Text14.Text = "П"

Text15.Text = "А"

Text16.Text = "Н"

Text17.Text = "Е"

Text18.Text = "Т"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label26_Click ()

otv6 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Имя пользователя на компьютере???")

If otv6 = "логин" Then

Text21.Text = "Л"

Text22.Text = "О"

Text23.Text = "Г"

Text24.Text = "И"

Text25.Text = "Н"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label27_Click ()

otv7 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Сообщения рекламного характера в Интернете???")

If otv7 = "спам" Then

Text5.Text = "С"

Text6.Text = "П"

Text7.Text = "А"

Text8.Text = "М"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label28_Click ()

otv8 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Устройство для передачи данных по телефонной линии???")

If otv8 = "модем" Then

Text33.Text = "М"

Text34.Text = "О"

Text35.Text = "Д"

Text28.Text = "Е"

Text36.Text = "М"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label29_Click ()

otv9 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Устройство для вывода информации на бумагу???")

If otv9 = "принтер" Then

Text37.Text = "П"

Text38.Text = "Р"

Text39.Text = "И"

Text32.Text = "Н"

Text40.Text = "Т"

Text41.Text = "Е"

Text42.Text = "Р"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Form 4

Dim otv1 As String

Dim otv2 As String

Dim otv3 As String

Dim otv4 As String

Dim otv5 As String

Dim otv6 As String

Private Sub Command1_Click()

Form1.Visible = True

End Sub

Private Sub Label1_Click()

otv1 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Набор процедур, определяющий правила взаимодействия компьютера в сети ????? ")

If otv1 = "сетевой протокол" Then

Text1.Text = "C"

Text2.Text = "Е"

Text3.Text = "Т"

Text4.Text = "Е"

Text5.Text = "В"

Text6.Text = "О"

Text7.Text = "Й"

Text8.BackColor = vbRed

Text9.Text = "П"

Text10.Text = "Р"

Text11.Text = "О"

Text12.Text = "Т"

Text13.Text = "О"

Text14.Text = "К"

Text15.Text = "О"

Text16.Text = "Л"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label2_Click()

otv2 = InputBox ("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Логическое соединение компьютеров с помощью протокола высокого уровня???")

If otv2 = "сеанс" Then

Text17.Text = "C"

Text2.Text = "Е"

Text18.Text = "А"

Text19.Text = "Н"

Text20.Text = "С"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label3_Click()

otv3 = InputBox("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Соединение сетевых устройств, установленное на физическом уровне???")

If otv3 = "связь" Then

Text21.Text = "C"

Text5.Text = "В"

Text22.Text = "Я"

Text23.Text = "З"

Text24.Text = "Ь"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label4_Click()

otv4 = InputBox("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Блок информации, формирующийся на канальном уровне????? ")

If otv4 = "кадр" Then

Text33.Text = "К"

Text32.Text = "А"

Text31.Text = "Д"

Text28.Text = "Р"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label5_Click()

otv5 = InputBox("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Путь доставки сообщения, выбираемый на сетевом уровне????? ")

If otv5 = "маршрут" Then

Text26.Text = "М"

Text25.Text = "А"

Text10.Text = "Р"

Text27.Text = "Ш"

Text28.Text = "Р"

Text29.Text = "У"

Text30.Text = "Т"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Private Sub Label6_Click()

otv6 = InputBox("ВВЕДИТЕ ОТВЕТ НА ВОПРОС: Блок информации, формирующийся на транспортном уровне????? ")

If otv6 = "пакет" Then

Text37.Text = "П"

Text36.Text = "А"

Text35.Text = "К"

Text34.Text = "Е"

Text12.Text = "Т"

Else: MsgBox ("Ответ неверный. Попробуйте ещё раз")

End If

End Sub

Form 5

Private Sub Image1_Click ()

Form1.Visible = True

Form5.Visible = False

End Sub

Private Sub Label1_Click ()

Form1.Visible = True

Form5.Visible = False

End Sub

Private Sub Label2_Click ()

Form1.Visible = True

Form5.Visible = False

End Sub

Private Sub Label3_Click ()

Form1.Visible = True

Form5.Visible = False

End Sub

 Заключение

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

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

Электронные кроссворды повышают интерес к предмету и мотивацию к предмету информатика.

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

1.     http://gcon.pstu.ac.ru/pedsovet/programm/ced1-9-5.htm

2.     Б.Сайлер, Д. Споттс. Использование Visual Basic 6.0. –  Издательский   Дом  “ Вильямс” , 1999

3.     Браун С. Visual Basic 6.0 Учебный курс. (2-е издание) – Питер, 2007 г.

4.     Лекции

5.     Visual Basic. Самоучитель для начинающих (Лукин С.Н.) -  Питер, 2005

Приложение 1

Внешний вид информационной формы

Приложение 2

Форма для выбора кроссворда

                                                                                                                   Приложение 3

Окно ввода ответа на выбранный вопрос

                                                                                              Приложение 4

Форма с написанным ответом

Приложение 5

Форма с сообщением при не правильном ответе