You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
307 lines
6.0 KiB
307 lines
6.0 KiB
object Form1: TForm1
|
|
Left = 219
|
|
Top = 115
|
|
Caption = 'USB_CAN Demo'
|
|
ClientHeight = 470
|
|
ClientWidth = 475
|
|
Color = clBtnFace
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 12
|
|
object GroupBox2: TGroupBox
|
|
Left = 8
|
|
Top = 16
|
|
Width = 457
|
|
Height = 137
|
|
Caption = 'Device Parameters'
|
|
TabOrder = 5
|
|
object Label8: TLabel
|
|
Left = 3
|
|
Top = 30
|
|
Width = 90
|
|
Height = 12
|
|
Caption = 'Equipment Type:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 210
|
|
Top = 30
|
|
Width = 78
|
|
Height = 12
|
|
Caption = 'CAN channels:'
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 13
|
|
Top = 48
|
|
Width = 441
|
|
Height = 81
|
|
Caption = 'CAN initialization parameters'
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 3
|
|
Top = 24
|
|
Width = 72
|
|
Height = 12
|
|
Caption = 'Acc code'#65306'0x'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 151
|
|
Top = 24
|
|
Width = 78
|
|
Height = 12
|
|
Caption = 'Mask code'#65306'0x'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 8
|
|
Top = 56
|
|
Width = 60
|
|
Height = 12
|
|
Caption = 'Timer0'#65306'0x'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 146
|
|
Top = 56
|
|
Width = 60
|
|
Height = 12
|
|
Caption = 'Timer1'#65306'0x'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 287
|
|
Top = 8
|
|
Width = 96
|
|
Height = 12
|
|
Caption = 'Filter methods'#65306
|
|
end
|
|
object Label13: TLabel
|
|
Left = 287
|
|
Top = 52
|
|
Width = 36
|
|
Height = 12
|
|
Caption = 'Mode'#65306
|
|
end
|
|
object ComboBox4: TComboBox
|
|
Left = 320
|
|
Top = 52
|
|
Width = 113
|
|
Height = 20
|
|
Style = csDropDownList
|
|
TabOrder = 5
|
|
Items.Strings = (
|
|
'Normal mode'
|
|
'Listen-only mode'
|
|
'Self-test mode')
|
|
end
|
|
object Edit2: TEdit
|
|
Left = 80
|
|
Top = 26
|
|
Width = 65
|
|
Height = 20
|
|
TabOrder = 0
|
|
Text = '00000000'
|
|
end
|
|
object Edit3: TEdit
|
|
Left = 216
|
|
Top = 19
|
|
Width = 65
|
|
Height = 20
|
|
TabOrder = 1
|
|
Text = 'FFFFFFFF'
|
|
end
|
|
object Edit5: TEdit
|
|
Left = 80
|
|
Top = 52
|
|
Width = 65
|
|
Height = 20
|
|
TabOrder = 2
|
|
Text = '00'
|
|
end
|
|
object Edit6: TEdit
|
|
Left = 216
|
|
Top = 52
|
|
Width = 65
|
|
Height = 20
|
|
TabOrder = 3
|
|
Text = '14'
|
|
end
|
|
object ComboBox3: TComboBox
|
|
Left = 304
|
|
Top = 26
|
|
Width = 121
|
|
Height = 20
|
|
Style = csDropDownList
|
|
TabOrder = 4
|
|
Items.Strings = (
|
|
'Receive all types'
|
|
'Only standard frame'
|
|
'Only extended frame')
|
|
end
|
|
end
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 107
|
|
Top = 38
|
|
Width = 105
|
|
Height = 20
|
|
Style = csDropDownList
|
|
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
|
|
TabOrder = 0
|
|
OnClick = ComboBox1Click
|
|
Items.Strings = (
|
|
'USB_CAN'
|
|
'USB_CAN2')
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 302
|
|
Top = 38
|
|
Width = 84
|
|
Height = 20
|
|
Style = csDropDownList
|
|
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
|
|
TabOrder = 1
|
|
OnClick = Button2Click
|
|
Items.Strings = (
|
|
'Channel 1'
|
|
'Channel 2')
|
|
end
|
|
object Button1: TButton
|
|
Left = 392
|
|
Top = 33
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Connection'
|
|
TabOrder = 2
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 384
|
|
Top = 192
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Reset CAN'
|
|
TabOrder = 3
|
|
OnClick = Button2Click
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 169
|
|
Width = 369
|
|
Height = 81
|
|
Caption = 'Transmitting data frames'
|
|
TabOrder = 4
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 24
|
|
Width = 36
|
|
Height = 12
|
|
Caption = 'Type'#65306
|
|
end
|
|
object Label5: TLabel
|
|
Left = 136
|
|
Top = 24
|
|
Width = 48
|
|
Height = 12
|
|
Caption = 'Format'#65306
|
|
end
|
|
object Label6: TLabel
|
|
Left = 264
|
|
Top = 24
|
|
Width = 24
|
|
Height = 12
|
|
Caption = 'ID'#65306
|
|
end
|
|
object Label7: TLabel
|
|
Left = 14
|
|
Top = 56
|
|
Width = 36
|
|
Height = 12
|
|
Caption = 'Data'#65306
|
|
end
|
|
object Button5: TButton
|
|
Left = 296
|
|
Top = 49
|
|
Width = 57
|
|
Height = 24
|
|
Caption = 'Send'
|
|
TabOrder = 0
|
|
OnClick = Button5Click
|
|
end
|
|
object ComboBox6: TComboBox
|
|
Left = 50
|
|
Top = 25
|
|
Width = 73
|
|
Height = 20
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
Items.Strings = (
|
|
'Standard'
|
|
'Extended')
|
|
end
|
|
object ComboBox7: TComboBox
|
|
Left = 185
|
|
Top = 25
|
|
Width = 73
|
|
Height = 20
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
Items.Strings = (
|
|
'Data'
|
|
'Remote ')
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 304
|
|
Top = 19
|
|
Width = 57
|
|
Height = 20
|
|
TabOrder = 3
|
|
Text = '00000080'
|
|
end
|
|
object Edit4: TEdit
|
|
Left = 56
|
|
Top = 51
|
|
Width = 161
|
|
Height = 20
|
|
TabOrder = 4
|
|
Text = '01 02 03 04 05 06 07 08 '
|
|
end
|
|
end
|
|
object Button6: TButton
|
|
Left = 384
|
|
Top = 160
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Start CAN'
|
|
TabOrder = 6
|
|
OnClick = Button6Click
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 8
|
|
Top = 256
|
|
Width = 457
|
|
Height = 201
|
|
Caption = 'Information'
|
|
TabOrder = 7
|
|
object ListBox1: TListBox
|
|
Left = 16
|
|
Top = 21
|
|
Width = 441
|
|
Height = 177
|
|
ItemHeight = 12
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object Button3: TButton
|
|
Left = 384
|
|
Top = 224
|
|
Width = 73
|
|
Height = 25
|
|
Caption = 'Clear List'
|
|
TabOrder = 8
|
|
OnClick = Button3Click
|
|
end
|
|
end
|