台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1075
會員總數:
246274
討論主題:
189809
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
VB6
>> VB(Comm與PaPaGO的問題)
[]
[
我要回覆
]
VB(Comm與PaPaGO的問題)
價值 : 20 QP
點閱數:1800 回應數:0
樓主
11
0
1
4
0
發送站內信
各位好
我利用ㄧ個port接收GPS的資料(一秒收一次),利用Comm觸發,只要有資料進來,就立刻把經緯度資料顯示在PaPaGO上
但我遇到一個問題,就是PaPaGo的介面會一直閃,還沒收到下ㄧ筆資料時就會反白(間隔很短),不知道要如何解決這個問題
請大家幫幫我,謝謝
這是我寫在Comm1裡面的程式,請大家幫我看看
Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvCD Case comEvCTS Case comEvDSR Case comEvReceive If MSComm1.InBufferCount > 0 Then Buf = Trim(MSComm1.Input) End If nGisX = Val(Mid(Buf, 1, 9)) nGisY = Val(Mid(Buf, 11, 8)) Call myobj.SetMapCenterXY(nGisX, nGisY) Call myobj.SetFlagXY(nGisX, nGisY) Dim bResult As Long Call myobj.OutputMapImage(App.Path & "\\data\\ppgMap.bmp", bResult) P1.Picture = LoadPicture(App.Path & "\\Data\\ppgMap.bmp") Case comEvSend End Select End Sub
本篇文章發表於2007-08-16 18:04
目前尚無任何回覆
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved