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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

29
13. Используя приемы создания наклейки в задании 8, добавить в фор-
му новые объекты управления: командную кнопку “Рекомендации
врача” и графическое окно, куда выводились бы сведения о паци -
енте, симптомах заболевания, диагнозе и рекомендации по лечению
пациента.
14. Результат работы приложения представлен в форме, приведенной
ниже.
15. Пример программного кода для командной кнопки ”Рекомендации
врача” и выдачи в графическое окно сведений о пациенте приведен
ниже.
Private Sub КнопкаСправка_Click()
StrИмя$ = Имя.Text
StrФамилия$ = Фамилия.Text
StrОтчество$ = Отчество.Text
StrАдрес $ = Адрес .Text
strДатаРождения$ = ДатаРождения.Text
StrТелефон$ = Format(Телефон.Text, "000000")
StrСтраховойПолис$ = СтраховойПолис.Text
StrДатаПриема$ = ДатаПриема.Text
strСимптомы 1$ = Симптомы 1.Text
strСообщение$ = Сообщение.Text
strАллергены $ = Аллергены .Text
strText1$ = Text1.Text
Строка1$ = "Пациент " & " " & StrФамилия$ & " " & StrИмя$
& " " & StrОтчество$ 
                                         29
13. И спол ь зу я прием ы созд а н ия н а кл ейки в за д а н ии 8, д оба вит ь в ф ор-
    м у н овые объект ы у пра вл ен ия: ком а н д н у ю кн опку “Р еком ен д а ции
    вра ча ” и гра ф ическое окн о, ку д а вывод ил ись бы свед ен ия о па ци-
    ен т е, сим пт ом а х за бол ева н ия, д иа гн озе и реком ен д а ции по л ечен ию
    па циен т а .
14. Р езу л ь т а т ра боты прил ож ен ия пред ст а вл ен в ф орм е, привед ен н ой
    н иж е.




15. П рим ерпрогра м м н ого код а д л я ком а н д н ой кн опки ”Р еком ен д а ции
    вра ча ”и выд а чи в гра ф ическое окн о свед ен ий о па циен т е привед ен
    н иж е.

 Private Sub К нопкаС правка_Click()
 StrИ м я$ = И м я.Text
 StrФ ам илия$ = Ф ам илия.Text
 StrО тч ес тво$ = О тч ество.Text
 StrАдрес $ = Адрес .Text
 strД атаРождения$ = Д атаРождения.Text
 StrТ елеф он$ = Format(Т елеф он.Text, "000000")
 StrС трах овой П олис $ = С трах овой П олис .Text
 StrД атаП рием а$ = Д атаП рием а.Text
 strС им птом ы 1$ = С им птом ы 1.Text
 strС ообщение$ = С ообщение.Text
 strАллергены $ = Аллергены .Text
 strText1$ = Text1.Text
 С трока1$ = "П ациент" & " " & StrФ ам илия$ & " " & StrИ м я$
                & " " & StrО тч ес тво$

Страницы