這是我利用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