开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > MTK > 查看源码
form_Rtc32k.cpp
资源名称：Maui_META_src_v5.0808.0.zip　[点击查看]
上传用户：gelin96
上传日期：2017-01-08
资源大小：20993k
文件大小：18k
源码类别：

MTK

开发平台：

C++ Builder

form_Rtc32k.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. // form
  7. #ifndef _FORM_MAIN_H_
  8. #include "form_main.h"
  9. #endif
  11. #ifndef _FORM_RTC32K_H_
  12. #include "form_Rtc32k.h"
  13. #endif
  15. // misc
  16. #ifndef  _MISC_H_
  17. #include "misc.h"
  18. #endif
  20. #ifndef  _FILE_UTILS_H_
  21. #include "file_utils.h"
  22. #endif
  24. #ifndef  _FT_UTILS_H_
  25. #include "ft_utils.h"
  26. #endif
  28. #ifndef  _BAND_UTILS_H_
  29. #include "band_utils.h"
  30. #endif
  32. #ifndef  _MAN_DLL_H_
  33. #include "man_dll.h"
  34. #endif
  36. #ifndef  _MAN_FDM_H_
  37. #include "man_fdm.h"
  38. #endif
  40. #ifndef _META_LAB_MSG_H_
  41. #include "meta_lab_msg.h"
  42. #endif
  44. // equipment
  45. #ifndef  _RCT_CTRL_H_
  46. #include "rct_ctrl.h"
  47. #endif
  49. // RF
  50. #ifndef  _RF_STOP_H_
  51. #include "rf_stop.h"
  52. #endif
  54. //---------------------------------------------------------------------------
  55. #pragma package(smart_init)
  56. #pragma resource "*.dfm"
  57. TfrmRTC32k *frmRTC32k;
  63. //===========================================================================
  64. __fastcall TfrmRTC32k::TfrmRTC32k(TComponent* Owner)
  65.         : TForm(Owner)
  66. {
  67.     m_pCfg = NULL;
  68.     m_sRfRtc.p_stLog = NULL;
  69.     m_sRct.cmu.RM       = NULL;
  70.     m_sRct.cmu.base     = NULL;
  71.     m_sRct.cmu.gsm      = NULL;
  72.     m_sRct.cmu.dcs      = NULL;
  73.     m_sRct.cmu.pcs      = NULL;
  74.     m_sRct.cmu.gsm850   = NULL;
  75.     m_sRct.cmu.s_gsm    = NULL;
  76.     m_sRct.cmu.s_dcs    = NULL;
  77.     m_sRct.cmu.s_pcs    = NULL;
  78.     m_sRct.cmu.s_gsm850 = NULL;
  79.     m_sRct.age.vi       = NULL;
  80.     Init();
  81. }
  83. //---------------------------------------------------------------------------
  84. void TfrmRTC32k::Init(void)
  85. {
  86.     m_bInit = true;
  87. }
  89. //---------------------------------------------------------------------------
  90. void __fastcall TfrmRTC32k::FormCreate(TObject *Sender)
  91. {
  92.     m_cbBand->ItemIndex = 0;
  93.     m_cbTXTsc->ItemIndex = 5;
  94.     m_cbEquipment->ItemIndex = 0;
  95.     WindowProc = SubClassWndProc;
  96. }
  98. //---------------------------------------------------------------------------
  99. void __fastcall TfrmRTC32k::FormActivate(TObject *Sender)
  100. {
  101.     if (m_bInit)
  102.     {
  103.         m_bInit = false;
  104.         m_sRfRtc.e_bb_id = frmMainSel->Get_FinalBBChip();
  105.     }
  106. }
  109. //---------------------------------------------------------------------------
  110. void __fastcall TfrmRTC32k::FormDestroy(TObject *Sender)
  111. {
  112.     if (NULL != m_sRfRtc.p_stLog)
  113.     {
  114.         delete m_sRfRtc.p_stLog;
  115.     }
  117.     if (NULL != m_pCfg)
  118.     {
  119.         delete m_pCfg;
  120.     }
  122. }
  124. //============================================================================
  125. void _fastcall TfrmRTC32k::SubClassWndProc(Messages::TMessage &Message)
  126. {
  127.     switch (Message.Msg)
  128.     {
  129.         case WM_ML_RCT_INIT_FAIL:
  130.         {
  131.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment initialization fail";
  132.             AnsiString as_msg = "Execution Fail : Equipment initialization";
  133.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  134.         }
  135.         break;
  137.         case WM_ML_RCT_SET_OPERATION_MODE_FAIL:
  138.         {
  139.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set operation mode fail";
  140.             AnsiString as_msg = "Execution Fail : Equipment set operation mode";
  141.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  142.         }
  143.         break;
  145.         case WM_ML_RCT_SET_BAND_FAIL:
  146.         {
  147.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set band fail";
  148.             AnsiString as_msg = "Execution Fail : Equipment set band";
  149.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  150.         }
  151.         break;
  153.         case WM_ML_RCT_SET_DOWNLINK_POWER_FAIL:
  154.         {
  155.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set downlink power fail";
  156.             AnsiString as_msg = "Execution Fail : Equipment set downlink power";
  157.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  158.         }
  159.         break;
  161.         case WM_ML_RCT_SET_TCH_LEVEL_FAIL:
  162.         {
  163.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set TCH level fail";
  164.             AnsiString as_msg = "Execution Fail : Equipment set TCH level";
  165.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  166.         }
  167.         break;
  169.         case WM_ML_RCT_SET_BCH_ARFCN_FAIL:
  170.         {
  171.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set BCH ARFCN fail";
  172.             AnsiString as_msg = "Execution Fail : Equipment set BCH ARFCN";
  173.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  174.         }
  175.         break;
  177.         case WM_ML_RCT_SET_TCH_ARFCN_FAIL:
  178.         {
  179.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set TCH ARFCN fail";
  180.             AnsiString as_msg = "Execution Fail : Equipment set TCH ARFCN";
  181.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  182.         }
  183.         break;
  185.         case WM_ML_RCT_SET_TCH_TIMESLOT_FAIL:
  186.         {
  187.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set TCH timeslot fail";
  188.             AnsiString as_msg = "Execution Fail : Equipment set TCH timeslot";
  189.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  190.         }
  191.         break;
  193.         case WM_ML_RCT_SET_TSC_FAIL:
  194.         {
  195.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set TSC fail";
  196.             AnsiString as_msg = "Execution Fail : Equipment set TSC";
  197.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  198.         }
  199.         break;
  201.         case WM_ML_RCT_SET_MS_TX_LEVEL_FAIL:
  202.         {
  203.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Equipment set MS TX level fail";
  204.             AnsiString as_msg = "Execution Fail : Equipment set MS TX level";
  205.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK);
  206.         }
  207.         break;
  209.         case WM_ML_RF_SELECT_BAND_FAIL:
  210.         {
  211.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Select band fail";
  212.             AnsiString as_msg = "Execution Fail : Select band";
  213.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK );
  214.         }
  215.         break;
  217.         case WM_ML_RF_AFC_CONTROL_FAIL:
  218.         {
  219.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  FB detection fail";
  220.             AnsiString as_msg = "Execution Fail : FB detection";
  221.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK );
  222.         }
  223.         break;
  225.         case WM_ML_RTC_PRINT_MSG:
  226.         {
  227.             FillRtc32KResult(false, Message.WParam);
  228.         }
  229.         break;
  231.         case WM_ML_RTC_CLOCK_OUT_OF_RANGE_MSG:
  232.         {
  233.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  RTC clock is out of range";
  234.             AnsiString as_msg = "Execution Fail : RTC clock is out of range, RTC clock = " + Double_To_AnsiString(Message.WParam/100.0) + " Hz";
  235.             Application->MessageBox(as_msg.c_str(), "FAIL", MB_OK );
  236.         }
  237.         break;
  240.         default:
  241.         {
  242.             this->WndProc(Message);
  243.         }
  244.         break;
  245.     }
  246. }
  248. //===========================================================================
  249. void TfrmRTC32k::ShowHintLabel(TControl *sender, char* hint)
  250. {
  251.     TPoint pt0 = this->ClientOrigin;
  252.     TPoint pt1 = sender->ClientOrigin;
  253.     lblHint->Left = (pt1.x-pt0.x);
  254.     lblHint->Top  = (pt1.y-pt0.y)+sender->Height+3;
  255.     lblHint->Caption = hint;
  256.     lblHint->Visible = true;
  257.     HintTimer->Enabled = true;
  258. }
  260. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  261. void TfrmRTC32k::CurrentPageLock(void)
  262. {
  263.     m_btnStart->Enabled = false;
  264.     m_btnStart->Tag = START_TAG;
  265.     //m_btnNvramDB->Enabled = false;
  266.     m_btnCfgFile->Enabled = false;
  267.     m_btnLogFile->Enabled = false;
  268. }
  270. //---------------------------------------------------------------------------
  271. void TfrmRTC32k::CurrentPageReset(void)
  272. {
  273.     m_btnStart->Enabled = true;
  274.     m_btnStart->Tag = STOP_TAG;
  275.     //m_btnNvramDB->Enabled = true;
  276.     m_btnCfgFile->Enabled = true;
  277.     m_btnLogFile->Enabled = true;
  278. }
  280. //===========================================================================
  281. void TfrmRTC32k::setup_log_file(AnsiString asFileName)
  282. {
  283.     m_stLogFile->Caption = asFileName;
  284.     m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Setup log file name successfully";
  285. }
  287. //---------------------------------------------------------------------------
  288. void __fastcall TfrmRTC32k::m_btnLogFileClick(TObject *Sender)
  289. {
  290.     if (m_dlgSaveLog->Execute())
  291.     {
  292.         setup_log_file(m_dlgSaveLog->FileName);
  293.     }
  294. }
  296. //---------------------------------------------------------------------------
  297. void __fastcall TfrmRTC32k::on_TerminateSuccess(TObject *Sender)
  298. {
  299.     CloseRctHandle();
  300.     CurrentPageReset();
  301.     m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  RTC 32K clock tracking terminated successfully ";
  302. }
  304. //---------------------------------------------------------------------------
  305. void __fastcall TfrmRTC32k::on_TerminateFail(TObject *Sender)
  306. {
  307.     CloseRctHandle();
  308.     StopRf();
  309.     m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  RTC 32K clock tracking terminated fail ";
  310. }
  312. //---------------------------------------------------------------------------
  313. void __fastcall TfrmRTC32k::on_TerminateByUser(TObject *Sender)
  314. {
  315.     CloseRctHandle();
  316.     StopRf();
  317.     m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  RTC 32K clock tracking terminated by user ";
  318. }
  320. //---------------------------------------------------------------------------
  321. void TfrmRTC32k::CloseRctHandle(void)
  322. {
  323.     CRCTCTRL rct_ctrl;
  324.     if (AGILENT_8960 == m_sRct.device_type)
  325.     {
  326.         if (!rct_ctrl.RCT_dcl(&m_sRct))
  327.         {
  328.             return;
  329.         }
  331.         Sleep(50);
  333.         if (!rct_ctrl.RCT_reset(&m_sRct))
  334.         {
  335.             return;
  336.         }
  338.         Sleep(50);
  339.         if (!rct_ctrl.RCT_close(&m_sRct, BandIdx_To_FreqBandString(m_cbBand->ItemIndex)))
  340.         {
  341.             return;
  342.         }
  343.     }
  344.     else // CMU 200
  345.     {
  346.         if (!rct_ctrl.RCT_sig_close(&m_sRct, BandIdx_To_FreqBandString(m_cbBand->ItemIndex)))
  347.         {
  348.             return;
  349.         }
  350.     }
  351. }
  353. //---------------------------------------------------------------------------
  354. void __fastcall TfrmRTC32k::m_btnStartClick(TObject *Sender)
  355. {
  357.     if (m_stCfgFile->Caption.AnsiCompareIC("") == 0)
  358.     {
  359.         Application->MessageBox("Please open configuration file.", "Warning", MB_OK);
  360.         m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Please open configuration file ";
  361.         return;
  362.     }
  364.     if (m_stLogFile->Caption.AnsiCompareIC("") == 0)
  365.     {
  366.         Application->MessageBox("Please setup log file.", "Warning", MB_OK );
  367.         m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Please setup log file ";
  368.         return;
  369.     }
  371.     if (NULL == m_sRfRtc.p_stLog)
  372.     {
  373.         m_sRfRtc.p_stLog = new TStringList;
  374.     }
  376.     if (NULL == m_sRfRtc.p_stLog)
  377.     {
  378.         Application->MessageBox("Allocate memory for log fail", "FAIL", MB_OK );
  379.         m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Allocate memory for log fail ";
  380.         return;
  381.     }
  383.     if (!DllMan->LoadAge1960DllFunctions(this->Handle) ||
  384.            !DllMan->LoadVisa32DllFunctions(this->Handle)
  385.           )
  386.         {
  387.             m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  Load equipment dll fail";
  388.             Application->MessageBox(" Load equipment dll fail", "Fail", MB_OK);
  389.             return;
  390.         }
  392.     CurrentPageLock();
  394.     m_sRfRtc.hPostMsgDestHandle = this->Handle;
  395.     m_sRfRtc.p_cfg = m_pCfg;
  396.     m_sRfRtc.as_LogFile = m_stLogFile->Caption;
  397.     m_sRfRtc.ne_onTermSuccess = on_TerminateSuccess;
  398.     m_sRfRtc.ne_onTermByUser  = on_TerminateByUser;
  399.     m_sRfRtc.e_band = (E_BANDSEL)m_cbBand->ItemIndex;
  400.     m_sRfRtc.s_arfcn = m_edtArfcn->Text.ToInt();
  401.     m_sRfRtc.c_tsc = (char)m_cbTXTsc->ItemIndex;
  402.     m_sRfRtc.s_pcl = m_edtPcl->Text.ToInt();
  403.     m_sRfRtc.d_P_DL = atof(m_edtDnPower->Text.c_str());
  404.     m_sRfRtc.ui_test_count = m_edtTestCount->Text.ToInt();
  405.     m_sRfRtc.ui_period     = m_edtPeriod->Text.ToInt();
  406.     m_sRct.device_type = (E_DEVICE_TYPE)m_cbEquipment->ItemIndex;
  407.     switch (m_cbBand->ItemIndex)
  408.     {
  409.         case BANDSEL_GSM900:
  410.         {
  411.             m_sRfRtc.as_FreqBand = "0x04";
  412.         }
  413.         break;
  415.         case BANDSEL_DCS1800:
  416.         {
  417.             m_sRfRtc.as_FreqBand = "0x08";
  418.         }
  419.         break;
  421.         case BANDSEL_PCS1900:
  422.         {
  423.             m_sRfRtc.as_FreqBand = "0x10";
  424.         }
  425.         break;
  427.         case BANDSEL_GSM850:
  428.         {
  429.             m_sRfRtc.as_FreqBand = "0x02";
  430.         }
  431.         break;
  432.     }
  434.     CRCTCTRL rct_ctrl_obj;
  435.     m_sRct.as_RCT  = rct_ctrl_obj.RCT_DeviceTypeToString((E_DEVICE_TYPE) m_sRct.device_type);
  437.     m_pt_Rtc32K = new CRFRTC(true, &m_sRfRtc, &m_sRct);
  438.     m_pt_Rtc32K->FreeOnTerminate = true;
  439.     m_pt_Rtc32K->OnTerminate = on_TerminateFail;
  440.     m_pt_Rtc32K->Resume();
  442.     FillRtc32KResult(true, 0);
  443.     m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  RTC 32K clock tracking progressing ... ";
  444. }
  446. //---------------------------------------------------------------------------
  447. void __fastcall TfrmRTC32k::m_btnStopClick(TObject *Sender)
  448. {
  449.     m_pt_Rtc32K->Terminate();
  450.     StopRf();
  451.     m_sbRtc32K->Panels->Items[0]->Text = (AnsiString)"  RTC 32K clock tracking terminated by user ";
  452. }
  454. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  455. void __fastcall TfrmRTC32k::edtTestCountCheck(TObject *Sender)
  456. {
  458.     unsigned int data;
  459.     AnsiString  text;
  460.     TEdit *edit = (TEdit*)Sender;
  461.     char  hint[] = "value shall be 1~4294967295 ";
  463.     text = edit->Text;
  464.     if (!IsValidMeasurementCount(text, data))
  465.     {
  466.         ShowHintLabel(edit, hint);
  467.         edit->SetFocus();
  468.         return;
  469.     }
  471. }
  473. //---------------------------------------------------------------------------
  474. void __fastcall TfrmRTC32k::edtPeriodCheck(TObject *Sender)
  475. {
  476.     unsigned int data;
  477.     AnsiString  text;
  478.     TEdit *edit = (TEdit*)Sender;
  479.     char  hint[] = "value shall be 1000~4294967295 ";
  481.     text = edit->Text;
  482.     if (!IsValidPeriod(text, data))
  483.     {
  484.         ShowHintLabel(edit, hint);
  485.         edit->SetFocus();
  486.         return;
  487.     }
  488. }
  490. //---------------------------------------------------------------------------
  491. void __fastcall TfrmRTC32k::HintTimerTimer(TObject *Sender)
  492. {
  493.     HintTimer->Enabled = false;
  494.     lblHint->Visible = false;    
  495. }
  498. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  499. void __fastcall TfrmRTC32k::m_btnCfgFileClick(TObject *Sender)
  500. {
  501.     if (m_dlgOpenCfg->Execute())
  502.     {
  503.         read_cfg_file(m_dlgOpenCfg->FileName);
  504.     }
  505. }
  507. //---------------------------------------------------------------------------
  508. bool TfrmRTC32k::read_cfg_file(AnsiString asFileName)
  509. {
  510.     if (NULL == m_pCfg)
  511.     {
  512.          m_pCfg = new TMETA_factory_cfg();
  513.     }
  515.     if (!m_pCfg->ReadFromIniFile(asFileName))
  516.     {
  517.         return false;
  518.     }
  520.     m_stCfgFile->Caption = asFileName;
  521.     return true;
  522. }
  523. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  524. void TfrmRTC32k::StopRf(void)
  525. {
  526.     CRFSTOP rf_stop_obj;
  527.     rf_stop_obj.REQ_Start();
  528.     CurrentPageReset();
  529. }
  532. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  533. void TfrmRTC32k::FillRtc32KResult(bool b_title, int clock_mHz)
  534. {
  535.     char str[512];
  536.     if (b_title)
  537.     {
  538.         m_reResult->Lines->Clear();
  539.         sprintf(str, "   RTC clock (Hz)   RTC clock/32768   ");
  540.         m_reResult->Lines->Add(str);
  541.         sprintf(str, "=====================================");
  542.         m_reResult->Lines->Add(str);
  543.     }
  544.     else
  545.     {
  546.         double d_clock_Hz = clock_mHz/100.0;
  547.         sprintf(str, "   %.2f             %.6f", d_clock_Hz, d_clock_Hz/32768.0);
  548.         m_reResult->Lines->Add(str);
  549.     }
  550. }
  552. //---------------------------------------------------------------------------
  553. void __fastcall TfrmRTC32k::m_cbBandChange(TObject *Sender)
  554. {
  555.     short sdata;
  557.     if (!frmMainSel->cbGSM850->Checked)
  558.     {
  559.         if (BANDSEL_GSM850 == (E_BANDSEL) m_cbBand->ItemIndex)
  560.         {
  561.             m_cbBand->ItemIndex = 0;
  562.             Application->MessageBox("Please check GSM 850 on main menu", "FAILURE", MB_OK);
  563.         }
  564.     }
  565.     E_BANDSEL CurBand = (E_BANDSEL) m_cbBand->ItemIndex;
  566.     m_edtArfcnCheck(m_edtArfcn);
  568.     if (!IsValidARFCN(m_edtArfcn->Text, CurBand, sdata))
  569.     {
  570.         m_edtArfcn->Text = IntToStr(Default_ARFCN[CurBand]);
  571.     }
  572. }
  573. //---------------------------------------------------------------------------
  575. void __fastcall TfrmRTC32k::m_edtArfcnCheck(TObject *Sender)
  576. {
  577.     short sdata;
  578.     AnsiString  text;
  579.     TEdit *edit = (TEdit*)Sender;
  580.     char hint[][256] =
  581.     {
  582.         " value shall be 0~124 or 975~1023 ",
  583.         " value shall be 512~885 ",
  584.         " value shall be 512~810 ",
  585.         " value shall be 128~251 ",
  586.     };
  588.     E_BANDSEL CurBand = (E_BANDSEL) m_cbBand->ItemIndex;
  589.     text = edit->Text;
  590.     if (!IsValidARFCN(text, CurBand, sdata))
  591.     {
  592.         edit->Text = IntToStr(Default_ARFCN[CurBand]);
  593.         ShowHintLabel(edit, hint[CurBand]);
  594.         edit->SetFocus();
  595.         return;
  596.     }
  597. }
  598. //---------------------------------------------------------------------------
  600. void __fastcall TfrmRTC32k::m_edtPclCheck(TObject *Sender)
  601. {
  602.     int data;
  603.     AnsiString  text;
  604.     TEdit *edit = (TEdit*)Sender;
  605.     char  hint[][256] =
  606.     {
  607.         " value shall be 5~19 ",
  608.         " value shall be 0~15 ",
  609.         " value shall be 0~15 ",
  610.         " value shall be 5~19 ",
  611.     };
  613.     text = edit->Text;
  614.     if (text.AnsiCompare("") == 0)
  615.     {
  616.         return;
  617.     }
  618.     int CurBand = m_cbBand->ItemIndex;
  619.     if (!IsValidPCL(text, CurBand, data))
  620.     {
  621.         ShowHintLabel(edit, hint[CurBand]);
  622.         edit->Text = IntToStr(Default_PCL);
  623.         edit->SetFocus();
  624.         return;
  625.     }
  626. }
  627. //---------------------------------------------------------------------------
  629. void __fastcall TfrmRTC32k::m_edtDnPowerCheck(TObject *Sender)
  630. {
  631.     double  data;
  632.     AnsiString  text;
  633.     TEdit *edit = (TEdit*)Sender;
  634.     char  hint[] = " downlink power is not valid ";
  636.     text = edit->Text;
  637.     if (!IsValidPower(text, data))
  638.     {
  639.         ShowHintLabel(edit, hint);
  640.         edit->SetFocus();
  641.         return;
  642.     }    
  643. }
  644. //---------------------------------------------------------------------------