object Sample0Form: TSample0Form Left = 464 Top = 252 Width = 394 Height = 418 Caption = 'Sample 0' 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 TitleLabel: TLabel Tag = 99 Left = 18 Top = 122 Width = 350 Height = 14 Alignment = taCenter Caption = ' Channel Data Read ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False end object CardName: TLabel Left = 0 Top = 0 Width = 386 Height = 20 Hint = 'If a PCI DAC card was installed, this would show the product nam' + 'e.' Align = alTop Alignment = taCenter Caption = 'A12-16E' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Memo1: TMemo Left = 8 Top = 24 Width = 369 Height = 89 TabStop = False Color = clBtnFace Lines.Strings = ( 'Sample 0' 'This sample will read data from the 8 differential channels on t' + 'he A/D card.' 'Board Configuration Requirements:' 'CHANNEL SELECTION: 8 Channel Differential (Unipolar)' 'Please enter the base address (in hex) in the text box below, an' + 'd click the ' #39'Start Test'#39' button to begin.') ReadOnly = True TabOrder = 0 end object ExitButton: TButton Left = 280 Top = 320 Width = 97 Height = 25 Hint = 'Click here to exit this program. The DACs will remain at their ' + 'current output values after the program closes.' Caption = 'E&xit Program' TabOrder = 1 OnClick = ExitButtonClick end object ISAPanel: TGroupBox Left = 8 Top = 299 Width = 145 Height = 57 Hint = 'Set the Base Address of the ISA board you want to use this sampl' + 'e with, in Hexadecimal.' Caption = 'Base Address for ISA Card' TabOrder = 2 object HexLabel: TLabel Left = 14 Top = 28 Width = 19 Height = 13 Caption = 'Hex' end object BaseEdit: TEdit Left = 40 Top = 20 Width = 81 Height = 21 TabOrder = 0 Text = '300' end end object TestButton: TButton Left = 168 Top = 320 Width = 97 Height = 25 Caption = 'Start Test' TabOrder = 3 OnClick = TestButtonClick end object ChannelBox: TGroupBox Left = 9 Top = 140 Width = 369 Height = 157 TabOrder = 4 object ChannelLabel1: TLabel Left = 2 Top = 16 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 0' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel2: TLabel Tag = 1 Left = 2 Top = 32 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel3: TLabel Tag = 2 Left = 2 Top = 48 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 2' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel4: TLabel Tag = 3 Left = 2 Top = 64 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 3' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel5: TLabel Tag = 4 Left = 2 Top = 80 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 4' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel6: TLabel Tag = 5 Left = 2 Top = 96 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 5' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel7: TLabel Tag = 6 Left = 2 Top = 112 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 6' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object ChannelLabel8: TLabel Tag = 7 Left = 2 Top = 128 Width = 77 Height = 14 Alignment = taCenter Caption = ' Channel 7' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end end object ErrorStatus: TStatusBar Left = 0 Top = 365 Width = 386 Height = 19 Panels = <> SimplePanel = True end object TestTimer: TTimer Enabled = False Interval = 100 OnTimer = TestTimerTimer Left = 168 Top = 112 end end