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

будильник на visual basic
Смело жмем "будильник" и видем, опять же, примерно следующее:
будильник
Пишем в первом текстовом поле часы, во втором минуты и в третьем секунды. Теперь пишем внизу сообщение, которое вы бы хотели увидеть в назначенное вами время. Сделали? Хорошо. Теперь закрываем окно крестиком вверху и ждем назначенного времени. Как только часы на форме frmClock покажут время равное заведенному вами, из лэйбла AText будет взята введенная вами фраза и помещена в окно сообщения ! Все. Согласитесь - совершенно нетрудно. Если вдруг что-то не будет работать, сразу пишите мне
]]>twitter.com Google Buzz google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru]]>
Basic 18.02.11 @ 20:17
RSS-лента комментариев

Оставьте комментарий!

Не регистрировать/аноним

Используйте нормальные имена. Ваш комментарий будет опубликован после проверки.

Если вы уже зарегистрированы как комментатор или хотите зарегистрироваться, укажите пароль и свой действующий email.

(При регистрации на указанный адрес придет письмо с кодом активации и ссылкой на ваш персональный аккаунт, где вы сможете изменить свои данные, включая адрес сайта, ник, описание, контакты и т.д.)


grin LOL cheese smile wink smirk rolleyes confused surprised big surprise tongue laugh tongue rolleye tongue wink raspberry blank stare long face ohh grrr gulp oh oh downer red face sick shut eye hmmm mad angry zipper kiss shock cool smile cool smirk cool grin cool hmm cool mad cool cheese vampire snake excaim question

(обязательно)