Interrupción con Basic de aproximadamente 15 minutos

[kaki]

Buenass miren no hace mucho estoy en estoy y quisiera saber si es posible lograr una interuccion o pausa de 15 minutos??

por q la verdad no encontre metodo para hacer esto...
 
se me ocure de una variable q valla contanto y cuando llegue a determinado numero q termine esa pausa y siga el programa adelante!!

     Desdes ya gracias

[dogflu66]

'Rutina especial de espera, la sintaxis varía según el lenguaje
Dim mi_pause As Word  'Contendrá el tiempo a esperar, máximo 65535 Seg.
main:  'Rutina principal
   mi_pause = 900  'Tiempo de pausa en segundos
   Gosub pause_seg  'Hace la pausa
Goto main  'Impide que termine la rutina principal
End  'Fin rutina principal                        
'Rutinas especiales
pause_seg:  'Rutina de pausa en segundos
   While mi_pause > 0  'Mientras mi_pause sea mayor a cero
      WaitMs 1000  'Pausa de 1segundo
      mi_pause = mi_pause - 1  'Contador descendente, control del tiempo
   Wend  'Acota el while anterior
Return  'Retorna después del Gosub ultimo        
End 'Fin

[kaki]

era mas o menos lo q habia pensado... ahora no se pone lento el micro?? no recalienta??

[RedPic]

He modificado el nombre del hilo para darle una oportunidad de encontrarlo a quien busque algo similar.

[kaki]

Cuando compilo ese codigo me da un error...

 dice "12:6 E-4 Syntax error: Expected '.' but 'pause_seg' found Tiempos.pbas"

no se por q.. estoy mirando si lo puedo adaptar a una subrutina.. o subprosedimiento

[dogflu66]

He corregido el codigo y compilado.

El lenguaje es el Basic del PSI (Pic Simulator Ide)

[dogflu66]

era mas o menos lo q habia pensado... ahora no se pone lento el micro?? no recalienta??

La rutina no afecta al micro, lo único que ocurre con ese tipo de rutinas en las que se generan
paradas absolutas, pues eso que el micro no hace nada, cuando podría estar
haciendo otras cosas más productivas.

[kaki]

y usando el timer 0 no se puede lograr esto??
lo trate de adadtar en mikrobasic

esto WaitMs 1000 seria igual a delay_ms(1000)

pero el error me lo tira en mi_pause = mi_pause - 1 y la verdad no se...

[dogflu66]

Lo siento pero trabajo con PSI. Revisa los hilos de microbasic de este mismo subforo.

[kaki]

es mejor el PSI q el microbasic... ya lo corregi despues pongo el codigo haci queda!!

tengo una duda.. si yo pongo el puerto en alto y ago un pausa en tu caso con     WaitMs 1000   el puerto queda alto y hasta yo no lo vuelva a poner bajo queda en alto nosierto??

espero q me entienda!!

[dogflu66]

WaitMs no afecta al estado de los puertos.

Con respecto si es mejor Microbasic o el Basic del PSI, pues no lo se, ya que solo trabajo con el B. del PSI.

[kaki]

Muchas Gracias