论坛首页 › 电脑综合 › vb 中怎样发text的2位数转成16进制后发单片机

dyxcc 发表于 2010-2-26 22:36:42

vb 中怎样发text的2位数转成16进制后发单片机

如题：比如 vb text中有78 ，怎样发到单片机是 0x4E？如果有多个TEXT里都是两位十进制数，要依次发16进制到单片机 ！
         小弟刚接触VB，望点拨下

helloshi 发表于 2010-2-26 23:06:00

text="78"

(text-'0')*10+(text-'0')=('7'-'0')*10+('8'-'0')=0x4E

21006091 发表于 2010-2-26 23:35:14

hex(78)

cqfeiyu 发表于 2010-2-27 00:40:13

Dim s1 As String
Dim tx As TextBox
For Each tx In Text1
s1 = s1 & Chr(CByte(Val(tx.Text)))
Next
Me.MSComm1.CommPort = 1
Me.MSComm1.Settings = "9600,N,8,1"
Me.MSComm1.PortOpen = True
Me.MSComm1.Output = s1
Me.MSComm1.PortOpen = False

查看完整版本: vb 中怎样发text的2位数转成16进制后发单片机