一个串口发送程序
Private Sub Command3_Click()
Dim i As Integer
Dim d(1 To 4)
Dim c(1 To 12) As ByteText3 = Format(Text2, "0000")
d(1) = (Mid(Text3, 1, 1))
c(1) = &HF9     'begin
c(2) = &H0      'add
c(3) = &H3      'add
c(4) = &H30     'order
c(5) = "&H" + "d(1)"     就是这个表达式通不过啊
c(6) = "&H2"
c(7) = "&H2"
c(8) = "&H2"
c(10) = &H1       '小数点一位
c(11) = &H0       '不闪烁
c(12) = &HF9      'end
MSComm1.Output = c