Dim speed_str(2) As Byte Dim second_count Dim second_count1 Dim bit_direc '电机方向位 Dim bit_free '电机自由位 Public Function H_To_B(ByVal Hex As String) As String Dim I As Long Dim B As String Hex = UCase(Hex) For I = 1 To Len(Hex) Select Case Mid(Hex, I, 1
此部分代码配合我博客上的stm32部分的M3点灯使用,在使用代码前,将此代码烧进stm32f103zet6中,即可在串口接收到数据之后,控制灯的亮灭。
具体协议如下:通过如下格式指令控制外设:
= A B C D ! 共6个字节。其中ABCD个字段分别表示4个设备。其控制方式为:
0x11亮灯 0x22 灭灯。而如果某个设备是蜂鸣器,则0x11为响1声,0x22为响2声。
对于bigBoard,例:=0x11 0x22 0x11 0x22! 一三灯亮二四灯灭
对于deFly,C字段为蜂鸣