Mọi người viết hộ em giao tiếp 89c52 với VB với !

[hungcntd]

mọi người viết hộ em chương trình giao tiếp với VB qua rs232 với ,, em truyền 16 bit lên VB
chương trình của em bên vb nó không tính tổng lại
void send(unsigned char a) // ham gui 1 ky tu
{
SBUF=a; //ghi byte a vao SBUF
while(TI==0){} //doi truyen xong du lieu co ti bat len 1
TI=0; //xoa
}

main ()
{ BC=num%256;
send(BC);
BT=num/256;
send(BT);
}

Còn bên vb l:
Private Sub MSComm1_OnComm()
dim bien1 as interger
dim bien2 as interger
If Me.MSComm1.CommEvent = comEvReceive Then ' khi co du lieu truyen den thi hien thi ra label 2
if mscomm1.input="<" then
bien1=asc(mscomm1.input)
bien2=asc(mscomm1.input)
Label2.Caption = bien1*256+bien2 ' khi nhan ve la dang so nguyen dung asc de chuyen sang string
end if
End If
End Sub


các bác xem hộ em tí .... chân thành cảm ơn các bác nhiều

[lose]

mọi người viết hộ em chương trình giao tiếp với VB qua rs232 với ,, em truyền 16 bit lên VB
chương trình của em bên vb nó không tính tổng lại
void send(unsigned char a) // ham gui 1 ky tu
{
SBUF=a; //ghi byte a vao SBUF
while(TI==0){} //doi truyen xong du lieu co ti bat len 1
TI=0; //xoa
}

main ()
{ BC=num%256;
send(BC);
BT=num/256;
send(BT);
}

Còn bên vb l:
Private Sub MSComm1_OnComm()
dim bien1 as interger
dim bien2 as interger
If Me.MSComm1.CommEvent = comEvReceive Then ' khi co du lieu truyen den thi hien thi ra label 2
if mscomm1.input="<" then
bien1=asc(mscomm1.input)
bien2=asc(mscomm1.input)
Label2.Caption = bien1*256+bien2 ' khi nhan ve la dang so nguyen dung asc de chuyen sang string
end if
End If
End Sub


các bác xem hộ em tí .... chân thành cảm ơn các bác nhiều

if mscomm1.input="<" then
bien1=asc(mscomm1.input)
bien2=asc(mscomm1.input)

Theo mình thì vđk bạn phải gửi kí tự '<' trước khi gửi 2 biến kia nhé, vì rõ ràng trên VB bạn đã có điều kiện if mscomm1.input="<" then thì mới lấy tiếp 2 biến tiếp theo đó. Mình nghĩ là vậy thôi, bạn thử thử xem sao nha