- 2800,
- ScaleWidth - 4800,
- Width - 5000,
Управляющая кнопка:
- Name - cmdClick,
- Caption - Нажми сюда!,
- Height - 500,
- Width - 800,
Таймер:
- Name - tmr1,
- Interval - 500.
4. Напишите программный код:
объявляем переменные
Dim i As Integer
Private Sub cmdClickClick()
cmdClick. Caption "Попал!" при нажатии на кнопку надпись на ней изменяется
cmdClick. Enabled False кнопка становится неактивной
tmr1. Enabled False отключаем таймер
End Sub
Private Sub tmr1Timer()
i Int(9 Rnd) выбираем целое случайное число от 1 до 9
cmdClick. Top 200 600 (i / 3) определяем местоположение кнопки относительно верхнего края формы
cmdClick. Left 200 900 (i / 3) определяем местоположение кнопки относительно левого края формы
End Sub
5. Запустите программу, при необходимости отредактируйте код.
1. Отредактируйте программу следующим образом:
a) Добавьте управляющую кнопку с надписью "Медленнее" нажатие на которую будет замедлять движение кнопки (свойство Interval таймера уменьшается на 100).
b)
Добавьте управляющую кнопку с надписью "Быстрее" нажатие на которую будет увеличивать скорость движения кнопки (свойство Interval таймера увеличивается на 100). c) Добавьте управляющую кнопку "Стоп", нажатие на которую будет останавливать кнопку.
d) Добавьте управляющую кнопку "Увеличить кнопку", нажатие на которую будет увеличивать высоту и ширину кнопки на 100 твипов.
e) При каждом щелчке мышью мимо кнопки раздается звук, установленный на компьютере как стандартный.
f) При попадании по кнопке выходит сообщение "Молодец!".
2. Скомпилируйте програ
Страницы: << < 4 | 5 | 6 | 7 | 8 > >>