CAN测试程序。华控CAN50模块(can转usb)的测试程序（VC
源代码在线查看： mainfrm.dfm
object MainForm: TMainForm
Left = 329
Top = 236
Width = 632
Height = 376
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'HKCAN-Tester'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label9: TLabel
Left = 41
Top = 145
Width = 60
Height = 13
Caption = #26495#21345#31867#22411#65306
end
object Label10: TLabel
Left = 41
Top = 145
Width = 60
Height = 13
Caption = #26495#21345#31867#22411#65306
end
object Label18: TLabel
Left = 17
Top = 129
Width = 60
Height = 13
Caption = #25104#21151#24103#25968#65306
end
object GroupBox3: TGroupBox
Left = 217
Top = 209
Width = 401
Height = 120
Caption = #25509#25910
TabOrder = 13
object Label20: TLabel
Left = 16
Top = 33
Width = 48
Height = 13
Caption = #25509#25910#24103#65306
end
object Label21: TLabel
Left = 16
Top = 72
Width = 60
Height = 13
Caption = #25509#25910#24103#25968#65306
end
object RecCount_Edit: TEdit
Left = 98
Top = 68
Width = 81
Height = 24
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object BtnClearRecCount: TButton
Left = 338
Top = 26
Width = 48
Height = 25
Caption = #28165#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BtnClearRecCountClick
end
object BtnRdDevStatus: TButton
Left = 217
Top = 64
Width = 72
Height = 25
Caption = #35835#35774#22791#29366#24577
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BtnRdDevStatusClick
end
object DevStatus_Edit: TEdit
Left = 304
Top = 65
Width = 81
Height = 24
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
Text = '0'
end
end
object GroupBox2: TGroupBox
Left = 217
Top = 9
Width = 401
Height = 193
Caption = #21457#36865
TabOrder = 12
object Label4: TLabel
Left = 16
Top = 33
Width = 48
Height = 13
Caption = #21457#36865#24103#65306
end
object Label5: TLabel
Left = 16
Top = 69
Width = 60
Height = 13
Caption = #37325#21457#27425#25968#65306
end
object Label15: TLabel
Left = 16
Top = 116
Width = 72
Height = 13
Caption = #24635#21457#36865#24103#25968#65306
end
object Label16: TLabel
Left = 16
Top = 151
Width = 60
Height = 13
Caption = #25104#21151#24103#25968#65306
end
object Label17: TLabel
Left = 184
Top = 151
Width = 60
Height = 13
Caption = #22833#36133#24103#25968#65306
end
object Label19: TLabel
Left = 232
Top = 116
Width = 36
Height = 13
Caption = #39057#29575#65306
end
object Label22: TLabel
Left = 352
Top = 116
Width = 35
Height = 13
Caption = '('#24103'/'#31186')'
end
object Label14: TLabel
Left = 297
Top = 69
Width = 56
Height = 13
AutoSize = False
Caption = #26174#31034#36807#31243
end
object Label6: TLabel
Left = 208
Top = 69
Width = 59
Height = 13
AutoSize = False
Caption = #24490#29615#21457#36865
end
object BtnStopSend: TButton
Left = 337
Top = 27
Width = 48
Height = 25
Caption = #20572#27490
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BtnStopSendClick
end
object ShowProc_CheckBox: TCheckBox
Left = 356
Top = 66
Width = 17
Height = 17
Caption = 'ShowProc_CheckBox'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = ShowProc_CheckBoxClick
end
object SdTotalCount_Edit: TEdit
Left = 96
Top = 112
Width = 113
Height = 24
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object SdOKCount_Edit: TEdit
Left = 96
Top = 148
Width = 81
Height = 24
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object SdFaileCount_Edit: TEdit
Left = 248
Top = 148
Width = 81
Height = 24
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object SdFreq_Edit: TEdit
Left = 280
Top = 112
Width = 65
Height = 24
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object BtnClearSendCount: TButton
Left = 337
Top = 146
Width = 48
Height = 25
Caption = #28165#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = BtnClearSendCountClick
end
object SdTryCount_Edit: TEdit
Left = 96
Top = 67
Width = 81
Height = 24
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
Text = '1'
end
object SdCycle_CheckBox: TCheckBox
Left = 268
Top = 66
Width = 17
Height = 17
Checked = True
State = cbChecked
TabOrder = 2
end
end
object GroupBox1: TGroupBox
Left = 14
Top = 9
Width = 188
Height = 320
Caption = #37197#32622
TabOrder = 11
object Label7: TLabel
Left = 26
Top = 31
Width = 60
Height = 13
Caption = #26495#21345#31867#22411#65306
end
object Label8: TLabel
Left = 26
Top = 70
Width = 60
Height = 13
Caption = #39537#21160#31867#22411#65306
end
object Label11: TLabel
Left = 26
Top = 148
Width = 48
Height = 13
Caption = #21457#36865#31471#65306
end
object Label12: TLabel
Left = 26
Top = 187
Width = 48
Height = 13
Caption = #25509#25910#31471#65306
end
object Label13: TLabel
Left = 26
Top = 227
Width = 60
Height = 13
Caption = #25509#25910#26041#24335#65306
end
object Label1: TLabel
Left = 26
Top = 109
Width = 48
Height = 13
Caption = #27874#29305#29575#65306
end
object Label2: TLabel
Left = 26
Top = 292
Width = 36
Height = 13
Caption = #29366#24577#65306
end
object DeviceStatus_Str: TLabel
Left = 63
Top = 292
Width = 76
Height = 13
Caption = 'CAN'#21345#24050#20851#38381' '
end
end
object BtnInitCard: TButton
Left = 43
Top = 264
Width = 55
Height = 25
Caption = #25171#24320
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BtnInitCardClick
end
object BtnCloseCard: TButton
Left = 115
Top = 264
Width = 55
Height = 25
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BtnCloseCardClick
end
object Send_Edit: TEdit
Left = 288
Top = 38
Width = 159
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
MaxLength = 8
ParentFont = False
TabOrder = 2
Text = 'abcdefg'
end
object Receive_Edit: TEdit
Left = 288
Top = 240
Width = 159
Height = 24
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object BtnSendFrm: TButton
Left = 471
Top = 35
Width = 48
Height = 25
Caption = #21457#36865
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BtnSendFrmClick
end
object CanType_ComboBox: TComboBox
Left = 105
Top = 33
Width = 73
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ItemIndex = 2
ParentFont = False
TabOrder = 5
Text = 'CAN30B'
OnChange = CanType_ComboBoxChange
Items.Strings = (
'CAN10S'
'CAN20C'
'CAN30B'
'CAN50')
end
object DrvType_ComboBox: TComboBox
Left = 105
Top = 72
Width = 73
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ItemIndex = 0
ParentFont = False
TabOrder = 6
Text = 'SYS'
Items.Strings = (
'SYS'
'VXD')
end
object Baud_ComboBox: TComboBox
Left = 105
Top = 111
Width = 73
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ItemIndex = 0
ParentFont = False
TabOrder = 7
Text = '1M'
Items.Strings = (
'1M'
'500K'
'250K'
'125K'
'50K'
'20K'
'10K'
'5K')
end
object SdPort_ComboBox: TComboBox
Left = 105
Top = 150
Width = 73
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ItemIndex = 0
ParentFont = False
TabOrder = 8
Text = 'Port0'
Items.Strings = (
'Port0'
'Port1')
end
object RecPort_ComboBox: TComboBox
Left = 105
Top = 189
Width = 73
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ItemIndex = 1
ParentFont = False
TabOrder = 9
Text = 'Port1'
Items.Strings = (
'Port0'
'Port1')
end
object RecType_ComboBox: TComboBox
Left = 105
Top = 228
Width = 73
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = 0
ParentFont = False
TabOrder = 10
Text = #20107#20214
Items.Strings = (
#20107#20214
#36718#35810)
end
end
