formztss.frm

This is a boiler test system,has been use in factory

VERSION 5.00
Begin VB.Form FormZtSs 
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "控制回路调节方式"
   ClientHeight    =   5985
   ClientLeft      =   1785
   ClientTop       =   2850
   ClientWidth     =   8985
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5985
   ScaleWidth      =   8985
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   4920
      Top             =   600
   End
   Begin VB.Image Imagesz 
      Height          =   375
      Index           =   1
      Left            =   3120
      Top             =   240
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Image Imagesz 
      Height          =   375
      Index           =   0
      Left            =   2520
      Top             =   240
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Image Imageszd 
      Height          =   945
      Index           =   0
      Left            =   960
      Top             =   600
      Width           =   660
   End
   Begin VB.Label Labelbjn 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C000&
      BackStyle       =   0  'Transparent
      Caption         =   "1#除氧器液位"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000005&
      Height          =   210
      Index           =   0
      Left            =   720
      TabIndex        =   1
      Top             =   1680
      Visible         =   0   'False
      Width           =   1275
   End
   Begin VB.Label plcvalue 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H80000007&
      BackStyle       =   0  'Transparent
      Caption         =   "自动"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   0
      Left            =   1095
      TabIndex        =   0
      Top             =   360
      Visible         =   0   'False
      Width           =   420
   End
End
Attribute VB_Name = "FormZtSs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FlagDe(19), DevNum
Private Sub Form_Deactivate()
Timer1.Enabled = False
Unload Me
End Sub

Private Sub Form_Load()
''On Error Resume Next
 Me.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
 Imagesz(0).Picture = LoadPicture(bmpdir & "swa0.bmp")
 Imagesz(1).Picture = LoadPicture(bmpdir & "swa1.bmp")
'===========================
 DevNum = ztnum
'===========2002-3-16=========
col1 = 4 - 1 '4列
row1 = 3 - 1 '2行
Rowhei = 2 * Imageszd(0).Height
colwidth = 3.2 * Imageszd(0).Width
For ii% = 0 To row1 '列
For jj% = 1 To col1 '行
    k1% = (col1 + 1) * ii% + jj%
    Load plcvalue(k1%)
    plcvalue(k1%).Top = plcvalue(k1% - 1).Top
    plcvalue(k1%).Left = plcvalue(k1% - 1).Left + colwidth
    plcvalue(k1%).ZOrder 0
  '====================
    Load Labelbjn(k1%) '单位
    Labelbjn(k1%).Top = Labelbjn(k1% - 1).Top
    Labelbjn(k1%).Left = Labelbjn(k1% - 1).Left + colwidth
    Labelbjn(k1%).ZOrder 0
  '====================
    Load Imageszd(k1%) '单位
    Imageszd(k1%).Top = Imageszd(k1% - 1).Top
    Imageszd(k1%).Left = Imageszd(k1% - 1).Left + colwidth
    Imageszd(k1%).ZOrder 0
  Next
 '---------------------
  If ii% >= row1 Then Exit For
  k1% = (col1 + 1) * ii% + jj%
  Load plcvalue(k1%)
  plcvalue(k1%).ZOrder 0
  plcvalue(k1%).Top = plcvalue((col1 + 1) * ii%).Top + Rowhei
  plcvalue(k1%).Left = plcvalue((col1 + 1) * ii%).Left
  '====================
  Load Labelbjn(k1%)  'Labelbjn
  Labelbjn(k1%).ZOrder 0
  Labelbjn(k1%).Top = Labelbjn((col1 + 1) * ii%).Top + Rowhei
  Labelbjn(k1%).Left = Labelbjn((col1 + 1) * ii%).Left
  
  Load Imageszd(k1%) '单位
  Imageszd(k1%).Top = Imageszd((col1 + 1) * ii%).Top + Rowhei
  Imageszd(k1%).Left = Imageszd((col1 + 1) * ii%).Left
  Imageszd(k1%).ZOrder 0
Next

For i% = 0 To DevNum
  Labelbjn(i%).Caption = DI_Nam(ZTsunx(i%))
  Labelbjn(i%).Visible = True
 ' plcvalue(i%).Visible = True
  Imageszd(i%).Visible = True
  FlagDe(i%) = 3
Next
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
  For i% = 0 To DevNum
   If FlagDe(i%) <> PvtDI(ZTsunx(i%)) Then
      FlagDe(i%) = PvtDI(ZTsunx(i%))
      Imageszd(i%).Picture = Imagesz(FlagDe(i%)).Picture
      Imageszd(i%).ToolTipText = workfs(FlagDe(i%)) & "状态"
     ' plcvalue(i%) = workfs(FlagDe(i%))
      'If FlagDe(i%) = 1 Then
     '   plcvalue(i%).ForeColor = &HC000&   ' &HFF&workfs(1)
     ' Else
     '   plcvalue(i%).ForeColor = &HFF&
     ' End If
   End If
  Next
  
End Sub