main.dfm

AD9852 DDS Board Software Package

object Form_main: TForm_main
  Left = 224
  Top = 49
  Width = 407
  Height = 495
  Caption = 'AD9852 control progam'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000330077000000000000000000000000003B077070000000000000
    000000000000BB807007000000000000000000000300B0007000700000000000
    00000000330070070700070000000000000000003B0700700070007000000000
    00000000BB800700000700070000000000000300B00070000000700070000000
    0000330070070000000007000700000000003B07007000000000007007000000
    0000BB800700000000000007070000000300B000700000000070000077000000
    330070070000000007000000803300003B070070000000000000000800330000
    BB8007000000000000000080BBBB0300B000700000000070000008000BB03300
    70070000000707000000803300003B070070000000707000000800330000BB80
    07000000070700000080BBBB0000B000700000000070000008000BB000007007
    0000000007000000803300000000707000007770000000080033000000008700
    0007070700000080BBBB00000000080000077777000008000BB0000000000080
    0007070700008033000000000000000800007770000800330000000000000000
    800000000080BBBB00000000000000000800000008000BB00000000000000000
    0080000080330000000000000000000000080008003300000000000000000000
    00008080BBBB00000000000000000000000008000BB00000000000000000FFFF
    33FFFFFF21FFFFFF00FFFFFB007FFFF3003FFFF2001FFFF0000FFFB00007FF30
    0003FF200003FF000003FB000003F3000000F2000000F0000010B00000393000
    000F2000000F0000010F0000039F000000FF000000FF000010FF800039FFC000
    0FFFE0000FFFF0010FFFF8039FFFFC00FFFFFE00FFFFFF10FFFFFFB9FFFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 16
    Top = 56
    Width = 377
    Height = 57
  end
  object Bevel2: TBevel
    Left = 176
    Top = 120
    Width = 217
    Height = 57
  end
  object Label_frequency: TLabel
    Left = 192
    Top = 128
    Width = 78
    Height = 13
    Caption = 'DDS freq. (MHz)'
  end
  object Label_ftw: TLabel
    Left = 24
    Top = 248
    Width = 75
    Height = 13
    Caption = 'DDS 48-bit Ftw:'
  end
  object Label_ftwbits: TLabel
    Left = 24
    Top = 288
    Width = 166
    Height = 13
    Caption = 'DDS 48-bit Frequency tuning word:'
  end
  object Label_ftw1: TLabel
    Left = 104
    Top = 248
    Width = 44
    Height = 13
    Caption = '(Decimal)'
  end
  object Label_ftwbits1: TLabel
    Left = 192
    Top = 288
    Width = 35
    Height = 13
    Caption = '(Binary)'
  end
  object Label_ftwhex: TLabel
    Left = 200
    Top = 248
    Width = 75
    Height = 13
    Caption = 'DDS 48-bit Ftw:'
  end
  object Label_ftwhex1: TLabel
    Left = 280
    Top = 248
    Width = 25
    Height = 13
    Caption = '(Hex)'
  end
  object Label_portaddress: TLabel
    Left = 176
    Top = 32
    Width = 108
    Height = 13
    Caption = 'LPT data port address:'
  end
  object Label_status: TLabel
    Left = 24
    Top = 224
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label_repeat: TLabel
    Left = 24
    Top = 128
    Width = 114
    Height = 13
    Caption = 'Repeat send sequence:'
  end
  object Label_bitssent: TLabel
    Left = 24
    Top = 328
    Width = 117
    Height = 13
    Caption = 'Bit patterns sent to DDS:'
  end
  object Label_ftwbytes: TLabel
    Left = 192
    Top = 328
    Width = 85
    Height = 13
    Caption = 'DDS Ftw in bytes:'
  end
  object Label_level: TLabel
    Left = 288
    Top = 128
    Width = 60
    Height = 13
    Caption = 'Output level:'
  end
  object Label_header: TLabel
    Left = 24
    Top = 8
    Width = 129
    Height = 13
    Caption = '2002/3/18   Charlos Potma'
  end
  object Label_pllmultiplier: TLabel
    Left = 192
    Top = 64
    Width = 65
    Height = 13
    Caption = 'PLL multiplier:'
  end
  object Label_clockeff: TLabel
    Left = 288
    Top = 64
    Width = 83
    Height = 13
    Caption = 'DDS clock (MHz)'
  end
  object Label_clock: TLabel
    Left = 24
    Top = 64
    Width = 84
    Height = 13
    Caption = 'Base clock (MHz)'
  end
  object Bevel3: TBevel
    Left = 16
    Top = 120
    Width = 153
    Height = 57
  end
  object Bevel4: TBevel
    Left = 176
    Top = 184
    Width = 217
    Height = 57
  end
  object Label_controldac: TLabel
    Left = 232
    Top = 192
    Width = 121
    Height = 13
    Caption = 'Control DAC Output level:'
  end
  object Label_twoscomplement: TLabel
    Left = 232
    Top = 216
    Width = 50
    Height = 13
    Caption = '2'#39's compl.:'
  end
  object Edit_clock: TEdit
    Left = 24
    Top = 80
    Width = 49
    Height = 21
    TabOrder = 1
    Text = '25'
  end
  object Edit_frequency: TEdit
    Left = 192
    Top = 144
    Width = 57
    Height = 21
    TabOrder = 2
    Text = '2'
  end
  object Edit_ftw: TEdit
    Left = 24
    Top = 264
    Width = 121
    Height = 21
    Enabled = False
    TabOrder = 5
  end
  object Edit_ftwbits: TEdit
    Left = 24
    Top = 304
    Width = 337
    Height = 21
    Enabled = False
    TabOrder = 7
  end
  object Button_masterreset: TButton
    Left = 24
    Top = 24
    Width = 97
    Height = 25
    Caption = 'DDS Master reset'
    TabOrder = 0
    OnClick = Button_masterresetClick
  end
  object Button_send: TButton
    Left = 24
    Top = 192
    Width = 97
    Height = 25
    Caption = 'Send data to DDS'
    TabOrder = 3
    OnClick = Button_sendClick
  end
  object Button_exit: TButton
    Left = 304
    Top = 432
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 4
    OnClick = Button_exitClick
  end
  object Edit_ftwhex: TEdit
    Left = 200
    Top = 264
    Width = 161
    Height = 21
    Enabled = False
    TabOrder = 6
  end
  object Edit_portaddress: TEdit
    Left = 288
    Top = 24
    Width = 57
    Height = 21
    TabOrder = 8
    Text = '$378'
  end
  object Edit_repeat: TEdit
    Left = 24
    Top = 144
    Width = 49
    Height = 21
    TabOrder = 9
    Text = '1'
  end
  object Bits_sent: TMemo
    Left = 24
    Top = 344
    Width = 153
    Height = 113
    Lines.Strings = (
      'Bits_sent')
    ScrollBars = ssVertical
    TabOrder = 10
  end
  object Ftw_bytes: TMemo
    Left = 192
    Top = 344
    Width = 81
    Height = 113
    Enabled = False
    Lines.Strings = (
      'Ftw_bytes')
    TabOrder = 11
  end
  object Edit_level: TEdit
    Left = 288
    Top = 144
    Width = 57
    Height = 21
    TabOrder = 12
    Text = '4095'
  end
  object ComboBox_pllmultiplier: TComboBox
    Left = 192
    Top = 80
    Width = 73
    Height = 21
    Enabled = False
    ItemHeight = 13
    TabOrder = 13
    OnChange = ComboBox_pllmultiplierChange
    Items.Strings = (
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12'
      '13'
      '14'
      '15'
      '16'
      '17'
      '18'
      '19'
      '20')
  end
  object CheckBox_pllenabled: TCheckBox
    Left = 104
    Top = 80
    Width = 81
    Height = 17
    Caption = 'PLL enabled'
    TabOrder = 14
    OnClick = CheckBox_pllenabledClick
  end
  object Edit_clockeff: TEdit
    Left = 288
    Top = 80
    Width = 57
    Height = 21
    TabOrder = 15
  end
  object Edit_controldac: TEdit
    Left = 288
    Top = 208
    Width = 57
    Height = 21
    Enabled = False
    TabOrder = 16
    Text = '0'
  end
  object CheckBox_fs: TCheckBox
    Left = 352
    Top = 144
    Width = 33
    Height = 17
    Caption = 'FS'
    TabOrder = 17
    OnClick = CheckBox_fsClick
  end
  object CheckBox_max: TCheckBox
    Left = 184
    Top = 192
    Width = 41
    Height = 17
    Caption = 'Max'
    Enabled = False
    TabOrder = 18
    OnClick = CheckBox_maxClick
  end
  object CheckBox_min: TCheckBox
    Left = 184
    Top = 216
    Width = 41
    Height = 17
    Caption = 'Min'
    Enabled = False
    TabOrder = 19
    OnClick = CheckBox_minClick
  end
  object CheckBox_controldac: TCheckBox
    Left = 352
    Top = 208
    Width = 33
    Height = 17
    Caption = 'ON'
    TabOrder = 20
    OnClick = CheckBox_controldacClick
  end
end