| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
poisson1024
註冊時間: 2015-07-21
文章: 5
來自: 嘉義
第 1 樓
|
 發表於: 星期二 七月 21, 2015 3:48 pm 文章主題: rs232連接地磅歸零疑問 |
 |
|
搜尋過各先進文章後，在讀取地磅是沒有問題的。
問題在無論怎麼送出歸零訊號，地磅還是不理我 
.Comm1.settings="2400,n,7,2"
.Comm1.DTREnable=.T.
.Comm1.RTSEnable=.T.
.Comm1.CommPort=1
Out_String="ZERO"+ chr(13) + chr(10)
.Comm1.PortOpen=.T.
.Comm1.Output=Out_String
.Comm1.PortOpen=.F.
還請各位先進指導指正，謝謝。 |
|
| 回頂端 |
|
 |
bx1166
註冊時間: 2011-12-06
文章: 273
第 2 樓
|
| 發表於: 星期四 七月 23, 2015 6:57 am 文章主題: |
|
|
| 這個要問的是地磅廠商吧？ |
|
| 回頂端 |
|
|
poisson1024
註冊時間: 2015-07-21
文章: 5
來自: 嘉義
第 3 樓
|
| 發表於: 星期四 七月 23, 2015 9:30 am 文章主題: |
|
|
廠商他們基本上只提供他們寫好的軟體(基本功能，使用VB)
公司是使用VFP，所以要自己改用VFP寫
我有看過廠商提供的source code，也有請廠商提供地磅的使用手冊
卻還是找不到無法歸零的原因
想問問經驗豐富的前輩們是否能提點提點 |
|
| 回頂端 |
|
|
bx1166
註冊時間: 2011-12-06
文章: 273
第 4 樓
|
| 發表於: 星期四 七月 23, 2015 9:40 am 文章主題: |
|
|
一般都會有前置的字元通知硬體這個是要送來指令
基本上看看原來VB程式碼看看
我認為多傳送一兩次看看有沒有反應
也就是說倒數第二行多重複一兩次看看
而且你第一行是n,7,2
再傳出字串,顯然它讀到的不是你送出去的
你把ansi切成七bit
結果顯然不一樣
改成n,8,2比較有希望 |
|
| 回頂端 |
|
|
poisson1024
註冊時間: 2015-07-21
文章: 5
來自: 嘉義
第 5 樓
|
| 發表於: 星期四 七月 23, 2015 11:50 am 文章主題: |
|
|
以下為廠商給的VB
| 代碼: |
Begin VB.Form Form1
Caption = "Com1zero"
ClientHeight = 630
ClientLeft = 60
ClientTop = 420
ClientWidth = 1635
LinkTopic = "Form1"
ScaleHeight = 630
ScaleWidth = 1635
StartUpPosition = 3 '系統預�]值
Visible = 0 'False
Begin MSCommLib.MSComm MSComm1
Left = 480
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
BaudRate = 2400
ParitySetting = 2
DataBits = 7
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
MSComm1.PortOpen = True
MSComm1.Output = "MZ" + Chr(13) + Chr(10)
MSComm1.PortOpen = False
End
End Sub
|
廠商給的使用手冊內是寫"MZ"、"ZERO"都是歸零
po文時是使用ZERO，測試時兩個都會測試
廠商給的程式有試過可以歸零
謝謝bx1166大的意見 |
|
| 回頂端 |
|
|
bx1166
註冊時間: 2011-12-06
文章: 273
第 6 樓
|
| 發表於: 星期四 七月 23, 2015 12:46 pm 文章主題: |
|
|
| 懶得試的話就直接在vfp裡面呼叫它的程式也可以搞定吧？ |
|
| 回頂端 |
|
|
poisson1024
註冊時間: 2015-07-21
文章: 5
來自: 嘉義
第 7 樓
|
| 發表於: 星期四 七月 23, 2015 2:04 pm 文章主題: |
|
|
| bx1166 寫到: | | 懶得試的話就直接在vfp裡面呼叫它的程式也可以搞定吧？ |
最後如果找不出來的話，應該就會這樣做了  |
|
| 回頂端 |
|
|
perry
註冊時間: 2014-07-20
文章: 203
第 8 樓
|
| 發表於: 星期五 七月 24, 2015 2:38 am 文章主題: |
|
|
DTREnable = -1 'True
看到這個,您是否該將DTREnable=.t. 改成 DTREnable=-1 試看看!!
畢竟在VB中 True,False 在VFP中才是用 .T.,.F.
MSComm1.PortOpen = True &&在VFP中用.t.
MSComm1.PortOpen = False &&在VFP中用.f.
RTSEnable 在您的VB程式中沒看到. |
|
| 回頂端 |
|
|
poisson1024
註冊時間: 2015-07-21
文章: 5
來自: 嘉義
第 9 樓
|
| 發表於: 星期一 七月 27, 2015 1:38 pm 文章主題: |
|
|
今天再仔細的看了一下廠商提供的手冊
裡面規定的通信協定總共定義了6種
N,8,1，N,8,2，E,7,1，E,8,1，O,7,1，O,8,1
就是沒有我一開始使用的N,7,1
改完後終於正常歸零了
讓各位見笑了
可是很奇怪，跟廠商提供的VB裡面寫的也不太一樣....
為什麼廠商的程式卻可以歸零 
也謝謝perry大的意見 |
|
| 回頂端 |
|
|
bx1166
註冊時間: 2011-12-06
文章: 273
第 10 樓
|
| 發表於: 星期一 七月 27, 2015 4:56 pm 文章主題: |
|
|
Comm port是很多年前的格式，很直接，也很單純,都快消失了
難得還能聽到有人還在用，真的很好玩
原廠的程式一定不會是7bits的,示範的應該是錯誤的,是有些疏漏了。
解決了就好,我們旁邊的觀眾偶而也能學習到一些 |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
