Автор конспекта:
Автор(ы): — Зайцева Н.Н., Шайхуллин Д.Р.
Место работы, должность: — наставник матиматики и информатики, приготовишка
Регион: — Челябинская ветвь
Характеристика конспекта:
Уровни образования: — среднее (полное) общее палингенез
Класс(ы): — 11 сословие
Предмет(ы): — Информатика и ИКТ
Целевая аудитория: — Учащийся (студент)
Целевая аудитория: — Учитель (преподаватель)
Ресурс для профильной школы: — Ресурс для профильной школы
Тип ресурса: — мегапроект
Краткое представление ресурса: — Наличие класса ПК предоставляет широкие средства и возможности индивидуализации обучения и контроля результатов. Здесь, наравне с общеизвестными методами, наставник встречается с нетрадиционными средствами, с системами, реализуемыми через ПК. Речь подходит о материалах для закрепления через уступка электронного кроссворда. Кроссворд — это своего рода сделка посередь краткостью и содержательностью, для него подбираются нестандартные и интересные определения, и он получается с изюминкой. Программа « Электронные кроссворды вдоль информатике » была разработана для того, чтоб проверить, что ученики знают реалия «информатика», и какую тему они больше знают.
Проект вдоль программированию.
Тема: « Электронные кроссворды вдоль информатике».
Выполнил:
Зайцева Н. Н., Шайхулин Д.Р.
г. Аша,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
Форма с сообщением около не правильном ответе
Файлы: Творческий мегапроект ТИСКИ.rar
Размер файла: 5684267 байт.