Программирование на Visual Basic

Часы в visual basic

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

  1. Создадим форму с именем frmClock
  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 и видем часы, которые выглядят примерно так:

 

Смело жмем "будильник" и видем, опять же, примерно следующее:

 

Пишем в первом текстовом поле часы, во втором минуты и в третьем секунды. Теперь пишем внизу сообщение, которое вы бы хотели увидеть в назначенное вами время. Сделали? Хорошо. Теперь закрываем окно крестиком вверху и ждем назначенного времени. Как только часы на форме frmClock покажут время равное заведенному вами, из лэйбла AText будет взята введенная вами фраза и помещена в окно сообщения ! Все. Согласитесь - совершенно нетрудно. Если вдруг что-то не будет работать, сразу пишите мне наsnowman@74.ru. Или качайтеготовый пример

Hosted by uCoz