Привет, любители программировать =). Может еще и не совсем хорошо программирующих, но желающих (я надеюсь) научиться этому ! И так, сегодня мы будем делать часы с будильником. Они не будут соваться в АВТОЗАГРУЗКУ - это будет в следующих уроках. Они просто будут показывать время и выкидывать заданное вами сообщение в заданное вами же время =). В этот раз я постарался задать все возможные свойства через код, так что потом вы можете укоротить код, поставив некоторые свойства вручную. Приступим...

2. Создадим форму c именем frmAlarm

3. Не все свойства можно изменить с помощью кода, так что правим некоторые свойства:

В форме frmAlarm у текстового поля text4, свойство MultiLine делаем равным true

Свойство BorderStyle у обоих форм делаем равным Fixed Single

1. На форме frmClock создадим два Label"а с именами ATime и AText, в них мы будем писать данные из будильника.

Пока вроде все, не помню =). Начнем, пока, писать код. Сейчас пишем в frmClock:

Private Sub Command1_Click()" загружаем форму с данными будильника frmAlarm.ShowEnd SubPrivate Sub Form_Load()" интервал таймера 1 секундам Timer1.Interval = 1000AText.Visible = FalseATime.Visible = FalseEnd SubPrivate Sub Timer1_Timer()" что бы Label показывал каждую секунду время Label1.Caption = Time" если текст в Label1 равен заведенному нами времени, тоIf Label1.Caption = ATime.Caption Then" вылазит стандартное окно сообщения с заданным" нами временем MsgBox AText.Caption, vbOKOnlyEnd IfEnd Sub

Теперь не помешает написать код для будильника. Это совершенно несложно. Порой я думаю может все мои уроки кажутся вам детским садом ? Что ж обещаю в следующем уроке сделать, что-нибудь более сложное и интересное ! Ну, а пока код для frmAlarm :

Private Sub Form_Load()"теперь в тектовые поля №1,2,3 нельзя вписать более 2 символовText1.MaxLength = 2Text2.MaxLength = 2Text3.MaxLength = 2End SubPrivate Sub Form_Unload(Cancel As Integer)" пишем в Lablе ,предназначенный для времени" в которое прозвенит будильник, три значения из текстовых полей" и между каждым заначением вставляем ":"frmClock.ATime.Caption = Text1.Text & ":" & Text2.Text & ":" & Text3.Text" пишем в Lable, предназначенный для тескта сообщения во время звонка будильника" текст, который мы хотим увидеть в назначенное времяfrmClock.AText.Caption = Text4.TextEnd Sub Теперь жмем F5 и видем часы, которые выглядят примерно так: