formbjss.frm

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

VERSION 5.00
Begin VB.Form FormBjSs 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "实时报警"
   ClientHeight    =   7155
   ClientLeft      =   1470
   ClientTop       =   2235
   ClientWidth     =   12255
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7155
   ScaleWidth      =   12255
   Begin VB.Timer TimerMain 
      Interval        =   1000
      Left            =   5160
      Top             =   3480
   End
   Begin VB.Image imagBJ 
      Height          =   405
      Index           =   2
      Left            =   6720
      Top             =   3480
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Image imagBJ 
      Height          =   405
      Index           =   1
      Left            =   6240
      Top             =   3480
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Line Line3 
      BorderColor     =   &H80000005&
      X1              =   12120
      X2              =   12120
      Y1              =   120
      Y2              =   6960
   End
   Begin VB.Line Line5 
      BorderColor     =   &H80000003&
      X1              =   120
      X2              =   12120
      Y1              =   120
      Y2              =   120
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   120
      X2              =   12120
      Y1              =   6960
      Y2              =   6960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000003&
      Index           =   1
      X1              =   105
      X2              =   105
      Y1              =   120
      Y2              =   6960
   End
   Begin VB.Image imageBJ 
      Height          =   690
      Index           =   0
      Left            =   720
      Top             =   840
      Width           =   1275
   End
   Begin VB.Image imagBJ 
      Height          =   405
      Index           =   0
      Left            =   5760
      Top             =   3480
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Label LabeBj 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C000&
      BackStyle       =   0  'Transparent
      Caption         =   "汽包水位上报"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   210
      Index           =   0
      Left            =   720
      TabIndex        =   0
      Top             =   1680
      Visible         =   0   'False
      Width           =   1275
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00C00000&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   6855
      Left            =   120
      Top             =   120
      Width           =   12015
   End
End
Attribute VB_Name = "FormBjSs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FlagBj(25), NewBJNum, FlagNum
Private Sub Form_Deactivate()
  TimerMain.Enabled = False
  Unload Me
End Sub

Private Sub Form_Load()
 Me.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
 NewBJNum = BJNum
 Imagbj(0).Picture = LoadPicture(bmpdir & "newbj0.bmp")
 Imagbj(1).Picture = LoadPicture(bmpdir & "newbj1.bmp")
 Imagbj(2).Picture = LoadPicture(bmpdir & "newbj2.bmp")
'===========2002-3-16=========
col1 = 5 - 1 '5列
row1 = 4 - 1 '3行
Rowhei = 2.2 * imageBJ(0).Height
colwidth = 1.8 * imageBJ(0).Width
'=============================================
For ii% = 0 To row1 '列
  For jj% = 1 To col1 '行
    k1% = (col1 + 1) * ii% + jj%
    Load imageBJ(k1%)
    imageBJ(k1%).Top = imageBJ(k1% - 1).Top '
    imageBJ(k1%).Left = imageBJ(k1% - 1).Left + colwidth
    imageBJ(k1%).ZOrder 0
  '====================
    Load LabeBj(k1%) '单位
    LabeBj(k1%).Top = LabeBj(k1% - 1).Top
    LabeBj(k1%).Left = LabeBj(k1% - 1).Left + colwidth
    LabeBj(k1%).ZOrder 0
  Next
 '---------------------
  If ii% >= row1 Then Exit For
  k1% = (col1 + 1) * ii% + jj%
  Load imageBJ(k1%)
  imageBJ(k1%).ZOrder 0
  imageBJ(k1%).Top = imageBJ((col1 + 1) * ii%).Top + Rowhei '变量名字
  imageBJ(k1%).Left = imageBJ((col1 + 1) * ii%).Left ' + ColWidth
  '====================
  Load LabeBj(k1%) 'LabeBj
  LabeBj(k1%).ZOrder 0
  LabeBj(k1%).Top = LabeBj((col1 + 1) * ii%).Top + Rowhei '变量名字
  LabeBj(k1%).Left = LabeBj((col1 + 1) * ii%).Left '+ ColWidth
Next
'---------------------------------------------------
 For i% = 0 To NewBJNum ' 个报警
    LabeBj(i%).Caption = DI_Nam(BJsunx(i%))
    LabeBj(i%).Visible = True
    imageBJ(i%).Visible = True
    imageBJ(i%).Picture = Imagbj(2).Picture
    FlagBj(i%) = 2
 Next

 Me.Height = 7560
 TimerMain_Timer
End Sub

Private Sub TimerMain_Timer()
'============报警处理=======================
FlagNum = (FlagNum + 1) Mod 2
For ij% = 0 To NewBJNum
  If PvtDI(BJsunx(ij%)) = 1 Then
     FlagBj(ij%) = FlagNum
     imageBJ(ij%).Picture = Imagbj(FlagNum).Picture
  Else
     If FlagBj(ij%) <> 2 Then
        FlagBj(ij%) = 2
        imageBJ(ij%).Picture = Imagbj(2).Picture
     End If
  End If
Next
End Sub