modpublic.bas

VISUAL BASIC 6 实现的自动化控制系统程序. 里面包含了好几个OCX源代码.我5年前的作品.现在看起来有点垃圾了.

Attribute VB_Name = "ModPublic"
'声明模块
Option Explicit
'SetWindowPos frm.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public UserPassWord As String           '用户密码
Public CommEnable As Boolean            '通讯允许
Public IsColorSelect As Boolean         '是否用不同颜色作主窗体的背景色
Public TransmitByte(0 To 4) As Byte     '发送 数组
Public ReceiveByte() As Byte            '接收 数组
Public Flux(0 To 1) As Single           '流量 存储数组
Public ReceiveAIStore(0 To 6) As Single '模拟量接收暂存数组
Public OperSet(0 To 4) As Single        '田间操作器 设定值
Public OpenAmountCyc1  As Integer       '一号灌溉区开阀个数
Public OpenAmountCyc2  As Integer       '二号灌溉区开阀个数
Public StarID1 As Integer       '循环开始号
Public StarID2 As Integer       '循环开始号
Public Accont1 As Integer       '循环阀个数
Public Accont2 As Integer       '循环阀个数
Public IsCyc As Boolean         '是否为自动循环状态
Public IsAutoTime As Boolean     '是否为自动定时控制状态
Public FFOSeted(0 To 4) As Boolean  '田间操作站设定
Public StrQuery As String        '查询语句
Public WaterPrice  As Single     '每吨水的价格
Public SelectCountIndex As Integer      '
Public TotalWater As Double      '总用水量
Public TotalElect As Double      '总用电量
Public QuitEnAble As Boolean     '允许退出
Public SysIsAuto As Boolean      '系统自动中