Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 66 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

66
• Visible (Видимость) – для определения состояния рисунка в на-
чале работы программы;
• чтобы сделать рисунок невидимым в момент запуска програм-
мы, надо изменить свойство Visible (Видимость) на значение
False (Ложь).
4. Объектам, расположенным на форме, задать дополнительные свойства.
5. Записать программный код для объекта управления КнопкаКонец.
6. Ввести программный
код для объекта управления кнопкаВращать,
поместив в событие Click () следующие операторы:
Private Sub КнопкаВращать_Click()
РисунокУдача.Visible = False 'скрыть рисунок
Label1.Caption = Int (Rnd * 10) 'показать числа
Label2.Caption = Int (Rnd * 10)
Label3.Caption = Int (Rnd * 10)
'Если любое число =7, показать рисунок и дать сигнал
If (Label1.Caption =7) Or (Label2.Caption=7) Or
(Label3.Caption=7)
Then
РисунокУдача.Visible = True
Beep
End If
End Sub
7. Запустить проект и программу в среде Visual Basic и проверить пра-
вильность работы программы.
8. Сохранить в своей папке форму под именем Удача . frm и проект под
именем Удача . vbp.
Таблица 9
Объекты, свойства и события элементов управления
Объект
управле-
ния
Обозначе-
ние объекта
управления
по умолча-
нию
Имя
объекта
управления
(Name)
Свойства объ-
екта управле-
ния
Установка
1 2 3 4 5
Форма 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) 
                                        66

       • Visible (Видимость) – для определения состояния рисунка в на-
          чале работы программы;
       • чтобы сделать рисунок невидимым в момент запуска програм-
          мы, надо изменить свойство Visible (Видимость) на значение
          False (Ложь).
4. Объектам, расположенным на форме, задать дополнительные свойства.
5. Записать программный код для объекта управления КнопкаКонец.
6. Ввести программный код для объекта управления кнопкаВращать,
   поместив в событие Click () следующие операторы:
          Private Sub КнопкаВращать_Click()
               РисунокУдача.Visible = False 'скрыть рисунок
               Label1.Caption = Int (Rnd * 10) 'показать числа
               Label2.Caption = Int (Rnd * 10)
               Label3.Caption = Int (Rnd * 10)
      'Если любое число =7, показать рисунок и дать сигнал
          If (Label1.Caption =7) Or (Label2.Caption=7) Or
             (Label3.Caption=7)
              Then
               РисунокУдача.Visible = True
               Beep
          End If
       End Sub
7. Запустить проект и программу в среде Visual Basic и проверить пра-
   вильность работы программы.
8. Сохранить в своей папке форму под именем Удача . frm и проект под
   именем Удача . vbp.
                                                                      Таблица 9
            Объекты, свойства и события элементов управления
              Обозначе-
                                Имя
  Объект     ние объекта                     Свойства объ-
                              объекта
 управле-    управления                      екта управле-      Установка
                            управления
   ния        по умолча-                          ния
                              (Name)
                 нию
    1              2               3                4                5
Форма        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)

Страницы