[ Foro de Pascal ]

duda en programar una alarma

buenas luis estuve mirando el codigo que desarrollaste en el link
me pueden ayudar con este codigo??? - reloj

sin embargo al ejecutarlo no entendi na, pues no se exactamente a que se refiere el procedimiento cambiar_de__hora y programar_alarma, es que no entiendo como seria la ejecucion del mismo si puedieras explicarmelo un poco mejor de que es lo que desarrolaste y como debo ejecutarlo, porque pienso que deberia primero mostrarse el reloj con la hora del sistema y luego definir el procedimiento programar_alarma, no se porque entonces esta en este codigo el procedimiento cambio _de_hora, podrias ayudarme con ello a mejorarlo un poco mas a la realidad, te lo agradezco inmensamente luis

Imagino que te refieres a este hilo:

http://www.aprendeaprogramar.com/mod/forum/discuss.php?d=1884

En ese hilo hay varias versiones del programa. ¿Te refieres a la última, de Luis Torres, o a la primera, de Luis Cisneros?

BUENAS NOCHES
ME REFIERO A LA DE LUIS TORRES, GRACIAS POR RESPONDER.

Este es el programa del que hablabas:

program reloj; 
uses 
 crt,dos; 
var 
 hrs,min,seg,h,m,hs,mm  :integer; 
 opcion               :char; 
procedure cambio_de_hora; 
begin 
 writeln('Cambiar hora'); 
 readln(h); 
 hrs:=h; 
 writeln('Cambiar minutos'); 
 readln(m); 
 min:=m; 
 seg:=seg; 
end; 

procedure programar_alarma; 
begin 
 write('¨A que hora desea progrmar la alarma?'); 
 writeln; 
 read(hs); 
 write(':'); 
 read(m); 
end; 

procedure sonido; 
begin 
 if (hrs=hs) and (m=min) 
  then 
   begin 
    repeat 
     sound(1000); 
    until keypressed;
   nosound;
   end; 
end; 

procedure relojs; 
begin 
seg:=seg; 
repeat 
       gotoxy(18,19); 
       writeln('°°°°°°°°°°°°°'); 
       gotoxy(18,20); 
       writeln('°'); 
       gotoxy(18,21); 
       writeln('°°°°°°°°°°°°°'); 
       gotoxy(30,20); 
       writeln('°'); 
gotoxy(20,20); 
writeln(hrs,' : ',min,' : ',seg); 
seg:=seg+1; 
delay(1000); 
if seg=60 then 
begin 
seg:=0; 
min:=min+1; 
end; 
if min=60 then 
begin 
min:=0; 
hrs:=hrs+1 
end; 
if hrs=24 then 
  hrs:=0;
sonido; 
until keypressed; 
end; 

begin 
repeat 
  clrscr; 
  writeln('1.-Ajustar reloj'); 
  writeln('2.-Programar alarma'); 
  writeln('3.-Salir del programa'); 
  opcion :=readkey; 
  case opcion of 
  '1': 
    begin 
     cambio_de_hora; 
    end; 
  '2': 
    begin 
    programar_alarma; 
    sonido; 
    end; 
  end; 
   relojs; 
  until opcion='3'; 
end. 

 
"cambiar_hora" cambia la hora actual del reloj (pidiendo al usuario la hora y minutos actuales), mientras que "programar_alarma" cambia la hora (y minutos) en los que debería sonar la alarma.

Sobre los otros dos procedimientos, "relojs" muestra el reloj en pantalla y lo actualiza, y "sonidos" hace sonar la alarma si el instante actual coincide con el de la alarma.