基于VB的分布式监控系统通信设计

数、数据类型和常量的引用:
CreateFile 函数
CloseHandle 函数
BuildCommDCB 函数
SetCommState 函数
DCB数据类型      
GENERIC_READ常量
GENERIC_WRITE 常量
OPEN_EXISTING 常量
（1） MODEM设置子程序
Public Function ModemSetup( ) As Boolean
Dim lResult As Long
Dim lCommHandle As Long
Dim DCB_Comm As DCB
Dim tDCBConfig As String
ModemSetup = True
'指定lCommHandle为通信源对象的句柄
lCommHandle = CreateFile(COM2，GENERIC_READ Or GENERIC_WRITE, _
    0&, 0&, OPEN_EXISTING, 0&, 0&)
'构造DCB对象的初始化字符串
tDCBConfig = "baud=9600" & "parity=NONE" & "data=8" & "stops=1"
'用初始化字符串指定DCB对象的规范
lResult = BuildCommDCB(tDCBConfig, DCB_Comm)
'根据指定DCB对象的规范来设定通信设备
lResult = SetCommState(lCommHandle, DCB_Comm)
lResult = CloseHandle(lCommHandle)
End Function
（2）发送数据子程序
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" &"02767802169"& vbCr)
ModemSS(COM2, "ATDT" & txt1.Text & vbCr)
ModemSS(COM2, "ATH" & vbCr)
本例重在说明基本原理，没有加入错误捕获陷阱及通信异常处理。
6. 结束语
本文介绍了应用VB开发分布式监控系统的各种通信功能的基本原理和实例。通过以上实例可以看出，用VB开发通信程序简洁明了，编程效率高，可维护性好，尤其适用于自行开发中小型分布式监控系统。
参考文献
1． 俞旭明等，Visual Basic 6.0网络开发技术，人民邮电出版社，1999
2． 陶文伟等，InTouch和VB之间的动态数据交换，电脑与信息技术，1999，（6）
3． C200HX/C200HG/C200HE编程手册，日本欧姆龙公司，1997《基于VB的分布式监控系统通信设计(第4页)》