không nhận được tín hiệu từ pic16f877a

[nguyen binh]

Em có viết chương trình giao tiếp cổng com. Khi test thử gửi tín hiệu xuống để tắt mở led thì được nhưng không thấy tín hiệu gửi về máy tính. các huynh có cách nào giúp em phát hiện tín hiệu gửi về bằng cách đo đạc được không?
đoạn code em viết cho píc6f877a
while true
if (UART1_Data_Ready() <> 0) then
receive = UART1_Read()
uart1_write(receive)
rc5_bit = receive
delay_ms(500)
end if
wend

còn đây là code visual basic
Private Sub Command1_Click()
MSComm1.Output = "1"
End Sub

Private Sub Command2_Click()
MSComm1.Output = "0"
End Sub

Private Sub Form_Load()
Dim inputstring As Byte
MSComm1.CommPort = 4
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Text1.Text = MSComm1.Input
End If
End Sub

[phamminhtuan]

Bạn chú ý, giá trị bạn gởi xuống là ASCII "0" = 0x30 và ASCII "1" = 0x31 hexal,
Bạn có thể nối chân RX và TX của cổng RS232 để kiểm tra xem phần mềm VB bạn viết đúng chưa.

[nguyen binh]

do em test thử nên gửi tín hiệu bất kỳ chỉ để xem truyền và nhận có ổn không nhưng em chỉ truyền xuống pic được còn nhận thì chưa. em đã nối RX với TX để test nhưng vẫn gặp trục trặc ấy. hay là đoạn code em viết cho pic có vấn đề? xin anh chỉ giúp.thanks