Problem with receiving data from com port !! Please help me...

[meopic]

Sau khi đã truyền lên pc okie, e lại tiếp tục chuyển sang nghiên cứu phần truyền từ pc xuống com. Em định thiết lập 1 form VB như sau :


Em sẽ lập trình để khi mình nhập từ bàn phím vào Text 1 số kí tự, sau đó press Send thì ở LCD4bit của em cũng sẽ nhận được tương ứng.
Em có tham khảo trên 4rum mình và tiến hành lập trình vb tương tự như sau;

Private Sub Form_KeyPress(KeyAscii As Integer)
Dim DataToSend As String
DataToSend = KeyAscii
MSComm1.Output = DataToSend
End Sub
Private Sub Form_Load()
With MSComm1
.Settings = "9600,N,8,1"
.RThreshold = 1
.SThreshold = 0
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = comInputModeText
.ParityReplace = ""
.CommPort = 6 ' using com6
End With
End Sub

Và ở CCS thì em viết chương trình cho pic16f88 của mình như sau :

#include <16f88.h>
#include <def_88.h>
#device *=16 ADC=10
#fuses NOWDT, HS, PUT, NOLVP
#use delay(clock=4000000)
#use rs232(baud=9600,parity=N,xmit=PIN_B5,rcv=PIN_B2,bits=9)
#include <LCD_4BIT16F88edit.C> // Thu vien ham cho LCD
void main()
{
trisB=0x00;
lcd_init();
lcd_putcmd(0x80);
getc();
}

Về hardware của e thì đã okie hết, nhưng có điều e chưa chắc về chương trình VB và CCS( vì e nạp và chạy thử rùi nhưng o thấy trăng sao j cả ). Với lại e cũng chưa thiết lập code cho command send của mình, các bác cho e ý kiến nhá !!
Về phần VB chắc code gửi data của e vẫn chưa được : vẫn còn hoài nghi cái chỗ mscomm1.output=datatosend.
Về phần CCS chắc code nhận data chắc cũng o ổn : e nghi ngờ cách dùng hàm getc() của mình, hehe.
Các tiền bối chỉ giáo cho kẻ hậu bối này với nhá !!!
Thanks nhìu nhìu !!!