object Form1: TForm1 Left = 145 Top = 76 Width = 657 Height = 640 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 14 Top = 246 Width = 469 Height = 245 Shape = bsFrame end object Label1: TLabel Left = 16 Top = 16 Width = 127 Height = 13 Caption = 'Velocidad de propagación:' end object Label2: TLabel Left = 280 Top = 16 Width = 93 Height = 13 Caption = 'metros por segundo' end object Label3: TLabel Left = 16 Top = 48 Width = 92 Height = 13 Caption = 'Longitud del medio:' end object Label4: TLabel Left = 224 Top = 48 Width = 31 Height = 13 Caption = 'metros' end object Label5: TLabel Left = 16 Top = 80 Width = 109 Height = 13 Caption = 'Frecuencia de la onda:' end object Label6: TLabel Left = 224 Top = 80 Width = 89 Height = 13 Caption = 'ciclos por segundo' end object Label7: TLabel Left = 16 Top = 112 Width = 88 Height = 13 Caption = 'Precisión del DAC:' end object Label8: TLabel Left = 224 Top = 112 Width = 16 Height = 13 Caption = 'bits' end object pbxPreview: TPaintBox Left = 16 Top = 248 Width = 465 Height = 241 OnPaint = pbxPreviewPaint end object Label9: TLabel Left = 16 Top = 504 Width = 93 Height = 13 Caption = 'Resultado del DAC:' end object Label10: TLabel Left = 16 Top = 144 Width = 66 Height = 13 Caption = 'Tipo de onda:' end object Label11: TLabel Left = 16 Top = 176 Width = 65 Height = 13 Caption = 'Rectificación:' end object Label12: TLabel Left = 16 Top = 536 Width = 97 Height = 13 Caption = 'Graficar DAC desde:' OnClick = FormCreate end object Label13: TLabel Left = 192 Top = 536 Width = 66 Height = 13 Caption = 'metros, hasta:' end object Label14: TLabel Left = 336 Top = 536 Width = 34 Height = 13 Caption = 'metros.' end object cmbS: TComboBox Left = 152 Top = 16 Width = 121 Height = 21 ItemHeight = 13 TabOrder = 0 Text = '299792458' OnChange = RefrescarPreview Items.Strings = ( '299792458' ' (velocidad de la luz)' '' '340.29' ' (velocidad del sonido)') end object txtL: TEdit Left = 152 Top = 48 Width = 65 Height = 21 TabOrder = 1 Text = '1' OnChange = RefrescarPreview end object txtF: TEdit Left = 152 Top = 80 Width = 65 Height = 21 TabOrder = 2 Text = '100' OnChange = RefrescarPreview end object txtBits: TEdit Left = 152 Top = 112 Width = 65 Height = 21 TabOrder = 3 Text = '10' OnChange = RefrescarPreview end object Button1: TButton Left = 152 Top = 208 Width = 75 Height = 25 Caption = 'Refrescar' TabOrder = 4 OnClick = RefrescarPreview end object txtDAC: TEdit Left = 152 Top = 504 Width = 65 Height = 21 ReadOnly = True TabOrder = 5 Text = '---' end object cmbOnda: TComboBox Left = 152 Top = 144 Width = 121 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 6 OnChange = RefrescarPreview Items.Strings = ( 'Seno' 'Cuadrada') end object cmbRectificacion: TComboBox Left = 152 Top = 176 Width = 121 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 7 OnChange = RefrescarPreview Items.Strings = ( 'Negativo > Cero' 'Negativo > Positivo' 'Sin rectificar') end object txtDesde: TEdit Left = 120 Top = 536 Width = 65 Height = 21 TabOrder = 8 Text = '0' end object txtHasta: TEdit Left = 264 Top = 536 Width = 65 Height = 21 TabOrder = 9 Text = '10000' end object Button2: TButton Left = 384 Top = 536 Width = 75 Height = 25 Caption = 'Graficar' TabOrder = 10 OnClick = Button2Click end end