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

UptoLike

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

25
Задание 9. Разработка VB приложения Медицинская карта”
Задание позволяет закрепить навыки по созданию и обработке тек-
стовых полей.
Требуется разработать форму, которая представляет собой медицин -
скую карту пациента , впервые обратившегося к врачу . На основе введен -
ных данных о пациенте и симптомах его заболевания с помощью про -
граммного кода в форме должны быть выданы: симптомы заболевания, ди-
агноз заболевания и рекомендации врача . Задание предполагает проявле-
ние большей самостоятельности в модификации предлагаемого проекта.
В данном задании можно использовать новые объекты и их возмож -
ности:
Ø Для добавления в программном коде новых элементов списка в
объект ListBox (Окно списка) можно использовать свойство List.
Его синтаксис:
Listname.AddItem ListItem [ , Index],
где
Listname имя объекта управления ListBox;
AddItem метод , используется для добавления элемента списка
в объекты управления ListBox;
Listitem определенный элемент, добавляемый в список;
Index необязательный компонент, определяющий позицию в
списке, в которую будет помещен новый элемент (первый эле-
мент в списке имеет индекс 0).
Ø Свойство ListIndex (Индекс списка) - указывает на индекс вы-
бранного элемента;
Ø Свойство List (Список) в поле этого свойства выбирается сам
элемент списка :
Ind = С имптомы .ListIndex
Ø Свойство Column =1 - позволяет представить список в виде од -
ного столбца ;
Ø Свойство MultiSelect (Множественный выбор ) имеет три зна-
чения: 0 нет , 1 простой, 2 расширенный;
Ø Свойство ScrollBar (Полоса прокрутки ) :
ü None (Никаких);
ü Horizontal (Горизонтальная);
ü Vertical (Вертикальная);
ü Both (Обе );
ü MaxLength (Максимальное число вводимых символов).
Ø Объект управления MaskEdit (маскированное редактирование):
Tools (Инструменты ) / Customize Controles (Специальные объ -
екты управления) позволяет задать число, тип и положение
символов в поле ввода.
                                            25

        Задание9. Р азработкаVB – приложения “М едицинс кая карта”

       Зад а н ие позвол яет за крепит ь н а выки по созд а н ию и обра бот ке тек-
ст овыхпол ей.
       Т ребу ет ся ра зра бота т ь ф орм у , кот ора я пред ста вл яет собой м ед ицин -
ску ю ка рт у па циен та , впервые обра т ившегося к вра чу . Н а осн ове введ ен -
н ых д а н н ых о па циен те и сим пт ом а х его за бол ева н ия с пом ощь ю про-
гра м м н ого код а в ф орм е д ол ж н ы быт ь выд а н ы: сим пт ом ы за бол ева н ия, д и-
а гн оз за бол ева н ия и реком ен д а ции вра ча . Зад а н ие пред пол а га ет проявл е-
н ие бол ь шей са м остоят ел ь н ости в м од иф ика ции пред л а га ем ого проект а .
       В д а н н ом за д а н ии м ож н о испол ь зова ть н овые объект ы и их возм ож -
н ости:
        Ø Д л я д оба вл ен ия в програ м м н ом код е н овых эл ем ен т ов списка в
            объект ListBox (О кно с пис ка) м ож н о испол ь зова т ь свойст во List.
            Его син та ксис:
                                Listname.AddItem ListItem [ , Index],
             гд е
            Listname – им я объекта у пра вл ен ия ListBox;
            AddItem – м етод , испол ь зу ет ся д л я д оба вл ен ия эл ем ен т а списка
                             в объект ы у пра вл ен ия ListBox;
            Listitem – опред ел ен н ый эл ем ен т, д оба вл яем ый в список;
            Index – н еобяза т ел ь н ый ком пон ен т, опред ел яющий позицию в
            списке, в кот ору ю бу д ет пом ещен н овый эл ем ен т (первый эл е-
            м ен т в списке им еет ин д екс 0).
        Ø С вой с тво ListIndex (И ндекс с пис ка) - у ка зыва ет н а ин д екс вы-
            бра н н ого эл ем ен т а ;
        Ø С вой с тво List (С пис ок) – в пол е этого свойст ва выбира ет ся са м
            эл ем ен т списка :
                                      Ind = С им птом ы .ListIndex
        Ø С вой с тво Column =1 - позвол яет пред ст а вит ь список в вид е од -
            н ого стол бца ;
        Ø С вой с тво MultiSelect (М ножес твенны й вы бор) – им еет три зн а -
            чен ия: 0 – н ет, 1 – прост ой, 2 – ра сширен н ый;
        Ø С вой с тво ScrollBar (П олос апрокру тки):
                  ü None (Н ика ких);
                  ü Horizontal (Г оризон т а л ь н а я);
                  ü Vertical (Вертика л ь н а я);
                  ü Both (О бе);
                  ü MaxLength (М а ксим а л ь н ое числ о ввод им ыхсим вол ов).
        Ø О бъект у пра вл ен ия MaskEdit (м ас кированноередактирование):
            Tools (И нс тру м енты ) / Customize Controles (С пециаль ны еобъ-
            екты у правления) – позвол яет за д а т ь числ о, т ип и пол ож ен ие
            сим вол ов в пол е ввод а .