unit1.dfm

AVR模拟USB上位机控制代码,DELPHI

object Form1: TForm1
  Left = 211
  Top = 187
  Width = 385
  Height = 319
  Caption = 'Powrswitch control'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button3: TButton
    Left = 8
    Top = 8
    Width = 361
    Height = 25
    Caption = 'Open Powerswitch'
    TabOrder = 0
    OnClick = Button3Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 40
    Width = 361
    Height = 217
    Caption = 'Workspace'
    TabOrder = 1
    Visible = False
    object Label1: TLabel
      Left = 88
      Top = 192
      Width = 34
      Height = 13
      Caption = 'Polarity'
    end
    object Label2: TLabel
      Left = 136
      Top = 192
      Width = 22
      Height = 13
      Caption = 'Bit #'
    end
    object Label3: TLabel
      Left = 184
      Top = 192
      Width = 40
      Height = 13
      Caption = 'Duration'
    end
    object Label4: TLabel
      Left = 232
      Top = 168
      Width = 32
      Height = 13
      Caption = 'Label4'
    end
    object Label5: TLabel
      Left = 297
      Top = 24
      Width = 32
      Height = 13
      Caption = 'Label5'
      Visible = False
    end
    object Label6: TLabel
      Left = 88
      Top = 64
      Width = 63
      Height = 24
      Caption = 'Label6'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Gauge1: TGauge
      Left = 88
      Top = 88
      Width = 257
      Height = 1
      BackColor = clBtnFace
      BorderStyle = bsNone
      MaxValue = 1000
      Progress = 0
      ShowText = False
    end
    object Label7: TLabel
      Left = 104
      Top = 8
      Width = 6
      Height = 13
      Caption = '7'
    end
    object Label8: TLabel
      Left = 128
      Top = 8
      Width = 6
      Height = 13
      Caption = '6'
    end
    object Label9: TLabel
      Left = 152
      Top = 8
      Width = 6
      Height = 13
      Caption = '5'
    end
    object Label10: TLabel
      Left = 176
      Top = 8
      Width = 6
      Height = 13
      Caption = '4'
    end
    object Label11: TLabel
      Left = 200
      Top = 8
      Width = 6
      Height = 13
      Caption = '3'
    end
    object Label12: TLabel
      Left = 224
      Top = 8
      Width = 6
      Height = 13
      Caption = '2'
    end
    object Label13: TLabel
      Left = 248
      Top = 8
      Width = 6
      Height = 13
      Caption = '1'
    end
    object Label14: TLabel
      Left = 272
      Top = 8
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Button4: TButton
      Left = 8
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Getstatus'
      TabOrder = 0
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 8
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Test 1000ckl'
      TabOrder = 1
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 8
      Top = 112
      Width = 75
      Height = 25
      Caption = 'Setbit'
      TabOrder = 2
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 128
      Top = 112
      Width = 75
      Height = 25
      Caption = 'Resetbit'
      TabOrder = 3
      OnClick = Button7Click
    end
    object SpinEdit1: TSpinEdit
      Left = 88
      Top = 112
      Width = 41
      Height = 22
      MaxValue = 7
      MinValue = 0
      TabOrder = 4
      Value = 0
    end
    object SpinEdit2: TSpinEdit
      Left = 88
      Top = 160
      Width = 41
      Height = 22
      MaxValue = 1
      MinValue = 0
      ParentShowHint = False
      ShowHint = False
      TabOrder = 5
      Value = 0
    end
    object SpinEdit3: TSpinEdit
      Left = 136
      Top = 160
      Width = 41
      Height = 22
      MaxValue = 7
      MinValue = 0
      TabOrder = 6
      Value = 0
    end
    object SpinEdit4: TSpinEdit
      Left = 184
      Top = 160
      Width = 41
      Height = 22
      MaxValue = 255
      MinValue = 0
      TabOrder = 7
      Value = 0
      OnChange = SpinEdit4Change
    end
    object Button8: TButton
      Left = 8
      Top = 160
      Width = 75
      Height = 25
      Caption = 'Impuls'
      TabOrder = 8
      OnClick = Button8Click
    end
    object CheckBox1: TCheckBox
      Left = 272
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 9
      OnClick = Button4Click
    end
    object CheckBox2: TCheckBox
      Left = 248
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 10
      OnClick = Button4Click
    end
    object CheckBox3: TCheckBox
      Left = 224
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 11
      OnClick = Button4Click
    end
    object CheckBox4: TCheckBox
      Left = 200
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 12
      OnClick = Button4Click
    end
    object CheckBox5: TCheckBox
      Left = 176
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 13
      OnClick = Button4Click
    end
    object CheckBox6: TCheckBox
      Left = 152
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 14
      OnClick = Button4Click
    end
    object CheckBox7: TCheckBox
      Left = 128
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 15
      OnClick = Button4Click
    end
    object CheckBox8: TCheckBox
      Left = 104
      Top = 24
      Width = 17
      Height = 17
      TabOrder = 16
      OnClick = Button4Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 273
    Width = 377
    Height = 19
    Panels = <
      item
        Width = 150
      end>
    SimplePanel = False
  end
end