pues si lo que pretendes es hacer que tu programa cuando llegue a la utima linea vuelva al inicio del programa pues muy sencillo: goto etiqueta
EJEMPLO
inicio: 'etiqueta de inicio
portb.0 = 1 ' prende por 1 segundo el pin 0 del puerto B
pause 1000
portb.0 = 0 ' apaga por 1 segundo el pin 0 del puerto B
pause 1000
goto inicio ' vuelve a la etiqueta inicio
end ' fin
este ejemplo prende y apaga un led indefinidamente hasta que el micro sufra un reset o se apague o se reinicie. espero que esto sea lo que necesites. si no es lo que necesitas explica con mas detalle y si puedo ayudar con gusto lo hare.
si tienes razón esto lo se bien, pero tengo un proyectito donde el pic no se actualiza no se por que motivo, sí quiero que actualice debo resetearlo para que vuelva a empezar el programa como sí el "goto main" no estuviera funcionando, y estuviera haciendo solo una lectura del programa y no volviera a empezar, te pongo una copia del código para que lo veas y sí puedes me ayudes a corregir lo que este mal o lo que me haya faltado te agradezco tu ayuda...
@ DEVICE pic16F877A, WDT_ON ;Watchdog Timer ON conectado
@ DEVICE pic16F877A, PWRT_ON ;Power-On Timer conectado
@ DEVICE pic16F877A, BOD_ON ;Brown-Out Detect conectado
@ DEVICE pic16F877A, LVP_OFF ;Bajo voltaje de programación desconectado
@ DEVICE pic16F877A, CPD_OFF ;Protección del código de memoria OFF
@ DEVICE pic16F877A, PROTECT_OFF ;protección de código OFF
@ device xt_osc ;oscilador externo XT
DEFINE osc 20 ;cristal de 20MHz
AdcOn1=7 ;todos los puertos serán digitales
trisb = %00000000
trisc = %00000000
trisd = %11111111
SYMBOL fase1 = PORTD.0
SYMBOL fase2 = PORTD.1
SYMBOL fase3 = PORTD.2
SYMBOL psi1 = PORTD.3
SYMBOL psi2 = PORTD.4
SYMBOL motor_1 = PORTC.0
SYMBOL motor_2_Y = PORTC.1
SYMBOL motor_2_delta = PORTC.2
'' Define registros y bits del LCD
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
LCDOUT $FE, 1
main:
IF fase1 = 1 AND fase2 = 1 AND fase3 = 1 THEN
GOSUB normal
ELSE
GOSUB falla_electrica
ENDIF
GOTO main
normal:
GOSUB mensaje1
IF PSI1 = 1 THEN motor_1 = 1
IF PSI1 = 0 THEN motor_1 = 0
IF PSI2 = 1 THEN encender_motor2
IF psi2 = 0 THEN apagar_motor2
RETURN
falla_electrica:
GOSUB mensaje2
motor_1 = 0
motor_2_Y = 0
motor_2_delta = 0
RETURN
encender_motor2:
motor_2_Y = 1
motor_2_delta = 0
pause 10000
motor_2_Y = 0
motor_2_delta = 1
stop
return
apagar_motor2:
motor_2_Y = 0
motor_2_delta = 0
return
mensaje1:
LCDOUT $FE,$81, "Funcionamiento" ;mensaje en la primera linea
LCDOUT $FE,$c5, "Normal" ;mensaje en la segunda linea
return
mensaje2:
LCDOUT $FE,$81, "ERROR" ;mensaje en la primera linea
LCDOUT $FE,$c1, "FALLA ELECTRICA" ;mensaje en la segunda linea
return
end
Se supone que el pic debe verificar la presencia de las 3 fases del circuito eléctrico de un taller, sí llegara a faltar alguna debe parar los motores para que no se averíen y debe dar el informe en un lcd 2x16.
ORTB.6=0
