parsetup.~pas

关于手持机的LCD显示模块的设计LCD的显示固定为每行16个字符

unit ParSetup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UnitCallDll, ComCtrls,UnitRegister, ExtCtrls;

type
  TFormSetUp = class(TForm)
    StatusBarForMessage: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    gbCommSet: TGroupBox;
    lblComName: TLabel;
    lblBaudRate: TLabel;
    cbComName: TComboBox;
    cbBaudRate: TComboBox;
    GroupBox1: TGroupBox;
    GroupBox6: TGroupBox;
    RadioButAntOpen: TRadioButton;
    RadioButAntClose: TRadioButton;
    GroupBox8: TGroupBox;
    RadioButAutoSearchOpen: TRadioButton;
    RadioButAutoSearchClose: TRadioButton;
    GroupBox7: TGroupBox;
    RadioButSoundOpen: TRadioButton;
    RadioButSoundClose: TRadioButton;
    GroupBox9: TGroupBox;
    TabSheet5: TTabSheet;
    GroupBox4: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    EditDevicePartNo: TEdit;
    EditForShowHaardWareVerson: TEdit;
    GroupBox3: TGroupBox;
    EditLEDShowData: TEdit;
    GroupBox2: TGroupBox;
    EditLCDShowData: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    EditXPos: TEdit;
    EditYPos: TEdit;
    BtnComOpen: TButton;
    BtnResetLED: TButton;
    BtnLEDDisp: TButton;
    BtnLCDReset: TButton;
    BtnLCDDisp: TButton;
    BtnReadDevice: TButton;
    GroupBox5: TGroupBox;
    RadioButLEDON: TRadioButton;
    RadioButLEDOff: TRadioButton;
    procedure RadioButSoundOpenClick(Sender: TObject);
    procedure RadioButSoundCloseClick(Sender: TObject);
    procedure RadioButAutoSearchOpenClick(Sender: TObject);
    procedure RadioButAutoSearchCloseClick(Sender: TObject);
    procedure RadioButAntOpenClick(Sender: TObject);
    procedure RadioButAntCloseClick(Sender: TObject);
    procedure ButtonLCDResetClick(Sender: TObject);
    procedure EditLEDShowDataKeyPress(Sender: TObject; var Key: Char);
    procedure BtnReadDeviceClick(Sender: TObject);
    procedure BtnLCDResetClick(Sender: TObject);
    procedure BtnLCDDispClick(Sender: TObject);
    procedure BtnResetLEDClick(Sender: TObject);
    procedure BtnLEDDispClick(Sender: TObject);
    procedure BtnComOpenClick(Sender: TObject);
    procedure RadioButLEDONClick(Sender: TObject);
    procedure RadioButLEDOffClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSetUp: TFormSetUp;
implementation

uses CardWriteRead;

{$R *.dfm}



procedure TFormSetUp.RadioButSoundCloseClick(Sender: TObject);
begin
   ReturnReadDataState:=Beep_Shuffle(0);
   StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.RadioButSoundOpenClick(Sender: TObject);
begin
  ReturnReadDataState:=Beep_Shuffle(1);
  StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.RadioButAutoSearchCloseClick(Sender: TObject);
begin
    ReturnReadDataState:=AutoSearch_Card(0);
    StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.RadioButAutoSearchOpenClick(Sender: TObject);
begin
   ReturnReadDataState:=AutoSearch_Card(1);
   StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;


// 关闭天线
procedure TFormSetUp.RadioButAntCloseClick(Sender: TObject);
begin
    ReturnReadDataState:=Antenna_Control(0);
    StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;
// 打开天线
procedure TFormSetUp.RadioButAntOpenClick(Sender: TObject);
begin
    ReturnReadDataState:=Antenna_Control(1);
    StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;


procedure TFormSetUp.ButtonLCDResetClick(Sender: TObject);
begin
     ReturnReadDataState:=LCD_Reset;
     StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;


procedure TFormSetUp.EditLEDShowDataKeyPress(Sender: TObject;
  var Key: Char);
begin
   if  pos('.',EditLEDShowData.Text)>1 then
     EditLEDShowData.MaxLength:=9
   else
      EditLEDShowData.MaxLength:=8;
      EditValueInput(Sender,key);
end;

procedure TFormSetUp.BtnReadDeviceClick(Sender: TObject);
begin
  ReturnReadDataState:=Device_PartNumber(ReturnDataStrFromCard);
  EditDevicePartNo.Text:=ReturnDataStrFromCard;
  StatusBarForMessage.Panels[0].Text:=OperateState[ReturnReadDataState];
  if EditDevicePartNo.Text='' then
    exit;
  ReturnReadDataState:= HardWare_Version(ReturnDataStrFromCard);
  EditForShowHaardWareVerson.Text:= ReturnDataStrFromCard;
  StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.BtnLCDResetClick(Sender: TObject);
begin
    ReturnReadDataState:=LCD_Reset;
    StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.BtnLCDDispClick(Sender: TObject);
begin
   ReturnReadDataState:=LCD_String_Display(EditXPos.Text ,EditYPos.Text,EditLCDShowData.Text);
    StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.BtnResetLEDClick(Sender: TObject);
begin
   ReturnReadDataState:=LED_Reset;
   StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.BtnLEDDispClick(Sender: TObject);
begin
   ReturnReadDataState:=AutoSearch_Card(0);
   ReturnReadDataState:=LED_Display(EditLEDShowData.Text);
   StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

procedure TFormSetUp.BtnComOpenClick(Sender: TObject);
var temp:smallint;
begin
   if BtnComOpen.Caption='打开串口' then
     begin
                ComPortNumberStr:=cbComName.Text ;
                ComBaudrateSet:=strtoint(cbBaudRate.text);
                SetComPortStateBool:=Com_Open(ComPortNumberStr,ComBaudrateSet);
                if  SetComPortStateBool=true then
                    begin
                    Form1.StaticTextComport.caption:=(ComPortNumberStr+':串口打开成功，速率：'+Inttostr(ComBaudrateSet));
                    StatusBarForMessage.Panels[0].Text:=(ComPortNumberStr+':串口打开成功，速率：'+Inttostr(ComBaudrateSet));

                    RegisterWriteForComSetUp('UserCardComSettingData','UserComPortSet_PortValue',ComPortNumberStr);
                    RegisterWriteForComSetUp('UserCardComSettingData','UserComPortSet_BaudValue',inttostr(ComBaudrateSet));
                    BtnComOpen.Caption:='关闭串口';
                    SetComPortStateBool:=true;
                    cbComName.Enabled:=false;
                    cbBaudRate.Enabled:=false;
                  end
                else
                  begin
                    SetComPortStateBool:=false;
                    cbComName.Enabled:=true;
                    cbBaudRate.Enabled:=true;
                    Form1.StaticTextComport.caption:=(ComPortNumberStr+'串口打开失败速率：'+Inttostr(ComBaudrateSet));
                    StatusBarForMessage.Panels[0].Text:=(ComPortNumberStr+'串口打开失败速率：'+Inttostr(ComBaudrateSet));
                 end;
     end
   else
       begin
       temp:=Com_Close;
       if    temp=1 then
          Form1.StaticTextComport.Caption:='串口关闭不正常!'
       else
          Form1.StaticTextComport.Caption:='串口已经关闭，请打开后操作!';
          SetComPortStateBool:=false;
          BtnComOpen.Caption:='打开串口';
          Form1.StaticTextComport.caption:=('串口关闭!');
          StatusBarForMessage.Panels[0].Text:=('串口关闭!');
          cbComName.Enabled:=true;
          cbBaudRate.Enabled:=true;
      end;
end;

procedure TFormSetUp.RadioButLEDONClick(Sender: TObject);
begin
   ReturnReadDataState:=LED_Shuffle(1);
   StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;
// ADD  2006-06-23  增加LED开关
procedure TFormSetUp.RadioButLEDOffClick(Sender: TObject);
begin
  ReturnReadDataState:=LED_Shuffle(0);
  StatusBarForMessage.Panels[1].Text:=OperateState[ReturnReadDataState];
end;

end.