Экспертная система «Распознавание удобрений»

1. Поместить на форму кнопку и управляющий элемент ListBox (список). Создать событийную процедуру, реали­зующую диалог с пользователем путем вызова общих про­цедур и вывод названий удобрений в элементы списка:

Sub Щелочь()

bytA = MsgBox("При взаимодействии со щелочью

ощущается запах аммиака?", 36, "Второй вопрос")

If bytA = б Then lstl.Addltem

"1.Аммиачная селитра" Else lstl.Addltem

"2.Натриевая селитра"

End Sub

Sub Соль()

bytA = MsgBox("При взаимодействии с солью выпадает белый осадок?", 36, "Второй вопрос") If bytA = 6 Then Щелочь 1 Else Внешний_вид End Sub Sub Щелочь1()

bytA = MsgBox("При взаимодействии со щелочью ощущается запах аммиака?", 36, "Третий вопрос") If bytA = б Then lstl.Addltem "3. Сульфат аммония" Else lstl.Addltem "4. Суперфосфат" End Sub

Sub Внешний_вид()

bytA = MsgBox("Розовые кристаллы?", 36, "Третий вопрос")

If bytA = 6 Then lstl.Addltem "5. Сильвинит" Else lstl.Addltem "6. Калийная соль" End Sub

Private Sub cmdl_Click()

bytA = MsgBox("При взаимодействии с серной кислотой выделяется бурый газ?", 36, "Первый вопрос")

If bytA = 6 Then Щелочь Else Соль End Sub

Компьютерный эксперимент. Работа с экспертной систе­мой позволит более эффективно спланировать и провести распознавание удобрений в процессе выполнения лаборатор­ной работы по химии.

«г. Экспержая

CD-ROM

2. Запустить экспертную систему и проводить химические опыты в со­ответствии с задаваемыми вопроса­ми. Проделать процедуру распо­знавания для каждого вещества.

Проект хранится в каталоге \textbook\VB\prj Н i m\

Практические задания

5.16. Построить экспертную систему для лабораторных работ «Рас­познавание волокон» и «Распознавание пластмасс».

Модели логических устройств

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

^cfjb3! 3.7. Логические основы устройства компьютера

Ранее были построены формальные логические модели устройств компьютера. Так, двоичный одноразрядный полу­сумматор состоит из четырех базовых логических элементов (два конъюнктора, один дизъюнктор и один инвертор). На вход полусумматора подаются сигналы двух слагаемых А и В, а на выходе имеются сигнал суммы S и сигнал переноса в старший разряд Р.

Построим компьютерную модель полусумматора с исполь­зованием языка программирования Visual Basic.

щ Модель полусумматора

1. Поместить на форму четыре метки для изображения базо­вых логических элементов и шесть текстовых полей для ввода и вывода логических значений.

2. Создать событийную процедуру, реализующую определе­ние логических значений на выходе каждого базового ло­гического элемента и их вывод в текстовые поля:

Dim ЫпА, ЫпВ, ЫпР, blnS As Boolean Sub cmdl Click ()

= txtA.Text = txtB.Text = ЫпА And = (blnA Or txtP. Text = ЫпР txtOtr.Text = Not txtOr.Text = blnA txtS.Text = blnS End Sub

blnA ЫпВ ЫпР blnS

ЫпВ ЫпВ)

And Not (ЫпА And ЫпВ)

ЫпР Or ЫпВ

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

CD-ROM (gg^

Проект хранится в каталоге

\textbook\VB\prjLog\___________

Практические задания

5.17. Создать компьютерную модель полусумматора с использова­нием электронных таблиц.