| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
jtcom01
註冊時間: 2005-07-29
文章: 413
第 1 樓
|
 發表於: 星期三 三月 08, 2006 8:08 pm 文章主題: 請各位大大幫忙..如何將mscomm32.ocx.加入form內 |
 |
|
| 我不知如何將mscomm32.ocx加入form中..請各位大大幫忙..謝謝 |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期三 三月 08, 2006 10:22 pm 文章主題: |
|
|
如果你是用modi form ... 去設計你的 form
請插入一個ActiveX(ole)物件, 選microsoft Communications Control 即可.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
babybaby
註冊時間: 2006-01-19
文章: 1
第 3 樓
|
| 發表於: 星期六 三月 11, 2006 8:49 pm 文章主題: |
|
|
| garfield 寫到: | 如果你是用modi form ... 去設計你的 form
請插入一個ActiveX(ole)物件, 選microsoft Communications Control 即可. |
除了上面用的方法還有其他寫法 請個位大大幫幫忙想想 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 4 樓
|
| 發表於: 星期日 三月 12, 2006 8:41 pm 文章主題: |
|
|
&& 本段測試程式無除錯功能，測試前請依下列步驟進行查驗 Com Port 的編號
&& Win9x 控制台=>系統=>硬體裝置管理員=>連接埠
&& Win2000 控制台=>系統=>硬體=>裝置管理員=>連接埠
Local IBf , buffer , bnum
buffer = ''
bnum = 1
With Thisform
.ADDOBJECT("ComPortN","MSCOMMMLib.MSComm.1")
.ComPortN.CommPort = 1
.ComPortN.Settings = "9600,N,8,1" && 連線速度 9600 baud、無同位檢查、資料位元 8、停止位元 1
.ComPortN.InputLen = 0 && 告訴控制項當使用 Input 時，讀取整個暫存區
.ComPortN.PortOpen = .T. && True && 開啟序列連接埠
.ComPortN.Output = "ATV1Q0" + Chr(13) && 確定 && 將 attention 指令送到數據機
&& 等待數據機回應 "OK" 的訊息
Do While .T. && 等待資料傳回到序列連接埠
IBf = .ComPortN.Input()
If AT("OK",IBf) <> 0 Or bnum > 20
Exit
EndIf
Buffer = Buffer + IBf
.Combo1.AddItem(IBf)
bnum = bnum + 1
EndDo
.ComPortN.PortOpen = .F. && False && 關閉序列連接埠
EndWith
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
ezpos
註冊時間: 2011-04-20
文章: 323
第 5 樓
|
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 6 樓
|
| 發表於: 星期日 八月 27, 2017 2:37 am 文章主題: |
|
|
應該是註冊mscomm32.ocx 就有的吧
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
ezpos
註冊時間: 2011-04-20
文章: 323
第 7 樓
|
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
