Re: [VB6 ] RS232及時繪圖上的問題

看板Programming作者devil.時間14年前 (2011/02/28 20:01)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

MSComm1.Input 超過 32767 線上手冊： Input 屬性傳回並移除接收暫存區中的資料流。該屬性在設計階段無法使用，在執行階段為唯讀。語法 object.Input Input 屬性語法包括下列單元：單元說明 Object 物件運算式，其值為「適用於」清單中的某個物件。請注意 InputLen 屬性決定被 Input 屬性讀取的字元數。若設定 InputLen 為 0，則 Input 屬性讀取暫存區中全部的內容。透過 Input 屬性所接收到的資料的資料型態是由InputMode 屬性來決定的。如果設定 InputMode 為 comInputModeText，則 Input 屬性透過一個 Variant 傳回文字資料。如果設定 InputMode 為 comInputModeBinary，則 Input 屬性透過一個 Variant .以位元組陣列的形式傳回一組二進位的資料。 ==> 本文由 "^^ <paulgoodke.bbs@ptt.cc>" > 於 news:54SBN3%248rb%40ptt.cc 發表 > ※ [本文轉錄自 Visual_Basic 看板 #1DOwSuPT ] > 作者: 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 > > -- 風禹科技驗證有限公司 ASP.NET Web News Reader 0.2.9 UTF-8 Beta 網站地圖 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/區域水資源/徐昇網/玫瑰圖/語音通訊文章與程式 Basic/Fortran/Windows API/.Net/輔助說明檔原始碼、文章與討論微軟程式設計、系統管理使用新技術論壇討論區，網友回覆後即時簡訊、電子郵件通知： MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/ TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/ -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language