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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

16
'Если любое число =7, показать рисунок и дать сигнал
If (Label1.Caption =7) Or (Label2.Caption=7) Or
(Label3.Caption=7)
Then
РисунокУдача.Visible = True
Beep
End If
End Sub
8. Запуск проект и программу в среде Visual Basic и проверить пра -
вильность работы программы. При обнаружении ошибок в кодах
программы – исправить их.
9. Сохранить в своей папке форму под именем Удача . frm и проект
под именем Удача . vbp.
Таблица 6
Объекты, свойства и события элементов управления
Объект
управле-
ния
Обозначе-
ние объекта
управления
по умолча-
нию
Имя
Объекта
управления
(Name)
Свойства объ -
екта управле-
ния
Установка
Форма Form1 Удача Нет
Командная
Кнопка 1
Command1 КнопкаКонец
Caption - Ко-
нец
Командная
Кнопка 2
Command2
КнопкаВра -
щать
Caption- Вра -
щать
Метка 1,
Метка 2,
Метка 3
Label1,
Label2,
Label3
По умолчанию
Border Style
Alignment
Font
1- Fixed Single
2 - Center
TimesNewRoman,
Bord, 20
(Emply)
Метка 4 Label4 По умолчанию
Capion - Удача
Font
ForeColor
Arial, Bord,18
DarkPurle
(&H008000808)
Изображе-
ние
Image1 РисунокУдача
Picture -
Stretch
Visible
C:\Vb6SBS\coins.wmf
True
False
10. Результат работы приложения представлен в форме, приведенной
ниже. 
                                                  16
         'Е с ли лю боеч ис ло =7, показать рис у нок и дать с игнал
               If (Label1.Caption =7) Or (Label2.Caption=7) Or
                  (Label3.Caption=7)
                   Then
                    Р ису нокУ дач а.Visible = True
                    Beep
               End If
          End Sub

      8. Запу ск проект и програ м м у в сред е Visual Basic и проверит ь пра -
         вил ь н ост ь ра боты програ м м ы. П ри обн а ру ж ен ии ошибок в код а х
         програ м м ы – испра вит ь их.
      9. С охра н ит ь в своей па пке ф орм у под им ен ем У дач а. frm и проект
         под им ен ем У дач а. vbp.

                                                                                     Т а бл ица 6
                   О бъект ы, свойст ва и событ ия эл ем ен тов у пра вл ен ия

                     О бознач е-
                                           И мя
  О бъект           ниеобъекта                          С вой с тваобъ-
                                        О бъекта
 у правле-          у правления                         ектау правле-           У с тановка
                                     у правления
    ния              по у м олч а-                            ния
                                         (Name)
                         нию
Ф орм а             Form1          У д а ча             Н ет
К ом а н д н а я                                        Caption - К о-
                    Command1       К н опка К он ец
К н опка 1                                              н ец
К ом а н д н а я                   К н опка Вра -       Caption- Вра -
                    Command2
К н опка 2                         ща т ь               ща т ь
                                                        Border Style        1- Fixed Single
М ет ка 1,          Label1,
                                                        Alignment           2 - Center
М ет ка 2,          Label2,
                                   П о у м ол ча н ию   Font                TimesNewRoman,
М ет ка 3           Label3
                                                                            Bord, 20
                                                                            (Emply)
                                                        Capion - У д а ча
                                                        Font                Arial, Bord,18
М ет ка 4           Label4         П о у м ол ча н ию
                                                        ForeColor           DarkPurle
                                                                            (&H008000808)
                                                        Picture -           C:\Vb6SBS\coins.wmf
И зобра ж е-                                            Stretch             True
                    Image1         Р ису н окУ д а ча
н ие                                                    Visible             False


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

Страницы