上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
jtcom01
註冊時間: 2005-07-29 文章: 408
第 1 樓
|
發表於: 星期三 三月 08, 2006 8:08 pm 文章主題: 請各位大大幫忙..如何將mscomm32.ocx.加入form內 |
|
|
我不知如何將mscomm32.ocx加入form中..請各位大大幫忙..謝謝 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 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 文章: 2158
第 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 文章: 2158
第 6 樓
|
發表於: 星期日 八月 27, 2017 2:37 am 文章主題: |
|
|
應該是註冊mscomm32.ocx 就有的吧 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
ezpos
註冊時間: 2011-04-20 文章: 323
第 7 樓
|
|
回頂端 |
|
|
|