51单片机

VB怎么以16进制发送数据给单片机

2019-07-16 02:30发布

站内问答 / 51单片机
7248 1 1374
本帖最后由 （帅）哈哈 于 2013-2-10 01:45 编辑

主要问题是数据转换不知道怎么做，导致单片机接受的数据不能用。
哪位朋友能帮帮我，谢谢！
==================================================================
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串口.JPG
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
该问题目前已经被作者或者管理员关闭, 无法添加新回复
1条回答
liuzhaoxin1020
1楼-- · 2019-07-16 08:07
不错的文件，值得收藏

一周热门 更多>