Создание приложений ОС Windows средствами Visual Basic


Приложение «Метроном»


Данное приложение служит для изучения таких элементов как Timer, Shape, Label и линейка прокрутки (ScrollBar).

Создайте новый прект Metronom1.vbp имя формы Metronom.frm.

Создайте линейку прокрутки HScrollBar. Установите его свойства следующими значениями: LageChange=100 это свойство определяет с каким шагом будет меняться значение параметра линейки прокрутки, при щелчке мышью между её стрелками и ползунком; Max=300 это максимальное значение параметра линейки прокрутки, оно достигается когда ползунок находится в крайнем правом положении; Min=1500 противоположное предыдущему свойство; SmallChange=25 это шаг изменения при нажатии на кнопки со стрелками по краям линейки; Value=1000 стартовое значение параметра.

Создайте Timer. Установите значение свойства Interval равное 1000.

Создайте Shape. Установите свайства: FillColor – белый, FillStyle – 0 Solid, Shape – 3 Circle.

Создайте три ярлыка (Label). Два из них расположите по краям линейки прокрутки и озаглавте в соответсвии с рисунком. Третий оизаглавте «1000» и поместите его посередине круга, установив цвет текста красный, а свойство BackStyle – 0 Transparent.

Щёлкнув два раза по линейки прокрутки введите следующий код:

Private Sub HScroll1_Change()

Timer1.Interval = HScroll1.Value

Label3.Caption = HScroll1.Value

End Sub

Этот код выполняется, когда положение ползунка линейки прокрутки изменяется, тогда интервал срабатывания таймера (в миллисекундах) приравнивается к значению параметра линейки прокрутки, который также отображается посередине круга.

Private Sub Timer1_Timer()

Beep

If (Shape1.FillColor = 0) Then

Shape1.FillColor = RGB(255, 255, 255)

Else

Shape1.FillColor = RGB(0, 0, 0)

End If

End Sub

Этот код вызывается таймером через интервал времени, заданный в свойстве Interval, если свойство Enebled=True. Тогда издаётся звуковой сигнал и цвет заливки круга меняется на противоположный.

10 Контрольные вопросы

1. Дайте определение и назначение операционной системы.

2.     Перечислите и охарактеризуйте типы алгоритмических языков. Что такое транслятор?




- Начало -  - Назад -  - Вперед -