凡亿问答 | VB怎么以16进制发送数据给单片机?
VB怎么以16进制发送数据给单片机?

 主要问题是数据转换不知道怎么做,导致单片机接受的数据不能用。
哪位朋友能帮帮我,谢谢!
==================================================================
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;
}

0个回答
热门问答
我来回答
首页
0
0
0