以下是*.cpp的內容：
────────
//--------------------------------------------------------------------------- #include
#pragma hdrstop #include "Log2Xls.h" #include
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainL2E *FormMainL2E; //---------------------------------------------------------------------------
__fastcall TFormMainL2E::TFormMainL2E(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainL2E::Exit1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainL2E::FormClose(TObject *Sender,
TCloseAction &Action)
{
Close();
}
//--------------------------------------------------------------------------- void __fastcall TFormMainL2E::Timer1Timer(TObject *Sender)
{
StatusBar1->Panels->Items[0]->Text = TimeToStr(Time());
// Application->ProcessMessages();
}
//--------------------------------------------------------------------------- void __fastcall TFormMainL2E::ImportConfig1Click(TObject *Sender)
{
Method_Set_CH();//±qINIÀɽT©w¦³þ¨ÇCH¡C Method_Set_GSM850PLGUI();//±qINIÀɽT»{GSM850 Power Level þ¨Ç¿ï¶µ¦³®Ä¡C Method_Set_EGSMPLGUI(); //±qINIÀɽT»{EGSM Power Level þ¨Ç¿ï¶µ¦³®Ä¡C Method_Set_DCSPLGUI(); //±qINIÀɽT»{DCS Power Level þ¨Ç¿ï¶µ¦³®Ä¡C Method_Set_PCSPLGUI(); //±qINIÀɽT»{PCS Power Level þ¨Ç¿ï¶µ¦³®Ä¡C
}
//--------------------------------------------------------------------------- void TFormMainL2E::Method_Set_CH()
{
//±qINIÀɽT©w¦³þ¨ÇCH¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //GSM850 CH Group Setting iniValue = Testplan->ReadString("General Setting GSM850","CH Group","");
Edit_CHGSMTXA1->Text = iniValue;
Edit_CHGSMTXA2->Text = iniValue;
iniValue = Testplan->ReadString("General Setting GSM850","ORFS CH Group","");
Edit_CHGSMTXB1->Text = iniValue;
Edit_CHGSMTXB2->Text = iniValue;
iniValue = Testplan->ReadString("General Setting GSM850","PVT CH Group","");
Edit_CHGSMTXC1->Text = iniValue;
Edit_CHGSMTXC2->Text = iniValue;
iniValue = Testplan->ReadString("General Setting GSM850","RX CH Group","");
Edit_CHGSMRXD1->Text = iniValue;
Edit_CHGSMRXD2->Text = iniValue; //EGSM CH Group Setting iniValue = Testplan->ReadString("General Setting EGSM","CH Group","");
Edit1->Text = iniValue;
Edit2->Text = iniValue;
iniValue = Testplan->ReadString("General Setting EGSM","ORFS CH Group","");
Edit4->Text = iniValue;
Edit3->Text = iniValue;
iniValue = Testplan->ReadString("General Setting EGSM","PVT CH Group","");
Edit5->Text = iniValue;
Edit6->Text = iniValue;
iniValue = Testplan->ReadString("General Setting EGSM","RX CH Group","");
Edit19->Text = iniValue;
Edit20->Text = iniValue; //DCS CH Group Setting iniValue = Testplan->ReadString("General Setting DCS","CH Group","");
Edit7->Text = iniValue;
Edit8->Text = iniValue;
iniValue = Testplan->ReadString("General Setting DCS","ORFS CH Group","");
Edit10->Text = iniValue;
Edit9->Text = iniValue;
iniValue = Testplan->ReadString("General Setting DCS","PVT CH Group","");
Edit11->Text = iniValue;
Edit12->Text = iniValue;
iniValue = Testplan->ReadString("General Setting DCS","RX CH Group","");
Edit21->Text = iniValue;
Edit22->Text = iniValue; //PCS CH Group Setting iniValue = Testplan->ReadString("General Setting PCS","CH Group","");
Edit13->Text = iniValue;
Edit14->Text = iniValue;
iniValue = Testplan->ReadString("General Setting PCS","ORFS CH Group","");
Edit16->Text = iniValue;
Edit15->Text = iniValue;
iniValue = Testplan->ReadString("General Setting PCS","PVT CH Group","");
Edit17->Text = iniValue;
Edit18->Text = iniValue;
iniValue = Testplan->ReadString("General Setting PCS","RX CH Group","");
Edit23->Text = iniValue;
Edit24->Text = iniValue; delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void __fastcall TFormMainL2E::CheckBox_PLClick(TObject *Sender)
{
//±±¨îGSM850 Power Level ¦¹¤j¶µ¥Øn¤£n±Ò°Ê¡C
if(CheckBox_PL->Checked)
{
Method_Set_GSM850PLGUI();
}else
{
CheckBox_PL_5->Enabled = false;
CheckBox_PL_5->Checked = false;
CheckBox_PL_6->Enabled = false;
CheckBox_PL_6->Checked = false;
CheckBox_PL_7->Enabled = false;
CheckBox_PL_7->Checked = false;
CheckBox_PL_8->Enabled = false;
CheckBox_PL_8->Checked = false;
CheckBox_PL_9->Enabled = false;
CheckBox_PL_9->Checked = false;
CheckBox_PL_10->Enabled = false;
CheckBox_PL_10->Checked = false;
CheckBox_PL_11->Enabled = false;
CheckBox_PL_11->Checked = false;
CheckBox_PL_12->Enabled = false;
CheckBox_PL_12->Checked = false;
CheckBox_PL_13->Enabled = false;
CheckBox_PL_13->Checked = false;
CheckBox_PL_14->Enabled = false;
CheckBox_PL_14->Checked = false;
CheckBox_PL_15->Enabled = false;
CheckBox_PL_15->Checked = false;
CheckBox_PL_16->Enabled = false;
CheckBox_PL_16->Checked = false;
CheckBox_PL_17->Enabled = false;
CheckBox_PL_17->Checked = false;
CheckBox_PL_18->Enabled = false;
CheckBox_PL_18->Checked = false;
CheckBox_PL_19->Enabled = false;
CheckBox_PL_19->Checked = false;
}
}
//--------------------------------------------------------------------------- void __fastcall TFormMainL2E::FormCreate(TObject *Sender)
{
// CheckBox_PL->Checked = true;
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_CheckboxControl()
{
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_GSM850PLGUI()
{
//±qINIÀɽT»{GSM850 Power Level þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //GSM850 Power Level Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/GSM850",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox_PL_5->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox_PL_6->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox_PL_7->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox_PL_8->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox_PL_9->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox_PL_10->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox_PL_11->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox_PL_12->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox_PL_13->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox_PL_14->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox_PL_15->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox_PL_16->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox_PL_17->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox_PL_18->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox_PL_19->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_GSM850PPEGUI()
{
//±qINIÀɽT»{GSM850 Peak Phase Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //GSM850 Peak Phase Error Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/GSM850",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox_PHE_5->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox_PHE_6->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox_PHE_7->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox_PHE_8->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox_PHE_9->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox_PHE_10->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox_PHE_11->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox_PHE_12->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox_PHE_13->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox_PHE_14->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox_PHE_15->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox_PHE_16->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox_PHE_17->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox_PHE_18->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox_PHE_19->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_GSM850RMSPEGUI()
{
//±qINIÀɽT»{GSM850 RMS Phase Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //GSM850 RMS Phase Error Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/GSM850",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox_RMSPE_5->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox_RMSPE_6->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox_RMSPE_7->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox_RMSPE_8->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox_RMSPE_9->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox_RMSPE_10->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox_RMSPE_11->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox_RMSPE_12->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox_RMSPE_13->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox_RMSPE_14->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox_RMSPE_15->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox_RMSPE_16->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox_RMSPE_17->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox_RMSPE_18->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox_RMSPE_19->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_GSM850FEGUI()
{
//±qINIÀɽT»{GSM850 Frequency Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //GSM850 Frequency Error Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/GSM850",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox_FE_5->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox_FE_6->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox_FE_7->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox_FE_8->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox_FE_9->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox_FE_10->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox_FE_11->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox_FE_12->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox_FE_13->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox_FE_14->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox_FE_15->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox_FE_16->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox_FE_17->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox_FE_18->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox_FE_19->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_GSM850TXCGUI()
{
//±qINIÀɽT»{GSM850 TX Current þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //GSM850 TX Current Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/GSM850",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox_TXC_5->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox_TXC_6->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox_TXC_7->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox_TXC_8->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox_TXC_9->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox_TXC_10->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox_TXC_11->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox_TXC_12->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox_TXC_13->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox_TXC_14->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox_TXC_15->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox_TXC_16->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox_TXC_17->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox_TXC_18->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox_TXC_19->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_EGSMPLGUI()
{
//±qINIÀɽT»{EGSM Power Level þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //EGSM Power Level Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/EGSM",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox2->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox3->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox4->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox5->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox6->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox7->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox8->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox9->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox10->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox11->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox12->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox13->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox14->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox15->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox16->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
} //--------------------------------------------------------------------------- void TFormMainL2E::Method_Set_EGSMPPEGUI()
{
//±qINIÀɽT»{EGSM Peak Phase Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //EGSM Peak Phase Error Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/EGSM",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox18->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox19->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox20->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox21->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox22->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox23->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox24->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox25->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox26->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox27->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox28->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox29->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox30->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox31->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox32->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_EGSMRMSPEGUI()
{
//±qINIÀɽT»{EGSM RMS Phase Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //EGSM RMS Phase Errorr Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/EGSM",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox47->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox46->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox45->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox44->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox43->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox42->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox41->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox40->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox39->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox38->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox37->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox36->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox35->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox34->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox33->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_EGSMFEGUI()
{
//±qINIÀɽT»{EGSM Frequency Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //EGSM Frequency Error Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/EGSM",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox50->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox51->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox52->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox53->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox54->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox55->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox56->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox57->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox58->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox59->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox60->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox61->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox62->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox63->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox64->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_EGSMTXCGUI()
{
//±qINIÀɽT»{EGSM TX Current þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //EGSM TX Current Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/EGSM",""); if(iniValue.SubString(1,1)=="5")
{
CheckBox66->Enabled = true;
}
if(iniValue.SubString(3,1)=="6")
{
CheckBox67->Enabled = true;
}
if(iniValue.SubString(5,1)=="7")
{
CheckBox68->Enabled = true;
}
if(iniValue.SubString(7,1)=="8")
{
CheckBox69->Enabled = true;
}
if(iniValue.SubString(9,1)=="9")
{
CheckBox70->Enabled = true;
}
if(iniValue.SubString(11,2)=="10")
{
CheckBox71->Enabled = true;
}
if(iniValue.SubString(14,2)=="11")
{
CheckBox72->Enabled = true;
}
if(iniValue.SubString(17,2)=="12")
{
CheckBox73->Enabled = true;
}
if(iniValue.SubString(20,2)=="13")
{
CheckBox74->Enabled = true;
}
if(iniValue.SubString(23,2)=="14")
{
CheckBox75->Enabled = true;
}
if(iniValue.SubString(26,2)=="15")
{
CheckBox76->Enabled = true;
}
if(iniValue.SubString(29,2)=="16")
{
CheckBox77->Enabled = true;
}
if(iniValue.SubString(32,2)=="17")
{
CheckBox78->Enabled = true;
}
if(iniValue.SubString(35,2)=="18")
{
CheckBox79->Enabled = true;
}
if(iniValue.SubString(38,2)=="19")
{
CheckBox80->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void __fastcall TFormMainL2E::CheckBox_EGSM_PLClick(TObject *Sender)
{
//±±¨îEGSM Power Level ¦¹¤j¶µ¥Øn¤£n±Ò°Ê¡C
if(CheckBox_EGSM_PL->Checked)
{
Method_Set_EGSMPLGUI();
}else
{
CheckBox2->Enabled = false;
CheckBox2->Checked = false;
CheckBox3->Enabled = false;
CheckBox3->Checked = false;
CheckBox4->Enabled = false;
CheckBox4->Checked = false;
CheckBox5->Enabled = false;
CheckBox5->Checked = false;
CheckBox6->Enabled = false;
CheckBox6->Checked = false;
CheckBox7->Enabled = false;
CheckBox7->Checked = false;
CheckBox8->Enabled = false;
CheckBox8->Checked = false;
CheckBox9->Enabled = false;
CheckBox9->Checked = false;
CheckBox10->Enabled = false;
CheckBox10->Checked = false;
CheckBox11->Enabled = false;
CheckBox11->Checked = false;
CheckBox12->Enabled = false;
CheckBox12->Checked = false;
CheckBox13->Enabled = false;
CheckBox13->Checked = false;
CheckBox14->Enabled = false;
CheckBox14->Checked = false;
CheckBox15->Enabled = false;
CheckBox15->Checked = false;
CheckBox16->Enabled = false;
CheckBox16->Checked = false;
}
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_DCSPLGUI()
{
//±qINIÀɽT»{DCS Power Level þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //DCS Power Level Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/DCS",""); if(iniValue.SubString(1,1)=="0")
{
CheckBox121->Enabled = true;
}
if(iniValue.SubString(3,1)=="1")
{
CheckBox122->Enabled = true;
}
if(iniValue.SubString(5,1)=="2")
{
CheckBox123->Enabled = true;
}
if(iniValue.SubString(7,1)=="3")
{
CheckBox124->Enabled = true;
}
if(iniValue.SubString(9,1)=="4")
{
CheckBox125->Enabled = true;
}
if(iniValue.SubString(11,1)=="5")
{
CheckBox126->Enabled = true;
}
if(iniValue.SubString(13,1)=="6")
{
CheckBox127->Enabled = true;
}
if(iniValue.SubString(15,1)=="7")
{
CheckBox128->Enabled = true;
}
if(iniValue.SubString(17,1)=="8")
{
CheckBox129->Enabled = true;
}
if(iniValue.SubString(19,1)=="9")
{
CheckBox130->Enabled = true;
}
if(iniValue.SubString(21,2)=="10")
{
CheckBox131->Enabled = true;
}
if(iniValue.SubString(24,2)=="11")
{
CheckBox132->Enabled = true;
}
if(iniValue.SubString(27,2)=="12")
{
CheckBox133->Enabled = true;
}
if(iniValue.SubString(30,2)=="13")
{
CheckBox134->Enabled = true;
}
if(iniValue.SubString(33,2)=="14")
{
CheckBox135->Enabled = true;
}
if(iniValue.SubString(36,2)=="15")
{
CheckBox137->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_DCSPPEGUI()
{
//±qINIÀɽT»{DCS Peak Phase Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->ExeName) "AblonTestPlan.ini";
TIniFile *Testplan;
Testplan = new TIniFile(iniFile); //DCS Peak Phase Error Setting to GUI iniValue = Testplan->ReadString("Measure Detail Setting","TX/Power Level/DCS",""); if(iniValue.SubString(1,1)=="0")
{
CheckBox138->Enabled = true;
}
if(iniValue.SubString(3,1)=="1")
{
CheckBox139->Enabled = true;
}
if(iniValue.SubString(5,1)=="2")
{
CheckBox140->Enabled = true;
}
if(iniValue.SubString(7,1)=="3")
{
CheckBox141->Enabled = true;
}
if(iniValue.SubString(9,1)=="4")
{
CheckBox142->Enabled = true;
}
if(iniValue.SubString(11,1)=="5")
{
CheckBox143->Enabled = true;
}
if(iniValue.SubString(13,1)=="6")
{
CheckBox144->Enabled = true;
}
if(iniValue.SubString(15,1)=="7")
{
CheckBox145->Enabled = true;
}
if(iniValue.SubString(17,1)=="8")
{
CheckBox146->Enabled = true;
}
if(iniValue.SubString(19,1)=="9")
{
CheckBox147->Enabled = true;
}
if(iniValue.SubString(21,2)=="10")
{
CheckBox148->Enabled = true;
}
if(iniValue.SubString(24,2)=="11")
{
CheckBox149->Enabled = true;
}
if(iniValue.SubString(27,2)=="12")
{
CheckBox150->Enabled = true;
}
if(iniValue.SubString(30,2)=="13")
{
CheckBox151->Enabled = true;
}
if(iniValue.SubString(33,2)=="14")
{
CheckBox152->Enabled = true;
}
if(iniValue.SubString(36,2)=="15")
{
CheckBox153->Enabled = true;
} delete Testplan;// ÄÀ©ñ ini ª«¥ó
}
//---------------------------------------------------------------------------
void TFormMainL2E::Method_Set_DCSRMSPEGUI()
{
//±qINIÀɽT»{DCS RMS Phase Error þ¨Ç¿ï¶µ¦³®Ä¡C String iniValue;
AnsiString iniFile;
iniFile = ExtractFilePath(Application->Ex
------
Terence Chiu
發表時間：2004-12-21 14:53:23
IP:61.222.xxx.xxx 未訂閱
