]]
"РЛ" - НАЧИНАЮЩИМ
J
.1 _____v _ _ T
1
_ Рис. 2
« Ш л а г
Cancel
Help
(None)
Load.
..
Рис. З
BL
Шршфт;
Начертание;
IMS Sans Serif
MS Sent
4? MT Extra
О
MV So
li
Ö Palatino Linotype
1? Q
liner Keyboard Symb
O
Raavi
V
жирный курене
обычный
курсив
жирный
ВЙЕШ
Размер:
Щ
~
8
10
12
Е Ж
48
24
Отмена
Справка
г Виаонвменение- -
!
Зачеркнутый к
Г"
Подчеркнутый
Цвет; : I
-О бразец-
А а В Ь Б б Ф ф
I KpachbîH ^^^'Q .
.. ,| Набор символов:
Кириллический
Рис. 5
void
._fastcall-TForm1::Timer1Timer(?rObject ‘Sender)
(T)
Label1->Caption = FormatDateTirne(“hh:nn”,Tirne());
Timerl ->lntorval-10000:
}
void _fastcalITForm1::Timer1Timer(TObject ‘Sender);
(^ )
Label 1 ->Caption=Timo(). FormalString(“hh:mm:ss:zz”) ;
Timerl->lnterval=1;
}
Нажмем на
TLabel
и в свойстве
Caption
инспектора
объектов удалим надпись Label 1. После этого двойным щел-
чком мыши нажимаем на значок
Timer
и напишем код (врез-
ка 1). Все! Компилируем (кнопка
Run)
и сохраняем.
Чтобы сделать часы с точностью до доли секунды, нужно
написать вместо предыдущего кода следующий (врезка 2).
А теперь о мелочах, которые могут украсит вашу про-
грамму. Все мы видели в различных программах вставлен-
ные рисунки или анимацию, вот и мы научимся их вставлять
в написанные нами программы. Давайте добавим в только
что созданную программу (Часы) рисунок самих часов. Во-
первых, нарисуем эти часы и разместим в левом верхнем
углу всего рисунка (допустим, в Paint). Чу а теперь мы доба-
вим этот рисунок к нашей программе. Ча нашу форму (Formi )
добавим компонент
Tlmage
с панели компонентов (вкладка
Additional) (рис. 2).
Теперь в инспекторе объектов (Obgect Inspector) в свой-
стве
Picture
нажмем на многоточие, и перед нами появится
окно
(рис. 3).
Чажмем на кнопку
Load.
..
и выберем в списке
наш рисунок, нажав на кнопку
Открыть
вставим его
(рис. 4).
Теперь сделаем, чтобы время показывалось каким-ни-
будь цветом и шрифтом.'Для этого нажмем на уже встав-
ленный компонент
TLabel,
и в инспекторе объектов в свой-
стве
TFont
нажмем на значок “многоточие” и увидим следу-
ющее окно
(рис.
5). Выберем шрифт и цвет и нажмем на ОК.
Теперь компилируем и получаем время
(рис. 6).
Вот и все, я вам дал новую информацию, если что-то не
понятно, смотрите предыдущие номера журнала, а если и
там не нашли ответа на свой вопрос, пишите на электрон-
ный и почтовый адреса (в начале статьи).
Частавления для начинающих, особенно юных: я прошу
вас ни в коем случае в дальнейшем не создавать вредонос-
ных программ (вирусов!.
До скорых встреч!
Уатопюбитепь
- 1
1
/2 0 0 7 [|
43
предыдущая страница 43 Радиолюбитель 2007-11 читать онлайн следующая страница 45 Радиолюбитель 2007-11 читать онлайн Домой Выключить/включить текст