TO)
// каждый час-
if sp2.Checked then
if
(s[4]=’0’)and(s[5]=’0’)and(s[7]=’0’)and(s[8]=’0’)
then begin
voice.speek;
if app<>” then
shellExecute(0, ’open’ ,pchar(app), ’ ’, ” ,SW_HIDE)
end;
// произвольное время-
if sp3.Checked then begin
if length(vart)=1 then vart:=’0’+vart;
Рис.
4.
Меню управления
утилитой
Ьуыш
тяяш
час
Ї>ЗДЗТЬ
smÿtm
Ш риф т OSD
I
tm mrmz
€Ьор$чн&зть
m
грей
Айг.о^-зтузка
І
.
: ;
»:•:
-X?}. :
s£S
V
Т і'• ' ••
-’-Л: •
n u
i f -
-
S
: : л- г:,^«,<л.О »
* ••'• V ,;; v<i
. . . d ' .
. . . , . ,
r
v
y Z.
vs' :
.
.J
,,
4%w
J|
:t" ^
^
1
"‘’pfruA .
try mv:= strtoint(vart);except vart:=’05’;end;
mr
:= strtoint(s[4]+s[5]);
if ((mr/mv)-
trunc(mr/mv)=0)and(s[7]=’0’)and(s[8]=’0’)
then begin
voice.speek;
if app<>” then
shellExecute(0,’open’,pchar(app),”,”,SW_HIDE)
end
end
end;
После
компиляции
тестового
проекта наших часов в среде DEL-
PHI, запустим его на выполнение.
При этом в трее отобразится мне-
монический индикатор. При нажатии правой кноп-
ки мыши по иконке - станет доступно меню управ-
ления часами
( р и с . 4 ),
где можно задать не толь-
ко параметры будильника и голоса, но и шрифта
выводимых символов
( р и с . 5 ):
З а к л ю ч е н и е
В
от собственно и все! Ничего архисложного в
создании подобных утилит нет. Полные ис-
ходные тексты и ресурсы проекта (файл cl_res.zip)
[5] вы можете загрузить с сайта автора
Если тема представ-
ляет для вас интерес
- пишите, задавайте
вопросы на форуме
forum.
Р е с у р с ы
1. В. Н. Сорокин. Тео-
рия
речеобразования.
-
М.,
Радио
и
связь,
1985.
2.
В.И.Галунов,
В. И.
Гарбарук.
Акустичес-
кая
теория
речеобра-
зования и система фонетических признаков.
Материалы
международного
конгресса
100
лет
экспериментальной фонетике в России. - С. Петер-
бургский Государственный Университет, 2001, с. 58.
3. IDE среда разработки TurboDelphi-Lite портаб-
ле http://mm.andyaska. com/?act=download&mode=de-
tai!&id=34
4. Бесплатный аудиоредактор AudaCity
http://switch, dl. sourceforge. net/sourceforge/audacity/au
-
dacity-win-1.3.7.exe
ф]
с О н И
м
с
с М А Й
Л И К
Ô1
к
м
П о р т
о
в
д]
р
А Й
в Е Р
к
н
Г
Р
Л
т
А Н А Л 0 г
р
р
р в Е НІ И Е
Р
А
Е
А И д
У
А
т [
о Л
О
с и Г А р А
у|
И
л Я
3
Г
X А М
Й
А
н А д
А
И
Б
к
р о В
В
м о 3 п И
о В А Л
П А Н К
3
В Е Б м А н и
п А ш А
к
я н ь
А
Ь
с т Е П
т
3 В У К О В 1
У 1X А
J
Р о Б о т
о
л А
к
И
А
к
В О Т А
А
Р
Г |Е К
А
У
І
Ответы
д
р
к
И н О
А
о
м Г л А
Н
Г о Н д О Л А
Р
Л У Б
Г Е И м
А р С
П
М А р
к
А
А Н Г О Р А
К У с
Р А У т
т
І
на Бигскан
А м М А н
Е Л
к
А
Е
о
м О н т Е Р
С т И л ь
И П п о Л и Т
І
«Угадай
І
логотип»
І
(стр.26-27]
Р
п
Е 3 д
А
К
Р
У Б
к
А
Г
Р
Е К С
С о
Б
А К
А
р
ц
А п о
Р
Т
о М о
р Е Й д
А
И с т
А
ф А С А д
Н
р
т
В
Т
т
Р
ы
с
С Е Я л К А
р
Т У т м о с
И
п
Б
X Л ы щ
в П К
Д о С А
А
ю
А
ш
Д
И м
А
Г О
и
Е
Р У
Р к
Б
П
л А 1
T 1А
К А т о Р г А
ю
с
К
Л
с
к
А ч К И
О с
Ь
К
ы
Я н
Р
Б
А
р
У п с А
х_
К
Л И н У
к
с
т
М А Р п Л
Г Е К с
а
[
э
д Р|
3
Б
У Л Л и т
А
В
А
Г У т И
У
У т Р о Б
А
И т
А
К А
И
П
Р и
т
Н
р
О
А
И
п р Е С л И
И
X У т О р
А
о т Е л
Й
3
п И
А
н О ІЕ
В
А
К
У
п
Е
м
р
К
о
н т
о
р
с
л И в
к
и
ь
3
А
Г
с
X
А
н [о) Й
В Е
с
Л
С
д
о
Б
А
У
р
р
о
Д
ы
к!
РІ
А
Н
и1
У
Е
ш
К
о
Е
Р
У
Б
И
л
о
У
ф
и
Н
к
и
с
А
ч Е п
Ч
И
к
л
с
д 1
С
Е
И
3
о
Б
А
р А
п 3 У
У
в А
Л
А
о
и
о
г А н
Н
о
р Т |и
к
о
Л
А
3
Е
Д
А
ч
А
Л
В
И
н
Д
О в
с
Р
я
Д
р
ІА
А
А
С ь
К А
Р
А
А
Н
О
А
О
ь
в
А
И
к
С
5.
Компиляция
и
исходники
проекта “говорящих часов”:
h ttp://raxp. radioliga. com/cnt/s.php?p=
cl_res.zip
Сергей
Бсідло
В ночь с 31 окт ября на 1 нояб-
р я
от м ечает ся
древнейш ий
праздник Hello-Win.
В эт у ночь
сисадмины
не лож атся спать,
ходят
с
бубнами
по
домам
и
всем
переуст анавливаю т
Вин-
довз. В лунные ночи веселье про-
долж ает ся
до
сам ого
ут ра.
П раздник символизирует
побе-
ду
сил
р азум а
над
демонами,
сервисами и прочей нечистью.
предыдущая страница 47 Компьютер 2010 09 читать онлайн следующая страница 49 Компьютер 2010 09 читать онлайн Домой Выключить/включить текст