基于vb的分布式監(jiān)控系統(tǒng)通信設(shè)計(參考版)
2025-06-05 22:32本頁面
【正文】 通過以上實例可以看出，用 VB開發(fā)通信程序簡潔明了，編主頁： 程效率高，可維護(hù)性好，尤其適用于自行開發(fā)中小型分布式監(jiān)控系統(tǒng)。 vbCr) 本例重在說明基本原理，沒有加入錯誤捕獲陷阱及通信異常處理。 amp。02767802169amp。用初始化字符串指定 DCB對象的規(guī)范 lResult = BuildCommDCB(tDCBConfig, DCB_Comm) 主頁： 39。 data=8 amp。構(gòu)造 DCB對象的初始化字符串 tDCBConfig = baud=9600 amp。, 0amp。, 0amp。 首先利用 VB 的 API Viewer 瀏覽器在 module1 模塊中聲明對以下函數(shù)、數(shù)據(jù)類型和常量的引用 : 主頁： CreateFile 函數(shù) CloseHandle 函數(shù) BuildCommDCB 函數(shù) SetCommState 函數(shù) DCB數(shù)據(jù)類型 GENERIC_READ常量 GENERIC_WRITE 常量 OPEN_EXISTING 常量 （ 1） MODEM設(shè)置子程序 Public Function ModemSetup( ) As Boolean Dim lResult As Long 主頁： Dim lCommHandle As Long Dim DCB_Comm As DCB Dim tDCBConfig As String ModemSetup = True 39。 應(yīng)用 VB的 MSCOMM控件可實現(xiàn)這一功能，基本方法與下位機(jī)通信類似。遠(yuǎn)程計算機(jī) IP地址 = 1001 39。 節(jié)點 B客戶機(jī)核心程序如下： Private ConnectFlag As Boolean 39。 主頁： 節(jié)點 A服務(wù)器 核心程序如下： （ 1）初始化程序 tcpserver(0).RemoteHostIP = tcpserver(0).LocalPort = 1001 39。 VB 的WINSOCK 控件有效屏蔽了對 WINDOWS 套接字的低層操作，可方便地建立起網(wǎng)絡(luò)中任意兩個具有唯一 IP 地址節(jié)點間的連接，并通過UDP 或 TCP 協(xié)議進(jìn)行數(shù)據(jù)交換，可用于創(chuàng)建 Client/Server 應(yīng)用程序。 VB程序 中設(shè)置如下： = view|tagname 主頁： = bengsu = 1 TextBox控件有無連接、自動式連接、被動式連接和通知式連接四種連接模式，可依據(jù)實際情況靈活運(yùn)用。這時組態(tài)王作為 Server， VB作為 Client。新建一個名為 SW的 I/O變量，連接設(shè)備設(shè)為 vbdde，項目名設(shè)為 Text1。 VB作為 Server，組態(tài)王作為 Client 當(dāng)有些參數(shù)需要從 VB 應(yīng)用程序傳輸 到組態(tài)王應(yīng)用程序，如 VB 從PLC采集水位值參數(shù)至程序 的 Text1，再將數(shù)據(jù)動態(tài)傳遞給組態(tài)王的 I/O 變量 SW，這時 VB 作為 Server，組態(tài)王作為 Client。 VB中只有 TextBox、 Pic
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1