我有一台廠商提供的設備
設備的說明如下：
--------------------------------------------------------------------------
設定：
8 data bits
no parity bit generated or checked
1stop bit
selectable BAUD rates ranging form 9600 BAUD
操作指令：
ASCII DATA                Hex CodeS                Description
     '                                      60           ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

請確認你的port是COM1
廠商除了提供設備,也要有手冊!

Private Sub Form_Load()
  MSComm1.CommPort = 1
  MSComm1.Settings = "9600,n,8,1"
  'MSComm1.InputLen = 0
  MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
  MSComm1.Output = Chr(96) & Chr(13)
End Sub

不好意思，我的NB沒有COMPORT可以測試
但你這行   ByteArray(0) = H60 'cut
是不是應該這樣 ByteArray(0) = &H60 'cut

以下這篇連結供你參考，裡面有範例
http://bbs-mychat.com/read.php?tid=170069&keyword=mscomm

不好意思 首先 謝謝你們的回應

第1 是 COM1 沒錯的

第2 廠商給的手冊 就只有如上列所附的指令

另外一個朋友的回應也謝謝你

上面是我少打的 & 十分抱歉

下面是引用woandy於2008-08-19 21:25發表的 :
不好意思 首先 謝謝你們的回應

第1 是 COM1 沒錯的

第2 廠商給的手冊 就只有如上列所附的指令

另外一個朋友的回應也謝謝你

上面是我少打的 & 十分抱歉

不客氣
我想你那個廠供的設備
應該是輸出後處理的吧
因為沒有看到相關INPUT的屬性
如果樓主問題解決了
還請不吝分享給大家

下面是引用三仙於2008-08-19 22:29發表的 :


不客氣
我想你那個廠供的設備
應該是輸出後處理的吧
因為沒有看到相關INPUT的屬性
如果樓主問題解決了
還請不吝分享給大家

謝謝你 問題還沒有解決 ( 泣~~~

不知道為什麼 都沒有反應 ˊˋ

我試過短路 2.3腳 看看 傳回的資料是否正確

應該是沒錯 ˊˋ

廠商的設備附上的指令其實很少

主要用到的就是我上面貼的哪二個

一個是 CUT 一個是 ENTER

另外還有幾個如下

ASCII Data                         Hex Codes                              Description
     |                                          7C                             Divent output to display 
     \                                          5C                             Divent output to tag
    ^                                          5E                             Wait  for  key

當執行
ByteArray(1) = &H7C
MSComm1.Output= ByteArray
我用一個TEXT 收值  收到的值 就是  |

當執行
ByteArray(1) = &H60
MSComm1.Output= ByteArray
收到的值 是空白

我現在在想的是  是不是 收到的值 也要是 16進位的才會有作用 ˊˋ

下面是引用woandy於2008-08-20 00:45發表的 Re: :
當執行
ByteArray(1) = &H7C
MSComm1.Output= ByteArray
我用一個TEXT 收值  收到的值 就是  |

當執行
ByteArray(1) = &H60
MSComm1.Output= ByteArray
收到的值 是空白

我現在在想的是  是不是 收到的值 也要是 16進位的才會有作用 ˊˋ
.......

你宣告使用位元組陣列
來處理16進位的格式
所以只要雙方均遵守相同的規定就可以

我也覺得 應該沒錯阿

為啥都不動呢.....

為什麼.....為什麼.....為什麼.....為什麼.....為什麼.....

程式看起來都沒錯
但總覺得在 MSComm1.Output= ByteArray
少了vbCr復位字元
例MSComm1.Output= ByteArray & vbCr

我記得不管是送出字串還是位元組
結尾的復位字元是一定要的
請再試試   

下面是引用woandy於2008-08-20 15:34發表的 :
我也覺得 應該沒錯阿

為啥都不動呢.....

為什麼.....為什麼.....為什麼.....為什麼.....為什麼.....

vbCr 復位字元

vbCr 應該 = 什麼

他應該有值是嗎 

例如chr(13)

這樣是嗎?