vb向串口发送一串16进制的指令，实现通信

2015-03-28 06:37:35 574 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wanglinlin19910202 墨衍会员 · AI 创作全网分发关注 + 加入社区

视觉暂留POV显示：从原理到实践，打造空中悬浮图像视觉暂留是人眼的一种生理现象，指光对视网膜所产生的视觉在光停止作用后，仍保留一段时间的现象。基于这一原理，通过控制高速移动的LED光源在特定位置的亮灭，人脑会将离散的光点感知为连续的图像，这便是POV（视觉暂留）显示技术的核心。这项技术巧妙地将时间维度转换为空间维度，实现了用一维线性运动构建二维虚拟屏幕的工程实践，具有低硬件成本和高创意表现力的技术价值。其应用场景广泛，从经典的摇摇棒、旋转风扇屏到创意的自行车轮毂显示，都是其典型体现。本文深入探讨了POV显示的系统架构，涵盖了从51单片机到现代微控制器的硬件阅读详情

求大神帮忙看看这个程序，输入的十进制最后怎么转换成16进制，串口通信怎么实现？目标指令码如下：
FEFE FE 68 20 00 00 03 13 00 00 00 24 12 03 01 00 00 00 00 00 05 00 00 00 00 05 00 00 00 00 2C 0E 16
要求在第一列输入的值如123456.78（最大为999999.99）转换为78H 56H 34H 12H样式并替换到00 00 00 00 05 00 00 00 00 05 00 00 00 00 2C之间（05 05 2C作为单位不变）并将指令发送到单片机，求大神帮忙分析一下错误，如何改正？

Private Sub Command2_Click()
Dim s As String, i As Integer, j As Integer, k As Integer, m(3) As Integer, a

s = Val(Text1.Text) * 100
j = Len(s)
For k = 0 To 7 - j Step 1
s = "0" & s
Next k
For i = 1 To Len(s) Step 2
Text5.Text = Text5.Text & Mid(s, Len(s) - i, 2) & " "
Next
m(3) = Mid(s, 1, 2)
Text6.Text = Val(m(3) \ 10) * 16 + Val(m(3) Mod 10)
' m(2) = Mid(s, 3, 2)
' m(1) = Mid(s, 5, 2)
' m(0) = Mid(s, 7, 2)
' a = Array(m(0), m(1), m(2), m(3))
' For i = 0 To 3
' Text6.Text = Text6.Text & " " & m(i) 'Text6 = Text6 & vbCrLf & m(0) & m(1) & m(2) & m(3)
' Next i
' s = Text2.Text * 100
' j = Len(s)
' For k = 0 To 7 - j Step 1
' s = "0" & s
' Next k
' For i = 1 To Len(s) Step 2
' Text6.Text = Text6.Text & Mid(s, Len(s) - i, 2) & " "
' Next
' s = Text3.Text * 100 '流量不能超过六位整数，考虑将*100去掉
' j = Len(s)
' For k = 0 To 7 - j Step 1
' s = "0" & s
' Next k
' For i = 1 To Len(s) Step 2
' Text7.Text = Text7.Text & Mid(s, Len(s) - i, 2) & " "
' Next
' Text4.Text = &H46&H45 &H46&H45 &H46&H45 &H46&H45 &H68 &H20 &HAA &HAA &HAA &HAA &HAA &HAA &HAA & vbCrLf & Text5.Text & " 05 " & Text6.Text & " 05 " & Text7.Text & " 2C 81 16"
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "2400,N,8,1"
'MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 1
MSComm1.RThreshold = 1
MSComm1.Output = cha$(46) + cha$(45)
'MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim buffer As String
buffer = MSComm1.Input
MSComm1.OutBufferCount = 0

End Sub