凸轮转子泵设计系统公共模块

2014/10/11 11:38:57      点击:
凸轮转子泵软件设计编程过程中都会用到大量的相同的函数,以及一些其它使用率高的代码,为了节省系统资源和减少程序代码,可以使用一个Modud(公共模块)。
公共模块与窗体不同,它没有任何控件,只相当一个能够装在程序代码的容器。
在公共模块中编写的代码适用于整个工程,属于全局变量和全局函数。本系统中设计一个名为Modudl的共模块,它包含本系统用到的公共变量、三角函数以及数据库的打开和关闭等函数。在编辑公共模块前首先要添加一个公共模块,方法是路径是:工程/添加模块命令,其默认名既是Moduell。
1全局变量声明
凸轮转子泵系统中常用到记录ADO控件的指针变量以及字符串和圆周率定义如下:
option Explicit ’限制变量必须先声明后使用
Public cnn As New ADODB.Connection ’定义数据库连接变量
Public rs As New ADODB.Recordset ’定义数据记录集对象变量
Public strl As SUing ’定义字符串变量
Public str2 As String

Public str3 As String
Public DangqianYongHu As String 。定义用户名字符串变量
Public Const Pi As Double=3.14159265 ’定义圆周率变量为恒定值
2三角函数定义
Visual Basic6.0中只是提供了正弦函数、余弦函数和反正切函数等数学三角函数,而没有提供反正弦函数和反余弦函数,这两函数在计算转子泵相关参数时要经常用到,因此在凸轮转子泵公共模块中把它们编写出来。代码如下:
Public Function ArcSin(k As Double)As Double ’反正弦函数
ifk=1 ThenArcSin=Pi/2
lfk=1 ThenArcSin=-Pi,2
lfk>-1 Andk
End Function
Public Function ArcCos(k As Double)As Double ’反余弦函数
Ifk=0ThenArcCos=Pi/2
Ifk>0Andk台l ThenArcCos=Atn(Sqr(1,k“2)/k)
Ifk>=-I Andk<0ThenArcCos=Am(Sqr(1·k“2)/k)+Pi
End Function
3数据库打开和关闭函数定义
在凸轮转子泵系统中经常对数据库进行访问,因此学要建立一个公共的数据库连接和关闭函数,包括数据库和记录集的打开和关闭。部分代码如下:
Public Sub DaKaiO 。打开数据库
Ifcnn.State=adStateOp曲Then 制断数据库是否打开
Else
strl=”Provider=Microsoft.Jet.OLEDB.4.0:”连接数据库引擎
str2=”Data Source=”+App.Path 4-”、数据库.mdb;“数据库相对路径
str3="Jet OLEDB:Database Password=”
cnn.op∞su'l&str2&str3 ‘打开数据库命令
EndIf ‘结束判断
EndSub ‘结束函数
Public Sub GuanBi0 ’关闭数据库和记录集
Ifrs.State=adStateOpen Th ‘判断记录集是否打开
rs.Close ‘如果记录集是打开状态,关闭记录集
EndIf ‘结束判断
Ifcnn.State=adStateOpen Then ‘判断数据库数否打开
咖.Close ‘如果数据打开是状态,关闭数据库
EndIf ‘结束判断‘
EndSub ‘结束判断

////////////////////////////////////////////////////////////
力华转子泵网www.
电话:0575-83539901
传真:0575-83534469


友情链接:    57157彩票   新二彩票登入   分分彩官网   四季彩票   五分彩开奖时间