_main_form.dfm

蓝牙芯片ZV4301的调试工具源码.做蓝牙产品时很有参考价值内部有串口的编程序源码,对有串口编成需求的同志有参考价值.

      object ZV_ENGINEER_PANEL_DEV: TGroupBox
        Left = 152
        Top = 2
        Width = 378
        Height = 233
        Caption = 'No Parameter'
        TabOrder = 8
        object Label3: TLabel
          Left = 208
          Top = 57
          Width = 34
          Height = 13
          Caption = 'Pattern'
        end
        object Label4: TLabel
          Left = 208
          Top = 105
          Width = 34
          Height = 13
          Caption = 'Pattern'
        end
        object ZEP_DEV_STATUS: TLabel
          Left = 104
          Top = 208
          Width = 98
          Height = 13
          Caption = 'ZEP_DEV_STATUS'
        end
        object Label13: TLabel
          Left = 244
          Top = 153
          Width = 13
          Height = 13
          Caption = 'Rx'
        end
        object Label14: TLabel
          Left = 308
          Top = 153
          Width = 12
          Height = 13
          Caption = 'Tx'
        end
        object ZEP_DEV_CONTINUOUSRX: TRadioButton
          Left = 32
          Top = 32
          Width = 113
          Height = 17
          Caption = 'Receive For Ever'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object ZEP_DEV_CONTINUOUSTX: TRadioButton
          Left = 32
          Top = 56
          Width = 177
          Height = 17
          Caption = 'Send a Eternally Long Packet'
          TabOrder = 1
        end
        object ZEP_DEV_CONTINUOUSNULLTX: TRadioButton
          Left = 32
          Top = 80
          Width = 217
          Height = 17
          Caption = 'Transmit Unmodulated Signal For Ever'
          TabOrder = 2
        end
        object ZEP_DEV_PULSETX: TRadioButton
          Left = 32
          Top = 104
          Width = 113
          Height = 17
          Caption = 'Send Packets'
          TabOrder = 3
        end
        object ZEP_DEV_SEND: TButton
          Left = 32
          Top = 200
          Width = 65
          Height = 25
          Caption = 'Send'
          TabOrder = 4
          OnClick = ZEP_DEV_SENDClick
        end
        object ZEP_DEV_TXPOW_PARAM: TComboBox
          Left = 164
          Top = 126
          Width = 61
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 5
          Text = 'UP'
          Items.Strings = (
            'UP'
            'DOWN'
            'MIN'
            'MAX')
        end
        object ZEP_DEV_PULSETX_PATTERN: TComboBox
          Left = 256
          Top = 104
          Width = 105
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 6
          Text = '0000'
          Items.Strings = (
            '0000'
            '1111'
            '1010'
            '11110000'
            'Pseudo-Random')
        end
        object ZEP_DEV_TXPOW: TRadioButton
          Left = 32
          Top = 128
          Width = 129
          Height = 17
          Caption = 'Set RF Transmit Power'
          TabOrder = 7
        end
        object ZEP_DEV_CONTINUOUSTX_PATTERN: TComboBox
          Left = 256
          Top = 56
          Width = 105
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 8
          Text = '0000'
          Items.Strings = (
            '0000'
            '1111'
            '1010'
            '11110000'
            'Pseudo-Random')
        end
        object ZEP_DEV_FREQ: TRadioButton
          Left = 32
          Top = 152
          Width = 209
          Height = 17
          Caption = 'Stop Hopping and Set Rx and Tx Freq'
          TabOrder = 9
        end
        object ZEP_DEV_FREQ_RX: TComboBox
          Left = 261
          Top = 150
          Width = 45
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 10
          Text = '00'
          Items.Strings = (
            '00'
            '01'
            '02'
            '03'
            '04'
            '05'
            '06'
            '07'
            '08'
            '09'
            '10'
            '11'
            '12'
            '13'
            '14'
            '15'
            '16'
            '17'
            '18'
            '19'
            '20'
            '21'
            '22'
            '23'
            '24'
            '25'
            '26'
            '27'
            '28'
            '29'
            '30'
            '31'
            '32'
            '33'
            '34'
            '35'
            '36'
            '37'
            '38'
            '39'
            '40'
            '41'
            '42'
            '43'
            '44'
            '45'
            '46'
            '47'
            '48'
            '49'
            '50'
            '51'
            '52'
            '53'
            '54'
            '55'
            '56'
            '57'
            '58'
            '59'
            '60'
            '61'
            '62'
            '63'
            '64'
            '65'
            '66'
            '67'
            '68'
            '69'
            '70'
            '71'
            '72'
            '73'
            '74'
            '75'
            '76'
            '77'
            '78'
            '79')
        end
        object ZEP_DEV_FREQ_TX: TComboBox
          Left = 325
          Top = 150
          Width = 45
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 11
          Text = '00'
          Items.Strings = (
            '00'
            '01'
            '02'
            '03'
            '04'
            '05'
            '06'
            '07'
            '08'
            '09'
            '10'
            '11'
            '12'
            '13'
            '14'
            '15'
            '16'
            '17'
            '18'
            '19'
            '20'
            '21'
            '22'
            '23'
            '24'
            '25'
            '26'
            '27'
            '28'
            '29'
            '30'
            '31'
            '32'
            '33'
            '34'
            '35'
            '36'
            '37'
            '38'
            '39'
            '40'
            '41'
            '42'
            '43'
            '44'
            '45'
            '46'
            '47'
            '48'
            '49'
            '50'
            '51'
            '52'
            '53'
            '54'
            '55'
            '56'
            '57'
            '58'
            '59'
            '60'
            '61'
            '62'
            '63'
            '64'
            '65'
            '66'
            '67'
            '68'
            '69'
            '70'
            '71'
            '72'
            '73'
            '74'
            '75'
            '76'
            '77'
            '78'
            '79')
        end
      end
    end
    object CONTROL_PAGE_ZVCMD: TTabSheet
      Caption = 'Zeevo Console Command'
      ImageIndex = 1
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 47
        Height = 13
        Caption = 'Command'
      end
      object ZV_PRINT_LIST: TListBox
        Left = 0
        Top = 32
        Width = 532
        Height = 205
        Align = alBottom
        Font.Charset = ANSI_CHARSET
        Font.Color = 7434751
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        PopupMenu = ZV_PRINT_MENU
        TabOrder = 0
      end
      object USER_CONSOLE_CMD: TComboBox
        Left = 64
        Top = 8
        Width = 137
        Height = 21
        ItemHeight = 0
        TabOrder = 1
        OnKeyPress = USER_CONSOLE_CMDKeyPress
      end
    end
  end
  object MAIN_MENU: TMainMenu
    Left = 264
    Top = 65528
    object File1: TMenuItem
      Caption = '&File'
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object CommSetting1: TMenuItem
      Caption = '&Config'
      object MENU_CFG_COMM_CLOSE: TMenuItem
        Caption = 'Comm Close'
        OnClick = MENU_CFG_COMM_CLOSEClick
      end
      object MENU_CFG_COMM_REFRESH: TMenuItem
        Caption = 'Com Port Refresh Manually'
        OnClick = MENU_CFG_COMM_REFRESHClick
      end
      object MENU_CFG_COMM_OPEN: TMenuItem
        Caption = 'Comm Open'
      end
      object MENU_CFG_COMM_BAUDRATE: TMenuItem
        Caption = 'Comm Baudrate'
        object MENU_CFG_COMM_BAUDRATE_2400: TMenuItem
          Caption = '2400 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_4800: TMenuItem
          Caption = '4800 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_9600: TMenuItem
          Caption = '9600 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_19200: TMenuItem
          Caption = '19200 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_38400: TMenuItem
          Caption = '38400 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_46875: TMenuItem
          Caption = '46875 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_57600: TMenuItem
          Caption = '57600 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_93750: TMenuItem
          Caption = '93750 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_115200: TMenuItem
          Caption = '115200 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_187500: TMenuItem
          Caption = '187500 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_230400: TMenuItem
          Caption = '230400 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_375000: TMenuItem
          Caption = '375000 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_460800: TMenuItem
          Caption = '460800 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object MENU_CFG_COMM_BAUDRATE_750000: TMenuItem
          Caption = '750000 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
        object N921600bps1: TMenuItem
          Caption = '921600 bps'
          RadioItem = True
          OnClick = MENU_CFG_COMM_BAUDRATE_Click
        end
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MENU_CFG_INTEFACE: TMenuItem
        Caption = 'Control Interface'
        object MENU_CFG_INTEFACE_HCI: TMenuItem
          Caption = 'HCI'
          RadioItem = True
          OnClick = MENU_CFG_INTEFACE_HCIClick
        end
        object MENU_CFG_INTEFACE_ZERIAL: TMenuItem
          Caption = 'Zerial'
          RadioItem = True
          OnClick = MENU_CFG_INTEFACE_ZERIALClick
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MENU_CFG_USEUSB: TMenuItem
        Caption = 'Use USB(HCI Only)'
        OnClick = MENU_CFG_USEUSBClick
      end
    end
  end
  object DEBUG_MENU: TPopupMenu
    Left = 8
    Top = 320
    object Clear1: TMenuItem
      Caption = 'Clear'
      OnClick = Clear1Click
    end
    object SaveMsg1: TMenuItem
      Caption = 'Save message...'
    end
  end
  object LED_TIMER: TTimer
    Enabled = False
    Interval = 50
    OnTimer = LED_TIMERTimer
    Left = 496
  end
  object ZV_PRINT_MENU: TPopupMenu
    Left = 120
    Top = 184
    object ZV_PRINT_CLEAR: TMenuItem
      Caption = 'Clear'
      OnClick = ZV_PRINT_CLEARClick
    end
    object ZV_PRINT_SAVE: TMenuItem
      Caption = 'Save message...'
      OnClick = ZV_PRINT_SAVEClick
    end
  end
  object SaveTXT: TSaveDialog
    Filter = 'Text File|*.txt'
    Left = 328
    Top = 65528
  end
  object ZV_ENGINEER_DELAY: TTimer
    Enabled = False
    Interval = 100
    OnTimer = ZV_ENGINEER_DELAYTimer
    Left = 408
  end
end