lux.frm

实现图像控制,云台解码器控制,站点选择(配有Access数据库).

VERSION 5.00
Begin VB.Form Frmlux 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "录象"
   ClientHeight    =   1596
   ClientLeft      =   132
   ClientTop       =   4416
   ClientWidth     =   4128
   Icon            =   "lux.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1596
   ScaleWidth      =   4128
   Begin VB.TextBox Text2 
      BackColor       =   &H80000008&
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   390
      Left            =   120
      TabIndex        =   8
      Top             =   480
      Width           =   3855
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1920
      Top             =   240
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H80000008&
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   405
      Left            =   120
      TabIndex        =   7
      Text            =   "    "
      Top             =   120
      Width           =   3855
   End
   Begin VB.CommandButton Command6 
      Height          =   290
      Left            =   3320
      Picture         =   "lux.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   960
      Width           =   540
   End
   Begin VB.CommandButton Command5 
      Height          =   290
      Left            =   2680
      Picture         =   "lux.frx":0FC6
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   960
      Width           =   540
   End
   Begin VB.CommandButton Command4 
      Height          =   290
      Left            =   2040
      Picture         =   "lux.frx":1C26
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   960
      Width           =   540
   End
   Begin VB.CommandButton Command3 
      Height          =   290
      Left            =   1400
      Picture         =   "lux.frx":286A
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   960
      Width           =   540
   End
   Begin VB.CommandButton Command2 
      Height          =   290
      Left            =   760
      Picture         =   "lux.frx":3466
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   960
      Width           =   540
   End
   Begin VB.CommandButton Command1 
      Height          =   290
      Left            =   120
      Picture         =   "lux.frx":40AA
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   960
      Width           =   540
   End
   Begin VB.Label Label1 
      Caption         =   "停止  暂停  快退  快进  播放  录象"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   120
      TabIndex        =   6
      Top             =   1320
      Width           =   3852
   End
End
Attribute VB_Name = "Frmlux"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim starttime
Dim WarnRecCount As Integer

 Sub Command1_Click()
    a(3) = 1
    FrmRt3.Sendcommand6l
    starttime = 0
'    Timer1.Enabled = False
    Text1.Text = "当前状态：停止  "
End Sub

Private Sub Command2_Click()
    a(3) = 2
    FrmRt3.Sendcommand6l
    Text1.Text = "当前状态：暂停  "
End Sub

Private Sub Command3_Click()
    a(3) = 3
    FrmRt3.Sendcommand6l
    Text1.Text = "当前状态：快退  "
End Sub

Private Sub Command4_Click()
    a(3) = 4
    FrmRt3.Sendcommand6l
    Text1.Text = "当前状态：快进  "
End Sub

Private Sub Command5_Click()
    a(3) = 5
    FrmRt3.Sendcommand6l
    Text1.Text = "当前状态：播放  "
    starttime = Time
    Timer1.Enabled = True
End Sub

Private Sub Command6_Click()
    a(3) = 6
    FrmRt3.Sendcommand6l
    Text1.Text = "当前状态：录象  "
    starttime = Time
    Timer1.Enabled = True
End Sub

Sub Commandalarm()
    a(3) = 6 'lgh98.12.24
    FrmRt3.Sendcommand6l 'lgh98.12.24
    Text1.Text = "当前状态：接到告警信号自动录象  "
    starttime = Time
    WarnRecCount = 120 - 3
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If WarnRecCount Then
        WarnRecCount = WarnRecCount - 1
        If WarnRecCount = 0 Then
            Text1.Text = "连动录像结束。"
             a(3) = 1
             FrmRt3.Sendcommand6l
             starttime = 0
        End If
    End If
    Text2.Text = "时间:  " & Format(Time - starttime, "hh:nn:ss")
End Sub