простой будильник в кибор
CODE:int t_Hour=formatsn(getcontrol(EDIT_0));
int t_Minute=formatsn(getcontrol(EDIT_1));
int t_Second=formatsn(getcontrol(EDIT_2));
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
a: getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
if (Hour!=t_Hour || Minute!=t_Minute || Second!=t_Second){sleep(50); goto a;}
int n=0;
b: if (n<20)
{
beep(2000, 500);
sleep(100);
n++;
goto b;
}
goto a;
CREATE_INTERFACE
{
DIALOG "Будильник" 174 130
BUTTONSCRIPT "Запустить будильник" 10 70 150 25
STATIC_0 "Часы" 10 10 50 16
EDIT_0 "0" 105 8 55 18
STATIC_1 "Минуты" 10 30 90 16
EDIT_1 "0" 105 28 55 18
STATIC_2 "Секунды" 10 50 90 16
EDIT_2 "0" 105 48 55 18
} |