Лабораторная работа № 22 создание часов
Цель работы: Правильно определить свойства компонентов.
Задачи: Создать часы с будильником. Они не будут соваться в АВТОЗАГРУЗКУ - это будет в следующих уроках. Они просто будут показывать время и показывать заданное вами сообщение в заданное вами же время).
Ход работы:
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 будет взята введенная вами фраза и помещена в окно сообщения ! Все.
Лабораторная работа № 23
ЭЛЕМЕНТЫ УПРАВЛЕНИЯ LISTBOX И COMBOBOX
Цель работы: научиться работать с элементами управления listbox и combobox.
Задачи: Создать часы с будильником. Они не будут соваться в АВТОЗАГРУЗКУ - это будет в следующих уроках. Они просто будут показывать время и показывать заданное вами сообщение в заданное вами же время).
Ход работы: