mainpage.frm

用vb实现在线考试系统

'        MsgBox stockhandle(CurrentNum)
       MsgBox "第" & stockhandle(CurrentNum) + 1 & "通道抓图成功"
err:
      MsgBox err.Description
End Sub

Private Sub imgCapPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With imgCapPicture
        If X < 150 Or X > .Width Or Y < 150 Or Y > .Height - 50 Then
           .Picture = LoadPicture(App.Path & "\res\抓图up.jpg")
        Else
           .Picture = LoadPicture(App.Path & "\res\抓图down.jpg")
        End If
    End With
End Sub

'音量加按钮
Private Sub imgAdd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        imgAdd.Picture = LoadPicture(App.Path & "\res\+3.jpg")
        Volume = 2 * Volume
        If Volume > &HFFFF Then
           Volume = &HFFFF
        End If
        Cli_SetVolume Volume
End Sub

Private Sub imgAdd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        imgAdd.Picture = LoadPicture()
End Sub

'音量减按钮
Private Sub imgJian_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        imgJian.Picture = LoadPicture(App.Path & "\res\-4.jpg")
        Volume = Volume / 2
        If Volume < &HF000 Then
           Volume = &HF000
        End If
        Cli_SetVolume Volume
End Sub

Private Sub imgJian_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        imgJian.Picture = LoadPicture()
End Sub

'图片浏览按钮
Private Sub imgPicture_Click()
        Load frmSetPara
        frmSetPara.SSTab1.Tab = 4
        frmSetPara.SSTab1.TabEnabled(0) = False
        frmSetPara.SSTab1.TabEnabled(1) = False
        frmSetPara.SSTab1.TabEnabled(2) = False
        frmSetPara.SSTab1.TabEnabled(3) = False
        frmSetPara.SSTab1.TabEnabled(5) = False
        frmSetPara.Show
End Sub

Private Sub imgPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With imgPicture
        If X < 150 Or X > .Width Or Y < 150 Or Y > .Height - 50 Then
           .Picture = LoadPicture(App.Path & "\res\图片浏览up.jpg")
        Else
           .Picture = LoadPicture(App.Path & "\res\图片浏览down.jpg")
        End If
    End With
End Sub

Private Sub PicVideo_Click(Index As Integer)
        CurrentNum = PicVideo(Index).Index
End Sub

Private Sub PicVideo_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = 2 Then
           GetPlayParameter Index
        ElseIf Button = 1 Then
           GetCurrentNum Index
        End If
End Sub

'得到当前通道号的函数
Private Sub GetCurrentNum(Index As Integer)
Dim i As Integer
         Winsockclient.Close
          On Error GoTo err:
            CurrentNum = PicVideo(Index).Index
            Label6.Caption = "所选的通道号:" & CurrentNum + 1
            Winsockclient.Protocol = sckUDPProtocol
            Winsockclient.LocalPort = 10029
            Winsockclient.RemotePort = 10030
           
            Winsockclient.RemoteHost = Channel(CurrentNum, 0)
           
            Winsockclient.Bind 10029
        
         
        
'        For i = 0 To 3
'          cmdYunTai(i).Enabled = True
'        Next i
        
        
'        For i = 0 To 5
'        cmdLens(i).Enabled = True
'        Next i
        
        
        chkAuto.Enabled = True
        chkPower.Enabled = True
        chkRain.Enabled = True
        chkLight.Enabled = True
        
        Exit Sub
err:
           MsgBox err.Description
End Sub

'云台速度控制条
Private Sub Slider1_Change()
  
        YunTaiSpeed = Slider1.Value
        YunTaiSpeed = Hex(YunTaiSpeed)
        Slider1.ToolTipText = YunTaiSpeed
        Winsockclient.SendData YunTaiSpeed

End Sub

'云台调节动作
Private Sub YuntaiDongzuo1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
       If CurrentNum = -1 Then
         MsgBox "请先选择需要调节通道"
       End If
       
On Error GoTo err:
       
       Select Case Index
        
        Case 0  ' Zoom Tele光圈加
             
             YuntaiDongzuo1(0).Picture = LoadPicture(App.Path & "\res\+1.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "06"
             
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "06"
              
             End If
        Case 1  ' Zoom Wide光圈减
             
             YuntaiDongzuo1(1).Picture = LoadPicture(App.Path & "\res\-1.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "05"
                
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "05"
               
             End If
    
        Case 2  ' Focus far聚焦加
            
             YuntaiDongzuo1(2).Picture = LoadPicture(App.Path & "\res\+1.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "07"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "07"
             End If
    
        Case 3  ' focus near聚焦减
           
             YuntaiDongzuo1(3).Picture = LoadPicture(App.Path & "\res\-2.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "08"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "08"
             End If
        Case 4  '变倍 +
            
             YuntaiDongzuo1(4).Picture = LoadPicture(App.Path & "\res\+1.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "10"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "10"
             End If
        Case 5  '变倍 -
           
             YuntaiDongzuo1(5).Picture = LoadPicture(App.Path & "\res\-3.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "09"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "09"
             End If
        End Select
             Exit Sub
err:
      MsgBox err.Description
End Sub

Private Sub YuntaiDongzuo1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
        YuntaiDongzuo1(Index).Picture = LoadPicture()
        If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "04"
        ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "04"
        End If
End Sub

'云台上下左右动作
Private Sub YuntaiDongZuo_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
        If CurrentNum = -1 Then
           MsgBox "请先选择需要调节的通道"
        End If
On Error GoTo err:
        
        Select Case Index
        Case 0  ' Up
              
              YuntaiDongZuo(0).Picture = LoadPicture(App.Path & "\res\up.jpg")
              If CurrentNum < 10 Then
                Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "00"
                
              ElseIf CurrentNum >= 10 Then
                Winsockclient.SendData Channel(CurrentNum, 1) & "00"
              End If
    
        Case 1  ' Down
             
             YuntaiDongZuo(1).Picture = LoadPicture(App.Path & "\res\down.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "01"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "01"
             End If
        Case 2  ' Left
              
             YuntaiDongZuo(2).Picture = LoadPicture(App.Path & "\res\left.jpg")
             If CurrentNum < 10 Then
                Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "02"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "02"
             End If
        Case 3  ' Right
             
             YuntaiDongZuo(3).Picture = LoadPicture(App.Path & "\res\right.jpg")
             If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "03"
             ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "03"
             End If
        End Select
        
    Exit Sub
err:
      MsgBox err.Description
End Sub

Private Sub YuntaiDongZuo_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
        YuntaiDongZuo(Index).Picture = LoadPicture()
        If CurrentNum < 10 Then
               Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "04"
        ElseIf CurrentNum >= 10 Then
               Winsockclient.SendData Channel(CurrentNum, 1) & "04"
        End If
End Sub

Private Sub imgReplay_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        With imgReplay
        If X < 150 Or X > .Width Or Y < 150 Or Y > .Height - 50 Then
           .Picture = LoadPicture(App.Path & "\res\视频回放up.jpg")
        Else
           .Picture = LoadPicture(App.Path & "\res\视频回放down.jpg")
        End If
        End With
End Sub

'视频回放按钮
Private Sub imgReplay_Click()
        Load frmSetPara
        frmSetPara.SSTab1.Tab = 5
        frmSetPara.SSTab1.TabEnabled(0) = False
        frmSetPara.SSTab1.TabEnabled(1) = False
        frmSetPara.SSTab1.TabEnabled(2) = False
        frmSetPara.SSTab1.TabEnabled(3) = False
        frmSetPara.SSTab1.TabEnabled(4) = False
        frmSetPara.Show
End Sub

Private Sub imgSetPara_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With imgSetPara
        If X < 150 Or X > .Width Or Y < 150 Or Y > .Height - 50 Then
           .Picture = LoadPicture(App.Path & "\res\设置up.jpg")
        Else
           .Picture = LoadPicture(App.Path & "\res\设置down.jpg")
        End If
    End With
End Sub

'系统设置按钮
Private Sub imgSetPara_Click()
            Load frmSetPara
            frmSetPara.SSTab1.Tab = 1
            frmSetPara.SSTab1.TabEnabled(0) = False
            frmSetPara.Show
End Sub

Private Sub imgStartRecord_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    With imgStartRecord
            If flag2 = False Then
                If X < 150 Or X > .Width - 150 Or Y < 50 Or Y > .Height - 50 Then
                    .Picture = LoadPicture(App.Path + "\res\开始录像up.jpg")
                Else
                    .Picture = LoadPicture(App.Path + "\res\开始录像down.jpg")
                End If
                
            Else
                If X < 150 Or X > .Width - 150 Or Y < 50 Or Y > .Height - 50 Then
                    .Picture = LoadPicture(App.Path + "\res\停止录像up.jpg")
                Else
                    .Picture = LoadPicture(App.Path + "\res\停止录像down.jpg")
                End If
                
            End If
    End With

End Sub

'开始录像按钮
Private Sub imgStartRecord_Click()
        Dim i As Integer
        Dim OldReocrd As String
        Dim NewRecord As String
        On Error GoTo err:
        If flag2 = False Then
               flag2 = True
               DriveName = GetIni("XTPZ.ini", "SetUp", "录像盘符", "0")
               RecordDate = Format(Now, "yyyy-mm-dd")
               StartTime = Format(Now, "hh-mm-ss")

               imgRecord.Picture = LoadPicture(App.Path + "\res\录像.jpg")
               If CurrentNum = -1 Then
                       For i = 0 To 15
                         If ifRecord(i) Then
                            Cli_StartRecord DriveName, stockhandle(i), Channel(i, 2), Channel(i, 1), RecordDate, StartTime

                            Label4.Caption = Label4.Caption & i + 1 & " "

                         End If
                       Next i
               ElseIf ifRecord(Channel(CurrentNum, 1)) Then
                      Cli_StartRecord DriveName, stockhandle(Channel(CurrentNum, 1)), Channel(Channel(CurrentNum, 1), 2), Channel(Channel(CurrentNum, 1), 1), RecordDate, StartTime
                      Label4.Caption = Label4.Caption & " " & Channel(CurrentNum, 1)
               End If
        Else
           flag2 = False
           EndTime = Format(Now, "hh-mm-ss")
           Label4.Caption = ""
           imgRecord.Picture = LoadPicture()
           
        If CurrentNum = -1 Then
           For i = 0 To 15
             If ifRecord(i) Then
               Cli_StopRecord stockhandle(i)
               Label4.Caption = ""
                   If i < 10 Then
                       OldFile(i) = DriveName & ":\save\S" & Channel(i, 2) & "N" & "0" & Channel(i, 1) & "F" & RecordDate & "H" & StartTime & ".mp4"
                       NewFile(i) = DriveName & ":\save\S" & Channel(i, 2) & "N" & "0" & Channel(i, 1) & "F" & RecordDate & "H" & StartTime & "T" & EndTime & ".mp4"
        
        
                       Name OldFile(i) As NewFile(i)
                   ElseIf i >= 10 Then
                       OldFile(i) = DriveName & ":\save\S" & Channel(i, 2) & "N" & Channel(i, 1) & "F" & RecordDate & "H" & StartTime & ".mp4"
                       NewFile(i) = DriveName & ":\save\S" & Channel(i, 2) & "N" & Channel(i, 1) & "F" & RecordDate & "H" & StartTime & "T" & EndTime & ".mp4"
                       Name OldFile(i) As NewFile(i)
                   End If
               End If
            Next i
        End If

           If CurrentNum >= 0 Then
              Cli_StopRecord stockhandle(Channel(CurrentNum, 1))
              Label4.Caption = ""
              If CurrentNum < 10 Then
                 OldRecord = DriveName & ":\save\S" & Channel(CurrentNum, 2) & "N" & "0" & Channel(CurrentNum, 1) & "F" & RecordDate & "H" & StartTime & ".mp4"
                 NewRecord = DriveName & ":\save\S" & Channel(CurrentNum, 2) & "N" & "0" & Channel(CurrentNum, 1) & "F" & RecordDate & "H" & StartTime & "T" & EndTime & ".mp4"
                 Name OldRecord As NewRecord
                 CurrentNum = -1
              ElseIf CurrentNum >= 10 Then
                 OldRecord = DriveName & ":\save\S" & Channel(CurrentNum, 2) & "N" & Channel(CurrentNum, 1) & "F" & RecordDate & "H" & StartTime & ".mp4"
                 NewRecord = DriveName & ":\save\S" & Channel(CurrentNum, 2) & "N" & Channel(CurrentNum, 1) & "F" & RecordDate & "H" & StartTime & "T" & EndTime & ".mp4"
                 Name OldRecord As NewRecord
                 CurrentNum = -1
              End If
           End If
        End If
            Exit Sub