扫码关注
主要问题是数据转换不知道怎么做，导致单片机接受的数据不能用。
哪位朋友能帮帮我，谢谢！
==================================================================
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;
}
VB怎么以16进制发送数据给单片机？
提问于
2022-07-10 01:27
