有哪些信誉好的足球投注网站- 1、本文档共23页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB串口通信源程序VB串口通信源程序
[程序宝典]VB串口通讯实例?? 程序匠人??? 2005-9-22 14:23:00???? 阅读全文(3939) | 回复(0) | 引用(0) ?|? 查看《匠人的百宝箱》代理商品 VB串口通讯实例 作者：liwenzhao 高精度电压表(24bit)? VB源程序 Dim PortValue As Integer??? 端口号选择1-4 Dim value As Double???????? 当前一次取值 Dim value2 As Double??????? 要显示的值 Dim valueSum As Double??????? 和 Dim numCount As Double????? 算平均值是的计数个数 Dim func As Integer???????? 功能号标志1-4 Dim valueFlag As Integer Check1_Click()为控制Command1是否Enabled
Private Sub Check1_Click() 自动刷新 被选中则 刷新按钮无效 If Check1.value Then ??? Command1.Enabled = False Else ??? Command1.Enabled = True ??? ??? Command1.SetFocus End If End Sub Private Sub Command1_Click() ??? 显示 ??? Call display End Sub Private Sub Command2_Click() 复位 ??? valueSum = 0 清计数和 ??? numCount = 1 清计数个数 ??? Label6.Caption = Str(numCount - 1) 显示复位 ??? value = 0 ??? 当前一次取值value2 = 0 ??? 要显示的值valueFlag = 0 ??? Call display End Sub
Private Sub Form_Activate() ??? numCount = 1 ??? value = 0 ??? valueSum = 0 ??? PortValue = 1 ??? Text1.Visible = False ??? Label6.Caption = 0 ??? Option1(0).value = True ??? Option2(0).value = True 为什么两个都是True???
Command1.SetFocus ???SetFocus是什么？
Label1.Caption = Format(value2, 0.000,000) ???Format为格式输出函数
For i = 0 To 3 ??????? If Option2(i).value = True Then ??????????? func = i + 1 ??????? End If ??? Next i ??? Check1.value = 1 ??? Call ComPortOpen End Sub
Public Sub ComPortOpen() 开串口 ??? With MSComm1 ??????? .CommPort = PortValue????????????? 使用COM1 ??????? .Settings = 9600,N,8,1?????? 设置通信口参数 ??????? .InBufferSize = 40 ??????? 设置MSComm1接收缓冲区为40字节 ??????? .OutBufferSize = 2 ??????? 设置MSComm1发送缓冲区为2字节 ?????? ?OutBufferSize是以字符为单位的？？？
.InputMode = comInputModeBinary ??????? 设置接收数据模式为二进制形式 ??????? .InputLen = 1 ?????? ?InputLen单位是字符数
设置Input 一次从接收缓冲读取字节数为1 ??????? .SThreshold = 1VB中SThreshold单位是字符数
设置Output 一次从发送缓冲读取字节数为1 ??????? .InBufferCount = 0? 清除接收缓冲区.OutBufferCount = 0???? 清除发送缓冲区MaxW = -99 ??????? 最大值赋初值 ??????? MinW = 99????????????
最小值赋初值 ??????? w = 0 ??????? 数据个数计数器清零 ??????? .RThreshold = 1 ??????? On Error Resu
文档评论（0）