ola buenos dias
escribo a ver si alguien me soluciona una duda.
Uso pbp y un pic 16f88 y tengo un problema cuando en pbp pongo
pause 1000 en vez de un segundo me espera derca de un minuto....
aqui dejo el codigo a ver si es por algun error.
uso el oscilador interno del F88
escribo a ver si alguien me soluciona una duda.
Uso pbp y un pic 16f88 y tengo un problema cuando en pbp pongo
pause 1000 en vez de un segundo me espera derca de un minuto....
aqui dejo el codigo a ver si es por algun error.
uso el oscilador interno del F88
Código:
'****************************************************************
'* Name : Semaforo .BAS *
'* Author :Ies La Serena 4º ESO A "tecnologia" Grupo A *
'* Notice : Victor Romero Fernandez *
'* : Yostin Garcia Arias *
'* Date : 21/04/2009 *
'* Version : 1.0 *
'* Notes :Cruze con 4 Semaforos *
'* :Version altenativa al Circuito con puertas logicas *
'****************************************************************
define osc 4
RA var PORTA.3 'rojo del semaforo A
AA var PORTB.1
VA VAR PORTB.2
RD VAR PORTB.3 ' rojo de los semaforos b y d
AD VAR PORTB.4
VD VAR PORTB.5
RC VAR PORTA.7 ' rojo del semaforo c
AC VAR PORTA.6
VC VAR PORTA.2
TRISA = 0 ' TODO EL PIC COMO SALIDAS
TRISB = 0
TESTLED:'Prueba que todos los led funcionen
PORTA = %11111111
PORTB = %11111111
PAUSE 1000
PORTA = %00000000
PORTB = %00000000
loop: 'comineza el programa
COMB1:
Va = 1 'Enciende los led correspondientes
Rd = 1
RC = 1
PAUSE 30000 'Espera el tiempo que le corresponde en milisegundos
PORTA = 0
PORTB = 0
COMB2:
VA = 1
RD = 1
VC = 1
PAUSE 30000
PORTA = 0
PORTB = 0
COMB3:
AA = 1
VA = 1
RD = 1
VC = 1
PAUSE 10000
PORTA = 0
PORTB = 0
COMB4:
RA = 1
RD = 1
VC = 1
PAUSE 20000
PORTA = 0
PORTB = 0
COMB5:
RA = 1
VD = 1
RC = 1
PAUSE 30000
PORTA = 0
PORTB = 0
COMB6:
RA = 1
AD = 1
VD = 1
RC = 1
PAUSE 10000
PORTA = 0
PORTB = 0
GOTO loop 'Vuelve a la etiqueta loop( vuelve a empezar la secuencia)