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

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

MTK

开发平台：

C++ Builder

form_RFMT6140BReg.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. void __fastcall TfrmMT6140BReg::edtCW8SW1Check(TObject *Sender)
  4. {
  5.     unsigned char  uc_data;
  6.     AnsiString  text;
  7.     TEdit *edit = (TEdit*)Sender;
  8.     char  hint[] = " value shall be 0 or 1 ";
  10.     text = edit->Text;
  11.     if( !IsValidRegBit( text, uc_data ) )
  12.     {
  13.         ShowHintLabel( edit, hint );
  14.         edit->Text = IntToStr( 0 );
  15.         edit->SetFocus();
  16.         return;
  17.     }
  18.     m_sMT6140BCW8.uc_rx_ctrl_sw1 = uc_data;
  19. }
  20. //---------------------------------------------------------------------------
  22. void __fastcall TfrmMT6140BReg::edtCW8SWBCheck(TObject *Sender)
  23. {
  24.     unsigned char  uc_data;
  25.     AnsiString  text;
  26.     TEdit *edit = (TEdit*)Sender;
  27.     char  hint[] = " value shall be 0 or 1 ";
  29.     text = edit->Text;
  30.     if( !IsValidRegBit( text, uc_data ) )
  31.     {
  32.         ShowHintLabel( edit, hint );
  33.         edit->Text = IntToStr( 0 );
  34.         edit->SetFocus();
  35.         return;
  36.     }
  37.     m_sMT6140BCW8.uc_rx_ctrl_swb = uc_data;
  38. }
  39. //---------------------------------------------------------------------------
  41. void __fastcall TfrmMT6140BReg::edtCW8SWACheck(TObject *Sender)
  42. {
  43.     unsigned char  uc_data;
  44.     AnsiString  text;
  45.     TEdit *edit = (TEdit*)Sender;
  46.     char  hint[] = " value shall be 0 or 1 ";
  48.     text = edit->Text;
  49.     if( !IsValidRegBit( text, uc_data ) )
  50.     {
  51.         ShowHintLabel( edit, hint );
  52.         edit->Text = IntToStr( 0 );
  53.         edit->SetFocus();
  54.         return;
  55.     }
  56.     m_sMT6140BCW8.uc_rx_ctrl_swa = uc_data;
  57. }
  58. //---------------------------------------------------------------------------
  60. void __fastcall TfrmMT6140BReg::edtCW8SWENCheck(TObject *Sender)
  61. {
  62.     unsigned char  uc_data;
  63.     AnsiString  text;
  64.     TEdit *edit = (TEdit*)Sender;
  65.     char  hint[] = " value shall be 0 or 1 ";
  67.     text = edit->Text;
  68.     if( !IsValidRegBit( text, uc_data ) )
  69.     {
  70.         ShowHintLabel( edit, hint );
  71.         edit->Text = IntToStr( 0 );
  72.         edit->SetFocus();
  73.         return;
  74.     }
  75.     m_sMT6140BCW8.uc_rx_ctrl_swen = uc_data;
  76. }
  77. //---------------------------------------------------------------------------
  79. void __fastcall TfrmMT6140BReg::edtCW8DC_DAC_BICheck(TObject *Sender)
  80. {
  81.     unsigned char  uc_data;
  82.     AnsiString  text;
  83.     TEdit *edit = (TEdit*)Sender;
  84.     char  hint[] = " value shall be 0 or 1 ";
  86.     text = edit->Text;
  87.     if( !IsValidRegBit( text, uc_data ) )
  88.     {
  89.         ShowHintLabel( edit, hint );
  90.         edit->Text = IntToStr( 0 );
  91.         edit->SetFocus();
  92.         return;
  93.     }
  95.     m_sMT6140BCW8.uc_dc_dac_bi = (m_sMT6140BCW8.uc_dc_dac_bi & (0x7F ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  96. }
  97. //---------------------------------------------------------------------------
  99. void __fastcall TfrmMT6140BReg::edtCW8DC_DAC_CICheck(TObject *Sender)
  100. {
  101.     unsigned char  uc_data;
  102.     AnsiString  text;
  103.     TEdit *edit = (TEdit*)Sender;
  104.     char  hint[] = " value shall be 0 or 1 ";
  106.     text = edit->Text;
  107.     if( !IsValidRegBit( text, uc_data ) )
  108.     {
  109.         ShowHintLabel( edit, hint );
  110.         edit->Text = IntToStr( 0 );
  111.         edit->SetFocus();
  112.         return;
  113.     }
  115.     m_sMT6140BCW8.uc_dc_dac_ci = (m_sMT6140BCW8.uc_dc_dac_ci & (0x7F ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  116. }
  117. //---------------------------------------------------------------------------
  119. void __fastcall TfrmMT6140BReg::edtCW9PWR_DAC_ACheck(TObject *Sender)
  120. {
  121.     unsigned char  uc_data;
  122.     AnsiString  text;
  123.     TEdit *edit = (TEdit*)Sender;
  124.     char  hint[] = " value shall be 0 or 1 ";
  126.     text = edit->Text;
  127.     if( !IsValidRegBit( text, uc_data ) )
  128.     {
  129.         ShowHintLabel( edit, hint );
  130.         edit->Text = IntToStr( 0 );
  131.         edit->SetFocus();
  132.         return;
  133.     }
  134.     m_sMT6140BCW9.uc_pwr_dac_a = uc_data;
  135. }
  136. //---------------------------------------------------------------------------
  138. void __fastcall TfrmMT6140BReg::edtCW9PWR_DAC_BCheck(TObject *Sender)
  139. {
  140.     unsigned char  uc_data;
  141.     AnsiString  text;
  142.     TEdit *edit = (TEdit*)Sender;
  143.     char  hint[] = " value shall be 0 or 1 ";
  145.     text = edit->Text;
  146.     if( !IsValidRegBit( text, uc_data ) )
  147.     {
  148.         ShowHintLabel( edit, hint );
  149.         edit->Text = IntToStr( 0 );
  150.         edit->SetFocus();
  151.         return;
  152.     }
  153.     m_sMT6140BCW9.uc_pwr_dac_b = uc_data;
  154. }
  155. //---------------------------------------------------------------------------
  157. void __fastcall TfrmMT6140BReg::edtCW9PWR_DAC_CCheck(TObject *Sender)
  158. {
  159.     unsigned char  uc_data;
  160.     AnsiString  text;
  161.     TEdit *edit = (TEdit*)Sender;
  162.     char  hint[] = " value shall be 0 or 1 ";
  164.     text = edit->Text;
  165.     if( !IsValidRegBit( text, uc_data ) )
  166.     {
  167.         ShowHintLabel( edit, hint );
  168.         edit->Text = IntToStr( 0 );
  169.         edit->SetFocus();
  170.         return;
  171.     }
  172.     m_sMT6140BCW9.uc_pwr_dac_c = uc_data;
  173. }
  174. //---------------------------------------------------------------------------
  176. void __fastcall TfrmMT6140BReg::edtCW9DC_DAC_BQCheck(TObject *Sender)
  177. {
  178.     unsigned char  uc_data;
  179.     AnsiString  text;
  180.     TEdit *edit = (TEdit*)Sender;
  181.     char  hint[] = " value shall be 0 or 1 ";
  183.     text = edit->Text;
  184.     if( !IsValidRegBit( text, uc_data ) )
  185.     {
  186.         ShowHintLabel( edit, hint );
  187.         edit->Text = IntToStr( 0 );
  188.         edit->SetFocus();
  189.         return;
  190.     }
  192.     m_sMT6140BCW9.uc_dc_dac_bq = (m_sMT6140BCW9.uc_dc_dac_bq & (0x7F ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  193. }
  194. //---------------------------------------------------------------------------
  196. void __fastcall TfrmMT6140BReg::edtCW9DC_DAC_CQCheck(TObject *Sender)
  197. {
  198.     unsigned char  uc_data;
  199.     AnsiString  text;
  200.     TEdit *edit = (TEdit*)Sender;
  201.     char  hint[] = " value shall be 0 or 1 ";
  203.     text = edit->Text;
  204.     if( !IsValidRegBit( text, uc_data ) )
  205.     {
  206.         ShowHintLabel( edit, hint );
  207.         edit->Text = IntToStr( 0 );
  208.         edit->SetFocus();
  209.         return;
  210.     }
  212.     m_sMT6140BCW9.uc_dc_dac_cq = (m_sMT6140BCW9.uc_dc_dac_cq & (0x7F ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  213. }
  214. //---------------------------------------------------------------------------
  217. //---------------------------------------------------------------------------
  219. void __fastcall TfrmMT6140BReg::edtCW10AM_DACICheck(TObject *Sender)
  220. {
  221.     unsigned char  uc_data;
  222.     AnsiString  text;
  223.     TEdit *edit = (TEdit*)Sender;
  224.     char  hint[] = " value shall be 0 or 1 ";
  226.     text = edit->Text;
  227.     if( !IsValidRegBit( text, uc_data ) )
  228.     {
  229.         ShowHintLabel( edit, hint );
  230.         edit->Text = IntToStr( 0 );
  231.         edit->SetFocus();
  232.         return;
  233.     }
  235.     m_sMT6140BCW10.uc_am_daci = (m_sMT6140BCW10.uc_am_daci & (0xFF ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  236. }
  237. //---------------------------------------------------------------------------
  239. void __fastcall TfrmMT6140BReg::edtCW10AM_DACQCheck(TObject *Sender)
  240. {
  241.     unsigned char  uc_data;
  242.     AnsiString  text;
  243.     TEdit *edit = (TEdit*)Sender;
  244.     char  hint[] = " value shall be 0 or 1 ";
  246.     text = edit->Text;
  247.     if( !IsValidRegBit( text, uc_data ) )
  248.     {
  249.         ShowHintLabel( edit, hint );
  250.         edit->Text = IntToStr( 0 );
  251.         edit->SetFocus();
  252.         return;
  253.     }
  255.     m_sMT6140BCW10.uc_am_dacq = (m_sMT6140BCW10.uc_am_dacq & (0xFF ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  256. }
  257. //---------------------------------------------------------------------------
  258. void __fastcall TfrmMT6140BReg::edtCW11TXDIV_GC0Check(TObject *Sender)
  259. {
  260.     unsigned char  uc_data;
  261.     AnsiString  text;
  262.     TEdit *edit = (TEdit*)Sender;
  263.     char  hint[] = " value shall be 0 or 1 ";
  265.     text = edit->Text;
  266.     if( !IsValidRegBit( text, uc_data ) )
  267.     {
  268.         ShowHintLabel( edit, hint );
  269.         edit->Text = IntToStr( 0 );
  270.         edit->SetFocus();
  271.         return;
  272.     }
  274.     m_sMT6140BCW11.uc_txdiv_gc0 = uc_data;
  275. }
  277. //---------------------------------------------------------------------------
  278. void __fastcall TfrmMT6140BReg::edtCW11TXVAPCCheck(TObject *Sender)
  279. {
  280.     unsigned char  uc_data;
  281.     AnsiString  text;
  282.     TEdit *edit = (TEdit*)Sender;
  283.     char  hint[] = " value shall be 0 or 1 ";
  285.     text = edit->Text;
  286.     if( !IsValidRegBit( text, uc_data ) )
  287.     {
  288.         ShowHintLabel( edit, hint );
  289.         edit->Text = IntToStr( 0 );
  290.         edit->SetFocus();
  291.         return;
  292.     }
  294.     m_sMT6140BCW11.uc_txvapc = (m_sMT6140BCW11.uc_txvapc & (0x03 ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  295. }
  296. //---------------------------------------------------------------------------
  298. void __fastcall TfrmMT6140BReg::edtCW11TXITCCheck(TObject *Sender)
  299. {
  300.     unsigned char  uc_data;
  301.     AnsiString  text;
  302.     TEdit *edit = (TEdit*)Sender;
  303.     char  hint[] = " value shall be 0 or 1 ";
  305.     text = edit->Text;
  306.     if( !IsValidRegBit( text, uc_data ) )
  307.     {
  308.         ShowHintLabel( edit, hint );
  309.         edit->Text = IntToStr( 0 );
  310.         edit->SetFocus();
  311.         return;
  312.     }
  314.     m_sMT6140BCW11.uc_tx_itc = (m_sMT6140BCW11.uc_tx_itc & (0x07 ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  315. }
  316. //---------------------------------------------------------------------------
  319. void __fastcall TfrmMT6140BReg::edtCW11TXMODGC_ENCheck(TObject *Sender)
  320. {
  321.     unsigned char  uc_data;
  322.     AnsiString  text;
  323.     TEdit *edit = (TEdit*)Sender;
  324.     char  hint[] = " value shall be 0 or 1 ";
  326.     text = edit->Text;
  327.     if( !IsValidRegBit( text, uc_data ) )
  328.     {
  329.         ShowHintLabel( edit, hint );
  330.         edit->Text = IntToStr( 0 );
  331.         edit->SetFocus();
  332.         return;
  333.     }
  335.     m_sMT6140BCW11.uc_txmodgc_en = uc_data;
  336. }
  337. //---------------------------------------------------------------------------
  339. void __fastcall TfrmMT6140BReg::edtCW11TXMODGCCheck(TObject *Sender)
  340. {
  341.     unsigned char  uc_data;
  342.     AnsiString  text;
  343.     TEdit *edit = (TEdit*)Sender;
  344.     char  hint[] = " value shall be 0 or 1 ";
  346.     text = edit->Text;
  347.     if( !IsValidRegBit( text, uc_data ) )
  348.     {
  349.         ShowHintLabel( edit, hint );
  350.         edit->Text = IntToStr( 0 );
  351.         edit->SetFocus();
  352.         return;
  353.     }
  355.     m_sMT6140BCW11.uc_txmodgc = uc_data;
  356. }
  357. //---------------------------------------------------------------------------
  359. void __fastcall TfrmMT6140BReg::edtCW11TXDBUFCheck(TObject *Sender)
  360. {
  361.     unsigned char  uc_data;
  362.     AnsiString  text;
  363.     TEdit *edit = (TEdit*)Sender;
  364.     char  hint[] = " value shall be 0 or 1 ";
  366.     text = edit->Text;
  367.     if( !IsValidRegBit( text, uc_data ) )
  368.     {
  369.         ShowHintLabel( edit, hint );
  370.         edit->Text = IntToStr( 0 );
  371.         edit->SetFocus();
  372.         return;
  373.     }
  375.     m_sMT6140BCW11.uc_txdbuf = uc_data;
  376. }
  377. //---------------------------------------------------------------------------
  379. void __fastcall TfrmMT6140BReg::edtCW11TXGBUFCheck(TObject *Sender)
  380. {
  381.     unsigned char  uc_data;
  382.     AnsiString  text;
  383.     TEdit *edit = (TEdit*)Sender;
  384.     char  hint[] = " value shall be 0 or 1 ";
  386.     text = edit->Text;
  387.     if( !IsValidRegBit( text, uc_data ) )
  388.     {
  389.         ShowHintLabel( edit, hint );
  390.         edit->Text = IntToStr( 0 );
  391.         edit->SetFocus();
  392.         return;
  393.     }
  395.     m_sMT6140BCW11.uc_txgbuf = uc_data;
  396. }
  397. //---------------------------------------------------------------------------
  399. void __fastcall TfrmMT6140BReg::edtCW11TXDIV4Check(TObject *Sender)
  400. {
  401.     unsigned char  uc_data;
  402.     AnsiString  text;
  403.     TEdit *edit = (TEdit*)Sender;
  404.     char  hint[] = " value shall be 0 or 1 ";
  406.     text = edit->Text;
  407.     if( !IsValidRegBit( text, uc_data ) )
  408.     {
  409.         ShowHintLabel( edit, hint );
  410.         edit->Text = IntToStr( 0 );
  411.         edit->SetFocus();
  412.         return;
  413.     }
  415.     m_sMT6140BCW11.uc_txdiv4 = uc_data;
  416. }
  417. //---------------------------------------------------------------------------
  419. void __fastcall TfrmMT6140BReg::edtCW11TXDIV2Check(TObject *Sender)
  420. {
  421.     unsigned char  uc_data;
  422.     AnsiString  text;
  423.     TEdit *edit = (TEdit*)Sender;
  424.     char  hint[] = " value shall be 0 or 1 ";
  426.     text = edit->Text;
  427.     if( !IsValidRegBit( text, uc_data ) )
  428.     {
  429.         ShowHintLabel( edit, hint );
  430.         edit->Text = IntToStr( 0 );
  431.         edit->SetFocus();
  432.         return;
  433.     }
  435.     m_sMT6140BCW11.uc_txdiv2 = uc_data;
  436. }
  437. //---------------------------------------------------------------------------
  439. void __fastcall TfrmMT6140BReg::edtCW11TXDIQMCheck(TObject *Sender)
  440. {
  441.     unsigned char  uc_data;
  442.     AnsiString  text;
  443.     TEdit *edit = (TEdit*)Sender;
  444.     char  hint[] = " value shall be 0 or 1 ";
  446.     text = edit->Text;
  447.     if( !IsValidRegBit( text, uc_data ) )
  448.     {
  449.         ShowHintLabel( edit, hint );
  450.         edit->Text = IntToStr( 0 );
  451.         edit->SetFocus();
  452.         return;
  453.     }
  455.     m_sMT6140BCW11.uc_txdiqm = uc_data;
  456. }
  457. //---------------------------------------------------------------------------
  459. void __fastcall TfrmMT6140BReg::edtCW11TXGIQMCheck(TObject *Sender)
  460. {
  461.     unsigned char  uc_data;
  462.     AnsiString  text;
  463.     TEdit *edit = (TEdit*)Sender;
  464.     char  hint[] = " value shall be 0 or 1 ";
  466.     text = edit->Text;
  467.     if( !IsValidRegBit( text, uc_data ) )
  468.     {
  469.         ShowHintLabel( edit, hint );
  470.         edit->Text = IntToStr( 0 );
  471.         edit->SetFocus();
  472.         return;
  473.     }
  475.     m_sMT6140BCW11.uc_txgiqm = uc_data;
  476. }
  477. //---------------------------------------------------------------------------
  479. void __fastcall TfrmMT6140BReg::edtCW11TXCTLCheck(TObject *Sender)
  480. {
  481.     unsigned char  uc_data;
  482.     AnsiString  text;
  483.     TEdit *edit = (TEdit*)Sender;
  484.     char  hint[] = " value shall be 0 or 1 ";
  486.     text = edit->Text;
  487.     if( !IsValidRegBit( text, uc_data ) )
  488.     {
  489.         ShowHintLabel( edit, hint );
  490.         edit->Text = IntToStr( 0 );
  491.         edit->SetFocus();
  492.         return;
  493.     }
  495.     m_sMT6140BCW11.uc_txctl = uc_data;
  496. }
  497. //---------------------------------------------------------------------------
  499. void __fastcall TfrmMT6140BReg::edtCW11LBCAPON_ENCheck(TObject *Sender)
  500. {
  501.     unsigned char  uc_data;
  502.     AnsiString  text;
  503.     TEdit *edit = (TEdit*)Sender;
  504.     char  hint[] = " value shall be 0 or 1 ";
  506.     text = edit->Text;
  507.     if( !IsValidRegBit( text, uc_data ) )
  508.     {
  509.         ShowHintLabel( edit, hint );
  510.         edit->Text = IntToStr( 0 );
  511.         edit->SetFocus();
  512.         return;
  513.     }
  515.     m_sMT6140BCW11.uc_lbcapon_en = uc_data;
  516. }
  517. //---------------------------------------------------------------------------
  519. void __fastcall TfrmMT6140BReg::edtCW11LBCAPONCheck(TObject *Sender)
  520. {
  521.     unsigned char  uc_data;
  522.     AnsiString  text;
  523.     TEdit *edit = (TEdit*)Sender;
  524.     char  hint[] = " value shall be 0 or 1 ";
  526.     text = edit->Text;
  527.     if( !IsValidRegBit( text, uc_data ) )
  528.     {
  529.         ShowHintLabel( edit, hint );
  530.         edit->Text = IntToStr( 0 );
  531.         edit->SetFocus();
  532.         return;
  533.     }
  535.     m_sMT6140BCW11.uc_lbcapon = uc_data;
  536. }
  537. //---------------------------------------------------------------------------
  539. void __fastcall TfrmMT6140BReg::edtCW11TX_CI_1Check(TObject *Sender)
  540. {
  541.     unsigned char  uc_data;
  542.     AnsiString  text;
  543.     TEdit *edit = (TEdit*)Sender;
  544.     char  hint[] = " value shall be 0 or 1 ";
  546.     text = edit->Text;
  547.     if( !IsValidRegBit( text, uc_data ) )
  548.     {
  549.         ShowHintLabel( edit, hint );
  550.         edit->Text = IntToStr( 0 );
  551.         edit->SetFocus();
  552.         return;
  553.     }
  555.     m_sMT6140BCW11.uc_tx_ci_1 = uc_data;
  556. }
  557. //---------------------------------------------------------------------------
  559. void __fastcall TfrmMT6140BReg::edtCW11TX_CI_0Check(TObject *Sender)
  560. {
  561.     unsigned char  uc_data;
  562.     AnsiString  text;
  563.     TEdit *edit = (TEdit*)Sender;
  564.     char  hint[] = " value shall be 0 or 1 ";
  566.     text = edit->Text;
  567.     if( !IsValidRegBit( text, uc_data ) )
  568.     {
  569.         ShowHintLabel( edit, hint );
  570.         edit->Text = IntToStr( 0 );
  571.         edit->SetFocus();
  572.         return;
  573.     }
  575.     m_sMT6140BCW11.uc_tx_ci_0 = uc_data;
  576. }
  577. //---------------------------------------------------------------------------
  579. void __fastcall TfrmMT6140BReg::edtCW11TX_ICSC_PTATCheck(TObject *Sender)
  580. {
  581.     unsigned char  uc_data;
  582.     AnsiString  text;
  583.     TEdit *edit = (TEdit*)Sender;
  584.     char  hint[] = " value shall be 0 or 1 ";
  586.     text = edit->Text;
  587.     if( !IsValidRegBit( text, uc_data ) )
  588.     {
  589.         ShowHintLabel( edit, hint );
  590.         edit->Text = IntToStr( 0 );
  591.         edit->SetFocus();
  592.         return;
  593.     }
  595.     m_sMT6140BCW11.uc_tx_icsc_ptat = uc_data;
  596. }
  597. //---------------------------------------------------------------------------
  599. void __fastcall TfrmMT6140BReg::edtCW11TX_VGA_PTATCheck(TObject *Sender)
  600. {
  601.     unsigned char  uc_data;
  602.     AnsiString  text;
  603.     TEdit *edit = (TEdit*)Sender;
  604.     char  hint[] = " value shall be 0 or 1 ";
  606.     text = edit->Text;
  607.     if( !IsValidRegBit( text, uc_data ) )
  608.     {
  609.         ShowHintLabel( edit, hint );
  610.         edit->Text = IntToStr( 0 );
  611.         edit->SetFocus();
  612.         return;
  613.     }
  615.     m_sMT6140BCW11.uc_tx_vga_ptat = uc_data;
  616. }
  617. //---------------------------------------------------------------------------
  619. void __fastcall TfrmMT6140BReg::edtCW11TXDIV_GC1Check(TObject *Sender)
  620. {
  621.     unsigned char  uc_data;
  622.     AnsiString  text;
  623.     TEdit *edit = (TEdit*)Sender;
  624.     char  hint[] = " value shall be 0 or 1 ";
  626.     text = edit->Text;
  627.     if( !IsValidRegBit( text, uc_data ) )
  628.     {
  629.         ShowHintLabel( edit, hint );
  630.         edit->Text = IntToStr( 0 );
  631.         edit->SetFocus();
  632.         return;
  633.     }
  635.     m_sMT6140BCW11.uc_txdiv_gc1 = uc_data;
  636. }
  637. //---------------------------------------------------------------------------
  638. void __fastcall TfrmMT6140BReg::edtCW15AUXOUT_SELETCIONCheck(
  639.       TObject *Sender)
  640. {
  641.     unsigned char  uc_data;
  642.     AnsiString  text;
  643.     TEdit *edit = (TEdit*)Sender;
  644.     char  hint[] = " value shall be 0 or 1 ";
  646.     text = edit->Text;
  647.     if( !IsValidRegBit( text, uc_data ) )
  648.     {
  649.         ShowHintLabel( edit, hint );
  650.         edit->Text = IntToStr( 0 );
  651.         edit->SetFocus();
  652.         return;
  653.     }
  655.     m_sMT6140BCW15.uc_auxout_selection = (m_sMT6140BCW15.uc_auxout_selection & (0x7F ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  656. }
  657. //---------------------------------------------------------------------------
  659. void __fastcall TfrmMT6140BReg::edtCW15ADDRESS_DATA_OUTCheck(
  660.       TObject *Sender)
  661. {
  662.     unsigned char  uc_data;
  663.     AnsiString  text;
  664.     TEdit *edit = (TEdit*)Sender;
  665.     char  hint[] = " value shall be 0 or 1 ";
  667.     text = edit->Text;
  668.     if( !IsValidRegBit( text, uc_data ) )
  669.     {
  670.         ShowHintLabel( edit, hint );
  671.         edit->Text = IntToStr( 0 );
  672.         edit->SetFocus();
  673.         return;
  674.     }
  676.     m_sMT6140BCW15.uc_address_data_out = (m_sMT6140BCW15.uc_address_data_out & (0x0F ^ (0x01<<edit->Tag)) ) | uc_data<<edit->Tag;
  677. }
  678. //---------------------------------------------------------------------------
  680. void __fastcall TfrmMT6140BReg::btnReadCW0FromRegClick(TObject *Sender)
  681. {
  682.     CurrentPageLock();
  683.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW0FromReg;
  684.     m_cRF_MT6140BReg_Obj.Get_MT6140CW0FromReg_Start(m_uiFinalRfid);
  686.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW0 from register progressing";
  687. }
  689. //---------------------------------------------------------------------------
  690. void TfrmMT6140BReg::CNF_GetMT6140CW0FromReg( void )
  691. {
  692.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  694.     switch( state )
  695.     {
  696.         case METAAPP_SUCCESS:
  697.         {
  698.             m_sMT6140BCW0 = m_cRF_MT6140BReg_Obj.Get_MT6140CW0();
  699.             ReDrawCW0Fields();
  700.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW0 from register successfully";
  701.         }
  702.         break;
  704.         case METAAPP_FAIL:
  705.         {
  706.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW0 from register fail";
  707.             Application->MessageBox( "Execution Failure : Get MT6140 CW0 from register", "FAILURE", MB_OK );
  708.         }
  709.         break;
  711.         case METAAPP_TIMEOUT:
  712.         {
  713.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW0 from register timeout";
  714.             Application->MessageBox( "Execution Timeout : Get MT6140 CW0 from register", "TIMEOUT", MB_OK );
  715.         }
  716.         break;
  718.         case METAAPP_STOP:
  719.         {
  720.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW0 from register stop";
  721.         }
  722.         break;
  723.     }
  725.     CurrentPageReset();
  726. }
  728. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  729. void __fastcall TfrmMT6140BReg::btnWriteCW0ToRegClick(TObject *Sender)
  730. {
  731.     CurrentPageLock();
  732.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW0ToReg;
  733.     m_cRF_MT6140BReg_Obj.Set_MT6140CW0ToReg_Start( m_sMT6140BCW0, m_uiFinalRfid );
  734.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW0 to register progressing";
  735. }
  736. //---------------------------------------------------------------------------
  737. void TfrmMT6140BReg::CNF_SetMT6140CW0ToReg( void )
  738. {
  739.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  741.     switch( state )
  742.     {
  743.         case METAAPP_SUCCESS:
  744.         {
  745.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW0 to register successfully";
  746.         }
  747.         break;
  749.         case METAAPP_FAIL:
  750.         {
  751.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW0 to register fail";
  752.             Application->MessageBox( "Execution Failure : Set MT6140 CW0 to register", "FAILURE", MB_OK );
  753.         }
  754.         break;
  756.         case METAAPP_TIMEOUT:
  757.         {
  758.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW0 to register timeout";
  759.             Application->MessageBox( "Execution Timeout : Set MT6140 CW0 to register", "TIMEOUT", MB_OK );
  760.         }
  761.         break;
  763.         case METAAPP_STOP:
  764.         {
  765.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW0 to register stop";
  766.         }
  767.         break;
  768.     }
  769.     CurrentPageReset();
  770. }
  772. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  773. void __fastcall TfrmMT6140BReg::btnReadCW1FromRegClick(TObject *Sender)
  774. {
  775.     CurrentPageLock();
  776.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW1FromReg;
  777.     m_cRF_MT6140BReg_Obj.Get_MT6140CW1FromReg_Start( m_uiFinalRfid );
  778.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW1 from register progressing";
  779. }
  781. //---------------------------------------------------------------------------
  782. void TfrmMT6140BReg::CNF_GetMT6140CW1FromReg( void )
  783. {
  784.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  786.     switch( state )
  787.     {
  788.         case METAAPP_SUCCESS:
  789.         {
  790.             m_sMT6140BCW1 = m_cRF_MT6140BReg_Obj.Get_MT6140CW1();
  791.             ReDrawCW1Fields();
  792.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW1 from register successfully";
  793.         }
  794.         break;
  796.         case METAAPP_FAIL:
  797.         {
  798.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW1 from register fail";
  799.             Application->MessageBox( "Execution Failure : Get MT6140 CW1 from register", "FAILURE", MB_OK );
  800.         }
  801.         break;
  803.         case METAAPP_TIMEOUT:
  804.         {
  805.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW1 from register timeout";
  806.             Application->MessageBox( "Execution Timeout : Get MT6140 CW1 from register", "TIMEOUT", MB_OK );
  807.         }
  808.         break;
  810.         case METAAPP_STOP:
  811.         {
  812.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW1 from register stop";
  813.         }
  814.         break;
  815.     }
  817.     CurrentPageReset();
  818. }
  820. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821. void __fastcall TfrmMT6140BReg::btnWriteCW1ToRegClick(TObject *Sender)
  822. {
  823.     CurrentPageLock();
  824.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW1ToReg;
  825.     m_cRF_MT6140BReg_Obj.Set_MT6140CW1ToReg_Start(m_sMT6140BCW1, m_uiFinalRfid);
  826.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW1 to register progressing";
  827. }
  828. //---------------------------------------------------------------------------
  829. void TfrmMT6140BReg::CNF_SetMT6140CW1ToReg( void )
  830. {
  831.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  833.     switch( state )
  834.     {
  835.         case METAAPP_SUCCESS:
  836.         {
  837.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW1 to register successfully";
  838.         }
  839.         break;
  841.         case METAAPP_FAIL:
  842.         {
  843.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW1 to register fail";
  844.             Application->MessageBox( "Execution Failure : Set MT6140 CW1 to register", "FAILURE", MB_OK );
  845.         }
  846.         break;
  848.         case METAAPP_TIMEOUT:
  849.         {
  850.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW1 to register timeout";
  851.             Application->MessageBox( "Execution Timeout : Set MT6140 CW1 to register", "TIMEOUT", MB_OK );
  852.         }
  853.         break;
  855.         case METAAPP_STOP:
  856.         {
  857.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW1 to register stop";
  858.         }
  859.         break;
  860.     }
  861.     CurrentPageReset();
  862. }
  864. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  865. void __fastcall TfrmMT6140BReg::btnReadCW2FromRegClick(TObject *Sender)
  866. {
  867.     CurrentPageLock();
  868.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW2FromReg;
  869.     m_cRF_MT6140BReg_Obj.Get_MT6140CW2FromReg_Start(m_uiFinalRfid);
  870.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW2 from register progressing";
  871. }
  873. //---------------------------------------------------------------------------
  874. void TfrmMT6140BReg::CNF_GetMT6140CW2FromReg( void )
  875. {
  876.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  878.     switch( state )
  879.     {
  880.         case METAAPP_SUCCESS:
  881.         {
  882.             m_sMT6140BCW2 = m_cRF_MT6140BReg_Obj.Get_MT6140CW2();
  883.             ReDrawCW2Fields();
  884.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW2 from register successfully";
  885.         }
  886.         break;
  888.         case METAAPP_FAIL:
  889.         {
  890.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW2 from register fail";
  891.             Application->MessageBox( "Execution Failure : Get MT6140 CW2 from register", "FAILURE", MB_OK );
  892.         }
  893.         break;
  895.         case METAAPP_TIMEOUT:
  896.         {
  897.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW2 from register timeout";
  898.             Application->MessageBox( "Execution Timeout : Get MT6140 CW2 from register", "TIMEOUT", MB_OK );
  899.         }
  900.         break;
  902.         case METAAPP_STOP:
  903.         {
  904.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW2 from register stop";
  905.         }
  906.         break;
  907.     }
  909.     CurrentPageReset();
  910. }
  912. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  913. void __fastcall TfrmMT6140BReg::btnWriteCW2ToRegClick(TObject *Sender)
  914. {
  915.     CurrentPageLock();
  916.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW2ToReg;
  917.     m_cRF_MT6140BReg_Obj.Set_MT6140CW2ToReg_Start(m_sMT6140BCW2, m_uiFinalRfid);
  918.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW2 to register progressing";
  919. }
  921. //---------------------------------------------------------------------------
  922. void TfrmMT6140BReg::CNF_SetMT6140CW2ToReg( void )
  923. {
  924.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  926.     switch( state )
  927.     {
  928.         case METAAPP_SUCCESS:
  929.         {
  930.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW2 to register successfully";
  931.         }
  932.         break;
  934.         case METAAPP_FAIL:
  935.         {
  936.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW2 to register fail";
  937.             Application->MessageBox( "Execution Failure : Set MT6140 CW2 to register", "FAILURE", MB_OK );
  938.         }
  939.         break;
  941.         case METAAPP_TIMEOUT:
  942.         {
  943.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW2 to register timeout";
  944.             Application->MessageBox( "Execution Timeout : Set MT6140 CW2 to register", "TIMEOUT", MB_OK );
  945.         }
  946.         break;
  948.         case METAAPP_STOP:
  949.         {
  950.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW2 to register stop";
  951.         }
  952.         break;
  953.     }
  954.     CurrentPageReset();
  955. }
  957. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  958. void __fastcall TfrmMT6140BReg::btnReadCW3FromRegClick(TObject *Sender)
  959. {
  960.     CurrentPageLock();
  961.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW3FromReg;
  962.     m_cRF_MT6140BReg_Obj.Get_MT6140BCW3FromReg_Start(m_uiFinalRfid);
  963.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW3 from register progressing";
  964. }
  966. //---------------------------------------------------------------------------
  967. void TfrmMT6140BReg::CNF_GetMT6140CW3FromReg( void )
  968. {
  969.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  971.     switch( state )
  972.     {
  973.         case METAAPP_SUCCESS:
  974.         {
  975.             m_sMT6140BCW3 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW3();
  976.             ReDrawCW3Fields();
  977.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW3 from register successfully";
  978.         }
  979.         break;
  981.         case METAAPP_FAIL:
  982.         {
  983.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW3 from register fail";
  984.             Application->MessageBox( "Execution Failure : Get MT6140 CW3 from register", "FAILURE", MB_OK );
  985.         }
  986.         break;
  988.         case METAAPP_TIMEOUT:
  989.         {
  990.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW3 from register timeout";
  991.             Application->MessageBox( "Execution Timeout : Get MT6140 CW3 from register", "TIMEOUT", MB_OK );
  992.         }
  993.         break;
  995.         case METAAPP_STOP:
  996.         {
  997.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW3 from register stop";
  998.         }
  999.         break;
  1000.     }
  1002.     CurrentPageReset();
  1003. }
  1005. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1006. void __fastcall TfrmMT6140BReg::btnWriteCW3ToRegClick(TObject *Sender)
  1007. {
  1008.     CurrentPageLock();
  1009.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW3ToReg;
  1010.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW3ToReg_Start(m_sMT6140BCW3, m_uiFinalRfid);
  1011.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW3 to register progressing";
  1012. }
  1013. //---------------------------------------------------------------------------
  1014. void TfrmMT6140BReg::CNF_SetMT6140CW3ToReg( void )
  1015. {
  1016.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1018.     switch( state )
  1019.     {
  1020.         case METAAPP_SUCCESS:
  1021.         {
  1022.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW3 to register successfully";
  1023.         }
  1024.         break;
  1026.         case METAAPP_FAIL:
  1027.         {
  1028.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW3 to register fail";
  1029.             Application->MessageBox( "Execution Failure : Set MT6140 CW3 to register", "FAILURE", MB_OK );
  1030.         }
  1031.         break;
  1033.         case METAAPP_TIMEOUT:
  1034.         {
  1035.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW3 to register timeout";
  1036.             Application->MessageBox( "Execution Timeout : Set MT6140 CW3 to register", "TIMEOUT", MB_OK );
  1037.         }
  1038.         break;
  1040.         case METAAPP_STOP:
  1041.         {
  1042.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW3 to register stop";
  1043.         }
  1044.         break;
  1045.     }
  1046.     CurrentPageReset();
  1047. }
  1049. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1050. void __fastcall TfrmMT6140BReg::btnReadCW4FromRegClick(TObject *Sender)
  1051. {
  1052.     CurrentPageLock();
  1053.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW4FromReg;
  1054.     m_cRF_MT6140BReg_Obj.Get_MT6140BCW4FromReg_Start(m_uiFinalRfid);
  1055.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW4 from register progressing";
  1056. }
  1058. //---------------------------------------------------------------------------
  1059. void TfrmMT6140BReg::CNF_GetMT6140CW4FromReg( void )
  1060. {
  1061.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1063.     switch( state )
  1064.     {
  1065.         case METAAPP_SUCCESS:
  1066.         {
  1067.             m_sMT6140BCW4 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW4();
  1068.             ReDrawCW4Fields();
  1069.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW4 from register successfully";
  1070.         }
  1071.         break;
  1073.         case METAAPP_FAIL:
  1074.         {
  1075.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW4 from register fail";
  1076.             Application->MessageBox( "Execution Failure : Get MT6140 CW4 from register", "FAILURE", MB_OK );
  1077.         }
  1078.         break;
  1080.         case METAAPP_TIMEOUT:
  1081.         {
  1082.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW4 from register timeout";
  1083.             Application->MessageBox( "Execution Timeout : Get MT6140 CW4 from register", "TIMEOUT", MB_OK );
  1084.         }
  1085.         break;
  1087.         case METAAPP_STOP:
  1088.         {
  1089.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW4 from register stop";
  1090.         }
  1091.         break;
  1092.     }
  1094.     CurrentPageReset();
  1095. }
  1097. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1098. void __fastcall TfrmMT6140BReg::btnWriteCW4ToRegClick(TObject *Sender)
  1099. {
  1100.     CurrentPageLock();
  1101.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW4ToReg;
  1102.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW4ToReg_Start(m_sMT6140BCW4, m_uiFinalRfid);
  1103.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW4 to register progressing";
  1104. }
  1105. //---------------------------------------------------------------------------
  1106. void TfrmMT6140BReg::CNF_SetMT6140CW4ToReg( void )
  1107. {
  1108.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1110.     switch( state )
  1111.     {
  1112.         case METAAPP_SUCCESS:
  1113.         {
  1114.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW4 to register successfully";
  1115.         }
  1116.         break;
  1118.         case METAAPP_FAIL:
  1119.         {
  1120.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW4 to register fail";
  1121.             Application->MessageBox( "Execution Failure : Set MT6140 CW0 to register", "FAILURE", MB_OK );
  1122.         }
  1123.         break;
  1125.         case METAAPP_TIMEOUT:
  1126.         {
  1127.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW4 to register timeout";
  1128.             Application->MessageBox( "Execution Timeout : Set MT6140 CW0 to register", "TIMEOUT", MB_OK );
  1129.         }
  1130.         break;
  1132.         case METAAPP_STOP:
  1133.         {
  1134.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW4 to register stop";
  1135.         }
  1136.         break;
  1137.     }
  1138.     CurrentPageReset();
  1139. }
  1141. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1142. void __fastcall TfrmMT6140BReg::btnReadCW5FromRegClick(TObject *Sender)
  1143. {
  1144.     CurrentPageLock();
  1145.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW5FromReg;
  1146.     m_cRF_MT6140BReg_Obj.Get_MT6140BCW5FromReg_Start(m_uiFinalRfid);
  1147.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW5 from register progressing";
  1148. }
  1150. //---------------------------------------------------------------------------
  1151. void TfrmMT6140BReg::CNF_GetMT6140CW5FromReg( void )
  1152. {
  1153.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1155.     switch( state )
  1156.     {
  1157.         case METAAPP_SUCCESS:
  1158.         {
  1159.             m_sMT6140BCW5 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW5();
  1160.             ReDrawCW5Fields();
  1161.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW5 from register successfully";
  1162.         }
  1163.         break;
  1165.         case METAAPP_FAIL:
  1166.         {
  1167.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW5 from register fail";
  1168.             Application->MessageBox( "Execution Failure : Get MT6140 CW5 from register", "FAILURE", MB_OK );
  1169.         }
  1170.         break;
  1172.         case METAAPP_TIMEOUT:
  1173.         {
  1174.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW5 from register timeout";
  1175.             Application->MessageBox( "Execution Timeout : Get MT6140 CW5 from register", "TIMEOUT", MB_OK );
  1176.         }
  1177.         break;
  1179.         case METAAPP_STOP:
  1180.         {
  1181.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW5 from register stop";
  1182.         }
  1183.         break;
  1184.     }
  1186.     CurrentPageReset();
  1187. }
  1189. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1190. void __fastcall TfrmMT6140BReg::btnWriteCW5ToRegClick(TObject *Sender)
  1191. {
  1192.     CurrentPageLock();
  1193.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW5ToReg;
  1194.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW5ToReg_Start(m_sMT6140BCW5, m_uiFinalRfid);
  1195.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW5 to register progressing";
  1196. }
  1197. //---------------------------------------------------------------------------
  1198. void TfrmMT6140BReg::CNF_SetMT6140CW5ToReg( void )
  1199. {
  1200.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1202.     switch( state )
  1203.     {
  1204.         case METAAPP_SUCCESS:
  1205.         {
  1206.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW5 to register successfully";
  1207.         }
  1208.         break;
  1210.         case METAAPP_FAIL:
  1211.         {
  1212.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW5 to register fail";
  1213.             Application->MessageBox( "Execution Failure : Set MT6140 CW05 to register", "FAILURE", MB_OK );
  1214.         }
  1215.         break;
  1217.         case METAAPP_TIMEOUT:
  1218.         {
  1219.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW5 to register timeout";
  1220.             Application->MessageBox( "Execution Timeout : Set MT6140 CW5 to register", "TIMEOUT", MB_OK );
  1221.         }
  1222.         break;
  1224.         case METAAPP_STOP:
  1225.         {
  1226.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW5 to register stop";
  1227.         }
  1228.         break;
  1229.     }
  1230.     CurrentPageReset();
  1231. }
  1233. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1234. void __fastcall TfrmMT6140BReg::btnReadCW6FromRegClick(TObject *Sender)
  1235. {
  1236.     CurrentPageLock();
  1237.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW6FromReg;
  1238.     m_cRF_MT6140BReg_Obj.Get_MT6140CW6FromReg_Start(m_uiFinalRfid);
  1239.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW6 from register progressing";
  1240. }
  1242. //---------------------------------------------------------------------------
  1243. void TfrmMT6140BReg::CNF_GetMT6140CW6FromReg( void )
  1244. {
  1245.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1247.     switch( state )
  1248.     {
  1249.         case METAAPP_SUCCESS:
  1250.         {
  1251.             m_sMT6140BCW6 = m_cRF_MT6140BReg_Obj.Get_MT6140CW6();
  1252.             ReDrawCW6Fields();
  1253.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW6 from register successfully";
  1254.         }
  1255.         break;
  1257.         case METAAPP_FAIL:
  1258.         {
  1259.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW6 from register fail";
  1260.             Application->MessageBox( "Execution Failure : Get MT6140 CW6 from register", "FAILURE", MB_OK );
  1261.         }
  1262.         break;
  1264.         case METAAPP_TIMEOUT:
  1265.         {
  1266.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW6 from register timeout";
  1267.             Application->MessageBox( "Execution Timeout : Get MT6140 CW6 from register", "TIMEOUT", MB_OK );
  1268.         }
  1269.         break;
  1271.         case METAAPP_STOP:
  1272.         {
  1273.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW6 from register stop";
  1274.         }
  1275.         break;
  1276.     }
  1278.     CurrentPageReset();
  1279. }
  1281. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1282. void __fastcall TfrmMT6140BReg::btnWriteCW6ToRegClick(TObject *Sender)
  1283. {
  1284.     CurrentPageLock();
  1285.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW6ToReg;
  1286.     m_cRF_MT6140BReg_Obj.Set_MT6140CW6ToReg_Start(m_sMT6140BCW6, m_uiFinalRfid);
  1287.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW6 to register progressing";
  1288. }
  1289. //---------------------------------------------------------------------------
  1290. void TfrmMT6140BReg::CNF_SetMT6140CW6ToReg( void )
  1291. {
  1292.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1294.     switch( state )
  1295.     {
  1296.         case METAAPP_SUCCESS:
  1297.         {
  1298.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW6 to register successfully";
  1299.         }
  1300.         break;
  1302.         case METAAPP_FAIL:
  1303.         {
  1304.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW6 to register fail";
  1305.             Application->MessageBox( "Execution Failure : Set MT6140 CW6 to register", "FAILURE", MB_OK );
  1306.         }
  1307.         break;
  1309.         case METAAPP_TIMEOUT:
  1310.         {
  1311.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW6 to register timeout";
  1312.             Application->MessageBox( "Execution Timeout : Set MT6140 CW6 to register", "TIMEOUT", MB_OK );
  1313.         }
  1314.         break;
  1316.         case METAAPP_STOP:
  1317.         {
  1318.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW6 to register stop";
  1319.         }
  1320.         break;
  1321.     }
  1322.     CurrentPageReset();
  1323. }
  1325. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1326. void __fastcall TfrmMT6140BReg::btnReadCW7FromRegClick(TObject *Sender)
  1327. {
  1328.     CurrentPageLock();
  1329.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW7FromReg;
  1330.     m_cRF_MT6140BReg_Obj.Get_MT6140BCW7FromReg_Start(m_uiFinalRfid);
  1331.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW7 from register progressing";
  1332. }
  1334. //---------------------------------------------------------------------------
  1335. void TfrmMT6140BReg::CNF_GetMT6140CW7FromReg( void )
  1336. {
  1337.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1339.     switch( state )
  1340.     {
  1341.         case METAAPP_SUCCESS:
  1342.         {
  1343.             m_sMT6140BCW7 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW7();
  1344.             ReDrawCW7Fields();
  1345.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW7 from register successfully";
  1346.         }
  1347.         break;
  1349.         case METAAPP_FAIL:
  1350.         {
  1351.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW7 from register fail";
  1352.             Application->MessageBox( "Execution Failure : Get MT6140 CW7 from register", "FAILURE", MB_OK );
  1353.         }
  1354.         break;
  1356.         case METAAPP_TIMEOUT:
  1357.         {
  1358.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW7 from register timeout";
  1359.             Application->MessageBox( "Execution Timeout : Get MT6140 CW7 from register", "TIMEOUT", MB_OK );
  1360.         }
  1361.         break;
  1363.         case METAAPP_STOP:
  1364.         {
  1365.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW7 from register stop";
  1366.         }
  1367.         break;
  1368.     }
  1370.     CurrentPageReset();
  1371. }
  1373. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1374. void __fastcall TfrmMT6140BReg::btnWriteCW7ToRegClick(TObject *Sender)
  1375. {
  1376.     CurrentPageLock();
  1377.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW7ToReg;
  1378.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW7ToReg_Start(m_sMT6140BCW7, m_uiFinalRfid);
  1379.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW7 to register progressing";
  1380. }
  1381. //---------------------------------------------------------------------------
  1382. void TfrmMT6140BReg::CNF_SetMT6140CW7ToReg( void )
  1383. {
  1384.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1386.     switch( state )
  1387.     {
  1388.         case METAAPP_SUCCESS:
  1389.         {
  1390.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW7 to register successfully";
  1391.         }
  1392.         break;
  1394.         case METAAPP_FAIL:
  1395.         {
  1396.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW7 to register fail";
  1397.             Application->MessageBox( "Execution Failure : Set MT6140 CW7 to register", "FAILURE", MB_OK );
  1398.         }
  1399.         break;
  1401.         case METAAPP_TIMEOUT:
  1402.         {
  1403.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW7 to register timeout";
  1404.             Application->MessageBox( "Execution Timeout : Set MT6140 CW7 to register", "TIMEOUT", MB_OK );
  1405.         }
  1406.         break;
  1408.         case METAAPP_STOP:
  1409.         {
  1410.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW7 to register stop";
  1411.         }
  1412.         break;
  1413.     }
  1414.     CurrentPageReset();
  1415. }
  1417. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1418. void __fastcall TfrmMT6140BReg::btnReadCW8FromRegClick(TObject *Sender)
  1419. {
  1420.     CurrentPageLock();
  1421.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW8FromReg;
  1422.     m_cRF_MT6140BReg_Obj.Get_MT6140CW8FromReg_Start(m_uiFinalRfid);
  1423.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW8 from register progressing";
  1424. }
  1426. //---------------------------------------------------------------------------
  1427. void TfrmMT6140BReg::CNF_GetMT6140CW8FromReg( void )
  1428. {
  1429.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1431.     switch( state )
  1432.     {
  1433.         case METAAPP_SUCCESS:
  1434.         {
  1435.             m_sMT6140BCW8 = m_cRF_MT6140BReg_Obj.Get_MT6140CW8();
  1436.             ReDrawCW8Fields();
  1437.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW8 from register successfully";
  1438.         }
  1439.         break;
  1441.         case METAAPP_FAIL:
  1442.         {
  1443.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW8 from register fail";
  1444.             Application->MessageBox( "Execution Failure : Get MT6140 CW8 from register", "FAILURE", MB_OK );
  1445.         }
  1446.         break;
  1448.         case METAAPP_TIMEOUT:
  1449.         {
  1450.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW8 from register timeout";
  1451.             Application->MessageBox( "Execution Timeout : Get MT6140 CW8 from register", "TIMEOUT", MB_OK );
  1452.         }
  1453.         break;
  1455.         case METAAPP_STOP:
  1456.         {
  1457.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW8 from register stop";
  1458.         }
  1459.         break;
  1460.     }
  1462.     CurrentPageReset();
  1463. }
  1465. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1466. void __fastcall TfrmMT6140BReg::btnWriteCW8ToRegClick(TObject *Sender)
  1467. {
  1468.     CurrentPageLock();
  1469.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW8ToReg;
  1470.     m_cRF_MT6140BReg_Obj.Set_MT6140CW8ToReg_Start(m_sMT6140BCW8, m_uiFinalRfid);
  1471.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW8 to register progressing";
  1472. }
  1473. //---------------------------------------------------------------------------
  1474. void TfrmMT6140BReg::CNF_SetMT6140CW8ToReg( void )
  1475. {
  1476.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1478.     switch( state )
  1479.     {
  1480.         case METAAPP_SUCCESS:
  1481.         {
  1482.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW8 to register successfully";
  1483.         }
  1484.         break;
  1486.         case METAAPP_FAIL:
  1487.         {
  1488.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW8 to register fail";
  1489.             Application->MessageBox( "Execution Failure : Set MT6140 CW8 to register", "FAILURE", MB_OK );
  1490.         }
  1491.         break;
  1493.         case METAAPP_TIMEOUT:
  1494.         {
  1495.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW8 to register timeout";
  1496.             Application->MessageBox( "Execution Timeout : Set MT6140 CW8 to register", "TIMEOUT", MB_OK );
  1497.         }
  1498.         break;
  1500.         case METAAPP_STOP:
  1501.         {
  1502.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW8 to register stop";
  1503.         }
  1504.         break;
  1505.     }
  1506.     CurrentPageReset();
  1507. }
  1509. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1510. void __fastcall TfrmMT6140BReg::btnReadCW9FromRegClick(TObject *Sender)
  1511. {
  1512.     CurrentPageLock();
  1513.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW9FromReg;
  1514.     m_cRF_MT6140BReg_Obj.Get_MT6140BCW9FromReg_Start(m_uiFinalRfid);
  1515.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW9 from register progressing";
  1516. }
  1518. //---------------------------------------------------------------------------
  1519. void TfrmMT6140BReg::CNF_GetMT6140CW9FromReg( void )
  1520. {
  1521.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1523.     switch( state )
  1524.     {
  1525.         case METAAPP_SUCCESS:
  1526.         {
  1527.             m_sMT6140BCW9 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW9();
  1528.             ReDrawCW9Fields();
  1529.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW9 from register successfully";
  1530.         }
  1531.         break;
  1533.         case METAAPP_FAIL:
  1534.         {
  1535.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW9 from register fail";
  1536.             Application->MessageBox( "Execution Failure : Get MT6140 CW9 from register", "FAILURE", MB_OK );
  1537.         }
  1538.         break;
  1540.         case METAAPP_TIMEOUT:
  1541.         {
  1542.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW9 from register timeout";
  1543.             Application->MessageBox( "Execution Timeout : Get MT6140 CW9 from register", "TIMEOUT", MB_OK );
  1544.         }
  1545.         break;
  1547.         case METAAPP_STOP:
  1548.         {
  1549.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW9 from register stop";
  1550.         }
  1551.         break;
  1552.     }
  1554.     CurrentPageReset();
  1555. }
  1557. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1558. void __fastcall TfrmMT6140BReg::btnWriteCW9ToRegClick(TObject *Sender)
  1559. {
  1560.     CurrentPageLock();
  1561.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW9ToReg;
  1562.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW9ToReg_Start(m_sMT6140BCW9, m_uiFinalRfid);
  1563.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW9 to register progressing";
  1564. }
  1565. //---------------------------------------------------------------------------
  1566. void TfrmMT6140BReg::CNF_SetMT6140CW9ToReg( void )
  1567. {
  1568.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1570.     switch( state )
  1571.     {
  1572.         case METAAPP_SUCCESS:
  1573.         {
  1574.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW9 to register successfully";
  1575.         }
  1576.         break;
  1578.         case METAAPP_FAIL:
  1579.         {
  1580.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW9 to register fail";
  1581.             Application->MessageBox( "Execution Failure : Set MT6140 CW9 to register", "FAILURE", MB_OK );
  1582.         }
  1583.         break;
  1585.         case METAAPP_TIMEOUT:
  1586.         {
  1587.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW9 to register timeout";
  1588.             Application->MessageBox( "Execution Timeout : Set MT6140 CW9 to register", "TIMEOUT", MB_OK );
  1589.         }
  1590.         break;
  1592.         case METAAPP_STOP:
  1593.         {
  1594.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW9 to register stop";
  1595.         }
  1596.         break;
  1597.     }
  1598.     CurrentPageReset();
  1599. }
  1601. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1602. void __fastcall TfrmMT6140BReg::btnReadCW10FromRegClick(TObject *Sender)
  1603. {
  1604.     CurrentPageLock();
  1605.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW10FromReg;
  1606.     m_cRF_MT6140BReg_Obj.Get_MT6140CW10FromReg_Start(m_uiFinalRfid);
  1607.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW10 from register progressing";
  1608. }
  1610. //---------------------------------------------------------------------------
  1611. void TfrmMT6140BReg::CNF_GetMT6140CW10FromReg( void )
  1612. {
  1613.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1615.     switch( state )
  1616.     {
  1617.         case METAAPP_SUCCESS:
  1618.         {
  1619.             m_sMT6140BCW10 = m_cRF_MT6140BReg_Obj.Get_MT6140CW10();
  1620.             ReDrawCW10Fields();
  1621.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW10 from register successfully";
  1622.         }
  1623.         break;
  1625.         case METAAPP_FAIL:
  1626.         {
  1627.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW10 from register fail";
  1628.             Application->MessageBox( "Execution Failure : Get MT6140 CW10 from register", "FAILURE", MB_OK );
  1629.         }
  1630.         break;
  1632.         case METAAPP_TIMEOUT:
  1633.         {
  1634.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW10 from register timeout";
  1635.             Application->MessageBox( "Execution Timeout : Get MT6140 CW10 from register", "TIMEOUT", MB_OK );
  1636.         }
  1637.         break;
  1639.         case METAAPP_STOP:
  1640.         {
  1641.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW10 from register stop";
  1642.         }
  1643.         break;
  1644.     }
  1646.     CurrentPageReset();
  1647. }
  1649. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1650. void __fastcall TfrmMT6140BReg::btnWriteCW10ToRegClick(TObject *Sender)
  1651. {
  1652.     CurrentPageLock();
  1653.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW10ToReg;
  1654.     m_cRF_MT6140BReg_Obj.Set_MT6140CW10ToReg_Start(m_sMT6140BCW10, m_uiFinalRfid);
  1655.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW10 to register progressing";
  1656. }
  1657. //---------------------------------------------------------------------------
  1658. void TfrmMT6140BReg::CNF_SetMT6140CW10ToReg( void )
  1659. {
  1660.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1662.     switch( state )
  1663.     {
  1664.         case METAAPP_SUCCESS:
  1665.         {
  1666.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW10 to register successfully";
  1667.         }
  1668.         break;
  1670.         case METAAPP_FAIL:
  1671.         {
  1672.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW10 to register fail";
  1673.             Application->MessageBox( "Execution Failure : Set MT6140 CW10 to register", "FAILURE", MB_OK );
  1674.         }
  1675.         break;
  1677.         case METAAPP_TIMEOUT:
  1678.         {
  1679.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW10 to register timeout";
  1680.             Application->MessageBox( "Execution Timeout : Set MT6140 CW10 to register", "TIMEOUT", MB_OK );
  1681.         }
  1682.         break;
  1684.         case METAAPP_STOP:
  1685.         {
  1686.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW10 to register stop";
  1687.         }
  1688.         break;
  1689.     }
  1690.     CurrentPageReset();
  1691. }
  1693. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1694. void __fastcall TfrmMT6140BReg::btnReadCW11FromRegClick(TObject *Sender)
  1695. {
  1696.     CurrentPageLock();
  1697.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW11FromReg;
  1698.     m_cRF_MT6140BReg_Obj.Get_MT6140BCW11FromReg_Start(m_uiFinalRfid);
  1699.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW11 from register progressing";
  1700. }
  1702. //---------------------------------------------------------------------------
  1703. void TfrmMT6140BReg::CNF_GetMT6140CW11FromReg( void )
  1704. {
  1705.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1707.     switch( state )
  1708.     {
  1709.         case METAAPP_SUCCESS:
  1710.         {
  1711.             m_sMT6140BCW11 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW11();
  1712.             ReDrawCW11Fields();
  1713.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW11 from register successfully";
  1714.         }
  1715.         break;
  1717.         case METAAPP_FAIL:
  1718.         {
  1719.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW11 from register fail";
  1720.             Application->MessageBox( "Execution Failure : Get MT6140 CW11 from register", "FAILURE", MB_OK );
  1721.         }
  1722.         break;
  1724.         case METAAPP_TIMEOUT:
  1725.         {
  1726.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW11 from register timeout";
  1727.             Application->MessageBox( "Execution Timeout : Get MT6140 CW11 from register", "TIMEOUT", MB_OK );
  1728.         }
  1729.         break;
  1731.         case METAAPP_STOP:
  1732.         {
  1733.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW11 from register stop";
  1734.         }
  1735.         break;
  1736.     }
  1738.     CurrentPageReset();
  1739. }
  1741. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1742. void __fastcall TfrmMT6140BReg::btnWriteCW11ToRegClick(TObject *Sender)
  1743. {
  1744.     CurrentPageLock();
  1745.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW11ToReg;
  1746.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW11ToReg_Start(m_sMT6140BCW11, m_uiFinalRfid);
  1747.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW11 to register progressing";
  1748. }
  1749. //---------------------------------------------------------------------------
  1750. void TfrmMT6140BReg::CNF_SetMT6140CW11ToReg( void )
  1751. {
  1752.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1754.     switch( state )
  1755.     {
  1756.         case METAAPP_SUCCESS:
  1757.         {
  1758.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW11 to register successfully";
  1759.         }
  1760.         break;
  1762.         case METAAPP_FAIL:
  1763.         {
  1764.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW11 to register fail";
  1765.             Application->MessageBox( "Execution Failure : Set MT6140 CW11 to register", "FAILURE", MB_OK );
  1766.         }
  1767.         break;
  1769.         case METAAPP_TIMEOUT:
  1770.         {
  1771.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW11 to register timeout";
  1772.             Application->MessageBox( "Execution Timeout : Set MT6140 CW11 to register", "TIMEOUT", MB_OK );
  1773.         }
  1774.         break;
  1776.         case METAAPP_STOP:
  1777.         {
  1778.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW11 to register stop";
  1779.         }
  1780.         break;
  1781.     }
  1782.     CurrentPageReset();
  1783. }
  1785. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1786. void __fastcall TfrmMT6140BReg::btnReadCW15FromRegClick(TObject *Sender)
  1787. {
  1788.     CurrentPageLock();
  1789.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140CW15FromReg;
  1790.     m_cRF_MT6140BReg_Obj.Get_MT6140CW15FromReg_Start(m_uiFinalRfid);
  1791.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW12 from register progressing";
  1792. }
  1794. //---------------------------------------------------------------------------
  1795. void TfrmMT6140BReg::CNF_GetMT6140CW15FromReg( void )
  1796. {
  1797.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1799.     switch( state )
  1800.     {
  1801.         case METAAPP_SUCCESS:
  1802.         {
  1803.             m_sMT6140BCW15 = m_cRF_MT6140BReg_Obj.Get_MT6140CW15();
  1804.             ReDrawCW15Fields();
  1805.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW15 from register successfully";
  1806.         }
  1807.         break;
  1809.         case METAAPP_FAIL:
  1810.         {
  1811.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW15 from register fail";
  1812.             Application->MessageBox( "Execution Failure : Get MT6140 CW15 from register", "FAILURE", MB_OK );
  1813.         }
  1814.         break;
  1816.         case METAAPP_TIMEOUT:
  1817.         {
  1818.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW15 from register timeout";
  1819.             Application->MessageBox( "Execution Timeout : Get MT6140 CW15 from register", "TIMEOUT", MB_OK );
  1820.         }
  1821.         break;
  1823.         case METAAPP_STOP:
  1824.         {
  1825.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get MT6140 CW15 from register stop";
  1826.         }
  1827.         break;
  1828.     }
  1830.     CurrentPageReset();
  1831. }
  1833. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1834. void __fastcall TfrmMT6140BReg::btnWriteCW15ToRegClick(TObject *Sender)
  1835. {
  1836.     CurrentPageLock();
  1837.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140CW15ToReg;
  1838.     m_cRF_MT6140BReg_Obj.Set_MT6140CW15ToReg_Start(m_sMT6140BCW15, m_uiFinalRfid);
  1839.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW12 to register progressing";
  1840. }
  1841. //---------------------------------------------------------------------------
  1842. void TfrmMT6140BReg::CNF_SetMT6140CW15ToReg( void )
  1843. {
  1844.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1846.     switch( state )
  1847.     {
  1848.         case METAAPP_SUCCESS:
  1849.         {
  1850.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW15 to register successfully";
  1851.         }
  1852.         break;
  1854.         case METAAPP_FAIL:
  1855.         {
  1856.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW15 to register fail";
  1857.             Application->MessageBox( "Execution Failure : Set MT6140 CW15 to register", "FAILURE", MB_OK );
  1858.         }
  1859.         break;
  1861.         case METAAPP_TIMEOUT:
  1862.         {
  1863.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW15 to register timeout";
  1864.             Application->MessageBox( "Execution Timeout : Set MT6140 CW15 to register", "TIMEOUT", MB_OK );
  1865.         }
  1866.         break;
  1868.         case METAAPP_STOP:
  1869.         {
  1870.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set MT6140 CW15 to register stop";
  1871.         }
  1872.         break;
  1873.     }
  1875.     CurrentPageReset();
  1876. }
  1878. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1879. void __fastcall TfrmMT6140BReg::btnReadAllRegClick(TObject *Sender)
  1880. {
  1881.     CurrentPageLock();
  1882.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_GetMT6140AllFromReg;
  1883.     m_cRF_MT6140BReg_Obj.Get_MT6140AllFromReg_Start(m_uiFinalRfid);
  1885.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get All MT6140 control words from register progressing";
  1886. }
  1888. //---------------------------------------------------------------------------
  1889. void TfrmMT6140BReg::CNF_GetMT6140AllFromReg( void )
  1890. {
  1891.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1893.     switch( state )
  1894.     {
  1895.         case METAAPP_SUCCESS:
  1896.         {
  1897.             m_sMT6140BCW0 = m_cRF_MT6140BReg_Obj.Get_MT6140CW0();
  1898.             m_sMT6140BCW1 = m_cRF_MT6140BReg_Obj.Get_MT6140CW1();
  1899.             m_sMT6140BCW2 = m_cRF_MT6140BReg_Obj.Get_MT6140CW2();
  1900.             m_sMT6140BCW3 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW3();
  1901.             m_sMT6140BCW4 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW4();
  1902.             m_sMT6140BCW5 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW5();
  1903.             m_sMT6140BCW6 = m_cRF_MT6140BReg_Obj.Get_MT6140CW6();
  1904.             m_sMT6140BCW7 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW7();
  1905.             m_sMT6140BCW8 = m_cRF_MT6140BReg_Obj.Get_MT6140CW8();
  1906.             m_sMT6140BCW9 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW9();
  1907.             m_sMT6140BCW10 = m_cRF_MT6140BReg_Obj.Get_MT6140CW10();
  1908.             m_sMT6140BCW11 = m_cRF_MT6140BReg_Obj.Get_MT6140BCW11();
  1909.             m_sMT6140BCW15 = m_cRF_MT6140BReg_Obj.Get_MT6140CW15();
  1910.             ReDrawCW0Fields();
  1911.             ReDrawCW1Fields();
  1912.             ReDrawCW2Fields();
  1913.             ReDrawCW3Fields();
  1914.             ReDrawCW4Fields();
  1915.             ReDrawCW5Fields();
  1916.             ReDrawCW6Fields();
  1917.             ReDrawCW7Fields();
  1918.             ReDrawCW8Fields();
  1919.             ReDrawCW9Fields();
  1920.             ReDrawCW10Fields();
  1921.             ReDrawCW11Fields();
  1922.             ReDrawCW15Fields();
  1924.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get All MT6140 control words from register successfully";
  1925.         }
  1926.         break;
  1928.         case METAAPP_FAIL:
  1929.         {
  1930.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get All MT6140 control words from register fail";
  1931.             Application->MessageBox( "Execution Failure : Get All MT6140 control words from register", "FAILURE", MB_OK );
  1932.         }
  1933.         break;
  1935.         case METAAPP_TIMEOUT:
  1936.         {
  1937.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get All MT6140 control words from register timeout";
  1938.             Application->MessageBox( "Execution Timeout : Get All MT6140 control words from register", "TIMEOUT", MB_OK );
  1939.         }
  1940.         break;
  1942.         case METAAPP_STOP:
  1943.         {
  1944.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Get All MT6140 control words from register stop";
  1945.         }
  1946.         break;
  1947.     }
  1949.     CurrentPageReset();
  1950. }
  1952. //---------------------------------------------------------------------------
  1954. void __fastcall TfrmMT6140BReg::btnWriteAllRegClick(TObject *Sender)
  1955. {
  1956.     CurrentPageLock();
  1957.     m_cRF_MT6140BReg_Obj.Set_MT6140CW0( m_sMT6140BCW0 );
  1958.     m_cRF_MT6140BReg_Obj.Set_MT6140CW1( m_sMT6140BCW1 );
  1959.     m_cRF_MT6140BReg_Obj.Set_MT6140CW2( m_sMT6140BCW2 );
  1960.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW3( m_sMT6140BCW3 );
  1961.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW4( m_sMT6140BCW4 );
  1962.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW5( m_sMT6140BCW5 );
  1963.     m_cRF_MT6140BReg_Obj.Set_MT6140CW6( m_sMT6140BCW6 );
  1964.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW7( m_sMT6140BCW7 );
  1965.     m_cRF_MT6140BReg_Obj.Set_MT6140CW8( m_sMT6140BCW8 );
  1966.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW9( m_sMT6140BCW9 );
  1967.     m_cRF_MT6140BReg_Obj.Set_MT6140CW10( m_sMT6140BCW10 );
  1968.     m_cRF_MT6140BReg_Obj.Set_MT6140BCW11( m_sMT6140BCW11 );
  1969.     m_cRF_MT6140BReg_Obj.Set_MT6140CW15( m_sMT6140BCW15 );
  1970.     m_cRF_MT6140BReg_Obj.ConfirmCallback = ::CNF_SetMT6140AllToReg;
  1971.     m_cRF_MT6140BReg_Obj.Set_MT6140AllToReg_Start( m_uiFinalRfid );
  1972.     sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set All MT6140 control words to register progressing";
  1973. }
  1975. //---------------------------------------------------------------------------
  1976. void TfrmMT6140BReg::CNF_SetMT6140AllToReg( void )
  1977. {
  1978.     E_METAAPP_RESULT_T state = m_cRF_MT6140BReg_Obj.Get_ConfirmState();
  1980.     switch( state )
  1981.     {
  1982.         case METAAPP_SUCCESS:
  1983.         {
  1984.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set All MT6140 control words to register successfully";
  1985.         }
  1986.         break;
  1988.         case METAAPP_FAIL:
  1989.         {
  1990.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set All MT6140 control words to register fail";
  1991.             Application->MessageBox( "Execution Failure : Set All MT6140 control words to register", "FAILURE", MB_OK );
  1992.         }
  1993.         break;
  1995.         case METAAPP_TIMEOUT:
  1996.         {
  1997.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set All MT6140 control words to register timeout";
  1998.             Application->MessageBox( "Execution Timeout : Set All MT6140 control words to register", "TIMEOUT", MB_OK );
  1999.         }
  2000.         break;
  2002.         case METAAPP_STOP:
  2003.         {
  2004.             sbMT6140Reg->Panels->Items[0]->Text = (AnsiString) "  Set All MT6140 control words to register stop";
  2005.         }
  2006.         break;
  2007.     }
  2008.     CurrentPageReset();
  2009. }
  2015. void __fastcall TfrmMT6140BReg::HintTimerTimer(TObject *Sender)
  2016. {
  2017.     HintTimer->Enabled = false;
  2018.     lblHint->Visible = false;
  2019. }
  2020. //---------------------------------------------------------------------------