欢迎来到天天文库
浏览记录
ID:40575008
大小:131.00 KB
页数:23页
时间:2019-08-04
《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事件/*******
此文档下载收益归作者所有