[nguyenthangcdt]

CODE PIC 16F877A
#include <main.h>

//===================khai bao thu vien ct=================================//
#include <lcd_rs232.c>

//===========================khai bao dia chi cong===========================//
#byte porta = 0x05
#byte portb = 0x06
#byte portc = 0x07
#byte portd = 0x08
#byte porte = 0x09


//===========================khai bao bien=============================//
char str[5];
char s;
int16 gt,i;
//===========================ham ngat nhan==============================//
#int_RDA
void RDA_isr(void)
{
gets(str);

}

//============================chuong trinh chinh==========================//
void main()
{
set_tris_a(0);
set_tris_b(0xff);
set_tris_c(0xc0);
set_tris_d(0xe0);
set_tris_e(0);
enable_interrupts(INT_RDA);
enable_interrupts(GLOBAL);
lcd_init();
while(true)
{
lcd_putcmd(0x80);
printf( lcd_putchar,"KT: %s",str);
}
}

//================================================== ===========
CODE VB6

Private Sub cmd4_Click()
If (comm.PortOpen = False) Then
MsgBox " Hay mo cong truoc khi chay chuong trinh ", vbOKOnly, " Thong Bao"
Else
comm.Output = txt1.Text
End If
End Sub



moi nguoi ai biết giúp minh với ! trong doạn chuong trình này mình gửi một chuỗi ký tự từ vb xuống ,nhưng dưới con pic thì ko nhận được dữ liệu . Sau mỗi lần reset pic và để nguyên vb vẫn chay thì nhận được dữ liệu và hiển thị lên được lcd (NHƯNG MỘT LẦN TRUYỀN PHẢI RESET PIC 1 LẦN ) , nếu truyền một ký tự thì vẫn ok . AI BIẾT GIÚP MÌNH VỚI