Question

VB实时错误380

Private Sub Command1_Click()
Dim number As Integer
Dim outbyte As Integer
number = Val(Text1.Text)
outbyte = CInt(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte
End Sub
MSComm1.Output = outbyte
这一行出现实时错误380
我的目的是想要从PC发送长整型数到单片机。请大侠们帮帮我

Answer 1

除了这句话外还有什么提示没有？
比如，是否放了MSComm1控件，这个控件是否指定了相应的串口号，相应的串口号是否被别的程序占用（也可能是自己的程序占用了，但是出了问题，没有正常释放，这样只能重启电脑）……

追问

我用下面的byte字节型就没问题，但字节型是0-256，
Dim number As Integer
Dim outbyte(0) As Byte
number = Val(Text1.Text)
outbyte(0) = CByte(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte

追答

这个控件我不熟，如果改成byte就可以，那就说明控件一次只能发8位数据，没有自动把int拆分成几个8位来发。实际上串口发送的数据都是8位8位发的。这样你只能自己拆了。
我看过有人给Output 赋值是一个字节数组，如果数据很多可以直接做成数组发送。

Answer 2

form最小化时form1．scaleheight和form1．scalewidth的值为0，导致text1．height和command7．left的赋值为负数，是无效属性赋值

Answer 3

Dim number As Integer
Dim outbyte(0) As Byte
number = Val(Text1.Text)
outbyte(0) = CByte(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte

追问

这样写只能发字节型数，最大256，可我要发送像12345，3.021等这样的数据啊，请大侠再给一段程序例吧，多谢！