Next

　　'16进制转为实数

　　Dim rate As Long = Long.Parse(tmpstr1, System.Globalization.NumberStyles.HexNumber)

　　Dim speed As Long = Long.Parse(tmpstr2, System.Globalization.NumberStyles.HexNumber)

　　Dim total As Long = Long.Parse(tmpstr3, System.Globalization.NumberStyles.HexNumber)

　　TextBox2.Text = rate / 1000

　　TextBox3.Text = speed / 1000

　　TextBox4.Text = total / 1000

　　MSComm1.PortOpen = False '关闭串口

　　Catch ex As Exception

　　MessageBox.Show(ex.Message)

　　Exit Sub

　　End Try

　　是用的Sql Server 2000 数据库管理软件,建立了仪表地址表,仪表采集数据表,历史数据表,我们采用的是一个月自动生成一张历史数据表,因为数据量比较大，这样做可以提高网页数据查询的效率.

　　4.3网页实时数据刷新

　　网页实时数据刷新是为了满足生产单位可以实时的看数据，该数据每30秒刷新一次,这个时间可以根据用户的要求设定.

　　这部分程序使用的是vb.net的web service技术，Web Service就是一个应用程序，它向外界暴露出一个能够通过Web进行调用的API。这就是说，你能够用编程的方法通过Web调用来实现某个功能的应用程序。

　　5.价值和经验总结

　　本系统的运行,完全达到了用户的要求,将分散到各处的计量仪表集中控制起来,实现了仪表的远端通讯.使用户能及时的了解计量数据的状态。坐在办公室里就可以看到现场仪表的送料数据和送料的速度.还可以简单的判断现场仪表的故障问题,并且解决了仪表的雷击及其数据的不可靠性问题,还结束了手工抄表的历史，可以更方面和快捷的满足生产单位的需求;在这次开发的过程中，我学到了许多串口方面的知识，对MOXA的产品有了一定的了解，为我以后再做这方面的东西打下了坚定的基础。

　　参考文献:

　　[1] 李长林. Visual Basic 串口通信技术与典型实例.清华大学出版社，2006-4-1

　　[2] Visual C++串口通信开发入门与编程实践 周韧研，商斌 电子工业出版社 2009-4-1

　　[3] 精通Visual C++串口通信技术与工程实践 张宏林

 2/2   首页 上一页 1 2