hola como estan muchos saludos es mi primer post y necesito ayuda con la comunicacion serial con el pic 16f877 el programa esta realizado en pic simulator ide y lo que pasa es que en protheus funciona de maravilla con el virtual termina mando lo que necesito cuando se genera una entrada (lo que estoy haciendo es un sistema de control de semaforos), pero una ves lo paso a fisico no me lee absolutamente nada en el hyperterminal quisiera que me den una mano aca les dejo el codigo y el circuito
AllDigital
Dim falla1 As Byte
Dim inicio1 As Byte
Dim inicio2 As Byte
Dim inicio3 As Byte
TRISA = %11111111
TRISB = %00001111
TRISC.7 = 0
TRISC.6 = 0
RB0 = 0
primero:
falla1:
If PORTA.1 = 1 Then
Goto inicio
Else
Goto falla2
falla2:
If PORTA.2 = 1 Then
Goto inicio1
Else
Goto falla3
falla3:
If PORTA.3 = 1 Then
Goto inicio2
Else
Goto falla4
falla4:
If PORTA.4 = 1 Then
Goto inicio3
Else
Goto falla1
inicio:
serout RC6, 9600, "SEMAFORO EN MAL ESTADO", CrLf
WaitMs 1
serout RC6, 9600, "ESPAÑA Y COLOMBIA", CrLf
WaitMs 1
serout RC6, 9600, "LAMPARA QUEMADA", CrLf
WaitMs 1
Goto fin
inicio1:
serout RC6, 9600, "SEMAFORO EN MAL ESTADO", CrLf
WaitMs 1
serout RC6, 9600, "ESPAÑA Y COLOMBIA", CrLf
WaitMs 1
serout RC6, 9600, "FALLA INTERNA", CrLf
WaitMs 1
Goto fin
inicio2:
serout RC6, 9600, "SEMAFORO EN MAL ESTADO", CrLf
WaitMs 1
serout RC6, 9600, "ESPAÑA Y COLOMBIA", CrLf
WaitMs 1
serout RC6, 9600, "DOS LUCES ENCENDIDAS", CrLf
WaitMs 1
Goto fin
inicio3:
serout RC6, 9600, "SEMAFORO EN MAL ESTADO", CrLf
WaitMs 1
serout RC6, 9600, "ESPAÑA Y COLOMBIA", CrLf
WaitMs 1
serout RC6, 9600, "DESCONECTADO", CrLf
WaitMs 1
Goto fin
fin:
Endif
Endif
Endif
Endif
End
