基于vb的分布式監(jiān)控系統(tǒng)通信設(shè)計(jì)-資料下載頁
2025-06-01 22:32本頁面
【正文】 n ModemSetup( ) As Boolean Dim lResult As Long 主頁： Dim lCommHandle As Long Dim DCB_Comm As DCB Dim tDCBConfig As String ModemSetup = True 39。指定 lCommHandle為通信源對象的句柄 lCommHandle = CreateFile(COM2 ， GENERIC_READ Or GENERIC_WRITE, _ 0amp。, 0amp。, OPEN_EXISTING, 0amp。, 0amp。) 39。構(gòu)造 DCB對象的初始化字符串 tDCBConfig = baud=9600 amp。 parity=NONE amp。 data=8 amp。 stops=1 39。用初始化字符串指定 DCB對象的規(guī)范 lResult = BuildCommDCB(tDCBConfig, DCB_Comm) 主頁： 39。根據(jù)指定 DCB對象的規(guī) 范來設(shè)定通信設(shè)備 lResult = SetCommState(lCommHandle, DCB_Comm) lResult = CloseHandle(lCommHandle) End Function （ 2）發(fā)送數(shù)據(jù)子程序 Public Function ModemSD(tComm As String, tModemSend As String) As Boolean Dim nModem As Integer ModemSS = True nModem = FreeFile Open tComm For Output As nModem 主頁： Print nModem, tModemSend Close nModem End Function （ 3）主程序 ModemSetup ModemSS(COM2, ATDT amp。02767802169amp。 vbCr) ModemSS(COM2, ATDT amp。 amp。 vbCr) ModemSS(COM2, ATH amp。 vbCr) 本例重在說明基本原理，沒有加入錯(cuò)誤捕獲陷阱及通信異常處理。 6. 結(jié)束 語 本文介紹了應(yīng)用 VB開發(fā)分布式監(jiān)控系統(tǒng)的各種通信功能的基本原理和實(shí)例。通過以上實(shí)例可以看出，用 VB開發(fā)通信程序簡潔明了，編主頁： 程效率高，可維護(hù)性好，尤其適用于自行開發(fā)中小型分布式監(jiān)控系統(tǒng)。 參考文獻(xiàn) 1． 俞旭明等， Visual Basic 網(wǎng)絡(luò)開發(fā)技術(shù)，人民郵電出版社， 1999 2． 陶文偉等， InTouch 和 VB 之間的動(dòng)態(tài)數(shù)據(jù)交換，電腦與信息技術(shù)， 1999，（ 6） 3． C200HX/C200HG/C200HE 編程手冊，日本歐姆龍公司， 1997 聯(lián)系方式； 郵編： 430072 地址： 武漢水利電力大學(xué)動(dòng)力系自動(dòng)化教研室 電話： 02767802169或 02767802267 Email: or 主頁：
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1