主要问题是数据转换不知道怎么做，导致单片机接受的数据不能用。
哪位朋友能帮帮我，谢谢！
==================================================================
VB端主要程序：
8个checkbox框对应8个LED加上一个发送按钮Command1
Private Sub Command1_Click()
Dim A
A = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64 + Check8.Value * 128
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True          '打开串口
End If
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(CInt(A))            '向单片机发送数据
End Sub
==================================================================
单片机端主要程序：
接受一个数据传送P1口，控制8个LED亮灭。
void ser() interrupt 4
{
    RI=0;
    P1=SBUF;
}