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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

30
Строка2$ = "Адрес " & " : " & StrАдрес $
Строка3$ = "ДатаРождения" & " : " & StrДатаПриема$
Строка4$ = "Телефон" & " : " & StrТелефон$
Строка5$ = "В результате осмотра выявлено" & " : "
Строка6$ = "Диагноз" & " : " & Сообщение.Text
Наклейка.Print Строка1$
Выписка.Print Строка2$
Выписка.Print "Страховой Полис"& ":" & StrСтраховойПолис$
Выписка.Print Строка3$
Выписка.Print Строка4$
Выписка.Print Строка5$
Выписка.Print strСимптомы1$
Выписка.Print Строка6$
Выписка.Print "Дата Приема" & " : " & ДатаПриема.Text
Выписка.Print "Рекомендации врача" & " : " & Text1.Text
Выписка.Print "Не рекомендуется принимать " & " : " & Аллер -
гены .Text
End Sub
16. Пример модернизированной формы приведен ниже.
17. Сохранить модернизированные форму и проект соответственно под
именами НоваяМедкарта.frm и НоваяМедкарта.Vbp. 
                                     30
 С трока2$ = "Адрес " & " : " & StrАдрес $
 С трока3$ = "Д атаРождения" & " : " & StrД атаП рием а$
 С трока4$ = "Т елеф он" & " : " & StrТ елеф он$
 С трока5$ = "В резу ль татеос м отравы явлено" & " : "
 С трока6$ = "Д иагноз" & " : " & С ообщение.Text
 Н аклей ка.Print С трока1$
 В ы пис ка.Print С трока2$
 В ы пис ка.Print "С трах овой П олис "& ":" & StrС трах овой П олис $
 В ы пис ка.Print С трока3$
 В ы пис ка.Print С трока4$
 В ы пис ка.Print С трока5$
 В ы пис ка.Print strС им птом ы 1$
 В ы пис ка.Print С трока6$
 В ы пис ка.Print "Д атаП рием а" & " : " & Д атаП рием а.Text
 В ы пис ка.Print "Реком ендации врач а" & " : " & Text1.Text
 В ы пис ка.Print "Н е реком енду ется приним ать " & " : " & Аллер-
 гены .Text
 End Sub

16. П рим ерм од ерн изирова н н ой ф орм ы привед ен н иж е.




17. С охра н ит ь м од ерн изирова н н ые ф орм у и проект соот вет ст вен н о под
    им ен а м и Н оваяМ едкарта.frm и Н оваяМ едкарта.Vbp.

Страницы