object f8254Form: Tf8254Form Left = 511 Top = 305 AutoScroll = False Caption = '8254 Counter Chip Demonstration' ClientHeight = 363 ClientWidth = 322 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -10 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object FreqOutPanel: TPanel Left = 8 Top = 52 Width = 306 Height = 78 Anchors = [akLeft, akTop, akRight] TabOrder = 5 Visible = False object FreqOutLabel: TLabel Left = 16 Top = 12 Width = 144 Height = 21 AutoSize = False Caption = 'Frequency for Output (Hz): ' Layout = tlCenter end object RealLabel: TLabel Left = 16 Top = 46 Width = 144 Height = 21 AutoSize = False Caption = 'Actual Output Frequency (Hz):' Layout = tlCenter end object FreqOutEdit: TEdit Left = 159 Top = 12 Width = 131 Height = 21 TabOrder = 0 Text = '150000' end object RealEdit: TEdit Left = 159 Top = 46 Width = 131 Height = 21 TabOrder = 1 end end object EventCountPanel: TPanel Left = 8 Top = 52 Width = 306 Height = 78 Anchors = [akLeft, akTop, akRight] TabOrder = 6 Visible = False object EventCountLabel: TLabel Left = 20 Top = 12 Width = 130 Height = 21 AutoSize = False Caption = 'Event Counts:' Layout = tlCenter end object EventTestButton: TButton Left = 20 Top = 46 Width = 72 Height = 21 Caption = 'Stop && &Reset' TabOrder = 0 OnClick = EventTestButtonClick end object SinceLastButton: TButton Left = 215 Top = 46 Width = 72 Height = 21 Caption = 'Since &Last' TabOrder = 1 OnClick = SinceLastButtonClick end object EventCountEdit: TEdit Left = 156 Top = 12 Width = 131 Height = 21 TabOrder = 2 end object SinceFirstButton: TButton Left = 117 Top = 46 Width = 72 Height = 21 Caption = 'Since &First' TabOrder = 3 OnClick = SinceFirstButtonClick end end object PulseWidthPanel: TPanel Left = 8 Top = 52 Width = 306 Height = 78 Anchors = [akLeft, akTop, akRight] TabOrder = 7 Visible = False object PulseLabel: TLabel Left = 20 Top = 29 Width = 130 Height = 21 AutoSize = False Caption = 'Pulse Width (µsec): ' Layout = tlCenter end object PulseEdit: TEdit Left = 156 Top = 29 Width = 131 Height = 21 TabOrder = 0 end end object FreqInPanel: TPanel Left = 8 Top = 52 Width = 306 Height = 78 Anchors = [akLeft, akTop, akRight] TabOrder = 4 object FreqInLabel: TLabel Left = 20 Top = 29 Width = 130 Height = 21 AutoSize = False Caption = 'Measured Frequency (Hz): ' Layout = tlCenter end object FreqInEdit: TEdit Left = 156 Top = 29 Width = 131 Height = 21 TabOrder = 0 end end object ISAPanel: TGroupBox Left = 8 Top = 135 Width = 143 Height = 54 Hint = 'Set the Base Address of the ISA board you want to use this sampl' + 'e with, in Hexadecimal.' Anchors = [akLeft, akTop, akRight] Caption = 'Base Address of 8254 Chip' TabOrder = 0 object HexLabel: TLabel Left = 14 Top = 21 Width = 19 Height = 13 Caption = 'Hex' Layout = tlCenter end object BaseEdit: TEdit Left = 40 Top = 20 Width = 81 Height = 21 TabOrder = 0 Text = 'E010' end end object StartButton: TButton Left = 160 Top = 156 Width = 72 Height = 20 Anchors = [akRight] Caption = '&Start Test' Default = True Enabled = False TabOrder = 1 OnClick = StartButtonClick end object ExitButton: TButton Left = 240 Top = 156 Width = 72 Height = 20 Hint = 'Click here to exit this program. The DACs will remain at their ' + 'current output values after the program closes.' Anchors = [akRight] Caption = 'E&xit Program' TabOrder = 2 OnClick = ExitButtonClick end object FeatureGroup: TRadioGroup Left = 8 Top = 0 Width = 306 Height = 46 Anchors = [akLeft, akTop, akRight] Caption = 'Features' Columns = 2 Items.Strings = ( 'Frequency Measurement' 'Frequency Generation' 'Event Counting' 'Pulse Width Measurement') TabOrder = 3 OnClick = FeatureGroupClick end object Instructions: TMemo Left = 8 Top = 195 Width = 306 Height = 163 Anchors = [akLeft, akTop, akRight, akBottom] Lines.Strings = ( 'Instructions:' 'Choose which feature of the 8254 chip to demonstrate with ' 'the radio buttons at the top of the form, and enter the chip'#39's ' 'base address above.') ScrollBars = ssVertical TabOrder = 8 end object FreqInTimer: TTimer Enabled = False Interval = 100 OnTimer = FreqInTimerTimer Left = 168 Top = 176 end object PulseWidthTimer: TTimer Enabled = False OnTimer = PulseWidthTimerTimer Left = 224 Top = 176 end end