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

UptoLike

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

8
Задание 3. Разработка VB приложения Определение возрас -
та”
Разработать проект, содержащий форму, в которой в зависимости от
возраста сотрудника и его стажа работы выдаются соответствующие
сообщения.
Порядок выполнения задания
1. Запустить приложение Visual Basic и создать новый проект Опреде-
ление возраста”.
2. Разработать пользовательский интерфейс, расположив на форме с
помощью панели элементов управления, следующие объекты управ-
ления: две метки (Label1, Label2); три текстовых поля (TextBox1,
TextBox2, TextBox3); три командные кнопки (CommandButton1,
CommandButton2, CommandButton3).
3. В окне Properties (Свойства) для каждого объекта управления уста-
новить свойства , приведенные в табл . 3, и заполнить графу Обраба -
тываемое событие”.
4. Изменить цвет кнопок на форме, предварительно установив в окне
Properties (Свойства) для свойства Style значение 1, а затем с помо-
щью свойства BackColor установить нужный цвет для командных
кнопок.
5. Форме и объектам, расположенным на ней, задать различные допол -
нительные свойства (аналогично табл .2).
6. Ввести и проанализировать программный код для объекта управле-
ния КнопкаНачать :
Private Sub КнопкаНачать _Click()
If Возраст.Text > 58 Or (Возраст.Text > 55 And Стаж .Text > 15)
Then
Сообщение.Text = "Ваш возраст вызывает уважение"
                                        8




   Задание3. Р азработкаVB – приложения “О пределениевозрас -
   та”

   Р а зра бота т ь проект, сод ерж а щий ф орм у , в кот орой в за висим ости от
возра ст а сотру д н ика и его ст а ж а ра бот ы выд а ют ся соот вет ст ву ющие
сообщен ия.

                          П ор ядокв ы п ол н е н ия задан ия

1. Запу ст ит ь прил ож ен ие Visual Basic и созд а т ь н овый проект “О пред е-
   л ен ие возра ст а ”.
2. Р а зра бота т ь пол ь зова т ел ь ский ин т ерф ейс, ра спол ож ив н а ф орм е с
   пом ощь ю пан ели элемен т о в у правл ен и я, сл ед у ющие объект ы у пра в-
   л ен ия: д ве м ет ки (Label1, Label2); т ри т екст овых пол я (TextBox1,
   TextBox2, TextBox3); три ком а н д н ые кн опки (CommandButton1,
   CommandButton2, CommandButton3).
3. В окн е Properties (Сво йст ва) д л я ка ж д ого объект а у пра вл ен ия у ст а -
   н овит ь свойст ва , привед ен н ые в т а бл . 3, и за пол н ить гра ф у “О бра ба-
   т ыва ем ое событие”.
4. И зм ен ит ь цвет кн опок н а ф орм е, пред ва рител ь н о у ст а н овив в окн е
   Properties (Сво йст ва) д л я свойст ва Style зн а чен ие 1, а за тем с пом о-
   щь ю свойст ва BackColor у ста н овит ь н у ж н ый цвет д л я ком а н д н ых
   кн опок.
5. Ф орм е и объект а м , ра спол ож ен н ым н а н ей, за д а т ь ра зл ичн ые д опол -
   н ит ел ь н ые свойст ва (а н а л огичн о та бл .2).
6. Ввест и и проа н а л изирова т ь програ м м н ый код д л я объект а у пра вл е-
   н ия К нопкаН ач ать :

       Private Sub К нопкаН ач ать _Click()
       If В озрас т.Text > 58 Or (В озрас т.Text > 55 And С таж.Text > 15)
           Then
       С ообщение.Text = "В аш возрас т вы зы вает у важение"