module1.bas

主从报警系统

Attribute VB_Name = "Module1"
Public hexValue As Variant                     '输入经过转换后的十六进制数
Public RunFlag As Boolean '参数记录：程序处于欢迎界面或者休息界面，还是正在运行



Public Sub changePic()
       v = hexValue
       Dim FrmFlag As Integer
       FrmFlag = 0
    '******************************************变化图片代码开始
     '********监测P1.0*********
     
 If v = Hex(0) Or v = Hex(2) Or v = Hex(4) Or v = Hex(6) Or v = Hex(8) Or v = Hex(10) Or v = Hex(12) Or v = Hex(14) Then
        track.head1.Picture = LoadPicture("e:\pic\safe.gif")
        track.T1.Picture = LoadPicture("e:\pic\snote.gif")
        '低电平0，安全，图片显示
Else
       track.head1.Picture = LoadPicture("e:\pic\d1.gif")
       track.T1.Picture = LoadPicture("e:\pic\tdnote.gif")
       '高电平1，报警，图片显示
     FrmFlag = FrmFlag + 1    '用记录报警个数，作为判断窗体选择的参数
 End If
     '********监测P1.1  *******

If v = Hex(0) Or v = Hex(1) Or v = Hex(4) Or v = Hex(5) Or v = Hex(8) Or v = Hex(9) Or v = Hex(12) Or v = Hex(13) Then
       track.head2.Picture = LoadPicture("e:\pic\safe.gif")
       track.T2.Picture = LoadPicture("e:\pic\snote.gif")
      '低电平0
Else
    track.head2.Picture = LoadPicture("e:\pic\d2.gif")
    track.T2.Picture = LoadPicture("e:\pic\tdnote.gif")
    '高电平1
    FrmFlag = FrmFlag + 1    '记录报警个数
End If
        
    '*********监测P1.2**********
If v = Hex(0) Or v = Hex(1) Or v = Hex(2) Or v = Hex(3) Or v = Hex(8) Or v = Hex(9) Or v = Hex(10) Or v = Hex(11) Then
    track.head3.Picture = LoadPicture("e:\pic\safe.gif")
    track.T3.Picture = LoadPicture("e:\pic\snote.gif")
    '低电平0
Else
    track.head3.Picture = LoadPicture("e:\pic\d3.gif")
    track.T3.Picture = LoadPicture("e:\pic\tdnote.gif")
    '高电平1
    FrmFlag = FrmFlag + 1    '记录报警个数
End If
    '*********监测P1.3***********
If v = Hex(0) Or v = Hex(1) Or v = Hex(2) Or v = Hex(3) Or v = Hex(4) Or v = Hex(5) Or v = Hex(6) Or v = Hex(7) Then
    track.head4.Picture = LoadPicture("e:\pic\safe.gif")
    track.T4.Picture = LoadPicture("e:\pic\snote.gif")
    '低电平0
Else
    track.head4.Picture = LoadPicture("e:\pic\d4.gif")
    track.T4.Picture = LoadPicture("e:\pic\tdnote.gif")
     '高电平1
  FrmFlag = FrmFlag + 1    '记录报警个数
End If
'******************************************************变化图片代码结束
If RunFlag Then
If FrmFlag = 0 Then
   danger.Hide
   track.Hide
   safe.Show
 ElseIf FrmFlag = 4 Then
   track.Hide
   safe.Hide
   danger.Show
 Else
    danger.Hide
    safe.Hide
    track.Show

 End If
 End If
 
End Sub