开发工具:
文件大小: 4kb
下载次数: 0
上传时间: 2012-10-01
详细说明： '定义窗体级变量 '在显示、绘图、报警等过程中使用 Dim datatemp(1000) As Single '用于存储温度采样值 Dim num As Integer '用于存储采样值个数 '串口初始化 '在窗体的Load事件中加入下列代码对串口进行初始化: Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.InputMode = 1 MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.Settings = "4800,n,8,2" MSComm1.PortOpen = True Call tabinit '调用表格初始化子程序 End Sub '开始采集 Private Sub Cmdstart_Click() Timer1.Enabled = True End Sub '停止采集 Private Sub Cmdstop_Click() Timer1.Enabled = False End Sub '每隔1000ms向仪表发送读数据命令串 '每台仪表有一个仪表号，PC机通过仪表号来识别网上的多台仪表 '程序中仪表号（即地址代号）要与仪表设定值一致，否则不能返回数据。 Private Sub Timer1_Timer() MSComm1.Output = Chr(&H8282;) & Chr(&H52;) & Chr(&HC;) End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
