电子政务应用

开发平台：
Visual Basic

Form_time.frm：源码内容
							VERSION 5.00
Begin VB.Form Form_time 
   Caption         =   "Form016 time"
   ClientHeight    =   10260
   ClientLeft      =   2250
   ClientTop       =   450
   ClientWidth     =   10710
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   10260
   ScaleWidth      =   10710
   Begin VB.CommandButton bAddFmt 
      Caption         =   "&Add/Modify"
      Height          =   495
      Left            =   3960
      TabIndex        =   46
      Top             =   9720
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.ComboBox cAddFmt 
      Height          =   315
      ItemData        =   "Form_time.frx":0000
      Left            =   4680
      List            =   "Form_time.frx":0016
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   120
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "Standard Time(us)"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   9135
      Left            =   120
      TabIndex        =   31
      Top             =   480
      Width           =   10455
      Begin VB.ComboBox cTole 
         BeginProperty DataFormat 
            Type            =   0
            Format          =   "0%"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
         Height          =   315
         ItemData        =   "Form_time.frx":0050
         Left            =   2400
         List            =   "Form_time.frx":006C
         TabIndex        =   99
         Text            =   "3%"
         Top             =   6480
         Width           =   855
      End
      Begin VB.TextBox tAlias 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   6720
         TabIndex        =   2
         Text            =   "NEC N-8"
         Top             =   360
         Width           =   1455
      End
      Begin VB.ComboBox tType 
         Height          =   315
         ItemData        =   "Form_time.frx":0098
         Left            =   9120
         List            =   "Form_time.frx":00B7
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox tHBits 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   8640
         TabIndex        =   12
         Text            =   "0"
         Top             =   1800
         Width           =   735
      End
      Begin VB.TextBox tAddrBit 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   5520
         TabIndex        =   11
         Text            =   "0"
         Top             =   1800
         Width           =   735
      End
      Begin VB.CheckBox cG2RptB 
         Caption         =   "G2 repeat code"
         Height          =   375
         Left            =   8160
         TabIndex        =   41
         Top             =   7560
         Width           =   1575
      End
      Begin VB.CheckBox c2ndB 
         Caption         =   "2 End bit"
         Height          =   375
         Left            =   6960
         TabIndex        =   40
         Top             =   7560
         Width           =   975
      End
      Begin VB.TextBox tLastOsc 
         Height          =   375
         Left            =   8400
         TabIndex        =   33
         Text            =   "562"
         Top             =   5880
         Width           =   855
      End
      Begin VB.TextBox tStru 
         Height          =   375
         Left            =   2400
         TabIndex        =   1
         Text            =   "H,C,~C,D,~D,B0,X,H2,B0,X"
         Top             =   360
         Width           =   3255
      End
      Begin VB.TextBox tT2 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   4680
         TabIndex        =   29
         Text            =   "108000"
         Top             =   5280
         Width           =   735
      End
      Begin VB.TextBox tRemark 
         Height          =   495
         Left            =   6360
         TabIndex        =   45
         Text            =   "NEC N-8"
         Top             =   8520
         Width           =   3855
      End
      Begin VB.TextBox tGroups 
         Height          =   375
         Left            =   2520
         TabIndex        =   44
         Text            =   "0"
         Top             =   8640
         Width           =   735
      End
      Begin VB.CheckBox cCNo 
         Caption         =   "No"
         Height          =   375
         Left            =   3480
         TabIndex        =   43
         Top             =   8160
         Width           =   855
      End
      Begin VB.CheckBox cCYes 
         Caption         =   "Yes"
         Height          =   375
         Left            =   2520
         TabIndex        =   42
         Top             =   8160
         Value           =   1  'Checked
         Width           =   855
      End
      Begin VB.CheckBox cEndbit 
         Caption         =   "End bit"
         Height          =   375
         Left            =   4440
         TabIndex        =   38
         Top             =   7560
         Value           =   1  'Checked
         Width           =   975
      End
      Begin VB.CheckBox cData 
         Caption         =   "Data"
         Height          =   375
         Left            =   3480
         TabIndex        =   37
         Top             =   7560
         Width           =   855
      End
      Begin VB.CheckBox cHead 
         Caption         =   "Head"
         Height          =   375
         Left            =   2520
         TabIndex        =   36
         Top             =   7560
         Value           =   1  'Checked
         Width           =   855
      End
      Begin VB.CheckBox cGroup 
         Caption         =   "Whole group"
         Height          =   375
         Left            =   5520
         TabIndex        =   39
         Top             =   7560
         Width           =   1455
      End
      Begin VB.TextBox tRDbits 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   8760
         TabIndex        =   25
         Text            =   "8"
         Top             =   4080
         Width           =   615
      End
      Begin VB.TextBox tDBits 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   7080
         TabIndex        =   24
         Text            =   "8"
         Top             =   4080
         Width           =   615
      End
      Begin VB.TextBox tRCBits 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   5040
         TabIndex        =   23
         Text            =   "8"
         Top             =   4080
         Width           =   855
      End
      Begin VB.TextBox tCBits 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2880
         TabIndex        =   22
         Text            =   "8"
         Top             =   4080
         Width           =   615
      End
      Begin VB.TextBox tH1B2Osc 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   3120
         TabIndex        =   8
         Text            =   "0"
         Top             =   1320
         Width           =   735
      End
      Begin VB.TextBox tH1B2Idle 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   4920
         TabIndex        =   9
         Text            =   "0"
         Top             =   1320
         Width           =   855
      End
      Begin VB.TextBox tFixCode 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   7080
         TabIndex        =   17
         Text            =   "0"
         Top             =   2880
         Width           =   735
      End
      Begin VB.TextBox tFixTime 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   5040
         TabIndex        =   16
         Text            =   "0"
         Top             =   2880
         Width           =   855
      End
      Begin VB.TextBox tFixBits 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   2400
         TabIndex        =   15
         Text            =   "0"
         Top             =   2880
         Width           =   735
      End
      Begin VB.TextBox tTcode 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   5040
         TabIndex        =   14
         Text            =   "0"
         Top             =   2400
         Width           =   855
      End
      Begin VB.TextBox tTbits 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   2400
         TabIndex        =   13
         Text            =   "0"
         Top             =   2400
         Width           =   735
      End
      Begin VB.TextBox t1Idle 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   8760
         TabIndex        =   21
         Text            =   "1688"
         Top             =   3480
         Width           =   615
      End
      Begin VB.TextBox tSbits 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   2400
         TabIndex        =   10
         Text            =   "0"
         Top             =   1800
         Width           =   735
      End
      Begin VB.TextBox tTTole 
         Alignment       =   1  'Right Justify
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   4920
         TabIndex        =   34
         Text            =   "500"
         Top             =   6480
         Width           =   735
      End
      Begin VB.TextBox tEIdle 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   5040
         TabIndex        =   32
         Text            =   "---"
         Top             =   5880
         Width           =   855
      End
      Begin VB.TextBox tCF 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   5040
         TabIndex        =   27
         Text            =   "26.37"
         Top             =   4680
         Width           =   615
      End
      Begin VB.TextBox tT1 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   2400
         TabIndex        =   28
         Text            =   "108000"
         Top             =   5280
         Width           =   735
      End
      Begin VB.TextBox tHead1Osc 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   6960
         TabIndex        =   6
         Text            =   "9000"
         Top             =   840
         Width           =   735
      End
      Begin VB.TextBox tHead1Idle 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   9240
         TabIndex        =   7
         Text            =   "2250"
         Top             =   840
         Width           =   855
      End
      Begin VB.TextBox tHeadIdle 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   4920
         TabIndex        =   5
         Text            =   "4500"
         Top             =   840
         Width           =   855
      End
      Begin VB.TextBox tHeadOsc 
         Alignment       =   1  'Right Justify
         Height          =   405
         Left            =   3120
         TabIndex        =   4
         Text            =   "9000"
         Top             =   840
         Width           =   735
      End
      Begin VB.TextBox tEOsc 
         Alignment       =   1  'Right Justify
         Height          =   375
         Left            =   3240
         TabIndex        =   30
         Text            =   "---"
         Top             =   5880
         Width           =   735
      End
      Begin VB.TextBox t0Osc 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2880
         TabIndex        =   18
         Text            =   "562"
         Top             =   3480
         Width           =   615
      End
      Begin VB.TextBox t0Idle 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   5040
         TabIndex        =   19
         Text            =   "562"
         Top             =   3480
         Width           =   855
      End
      Begin VB.TextBox t1Osc 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   7080
         TabIndex        =   20
         Text            =   "562"
         Top             =   3480
         Width           =   615
      End
      Begin VB.TextBox tCFOsc 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   2880
         TabIndex        =   26
         Text            =   "8.79"
         Top             =   4680
         Width           =   615
      End
      Begin VB.TextBox tXtime 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2520
         TabIndex        =   35
         Text            =   "15000"
         Top             =   7080
         Width           =   615
      End
      Begin VB.Label Label51 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Alias:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   5880
         TabIndex        =   98
         Top             =   360
         Width           =   765
      End
      Begin VB.Label Label49 
         Caption         =   "bits"
         Height          =   255
         Left            =   9480
         TabIndex        =   96
         Top             =   1920
         Width           =   495
      End
      Begin VB.Label Label48 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Head bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   7365
         TabIndex        =   95
         Top             =   1800
         Width           =   1260
      End
      Begin VB.Label Label47 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Address bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   3840
         TabIndex        =   94
         Top             =   1800
         Width           =   1665
      End
      Begin VB.Label Label46 
         Caption         =   "bits"
         Height          =   255
         Left            =   6360
         TabIndex        =   93
         Top             =   1920
         Width           =   495
      End
      Begin VB.Label Label45 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Last Osc time:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   6315
         TabIndex        =   92
         Top             =   5880
         Width           =   1980
      End
      Begin VB.Label Label44 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Type:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   8280
         TabIndex        =   91
         Top             =   360
         Width           =   810
      End
      Begin VB.Label Label43 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Structure:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   810
         TabIndex        =   90
         Top             =   360
         Width           =   1365
      End
      Begin VB.Label Label42 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "T2:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   4200
         TabIndex        =   89
         Top             =   5280
         Width           =   465
      End
      Begin VB.Label Label41 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Remark:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   5040
         TabIndex        =   88
         Top             =   8640
         Width           =   1170
      End
      Begin VB.Label Label40 
         Caption         =   "Groups"
         Height          =   255
         Left            =   3360
         TabIndex        =   87
         Top             =   8760
         Width           =   615
      End
      Begin VB.Label Label39 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Quick press:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   480
         TabIndex        =   86
         Top             =   8640
         Width           =   1770
      End
      Begin VB.Label Label16 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Hight bit in head:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         TabIndex        =   85
         Top             =   8160
         Width           =   2250
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Repeat code:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   480
         TabIndex        =   84
         Top             =   7560
         Width           =   1710
      End
      Begin VB.Label Label38 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Tolerance:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   615
         TabIndex        =   83
         Top             =   6360
         Width           =   1530
      End
      Begin VB.Label Label37 
         Caption         =   "Reverse data code bits:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   8040
         TabIndex        =   82
         Top             =   3960
         Width           =   615
      End
      Begin VB.Label Label36 
         Caption         =   "Data code bits:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6120
         TabIndex        =   81
         Top             =   4080
         Width           =   855
      End
      Begin VB.Label Label35 
         Caption         =   "Reverse customer code bits:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   4200
         TabIndex        =   80
         Top             =   3960
         Width           =   855
      End
      Begin VB.Label Label34 
         Caption         =   "Customer code bits:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   2160
         TabIndex        =   79
         Top             =   4080
         Width           =   615
      End
      Begin VB.Label Label33 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Code bits:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   600
         TabIndex        =   78
         Top             =   4080
         Width           =   1425
      End
      Begin VB.Label Label32 
         Caption         =   "Head1 B2 OSC:"
         Height          =   375
         Left            =   2280
         TabIndex        =   77
         Top             =   1320
         Width           =   855
      End
      Begin VB.Label Label31 
         Caption         =   "Head1 B2 Idle:"
         Height          =   375
         Left            =   4080
         TabIndex        =   76
         Top             =   1320
         Width           =   735
      End
      Begin VB.Label Label8 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "End bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   945
         TabIndex        =   75
         Top             =   5880
         Width           =   1095
      End
      Begin VB.Label Label30 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "CF:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1560
         TabIndex        =   74
         Top             =   4680
         Width           =   510
      End
      Begin VB.Label Label29 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "T1:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1515
         TabIndex        =   73
         Top             =   5280
         Width           =   465
      End
      Begin VB.Label Label28 
         Caption         =   "Fixed bits code:"
         Height          =   495
         Left            =   6240
         TabIndex        =   72
         Top             =   2880
         Width           =   855
      End
      Begin VB.Label Label27 
         Caption         =   "Fixed time:"
         Height          =   375
         Left            =   4200
         TabIndex        =   71
         Top             =   3000
         Width           =   855
      End
      Begin VB.Label Label26 
         Caption         =   "bits"
         Height          =   255
         Left            =   3240
         TabIndex        =   70
         Top             =   3000
         Width           =   495
      End
      Begin VB.Label Label25 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Fixed bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   720
         TabIndex        =   69
         Top             =   2880
         Width           =   1320
      End
      Begin VB.Label Label24 
         Caption         =   "Toggle bits code:"
         Height          =   555
         Left            =   4080
         TabIndex        =   68
         Top             =   2400
         Width           =   855
      End
      Begin VB.Label Label23 
         Caption         =   "bits"
         Height          =   255
         Left            =   3240
         TabIndex        =   67
         Top             =   2400
         Width           =   495
      End
      Begin VB.Label Label12 
         Caption         =   "1 Idle time:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   7920
         TabIndex        =   66
         Top             =   3480
         Width           =   855
      End
      Begin VB.Label Label11 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "0,1 bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1080
         TabIndex        =   65
         Top             =   3480
         Width           =   945
      End
      Begin VB.Label Label10 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Toggle bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   600
         TabIndex        =   64
         Top             =   2280
         Width           =   1515
      End
      Begin VB.Label Label9 
         Caption         =   "bits"
         Height          =   255
         Left            =   3240
         TabIndex        =   63
         Top             =   1920
         Width           =   495
      End
      Begin VB.Label Label3 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Start bit:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   960
         TabIndex        =   62
         Top             =   1800
         Width           =   1140
      End
      Begin VB.Label Label2 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Head:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1200
         TabIndex        =   61
         Top             =   960
         Width           =   855
      End
      Begin VB.Label Label21 
         Caption         =   "Idle time:"
         Height          =   255
         Left            =   4320
         TabIndex        =   60
         Top             =   5880
         Width           =   735
      End
      Begin VB.Label Label20 
         Caption         =   "T:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4560
         TabIndex        =   59
         Top             =   4800
         Width           =   255
      End
      Begin VB.Label Label7 
         Caption         =   "Head2 OSC:"
         Height          =   375
         Left            =   6240
         TabIndex        =   58
         Top             =   840
         Width           =   615
      End
      Begin VB.Label Label6 
         Caption         =   "Head2 Idle:"
         Height          =   375
         Left            =   8280
         TabIndex        =   57
         Top             =   840
         Width           =   735
      End
      Begin VB.Label Label5 
         Caption         =   "Head1 B1 Idle:"
         Height          =   375
         Left            =   4080
         TabIndex        =   56
         Top             =   840
         Width           =   735
      End
      Begin VB.Label l 
         Caption         =   "Head1 B1 OSC:"
         Height          =   375
         Left            =   2280
         TabIndex        =   55
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Osc time:"
         Height          =   495
         Left            =   2400
         TabIndex        =   54
         Top             =   5880
         Width           =   855
      End
      Begin VB.Label Lbl_t 
         Caption         =   "T Tole:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   4080
         TabIndex        =   53
         Top             =   6480
         Width           =   615
      End
      Begin VB.Label Label13 
         Caption         =   "0 Osc time:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   2280
         TabIndex        =   52
         Top             =   3480
         Width           =   615
      End
      Begin VB.Label Label14 
         Caption         =   "0  Idle time:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   4200
         TabIndex        =   51
         Top             =   3480
         Width           =   855
      End
      Begin VB.Label Label15 
         Caption         =   "1 Osc time:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6120
         TabIndex        =   50
         Top             =   3480
         Width           =   855
      End
      Begin VB.Label Label18 
         Caption         =   "Osc:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2400
         TabIndex        =   49
         Top             =   4680
         Width           =   375
      End
      Begin VB.Label Label19 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Wait time:"
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   840
         TabIndex        =   47
         Top             =   7080
         Width           =   1320
      End
   End
   Begin VB.CommandButton Cmd_close 
      Caption         =   "&Close"
      Height          =   495
      Left            =   8160
      TabIndex        =   48
      Top             =   9720
      Width           =   735
   End
   Begin VB.Label lAddFmt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Add or Modify's IR Format:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   -1560
      TabIndex        =   97
      Top             =   120
      Visible         =   0   'False
      Width           =   5985
   End
End
Attribute VB_Name = "Form_time"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bAddFmt_Click()
    Dim sRpt As String
    sRpt = ""
    DBEngine.DefaultType = dbUseJet
     Set Newdb = OpenDatabase("IRTime.mdb")
        
     'Set tbls = Newdb.TableDefs
     Set tdfIRFormat = Newdb!Type
    
     With tdfIRFormat
        Set idxFormat = .CreateIndex("idxFormat")
        idxFormat.Fields.Append .CreateField("Format")
        '.Indexes.Append idxFormat   'the first time need then no need
     End With
    
     Set record1 = tdfIRFormat.OpenRecordset
    
     record1.Index = "idxFormat"
     
     'On Error Resume Next
     If cAddFmt.Text = "" Then
        Exit Sub
     End If
     record1.Seek "=", cAddFmt.Text
     record1.Edit
     record1!stru = tStru.Text
     record1!H_Osc = tHeadOsc.Text
     record1!H_Idle = tHeadIdle.Text
     record1!G2H_Osc = tHead1Osc.Text
     record1!G2H_Idle = tHead1Idle.Text
     record1!HB2_Osc = tH1B2Osc.Text
     record1!HB2_Idle = tH1B2Idle.Text
     record1!Alias = tAlias.Text
                                                        
     record1!Type = tType.Text
     record1!H_Bits = tHBits.Text
     record1!S_Bits = tSbits.Text
     'record1!Addr = tAddrBit.Text
     record1!T = tTbits.Text
     record1!Instance = tTcode.Text
     record1!F = tFixBits.Text
     record1!Fix_Time = tFixTime.Text
     record1!f_sit = tFixCode.Text
     record1!Zero_Osc = t0Osc.Text
     record1!zero_Idle = t0Idle.Text
     record1!One_Osc = t1Osc.Text
     record1!One_Idle = t1Idle.Text
     record1!C = tCBits.Text
     record1!R_C = tRCBits.Text
     record1!D = tDBits.Text
     record1!R_D = tRDbits.Text
     record1!CF_T = tCF.Text
     record1!CF_Osc = tCFOsc.Text
     record1!T1 = tT1.Text
     
     record1!G2_T = Form_time.tT2.Text
     record1!E_Osc = Form_time.tEOsc.Text
     record1!E_Idle = Form_time.tEIdle.Text
     record1!b_end = Form_time.tLastOsc.Text
     record1!X = Form_time.tXTime.Text
 
     If cGroup.Value = 1 Then
          sRpt = "G"
     End If
     If cData.Value = 1 Then
         If sRpt <> "" Then
            sRpt = sRpt + "&D"
         Else
            sRpt = "D"
         End If
     End If
     If cHead.Value = 1 Then
         If sRpt <> "" Then
            sRpt = sRpt + "&H"
         Else
            sRpt = "H"
         End If
     End If
     If cEndbit.Value = 1 Then
         If sRpt <> "" Then
            sRpt = sRpt + "&E"
         Else
            sRpt = "E"
         End If
     End If
     If c2ndB.Value = 1 Then
         If sRpt <> "" Then
            sRpt = sRpt + "&B0"
         Else
            sRpt = "B0"
         End If
     End If
     If cG2RptB.Value = 1 Then
         If sRpt <> "" Then
            sRpt = sRpt + "&2T"
         Else
            sRpt = "2T"
         End If
     End If
     record1!Repeat = sRpt
 
     If cCYes.Value = 1 Then
        record1!convert = "Y"
     Else
        record1!convert = "N"
     End If
     
     
     If tGroups.Text <> "" Then
        record1!G_count = tGroups.Text
     End If
     If tRemark.Text <> "" Then
        record1!Remark = tRemark.Text
     End If
     record1.Update
End Sub
Private Sub cAddFmt_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub
Private Sub Cmd_close_Click()
  Unload Me
End Sub
Private Sub Chk_spe1_Click()
  If Chk_spe1.Value = 1 Then
     Lbl_pos1.Visible = True
     Txt_pos1.Visible = True
     Lbl_num1.Visible = True
     Txt_num1.Visible = True
  Else
     Lbl_pos1.Visible = False
     Txt_pos1.Visible = False
     Lbl_num1.Visible = False
     Txt_num1.Visible = False
  End If
  
  If (Cboirtype.ListIndex = 1 And Chk_spe1.Value = 1) Then  ' hl format
     Lbl_addHL_T.Visible = True
     Txt_addHL_T.Visible = True
  Else
     Lbl_addHL_T.Visible = False
     Txt_addHL_T.Visible = False
  End If
  
End Sub
Private Sub Cmd_close_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
  lAddFmt.Visible = False
  cAddFmt.Visible = False
  bAddFmt.Visible = False
  Close
End Sub
Private Sub Chk_spe2_Click()
  If Chk_spe2.Value = 1 Then
     Lbl_pos2.Visible = True
     Txt_pos2.Visible = True
     Lbl_num2.Visible = True
     Txt_num2.Visible = True
  Else
     Lbl_pos2.Visible = False
     Txt_pos2.Visible = False
     Lbl_num2.Visible = False
     Txt_num2.Visible = False
  End If
End Sub

						