Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 20 - 21
§1.7. Модели распознавания химических волокон




Содержание урока

1.7.1. Построение информационной модели распознавания химических волокон
1.7.2. Модель распознавания химических волокон на языке Visual Basic

Проект «Распознавание волокон» на языке Visual Basic

Компьютерный эксперимент

Контрольные вопросы

1.7.3. Модель распознавания химических волокон на языке Turbo Delphi

1.7.2. Модель распознавания химических волокон на языке Visual Basic


Проект «Распознавание волокон» на языке Visual Basic


Реализуем модель распознавания волокон с использованием языка Visual Basic. В проекте пользователю задается серия вопросов, анализируются ответы и сравниваются с имеющимися фактами. При этом производится логический вывод и формируется ответ на интересующий пользователя вопрос, т. е. определяется название волокна.

Результаты распознавания (названия волокон) будем помещать в управляющий элемент ListBox1 (поле списка), который удобен для ввода элементов списка с помощью метода ListBox1.Items.Add().

Проект «Распознавание волокон» на языке Visual Basic

1. Поместить на форму (рис. 1.37) кнопку Button1 и список ListBox1.

Первую развилку (условие Горит быстро) реализуем в форме обработчика события, а остальные — в форме общих процедур:

• для идентификации волокон первой группы (1-го и 3-го) создадим процедуру Раствор () (условие Растворяется в ацетоне)',
• для идентификации волокон второй группы сначала необходимо создать процедуру Нити() (условие Из расплава можно вытянуть нити)',
• для идентификации 4-го и 5-го волокон надо создать процедуру Запах () (условие При горении ощущается запах).

2. Создать обработчик события Button1_Click (), который содержит вызовы общих процедур Раствор () и Нити ():


Dim A As Byte
Private Sub Buttonl_Click (...)
A=MsgBox("Горит быстро?", 36, "Первый вопрос")
If А=6 Then Раствор () Else Нити ()
End Sub

3. Создать общую процедуру Раствор (), которая позволяет распознать 1-е и 3-е волокна:


Sub Раствор()
A=MsgBox ("Растворяется в ацетоне?", 36, "Второй вопрос")
If А=6 Then ListBox1.Items.Add("3.Ацетатное_ волокно") Else ListBox1.Items.Add("1.Хлопок")
End Sub

4. Создать общую процедуру Нити (), которая позволяет распознать 2-е волокно и содержит вызов общей процедуры Запах ():


Sub Нити()
A=MsgBox("Из расплава можно вытянуть нити?",_ 36, "Второй вопрос")
If А=6 Then Запах () Else
ListBoxl.Items.Add("2.Шерсть")
End Sub

5. Создать общую процедуру Запах (), которая позволяет распознать 4-е и 5-е волокна:


Sub Запах()
A=MsgBox("При горении ощущается запах?", 36, "Третий вопрос")
If А=6 Then ListBox1.Items.Add("4.Капрон") Else ListBox1.Items.Add("5.Лавсан")
Ed Sub


Следующая страница Компьютерный эксперимент



Cкачать материалы урока





Наверх