VB串口通信源程序

《VB串口通信源程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、[程序宝典]VB串口通讯实例  程序匠人   2005-9-2214:23:00    阅读全文(3939)

2、回复(0)

3、引用(0) 

4、 查看《匠人的百宝箱》代理商品VB串口通讯实例作者：liwenzhao高精度电压表(24bit) VB源程序DimPortValueAsInteger   '端口号选择1-4DimvalueAsDouble        '当前一次取值Dimvalue2AsDouble       '要显示的值DimvalueSumAsDouble       '和DimnumCountAsDou

5、ble     '算平均值是的计数个数DimfuncAsInteger        '功能号标志1-4DimvalueFlagAsInteger/**********************************************'Check1_Click()为控制Command1是否EnabledPrivateSubCheck1_Click()'自动刷新被选中则刷新按钮无效IfCheck1.valueThen   Command1.Enabled=FalseElse   Command1.Enabled

6、=True      Command1.SetFocusEndIfEndSub*********************************************//**********************************************PrivateSubCommand1_Click()   '显示   CalldisplayEndSub*********************************************/PrivateSubCommand2_Click()'复位 

7、  valueSum=0'清计数和   numCount=1'清计数个数   Label6.Caption=Str(numCount-1)'显示复位   value=0   '当前一次取值value2=0   '要显示的值valueFlag=0   CalldisplayEndSubPrivateSubForm_Activate()   numCount=1   value=0   valueSum=0   PortValue=1   Text1.Visible=False   Label6.Caption="0"

8、   Option1(0).value=True   Option2(0).value=True'为什么两个都是True   Command1.SetFocus   'SetFocus是什么？Label1.Caption=Format(value2,"0.000,000")   'Format为格式输出函数Fori=0To3       IfOption2(i).value=TrueThen           func=i+1       EndIf   Nexti   Check1.value=1   'Cal

9、lComPortOpenEndSubPublicSubComPortOpen()'开串口   WithMSComm1       .CommPort=PortValue             '使用COM1       .Settings="9600,N,8,1"      '设置通信口参数       .InBufferSize=40       '设置MSComm1接收缓冲区为40字节       '.OutBufferSize=2       '设置MSComm1发送缓冲区为2字节       'VB中Ou

10、tBufferSize是以字符为单位的？？？.InputMode=comInputModeBinary       '设置接收数据模式为二进制形式       .InputLen=1       'VB中InputLen单位是字符数'设置Input一次从接收缓冲读取字节数为1       '.SThreshold=1'VB中SThreshold单位是字符数'设置Output一次从发送缓冲读取字节数为1       .InBufferCount=0 '清除接收缓冲区'.OutBufferCount=0    '清除发

11、送缓冲区'MaxW=-99       '最大值赋初值？？？？       'MinW=99            '最小值赋初值？？？？       'w=0       '数据个数计数器清零       .RThreshold=1       OnErrorResumeNext'？？？？       '设置接收一个字节产生OnComm事件/*******