unit1.dfm

这是一个用DELPHI编写的串行接口控制程序

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = 14531583
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 80
    Width = 48
    Height = 13
    Caption = #30417#27979#28857'1  '
  end
  object Label2: TLabel
    Left = 152
    Top = 80
    Width = 51
    Height = 13
    Caption = #30417#27979#28857'2   '
  end
  object Label3: TLabel
    Left = 48
    Top = 256
    Width = 48
    Height = 13
    Caption = #30417#27979#28857'3  '
  end
  object Label4: TLabel
    Left = 152
    Top = 256
    Width = 48
    Height = 13
    Caption = #30417#27979#28857'4  '
  end
  object Label5: TLabel
    Left = 480
    Top = 72
    Width = 48
    Height = 13
    Caption = #30417#27979#28857'5  '
  end
  object Label6: TLabel
    Left = 592
    Top = 72
    Width = 48
    Height = 13
    Caption = #30417#27979#28857'6  '
  end
  object Label7: TLabel
    Left = 480
    Top = 264
    Width = 48
    Height = 13
    Caption = #30417#27979#28857'7  '
  end
  object Label8: TLabel
    Left = 608
    Top = 256
    Width = 51
    Height = 13
    Caption = #30417#27979#28857'8   '
  end
  object Shape1: TShape
    Left = 40
    Top = 128
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape2: TShape
    Left = 144
    Top = 128
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape3: TShape
    Left = 40
    Top = 312
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape4: TShape
    Left = 144
    Top = 312
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape5: TShape
    Left = 472
    Top = 120
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape6: TShape
    Left = 584
    Top = 120
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape7: TShape
    Left = 472
    Top = 304
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Shape8: TShape
    Left = 600
    Top = 304
    Width = 65
    Height = 65
    Shape = stCircle
  end
  object Label9: TLabel
    Left = 520
    Top = 408
    Width = 93
    Height = 17
    Caption = #24320#22987#27979#35797'     '
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = #21326#25991#24425#20113
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label9Click
  end
  object Label10: TLabel
    Left = 280
    Top = 160
    Width = 90
    Height = 20
    Caption = #32467#26463#26816#27979'     '
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label10Click
  end
  object Label11: TLabel
    Left = 280
    Top = 288
    Width = 85
    Height = 20
    Caption = #24674#22797#31995#32479'    '
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label11Click
  end
  object Label12: TLabel
    Left = 64
    Top = 408
    Width = 93
    Height = 17
    Caption = #36864#20986#31243#24207'     '
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = #21326#25991#24425#20113
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label12Click
  end
  object MSComm1: TMSComm
    Left = 208
    Top = 16
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object RadioButton2: TRadioButton
    Left = 360
    Top = 80
    Width = 57
    Height = 17
    Caption = 'COM2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = RadioButton2Click
  end
  object RadioButton1: TRadioButton
    Left = 232
    Top = 80
    Width = 73
    Height = 17
    Caption = 'COM1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 336
    Top = 16
  end
end