form_code.frm

红外线遥控器读码软件

         Caption         =   "Applay time tolerance set"
         Shortcut        =   {F11}
      End
      Begin VB.Menu m 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Exit"
         Shortcut        =   {F4}
      End
   End
   Begin VB.Menu mnuDb 
      Caption         =   "&Database"
      Begin VB.Menu mnuPCol 
         Caption         =   "Previous Col"
         Shortcut        =   {F3}
      End
      Begin VB.Menu mnuNCol 
         Caption         =   "Next Col"
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuEpy 
         Caption         =   "Empty current record"
         Shortcut        =   {F6}
      End
      Begin VB.Menu mnuRst 
         Caption         =   "Reset cells postion"
         Shortcut        =   {F7}
      End
      Begin VB.Menu nh 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSet 
         Caption         =   "Set cells position"
         Shortcut        =   {F8}
      End
   End
   Begin VB.Menu jmp 
      Caption         =   "&Jump"
      Begin VB.Menu mnuPanel1 
         Caption         =   "Jump to Panel1"
         Shortcut        =   ^{F1}
      End
      Begin VB.Menu mnuPanel2 
         Caption         =   "Jump to Panel2"
         Shortcut        =   ^{F2}
      End
      Begin VB.Menu mnuPanel3 
         Caption         =   "Jump to Panel3"
         Shortcut        =   ^{F3}
      End
      Begin VB.Menu mnuPanel4 
         Caption         =   "Jump to Panel4"
         Shortcut        =   ^{F4}
      End
      Begin VB.Menu mnuPanel5 
         Caption         =   "Jump to Panel5"
         Shortcut        =   ^{F5}
      End
   End
End
Attribute VB_Name = "Form_code"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub bEpy_Click()
    tblCode.Text = ""
End Sub

Private Sub bFind_Click()
    Dim str As String
    For i = 0 To tblCode.Columns.Count - 1
        
        str = Trim(tblCode.Columns.Item(i).Caption)
        'pos = InStr(1, str, "(", 1)
        'str = Mid(str, 1, pos - 1)
        If UCase(Trim(tFindKey.Text)) Like UCase(str) Then
            'DataCol = tblCode.Col
            'tRow.Text = 3
            tCol.Text = i + 1
            Exit For
        End If
    Next i
    bSet_Click
End Sub

Private Sub bNextRcu_Click()
    DataCol = 1
    tblCode.Col = DataCol
    tblCode.Row = tblCode.Row + 1
    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i

    tblCode.Text = tblCode.Text
    tblCode.Refresh
End Sub

Private Sub bP1_Click()
    mnuPanel1_Click
End Sub

Private Sub bP2_Click()
    mnuPanel2_Click
End Sub

Private Sub bP3_Click()
    mnuPanel3_Click
End Sub

Private Sub bP4_Click()
    mnuPanel4_Click
End Sub

Private Sub cExit_Click()
  
  Unload Form_code
  Close
End Sub



Private Sub cmdApl_Click()
    If cbTol.Text <> "" Then
        time_tolerance = Val(cbTol.Text) / 100
        Form_time.cTole.Text = cbTol.Text
        Form_main.tTole.Text = cbTol.Text + "%"
        Form_main.irtype.Text = tForm.Text
    Else
        MsgBox "The tolerance is empty!"
    End If
    T_Tole = Val(tTTole.Text)
    
End Sub

Private Sub cmdNext_Click()
  If (DataCol < tblCode.Columns.Count) Then
    DataCol = DataCol + 1
  Else
    tblCode.Row = tblCode.Row + 1
    DataCol = 1
  End If
  tblCode.Col = DataCol
  If DataCol Mod 4 = 0 Then
    Form_code.tblCode.Scroll 4, 0
    'Form_code.tblCode.Move 5
  End If
  tblCode.Refresh
  tblCode.Text = tblCode.Text
  
  tCol.Text = tblCode.Col + 1
  tRow.Text = tblCode.Row + 1
End Sub

Private Sub cmdPrev_Click()
    If DataCol > 1 Then
        DataCol = DataCol - 1
    End If
    tblCode.Col = DataCol
    If DataCol Mod 4 = 0 Then
        Form_code.tblCode.Scroll 4, 0
    End If
    tblCode.Refresh
    tblCode.Text = tblCode.Text
    
    tCol.Text = tblCode.Col + 1
    tRow.Text = tblCode.Row + 1
End Sub

Private Sub cmdReset_Click()

    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i
    DataCol = 1
    tblCode.Col = DataCol
    
    tblCode.Refresh
    tblCode.Text = tblCode.Text
    tCol.Text = tblCode.Col + 1
    tRow.Text = tblCode.Row + 1
End Sub





Private Sub bSet_Click()
    On Error Resume Next
    If Int(tRow.Text) > 0 And Int(tRow.Text) > 0 Then
        'First reset then go the set colume
        tblCode.Row = 1
        tblCode.Row = Int(tRow.Text) - 1

        For i = 1 To 250
            tblCode.Scroll -1, 0
        Next i
        
        For i = 1 To Int(tCol.Text) - 1
            tblCode.Scroll 1, 0
        Next i

        tblCode.Row = Int(tRow.Text) - 1
        DataCol = Int(tCol.Text) - 1
        tblCode.Col = DataCol
        tblCode.Refresh
        tblCode.Text = tblCode.Text
    End If
End Sub

Private Sub Command1_Click()
    mnuPanel5_Click
End Sub

Private Sub cOrder_Click()
    If cOrder.Value = 1 Then
        b = Not b
    End If
End Sub



Private Sub Form_Activate()
    cbTol.Text = time_tolerance * 100
    tTTole.Text = T_Tole
    tForm.Text = Form_main.irtype.Text
End Sub

Private Sub Form_Unload(Cancel As Integer)
    xTime = Int(tXTime.Text)
    time_0_1 = Int(t01Tole.Text)
    Close
End Sub


Private Sub mnuApply_Click()
    cmdApl_Click
End Sub

Private Sub mnuEpy_Click()
    bEpy_Click
End Sub

Private Sub mnuExit_Click()
    cExit_Click
End Sub

Private Sub mnuNCol_Click()
    cmdNext_Click
End Sub

Private Sub mnuPanel1_Click()
    On Error Resume Next
    DataCol = Int(tPos1.Text) - 1
    tblCode.Col = DataCol

    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i
    
    For i = 1 To DataCol
        tblCode.Scroll 1, 0
    Next i

    'tblCode.Refresh
    tblCode.Text = tblCode.Text
End Sub

Private Sub mnuPanel2_Click()
    On Error Resume Next
    DataCol = Int(tPos2.Text) - 1
    tblCode.Col = DataCol
    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i
    
    For i = 1 To DataCol
        tblCode.Scroll 1, 0
    Next i

    'tblCode.Refresh
    tblCode.Text = tblCode.Text
End Sub

Private Sub mnuPanel3_Click()
    On Error Resume Next
    DataCol = Int(tPos3.Text) - 1
    tblCode.Col = DataCol
    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i
    
    For i = 1 To DataCol
        tblCode.Scroll 1, 0
    Next i
    'tblCode.Refresh
    tblCode.Text = tblCode.Text
End Sub

Private Sub mnuPanel4_Click()
    On Error Resume Next
    DataCol = Int(tPos4.Text) - 1
    tblCode.Col = DataCol
    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i
    
    For i = 1 To DataCol
        tblCode.Scroll 1, 0
    Next i
    'tblCode.Refresh
    tblCode.Text = tblCode.Text
End Sub

Private Sub mnuPanel5_Click()
    On Error Resume Next
    DataCol = Int(tPos5.Text) - 1
    tblCode.Col = DataCol
    For i = 1 To 250
        tblCode.Scroll -1, 0
    Next i
    
    For i = 1 To DataCol
        tblCode.Scroll 1, 0
    Next i
    'tblCode.Refresh
    tblCode.Text = tblCode.Text
End Sub

Private Sub mnuPCol_Click()
    cmdPrev_Click
End Sub

Private Sub mnuRec_Click()
    If cIrRec.Value = 1 Then
        cIrRec.Value = 0
    Else
        cIrRec.Value = 1
    End If
End Sub

Private Sub mnuRst_Click()
    cmdReset_Click
End Sub


Private Sub mnuSet_Click()
    bSet_Click
End Sub



Private Sub tblCode_DblClick()
        'tblCode.Row = tblCode.Row - 1
        On Error Resume Next
        DataCol = tblCode.Col
        tblCode.Col = DataCol
        tRow.Text = tblCode.Row + 1
        tCol.Text = tblCode.Col + 1
        Form_main.irtype.Text = tblCode.Columns(3).Value
        'time_tolerance = tblCode.Columns(4).Value
End Sub

Private Sub TxtCol_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim l As Integer
    If KeyCode = 13 Then
        On Error Resume Next
        l = Int(tCol.Text)
        If l <= tblCode.Columns.Count Then
            If l < tblCode.Columns.Count - 13 Or l > tblCode.Columns.Count - 1 Then
                DataCol = 1
                tblCode.Col = DataCol
            Else
                MsgBox "This part is record the time parameter,please select other num"
            End If
        End If
    End If
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub


Private Sub tblCode_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        DataCol = DataCol + 1
        tblCode.Text = tblCode.Text
        tblCode.Refresh
        tblCode.Col = tblCode.Col + 1
        tRow.Text = tblCode.Row + 1
        tCol.Text = tblCode.Col + 1
        tblCode.Text = ""
        If DataCol Mod 4 = 0 Then
            Form_code.tblCode.Scroll 4, 0
        End If
    
    End If
        
End Sub

Private Sub tFindKey_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        bFind_Click
        bSet_Click
    End If
End Sub

Private Sub tForm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Form_main.irtype.Text = tForm.Text
    End If
End Sub