1个回答
展开全部
怎麼标题和问题不是一个内容?
更多追问追答
追问
标题是问题中的一部分……
追答
'初始化部分
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.InputMode = 1
MSComm1.RThreshold = 1
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
‘发送部分
b(0) = &H53
b(1) = &H54
b(2) = &H1
b(7) = &H45
b(8) = &H4E
For j = 1 To 4
b(2 + j) = "&H" & Hex(Asc(Mid(Text1.Text, j, 1)))
Next
If MSComm1.PortOpen = True Then
MSComm1.Output = b()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询