Form_code.frm
上传用户：ask_sh
上传日期：2008-08-18
资源大小：550k
文件大小：37k
- VERSION 5.00
- Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
- Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Begin VB.Form Form_code
- Caption = "current time and code"
- ClientHeight = 9135
- ClientLeft = 60
- ClientTop = 1710
- ClientWidth = 15240
- LinkTopic = "Form1"
- ScaleHeight = 9135
- ScaleWidth = 15240
- WindowState = 2 'Maximized
- Begin VB.TextBox tHexCode
- Height = 375
- Left = 3600
- TabIndex = 42
- Top = 3240
- Width = 4815
- End
- Begin VB.CommandButton cExit
- Caption = "&Close"
- Height = 375
- Left = 13680
- TabIndex = 33
- Top = 2880
- Width = 975
- End
- Begin VB.Frame Frame2
- Caption = "Modify time tolerance"
- Height = 2175
- Left = 11160
- TabIndex = 20
- Top = 480
- Width = 3855
- Begin VB.TextBox tForm
- Height = 375
- Left = 1440
- TabIndex = 56
- Text = "Form016"
- Top = 1680
- Width = 975
- End
- Begin VB.CommandButton cmdApl
- Caption = "&Apply"
- Height = 375
- Left = 2640
- TabIndex = 26
- Top = 1680
- Width = 855
- End
- Begin VB.ComboBox cbTol
- Height = 315
- ItemData = "Form_code.frx":0000
- Left = 1560
- List = "Form_code.frx":001C
- TabIndex = 25
- Text = "3"
- Top = 600
- Width = 735
- End
- Begin VB.TextBox tTTole
- Alignment = 1 'Right Justify
- ForeColor = &H000000FF&
- Height = 375
- Left = 1560
- TabIndex = 21
- Text = "500"
- Top = 1200
- Width = 735
- End
- Begin VB.Label Label17
- Caption = "Change Form:"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H000000FF&
- Height = 375
- Left = 120
- TabIndex = 55
- Top = 1680
- Width = 1215
- End
- Begin VB.Label Label3
- Caption = "%"
- Height = 375
- Left = 2400
- TabIndex = 34
- Top = 720
- Width = 375
- End
- Begin VB.Label Label4
- Caption = "us"
- Height = 255
- Left = 2400
- TabIndex = 24
- Top = 1320
- Width = 495
- End
- Begin VB.Label Label2
- Caption = "Tolerance:"
- 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 = 360
- TabIndex = 23
- Top = 600
- Width = 1095
- End
- Begin VB.Label Lbl_t
- Caption = "T Tolerance:"
- 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 = 240
- TabIndex = 22
- Top = 1320
- Width = 1095
- End
- End
- Begin VB.CheckBox cOrder
- Caption = "Change Read Order"
- Height = 375
- Left = 11640
- TabIndex = 19
- Top = 2880
- Width = 1815
- End
- Begin VB.Frame Frame1
- Height = 2895
- Left = 360
- TabIndex = 7
- Top = 240
- Width = 10215
- Begin VB.TextBox tXTime
- 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 = 7680
- TabIndex = 30
- Text = "15000"
- Top = 720
- Width = 1215
- End
- Begin VB.TextBox t01Tole
- 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 = 4560
- TabIndex = 27
- Text = "100"
- Top = 720
- Width = 1215
- End
- Begin VB.ListBox lGCyc
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1260
- ItemData = "Form_code.frx":0040
- Left = 240
- List = "Form_code.frx":0042
- TabIndex = 18
- Top = 1440
- Width = 9495
- End
- Begin VB.Label Label6
- Caption = "US"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 9000
- TabIndex = 32
- Top = 840
- Width = 255
- End
- Begin VB.Label lXTime
- Caption = "X Time:"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 6720
- TabIndex = 31
- Top = 720
- Width = 855
- End
- Begin VB.Label Label5
- Caption = "US"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 5880
- TabIndex = 29
- Top = 840
- Width = 255
- End
- Begin VB.Label l01Tole
- Caption = "0-1 Time:"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 3480
- TabIndex = 28
- Top = 720
- Width = 855
- End
- Begin VB.Label l
- AutoSize = -1 'True
- Caption = "Every groups 's cycle:"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 12
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 300
- Left = 240
- TabIndex = 17
- Top = 840
- Width = 2580
- End
- Begin VB.Label Label9
- Caption = "Carrier:"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 240
- TabIndex = 16
- Top = 360
- Width = 735
- End
- Begin VB.Label Label10
- Caption = "CarrierOsc:"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 3480
- TabIndex = 15
- Top = 360
- Width = 975
- End
- Begin VB.Label Label11
- Caption = "Freqency:"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 6720
- TabIndex = 14
- Top = 240
- Width = 855
- End
- Begin VB.Label Label12
- Caption = "KHz"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 9000
- TabIndex = 13
- Top = 240
- Width = 495
- End
- Begin VB.Label Lblcarr_wid
- BackColor = &H00FFFFFF&
- BorderStyle = 1 'Fixed Single
- BeginProperty DataFormat
- Type = 1
- Format = "0.0"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 1
- EndProperty
- Enabled = 0 'False
- BeginProperty Font
- Name = "MS Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H000000FF&
- Height = 375
- Left = 1200
- TabIndex = 12
- Top = 240
- Width = 1215
- End
- Begin VB.Label Lblcarr_h
- BackColor = &H00FFFFFF&
- BorderStyle = 1 'Fixed Single
- BeginProperty DataFormat
- Type = 1
- Format = "0.0"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 1
- EndProperty
- Enabled = 0 'False
- BeginProperty Font
- Name = "MS Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H80000008&
- Height = 375
- Left = 4560
- TabIndex = 11
- Top = 240
- Width = 1215
- End
- Begin VB.Label Lblcarr_f
- BackColor = &H00FFFFFF&
- BorderStyle = 1 'Fixed Single
- Enabled = 0 'False
- BeginProperty Font
- Name = "MS Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FF0000&
- Height = 375
- Left = 7680
- TabIndex = 10
- Top = 240
- Width = 1185
- End
- Begin VB.Label Label13
- Caption = "US"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 2520
- TabIndex = 9
- Top = 360
- Width = 255
- End
- Begin VB.Label Label14
- Caption = "US"
- BeginProperty Font
- Name = "MS Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 5880
- TabIndex = 8
- Top = 360
- Width = 255
- End
- End
- Begin VB.CheckBox cIrRec
- Caption = "IR &REC"
- Height = 255
- Left = 240
- TabIndex = 6
- Top = 3240
- Width = 1095
- End
- Begin VB.Frame Frame4
- Caption = "IR database"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 7000
- Left = 120
- TabIndex = 1
- Top = 3600
- Width = 14895
- Begin VB.TextBox tPos5
- Height = 285
- Left = 9960
- TabIndex = 54
- Text = "105"
- Top = 840
- Width = 495
- End
- Begin VB.CommandButton Command1
- Caption = "Remark&5"
- Height = 375
- Left = 10560
- TabIndex = 53
- Top = 840
- Width = 855
- End
- Begin VB.TextBox tPos4
- Height = 285
- Left = 8520
- TabIndex = 52
- Text = "71"
- Top = 840
- Width = 495
- End
- Begin VB.TextBox tPos3
- Height = 285
- Left = 7080
- TabIndex = 51
- Text = "54"
- Top = 840
- Width = 495
- End
- Begin VB.TextBox tPos2
- Height = 285
- Left = 5520
- TabIndex = 50
- Text = "25"
- Top = 840
- Width = 495
- End
- Begin VB.TextBox tPos1
- Height = 285
- Left = 4080
- TabIndex = 49
- Text = "5"
- Top = 840
- Width = 615
- End
- Begin VB.CommandButton bP4
- Caption = "Remark&4"
- Height = 375
- Left = 9000
- TabIndex = 48
- Top = 840
- Width = 855
- End
- Begin VB.CommandButton bP3
- Caption = "Remark&3"
- Height = 375
- Left = 7560
- TabIndex = 47
- Top = 840
- Width = 855
- End
- Begin VB.CommandButton bP2
- Caption = "Remark&2"
- Height = 375
- Left = 6120
- TabIndex = 46
- Top = 840
- Width = 855
- End
- Begin VB.CommandButton bP1
- Caption = "Remark&1"
- Height = 375
- Left = 4680
- TabIndex = 45
- Top = 840
- Width = 855
- End
- Begin VB.CommandButton bNextRcu
- Caption = "Next &Model"
- Height = 495
- Left = 10320
- TabIndex = 44
- Top = 240
- Width = 855
- End
- Begin VB.CommandButton bEpy
- Caption = "Emp&ty"
- Height = 495
- Left = 7560
- TabIndex = 40
- Top = 240
- Width = 855
- End
- Begin VB.CommandButton bSet
- Caption = "&Set"
- Height = 375
- Left = 14040
- TabIndex = 39
- Top = 240
- Width = 735
- End
- Begin VB.TextBox tCol
- Height = 375
- Left = 13440
- TabIndex = 36
- Text = "1"
- Top = 240
- Width = 495
- End
- Begin VB.TextBox tRow
- Height = 375
- Left = 12240
- TabIndex = 35
- Text = "3"
- Top = 240
- Width = 615
- End
- Begin VB.CommandButton cmdNext
- Caption = "Ne&xt Col"
- Height = 495
- Left = 6180
- TabIndex = 4
- Top = 240
- Width = 855
- End
- Begin VB.CommandButton cmdPrev
- Caption = "&Prev Col"
- Height = 495
- Left = 4800
- TabIndex = 3
- Top = 240
- Width = 855
- End
- Begin VB.CommandButton cmdReset
- Caption = "R&eset"
- Height = 495
- Left = 8940
- TabIndex = 2
- Top = 240
- Width = 855
- End
- Begin MSAdodcLib.Adodc aDATA
- Height = 495
- Left = 1200
- Top = 360
- Width = 2655
- _ExtentX = 4683
- _ExtentY = 873
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 2
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=IR_CODE_DB"
- OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=IR_CODE_DB"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = "IR_Table"
- Caption = ""
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- _Version = 393216
- End
- Begin MSDataGridLib.DataGrid tblCode
- Bindings = "Form_code.frx":0044
- Height = 5425
- Left = 120
- TabIndex = 5
- Top = 1320
- Width = 14580
- _ExtentX = 25718
- _ExtentY = 9578
- _Version = 393216
- AllowUpdate = -1 'True
- BorderStyle = 0
- Enabled = -1 'True
- HeadLines = 1
- RowHeight = 15
- AllowAddNew = -1 'True
- BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ColumnCount = 2
- BeginProperty Column00
- DataField = ""
- Caption = ""
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column01
- DataField = ""
- Caption = ""
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- SplitCount = 1
- BeginProperty Split0
- BeginProperty Column00
- EndProperty
- BeginProperty Column01
- EndProperty
- EndProperty
- End
- Begin VB.Label Label15
- Caption = "Col:"
- Height = 375
- Left = 12960
- TabIndex = 38
- Top = 240
- Width = 375
- End
- Begin VB.Label Label8
- Caption = "Row:"
- Height = 375
- Left = 11760
- TabIndex = 37
- Top = 240
- Width = 375
- End
- End
- Begin MSComDlg.CommonDialog CommonDialog1
- Left = 10560
- Top = 360
- _ExtentX = 847
- _ExtentY = 847
- _Version = 393216
- End
- Begin VB.Label lDspRslt
- BeginProperty Font
- Name = "Arial"
- Size = 18
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 8520
- TabIndex = 43
- Top = 3120
- Width = 3015
- End
- Begin VB.Label FSA
- Caption = "IR code:"
- Height = 375
- Left = 2880
- TabIndex = 41
- Top = 3360
- Width = 735
- End
- Begin VB.Label Label1
- AutoSize = -1 'True
- Caption = "Time:"
- BeginProperty Font
- Name = "MS Serif"
- Size = 12
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 285
- Left = 120
- TabIndex = 0
- Top = 0
- Width = 645
- End
- Begin VB.Menu mnuFun
- Caption = "&Function"
- Begin VB.Menu mnuRec
- Caption = "Ir Record"
- Shortcut = {F9}
- End
- Begin VB.Menu mnuApply
- 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
English
