VFP 愛用者社區

ezpos · 註冊時間: 2011-04-20 文章: 323 第 1 樓

1.使用wp.dll 透過com1讀取電子秤的資訊.都能讀到.
可是重新開的時候.卻發現到 com1被佔用了

重新開機前.執行讀取電子秤.離開.在進入是正常的
離開電子秤程式.利用超級終端機也是正常的

2.我是用以下函數
使用WPOpenPort(this_Port, "19200,N,8,1") 讀取電子秤
程式離開時是用 WPClosePort(this_Port)

3.不知道為何??還會佔用!!

kalok · 註冊時間: 2010-08-26 文章: 284 第 2 樓

程式其他部份有沒有用過 COM1?

spfrk · 註冊時間: 2004-11-08 文章: 161 第 3 樓

應該不會發生這種情形,
我也有在用磅秤機,超商
超市,飲料店, 餐廳系統,
我都有在用,com1 可能
被其他裝置佔用了
WP.DLL 撰寫者

ezpos · 註冊時間: 2011-04-20 文章: 323 第 4 樓

ezpos · 註冊時間: 2011-04-20 文章: 323 第 5 樓

spfrk · 註冊時間: 2004-11-08 文章: 161 第 6 樓

問題可能出現在 timer 上,
使用的磅秤機是, 如有重量發現,
則不停的向 RS232 發送訊號,我的寫法是
先在電腦側選好"秤重商品"後, 清除 RS232後
才開始讀取資料,讀到完整資料就關閉 RS232,
這樣就不用 TIMER 來控制了,目前在我所使用的
客戶中都很正常.

kalok · 註冊時間: 2010-08-26 文章: 284 第 7 樓

請問 spfrk, 你是否使用一個類似 for ... endfor 在一段短時間內讀取 COM port 資料

spfrk · 註冊時間: 2004-11-08 文章: 161 第 8 樓

RS232 PORT 開啟後, 預設值會有 1K BYTES BUFFER
除非資料量很大,不然是不需要使用迴圈或TIMER 來讀
取資料的.

ezpos · 註冊時間: 2011-04-20 文章: 323 第 9 樓

請問前輩們.

1.電子秤是採用穩定傳輸.還是連續傳送
我是採用連續傳送的...

2.今天我測試.都用超級終端機.接收.會有這個狀況
我發覺連續傳送.會造成電腦鎖住那個port

我改成其他模式看看

ezpos · 註冊時間: 2011-04-20 文章: 323 第 10 樓

找出問題了.不是程式的問題.是電子秤的問題

因為連續傳送會導致com接收背景程式...
所以就被佔用了..解決是電子秤不要先開啟

kalok · 註冊時間: 2010-08-26 文章: 284 第 11 樓

spfrk · 註冊時間: 2004-11-08 文章: 161 第 12 樓

我是用宇權興業股份有限公司的磅秤機
http://www.uwe.com.tw

ezpos · 註冊時間: 2011-04-20 文章: 323 第 13 樓

我使用uwe 跟EXCELL 透過wp.dll接收資料

我建議使用EXCELL 比較好.他的電子秤上方秤物體是四各角固定的.uwe只有中間的柱子
EXCELL 比較像是傳統的菜市場用.接受度好!!

如果有需要的狐友同行.可以聯繫我~~~會有優待價格喔~~~~

底下有網址

hoyawoof · 註冊時間: 2011-05-30 文章: 1 第 14 樓

http://support.microsoft.com/kb/283063

因為磅秤設定為一直傳送, 所以windows 系統會把這個com port當作滑鼠
這個問題在windows xp 也會發生, 磅秤的通訊設定如果
baud rate 如果設定在2400 ~ 9600時會發生
往上或往下設定應該可避開這個問題
如果你開機時將磅秤電源關掉, 開完機再打開也可以

richard_chen0122 · 註冊時間: 2009-10-04 文章: 11 第 15 樓

我也使用EXCELL的電子磅秤，已經將COM1的BAUD RATE 降低到1200，但是，VFP還是讀不到任何的資料，穩定傳送與連續傳送的方式都測試過，都讀不到資料，請幫助一下。系統是XP，VFP9.0。
搭配 WP.DLL 程式如下:
Func read_ComPort
Para vCom, vSetting
Local vstr, vPort, vCntNow, vsec, vok, vspace, vkey
Declare Integer WPOpenPort In Wp.Dll Integer, String
Declare Integer WPSendPort In Wp.Dll Integer, String, Integer
Declare Integer WPReadPort In Wp.Dll Integer, String @, Integer
Declare Integer WPClosePort In Wp.Dll Integer
Declare Integer WPReadStr In Wp.Dll Integer, String @
vok = WPOpenPort(1, "1200,N,8,1") && Com1 通訊埠
*!* vok = WPOpenPort(vCom, vSetting) && Com1 通訊埠
If vok < 1
Messagebox("開啟通信埠失敗")
Return '0'
Else
vspace = Space(512)
*!* vok = WPReadPort(vCom, @vspace, 256)
vok = WPReadStr(vCom, @vspace)
If vok=0
Messagebox("讀取通信埠失敗")
vok = WPClosePort(vCom)
Return '0'
ELSE
vok = WPClosePort(vCom)
Return vspace
Endif
Endif
vok = WPClosePort(vCom)