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

                                            15
       Задание6. РазработкаVB – приложения “У дач а”

       П рогра м м а им ит иру ет игровой а вт ом а т : есл и при сл у ча йн ом выпа -
д ен ии из трех чисел , хот я бы од н о сод ерж ит циф ру 7, т о н а экра н е
появл яет ся ка ртин ка .

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

      1. Запу ст ит ь прил ож ен ие Visual Basic и созд а т ь н овый проект .
      2. Р а зра бота т ь пол ь зова т ел ь ский ин терф ейс, ра спол ож ив н а ф орм е с
          пом ощь ю пан ели эл емен т о в у правл ен и я, сл ед у ющие объект ы
          у пра вл ен ия:      т ри       ком а н д н ые кн опки      (CommandButton1,
          CommandButton2, CommandButton3), четыре м ет ки (Label1, Label2,
          Label3, Label4), окн о изобра ж ен ия (Image).
        М ет ки Label1, Label2 и Label3 бу д у т испол ь зова т ь ся д л я за пол н ен ия
сл у ча йн ым и числ а м и, а Label4 – д л я н а зва н ия игры.
        О кн о изобра ж ен ия (Image) бу д ет испол ь зова т ь ся д л я вывод а ка рт ин -
ки – резу л ь т а т а выпол н ен ия програ м м ы.
        Ри су н о к мо ж н о вы брат ь среди Windows – м е т аф ай л о в , к о т о ры е
и меют ф о рмат .wmf и со держ ат граф и ческ и е о бъек т ы , масшт аби ру е-
мы е без и ск аж ен и й;
      3. Выпол н ит ь у пра ж н ен ия по изм ен ен ию ра зм ера и м естора спол ож е-
          н ия созд а н н ыхн а ф орм е объектов у пра вл ен ия.
      4. С пом ощь ю о к н а Properties (Сво йст ва) за д а т ь свойст ва объект а м
          у пра вл ен ия, описа н н ые в т а бл . 6.
          Д л я объект а Image м огу т быт ь испол ь зова н ы сл ед у ющие свойст ва :
          • Stretch (В ы тягивание) – д л я у ст а н овки т очн ого ра зм ера рису н -
              ка ;
          • Picture (Р ис у нок) – д л я у ка за н ия им ен и гра ф ического ф а йл а ;
          • Visible (В идим ос ть ) – д л я опред ел ен ия состоян ия рису н ка в н а -
              ча л е ра бот ы програ м м ы;
          • чтобы сд ел а т ь рису н ок н евид им ым в м ом ен т за пу ска програ м -
              м ы, н а д о изм ен ит ь сво йст во Visible (Ви ди мо ст ь) н а зн а чен ие
              False (Л ожь ).
      5. О бъект а м , ра спол ож ен н ым н а ф орм е, за д а т ь д опол н ит ел ь н ые свой-
          ст ва (а н а л огичн о т а бл .2).
      6. Записа т ь програ м м н ый код д л я объект а у пра вл ен ия К нопкаК онец.
      7. Ввест и програ м м н ый код д л я объект а у пра вл ен ия кнопкаВ ра-
          щать , пом естив в событие Click () сл ед у ющие опера т оры:

            Private Sub К нопкаВ ращать _Click()
                Р ис у нокУ дач а.Visible = False 'с кры ть рис у нок
                Label1.Caption = Int (Rnd * 10) 'показать ч ис ла
                Label2.Caption = Int (Rnd * 10)
                Label3.Caption = Int (Rnd * 10)