29-03-2005
|
Baneado
|
|
Registrado: nov 2004
Posts: 76
Reputación: 0
|
|
Encontre solucion
colegas encontre una solucion para esto haciendo una copia de la hora que solo contenga la hora y los minutos ademas guardo la ultima hora en que se activo el timbre para que solo toque una vez por que de lo contrario estaria activandose todo ese minuto vean este es el codigo.
for c:=0 to altura-1 do begin
Xcdn1:=matriz[c,0];
mhora:=strtotime(Xcdn1);
syshora:=time();
if (copy(timetostr(syshora),1,5) = copy(timetostr(mhora),1,5))
and (copy(timetostr(syshora),1,5) <> copy(timetostr(ultimo_timbre),1,5)) then begin
ultimo_timbre:=syshora;
bandera:=1;
asm
push dx
mov dx, 378h //
mov al, 255
out dx, al
pop dx
end;
sleep(strtoint(Cduratimbre));
// saludos desde tierra maya
|