yo diria que depende del proyecto, la ventaja de utilizar el PWM del modulo del Pic es que trabaja en segundo plano, mientras que si es por codigo no.
Hola Volthor, probé el que me enviaste, pero al compilarlo me dá un error, (igual genera el archivo hex), lo simulo en proteus y se queda en el primer efecto, aún cuando vuelvo a presionar el pulsador, adjunto el .pbp y el .dsn, para que por favor lo observes (no sé si tal vez mi simulador está mal configurado), gracias, seguimos en contacto
@ DEVICE PIC16F628A
@ DEVICE INTRC_OSC_CLKOUT
@ DEVICE WDT_OFF
@ DEVICE PWRT_OFF
@ DEVICE LVP_OFF
@ DEVICE CPD_ON
@ DEVICE PROTECT_ON
DEFINE OSC 4
CMCON = 7
TRISB = %00000000
TRISA = %11110000
PORTA = %00000000
PORTB = %00000000
TLED1 VAR word
TLED2 VAR word
TLED3 VAR WORD
MinutO var byte
Segundo Var Byte
MAS_TIEMPO VAR BYTE
INITIO VAR BYTE
I var byte
FLAG0 VAR BIT
FLAG1 VAR BIT
FLAG2 VAR BIT
;******POTENCIA******///////******
LED var PORTB.0
LED_1 VAR PORTB.1
LED_2 VAR PORTB.2
LED_3 VAR PORTB.3
Trbuz VAR PORTB.7
;********************///////******
;******PULSADORES****///////******
BOTON VAR PortA.7
BOTON1 VAR PortA.6
BOTON2 VAR PortA.4
;********************///////******
;gosub beeps
;pause 1000
OPTION_REG = %10000101
ON INTERRUPT GOTO MI_INTERRUPCION
INTCON = %10100000
FLAG0=0
FLAG1=0
flag2=0
i=0
INICIO:
if boton then ;como implementar los tiempos adecuadamente??????
repeat
pause 10
i = i + 1
until not boton
if i =< 50 then
toggle led_1
toggle flag0
TLED1=0
else
if i=< 150 then
high led_1
high flag1
TLED2=0
else
toggle led_1
flag0=0
flag1=0
tled1=0
tled2=0
endif
endif
endif
pause 10
GOTO INICIO
DISABLE
MI_INTERRUPCION:
MAS_TIEMPO = MAS_TIEMPO + 1
IF MAS_TIEMPO => 61 THEN
MAS_TIEMPO = 0
TOGGLE LED
if FLAG0 THEN
TLED1 = TLED1 + 1
ENDIF
IF FLAG1 THEN
TLED2= TLED2 + 1
ENDIF
IF FLAG2=1 THEN
TLED3= TLED3 + 1
ENDIF
IF LED_1 = 1 and TLED1 = 10 THEN ; 10 segundos
flag0=0
LED_1=0
TLED1=0
i=0
ENDIF
IF LED_1 = 1 and TLED2 = 60 tHEN ; 1 minuto ===> 60 segundos
LED_1=0
FLAG1=0
TLED2=0
i =0
endif
ENDIF
IF LED_1 = 1 and TLED3 = 7200 tHEN ; 2 horas ===> 7200 segundos
LED_1=0
FLAG2=0
TLED3=0
i =0
endif
ENDIF
INTCON = %10100000
Resume
Enable
END INICIO:
if boton then
repeat
pause 10
i = i + 1
until not boton
if i =< 30 then
high led_1
high flag0
TLED1=0
elseif
gosub Time1
ELSE
if i=< 150 then
high led_1
high flag1
TLED2=0
else
gosub Time1
endif
endif
endif
pause 10
GOTO INICIO
DISABLE
MI_INTERRUPCION:
MAS_TIEMPO = MAS_TIEMPO + 1
IF MAS_TIEMPO => 61 THEN
MAS_TIEMPO = 0
TOGGLE LED
if FLAG0 THEN
TLED1 = TLED1 + 1
ENDIF
IF FLAG1 THEN
TLED2= TLED2 + 1
ENDIF
IF LED_1 = 1 and TLED1 = 8 THEN ;
flag0=0
LED_1=0
TLED1=0
i=0
ENDIF
IF LED_1 = 1 and TLED2 = 12 tHEN ;
LED_1=0
FLAG1=0
TLED2=0
i =0
endif
ENDIF
INTCON = %10100000
Resume
Enable
Time1:
toggle led_1
flag0=0
flag1=0
tled1=0
tled2=0
goto INICIO
END
Mira el programa que adjunto, tal vez te pueda servir como orientación para hacer lo que requieres.
Define OSC 4 ; Definir que se trabajará con 4MHz.
; Declaración de variables.
Contador Var Word
Flag Var Bit
T1 Var Word
T2 Var Word
; Nombres para los pines.
Symbol LED_1 = PORTB.1
Inicio:
CMCON = 7 ; Comparadores analógicos OFF
OPTION_REG.7 = 0 ; Resistencias de Pull-Up en Puerto B
TRISB = %11110000
PORTB = TRISB
Clear ; Inicializar variables a 0
On Interrupt GoTo PORTB74_CHANGE
INTCON = $C8 ; %11001000 (Interrupción RB<7:4>)
Programa:
; Programa principal.
Toggle PORTA.1
Pause 80
GoTo Programa
Disable
PORTB74_CHANGE:
INTCON.0 = 0 ; Limpiar flag por cambio de estado en RB<7:4>
While PORTB.4 = 0 ; Mientras RB4 es 0...
Pause 10
Contador = Contador +1 ; Incrementar Contador cada 10Ms.
If Contador = 50 Then ; Si son 500 Ms...
T2 = 10 ; 10 segundos.
LED_1 = 1 ; Enciende LED_1 por 10 segundos
GoSub Retardo ; Ir a Subrutina de retardo.
EndIf
Wend ; Termina el bucle.
While PORTB.4 = 0 ; el mismo pulsador con un tiempo de
Pause 10
Contador = Contador +1
If Contador = 200 Then ; dos segundos
T2 = 60 ; prende led_1 por 1 Minuto
LED_1 = 1
GoSub Retardo
EndIf
Wend
While PORTB.4 = 0 ;el mismo pulasador con un tiempo de pulsado
Pause 10
Contador = Contador +1
If Contador = 500 Then ; de 5 segundos
T2 = 7200 ; enciende led_1 por 2 Horas
LED_1 = 1
GoSub Retardo
EndIf
Wend
While PORTB.4 = 0
Pause 10
Contador = Contador +1
If Contador = 100 Then
T2 = 1
LED_1 = 1
GoSub Retardo
EndIf
Wend
Contador = 0
If Flag Then ; Si Flag es 1 es porque se activo el Retardo.
Flag = 0 ; Se limpia la bandera.
LED_1 = 0 ; Apagar LED_1
EndIf
Resume ; Regresar al programa principal.
Enable ; Habilitar nuevamente las interrupciones.
; Procedimiento para retardos largos de tiempo (Por D@rkbytes)
Retardo:
T1 = 0 ; Iniciar esta variable con el valor 0
Flag = 1 ; Activar bandera de LED encendido
Aun_No: ; Etiqueta para realizar un bucle
T1 = T1 + 1 ; Incrementar T1
Pause 1000 ; Pausar 1 segundo
If T1 < T2 Then ; Si la variable T1 es menor a la variable T2...
GoTo Aun_No ; Regresar a Aun_No
Else ; Si es mayor sale del If
LED_1 = 0 ; Apaga el LED (Fin del período)
Flag = 0 ; Limpiar bandera de LED encendido
EndIf ; Termina el If
Return ; Regresa dentro de la interrupción
End
