Visual Basic. Практика. Ищенко В.А - 28 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

28
If Симптомы 1.Text = "" Then
Симптомы 1.Text = Симптомы .List(ind)
Else
Симптомы 1.Text = Симптомы 1.Text + ", " +
Симптомы .List(ind)
End If
End Sub
6. Записать программный код для объекта поле со списком Аллерге-
ны :
Private Sub Аллергенты _Change()
Form1.Print cboАллергены .Text
End Sub
7. Записать программный код для объекта КнопкаДиагноз, поместив
в событие Click() следующие операторы :
Private Sub КнопкаДиагноз_Click()
s = Симптомы 1.Text
If InStr (s, "Головная боль ") <> 0 And InStr (s, "Высокая
температура") <> 0 And InStr (s, "Ломота в теле") <> 0
Then
Сообщение.Text = "Грипп"
Else
Сообщение.Text = ""
End If
End Sub
8. Записать программный код для объекта КнопкаОчистить , помес-
тив в событие Click() следующие операторы :
Private Sub КнопкаОчистить _Click()
Симптомы 1.Text = " "
Сообщение.Text = " "
End Sub
9. Записать программный код для объекта КнопкаВыход.
10. Запустить программу на выполнение, просмотреть результат рабо -
ты и, если необходимо, исправить ошибки.
11. Сохранить созданные форму и проект соответственно под именами
Медкарта.frm и Медкарта.Vbp.
12. Разработать программный код , описывающий различные диагнозы
заболеваний. 
                                     28
        If С им птом ы 1.Text = "" Then
           С им птом ы 1.Text = С им птом ы .List(ind)
        Else
           С им птом ы 1.Text = С им птом ы 1.Text                +    ",    "    +
            С им птом ы .List(ind)
        End If
        End Sub

6. Записа т ь програ м м н ый код д л я объект а полесо с пис ком Аллерге-
   ны :

        Private Sub Аллергенты _Change()
          Form1.Print cboАллергены .Text
        End Sub

7. Записа т ь програ м м н ый код д л я объект а К нопкаД иагноз, пом ест ив
   в событ ие Click() сл ед у ющие опера торы:

     Private Sub К нопкаД иагноз_Click()
        s = С им птом ы 1.Text
        If InStr (s, "Г оловная боль ") <> 0 And InStr (s, "В ы с окая
         тем перату ра") <> 0 And InStr (s, "Л ом ота в теле") <> 0
         Then
          С ообщение.Text = "Г рипп"
          Else
          С ообщение.Text = ""
        End If
     End Sub

8. Записа т ь програ м м н ый код д л я объект а К нопкаО ч ис тить , пом ес-
   т ив в событие Click() сл ед у ющие опера торы:

        Private Sub К нопкаО ч ис тить _Click()
          С им птом ы 1.Text = " "
          С ообщение.Text = " "
        End Sub

9. Записа т ь програ м м н ый код д л я объект а К нопкаВ ы х од.
10. Запу ст ит ь програ м м у н а выпол н ен ие, просм отрет ь резу л ь т а т ра бо-
    т ы и, есл и н еобход им о, испра вит ь ошибки.
11. С охра н ит ь созд а н н ые ф орм у и проект соот вет ст вен н о под им ен а м и
    М едкарта.frm и М едкарта.Vbp.
12. Р а зра бота т ь програ м м н ый код , описыва ющий ра зл ичн ые д иа гн озы
    за бол ева н ий.

Страницы