一个串口发送程序
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
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
d(1) = Left$(Text3, 1)
c(5) = CByte("&H" & d(1))
cbm666,你的我也试过了,编译通不过,