作者paulgoodke (^^)
看板Visual_Basic
标题[VB6 ] RS232及时绘图上的问题
时间Tue Feb 22 20:08:21 2011
这是我利用RS232传输进入VB6的绘图程式
Private Sub Command5_Click()
Dim a!(30), b!(30), num%, instring%(30)
Dim i As Integer
num = MSComm1.InBufferCount '取输入缓冲区字节个数
++instring(i) = MSComm1.Input '把输入缓冲区资料送给阵列
For i = 0 To 250
a(i) = i
b(i) = instring(i)
Graph1.Cls
If i = 1 Then
Graph1.PSet (a(i), b(i))
Else
Graph1.Line -(a(i), b(i)) '将阵列资料给绘图函数
End If
Next i
End Sub
可是当我去跑程式时他会出现错误"Run-time error '6' "
Overflow
然後按DEBUG他会显示在++的那行中
想请问我这样的程式哪里有错误@@
这是我的介面
http://ppt.cc/l2R2
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.39.138
※ paulgoodke:转录至看板 Programming 02/22 20:08
※ paulgoodke:转录至看板 ask 02/22 20:09