Проект "Распознавание удобрений"

   Аппаратное и программное обеспечение. Компьютер с установленной операционной системой Linux.

   Цель работы. Научиться создавать компьютерные модели экспертных систем на языке объектно-ориентированного программирования Gambas3.

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

   Проект "Распознавание удобрений" на языке объектно-ориентированного программирования Gambas3

   В операционной системе Linux запустить систему объектно-ориентированного программирования Gambas3 командой [Программы - Средства разработки - Gambas3]

   1. Создадим графический интерфейс проекта

   Разместим на форме следующие объекты:
   - В первую очередь нужно разместить 4 объекта Frame; (Находятся они в разделе Container)
   - В каждую группу перенести определённое количество объектов RadioButton. (13 штук всего в проекте)
   - Button1;
   - TextBox1;

   2. Впишем в обработчик событий к каждому объекту свой код:

 
Gambas class file

Public vid As Byte
Public h2so4 As Byte
Public baCl2 As Byte
Public sol As Byte
Public udobr As Byte


Public Sub RadioButton1_Click()
vid = 10
End

Public Sub RadioButton2_Click()
vid = 20
End	 

Public Sub RadioButton3_Click()
vid = 30
End	 

Public Sub RadioButton4_Click()
vid = 40
End	 

Public Sub RadioButton5_Click()
vid = 50
End	 

Public Sub RadioButton6_Click()
vid = 60
End	 

Public Sub RadioButton7_Click()
h2so4 = 11
End	 

Public Sub RadioButton8_Click()
h2so4 = 12
End	 

Public Sub RadioButton9_Click()
baCl2 = 21
End	 

Public Sub RadioButton10_Click()
baCl2 = 22
End	 

Public Sub RadioButton11_Click()
baCl2 = 23
End	 

Public Sub RadioButton12_Click()
sol = 31
End	 

Public Sub RadioButton13_Click()
sol = 32
End	 

Public Sub Button1_Click()
udobr = vid + h2so4 + baCl2 + sol

If udobr = 75 Then TextBox1.Text = "Аммиачная селитра"
If udobr = 84 Then TextBox1.Text = "Натриевая селитра"
If udobr = 95 Then TextBox1.Text = "Сульфат аммония"
If udobr = 105 Then TextBox1.Text = "Суперфосфат"
If udobr = 117 Then TextBox1.Text = "Сильвинит"
If udobr = 127 Then TextBox1.Text = "Калийная соль"
 
End

3. Результат работы программы: