Changeset 25
- Timestamp:
- Oct 9, 2013, 3:48:12 PM (11 years ago)
- Location:
- trunk/XSUCLWF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/XSUCLWF/Cxfel.cpp
r18 r25 224 224 size=1; 225 225 tab_rp_registers[0] = Convert::ToInt16(valNumP->Text); 226 modbus_write_registers(ctx, 2070,size, tab_rp_registers);//NumP226 rc=modbus_write_registers(ctx, 2070,size, tab_rp_registers);//NumP 227 227 if (rc != size) 228 228 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 231 231 tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text); 232 232 tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text); 233 modbus_write_registers(ctx, 2050,size, tab_rp_registers);//NumC1 et NumC2233 rc=modbus_write_registers(ctx, 2050,size, tab_rp_registers);//NumC1 et NumC2 234 234 if (rc != size) 235 235 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 275 275 size=1; 276 276 tab_rp_registers[0] = Convert::ToInt16(valNumP->Text); 277 modbus_write_registers(ctx, 2071,size, tab_rp_registers);//NumP277 rc=modbus_write_registers(ctx, 2071,size, tab_rp_registers);//NumP 278 278 if (rc != size) 279 279 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 282 282 tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text); 283 283 tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text); 284 modbus_write_registers(ctx, 2052,size, tab_rp_registers);//NumC1 et NumC2284 rc=modbus_write_registers(ctx, 2052,size, tab_rp_registers);//NumC1 et NumC2 285 285 if (rc != size) 286 286 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 326 326 size=1; 327 327 tab_rp_registers[0] = Convert::ToInt16(valNumP->Text); 328 modbus_write_registers(ctx, 2072,size, tab_rp_registers);//NumP328 rc=modbus_write_registers(ctx, 2072,size, tab_rp_registers);//NumP 329 329 if (rc != size) 330 330 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 333 333 tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text); 334 334 tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text); 335 modbus_write_registers(ctx, 2054,size, tab_rp_registers);//NumC1 et NumC2335 rc=modbus_write_registers(ctx, 2054,size, tab_rp_registers);//NumC1 et NumC2 336 336 if (rc != size) 337 337 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 377 377 size=1; 378 378 tab_rp_registers[0] = Convert::ToInt16(valNumP->Text); 379 modbus_write_registers(ctx, 2073,size, tab_rp_registers);//NumP379 rc=modbus_write_registers(ctx, 2073,size, tab_rp_registers);//NumP 380 380 if (rc != size) 381 381 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 384 384 tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text); 385 385 tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text); 386 modbus_write_registers(ctx, 2056,size, tab_rp_registers);//NumC1 et NumC2386 rc=modbus_write_registers(ctx, 2056,size, tab_rp_registers);//NumC1 et NumC2 387 387 if (rc != size) 388 388 Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed..."); … … 419 419 Controls->Add(sortirBtn); 420 420 421 /* GroupBox* gbox = new GroupBox();422 gbox->Text = S"name";423 gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels424 gbox->Location = Point(200,90);425 Label* labNumP= new Label();426 labNumP->Location = Point(10, 20);427 labNumP->Size = System::Drawing::Size(50,16);428 labNumP->Text = "Num_P";//zone de texte initialisée429 labNumP->TextAlign = ContentAlignment::MiddleRight;430 gbox->Controls->Add(labNumP);431 Controls->Add(gbox);432 */433 421 pal = new ArrayList(); 434 422 int j=20;//depart affichage … … 438 426 j+=250; 439 427 CGroupBox* gboxPtr = (CGroupBox *) pal->get_Item(indexGroupBox); 440 // gboxPtr->Controls->Add(gboxPtr->GetLabelNumP());441 // gboxPtr->GetGroupBox()->Controls->Add(gboxPtr->GetLabelNumC1());442 // gboxPtr->Controls->Add(gboxPtr->GetLabelNumC2());443 428 Controls->Add(gboxPtr->GetGroupBox()); 444 429 String* str; … … 456 441 AcceptButton = sortirBtn; 457 442 443 //Tp_max 444 labTp_max = new Label(); 445 valTp_max = new TextBox(); 446 labN_cur = new Label(); 447 valN_cur = new ComboBox(); 448 btnAppliquer = new Button(); 449 labTp_max->Location = Point(200,600); 450 labTp_max->Size = System::Drawing::Size(80,16); 451 labTp_max->Text = "Tp_max(h):"; 452 labTp_max->TextAlign = ContentAlignment::MiddleRight; 453 labTp_max->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);; 454 Controls->Add(labTp_max); 455 valTp_max->Location = Point(290,600); 456 valTp_max->Size = System::Drawing::Size(50,20); 457 valTp_max->Text = ""; 458 valTp_max->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);; 459 valTp_max->ForeColor = Color::Blue; 460 Controls->Add(valTp_max); 461 labN_cur->Location = Point(200,625); 462 labN_cur->Size = System::Drawing::Size(80,16); 463 labN_cur->Text = "N_cur:"; 464 labN_cur->TextAlign = ContentAlignment::MiddleRight; 465 labN_cur->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);; 466 Controls->Add(labN_cur); 467 valN_cur->DropDownWidth=121; 468 valN_cur->Location = Point(290,625); 469 valN_cur->Size = System::Drawing::Size(50,121); 470 valN_cur->Items->Add(S"1"); 471 valN_cur->Items->Add(S"2"); 472 valN_cur->Items->Add(S"3"); 473 valN_cur->Items->Add(S"4"); 474 valN_cur->Items->Add(S"5"); 475 valN_cur->Items->Add(S"6"); 476 valN_cur->Items->Add(S"7"); 477 valN_cur->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);; 478 valN_cur->ForeColor = Color::Blue; 479 valN_cur->SelectedIndex = 0;//affiche la 1ere chaine par defaut 480 Controls->Add(valN_cur); 481 btnAppliquer = new Button(); 482 btnAppliquer->Location = Point(350, 600); 483 btnAppliquer->Name = "Bouton Appliquer"; 484 btnAppliquer->Text = "Appliquer"; 485 btnAppliquer->Click += new EventHandler(this, &CDialogConfig::BtnAppliquer_Clicked); 486 Controls->Add(btnAppliquer); 487 458 488 //gestionnnaire associé au bouton OK 459 489 sortirBtn->Click += new EventHandler(this, &CDialogConfig::SortirBtn_Clicked); … … 479 509 Controls->Add(sortirBtn); 480 510 481 /* GroupBox* gbox = new GroupBox();482 gbox->Text = S"name";483 gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels484 gbox->Location = Point(200,90);485 Label* labNumP= new Label();486 labNumP->Location = Point(10, 20);487 labNumP->Size = System::Drawing::Size(50,16);488 labNumP->Text = "Num_P";//zone de texte initialisée489 labNumP->TextAlign = ContentAlignment::MiddleRight;490 gbox->Controls->Add(labNumP);491 Controls->Add(gbox);492 */493 511 pal = new ArrayList(); 494 512 int j=20;//depart affichage … … 498 516 j+=250; 499 517 CGroupBox* gboxPtr = (CGroupBox *) pal->get_Item(indexGroupBox); 500 // gboxPtr->Controls->Add(gboxPtr->GetLabelNumP());501 // gboxPtr->GetGroupBox()->Controls->Add(gboxPtr->GetLabelNumC1());502 // gboxPtr->Controls->Add(gboxPtr->GetLabelNumC2());503 518 Controls->Add(gboxPtr->GetGroupBox()); 504 519 String* str; … … 525 540 Close(); 526 541 } 542 543 void CDialogConfig::BtnAppliquer_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenement associé à la liste deroulante 544 { 545 int nCur=0; 546 547 // String* ps = String::Concat(S"index is ",__box(valN_cur->SelectedIndex)->ToString()); 548 // MessageBox::Show(ps,S"index"); 549 String* ps = __box(valN_cur->SelectedIndex)->ToString(); 550 if(String::Compare(ps,"0")==0) 551 nCur=1; 552 if(String::Compare(ps,"1")==0) 553 nCur=2; 554 if(String::Compare(ps,"2")==0) 555 nCur=3; 556 if(String::Compare(ps,"3")==0) 557 nCur=4; 558 if(String::Compare(ps,"4")==0) 559 nCur=5; 560 if(String::Compare(ps,"5")==0) 561 nCur=6; 562 if(String::Compare(ps,"6")==0) 563 nCur=7; 564 if (getTp_max()!=NULL)//case non vide uniquement 565 { 566 int result = Convert::ToInt16(getTp_max()); 567 if ((result<=0)||(result>=15)) 568 { 569 MessageBox::Show(S"1 heure <= Tp_max <= 14 heures"); 570 return; 571 } 572 Console::WriteLine(S"ecriture Tp_max"); 573 uint16_t tab_rp_registers[1]; 574 int rc; 575 int size; 576 Console::WriteLine(S"CDialogConfig::BtnAppliquer_Clicked : write Tp_max..."); 577 size=1; 578 tab_rp_registers[0] = result; 579 rc=modbus_write_registers(ctx, 2106+(nCur-1),size, tab_rp_registers);//NumP 580 if (rc != size) 581 Console::WriteLine(S"CDialogConfig::BtnAppliquer_Clicked : write Tp_max failed..."); 582 } 583 } 584 585 String* CDialogConfig::getTp_max() 586 { 587 return valTp_max->Text; 588 } 527 589 528 590 … … 547 609 val->Size = System::Drawing::Size(sizeText, 20); 548 610 val->Text = "";//zone de texte initialisée vide 611 val->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);; 612 val->ForeColor = Color::Brown; 549 613 } 550 614 … … 576 640 void CLabelTextBox::SetColor(int value) 577 641 { 578 if(value)642 /* if(value) 579 643 val->BackColor=Color::Red; 580 644 else 581 645 val->BackColor=Color::White; 646 */ 647 if(!value) 648 val->BackColor=Color::White; 649 if(value==1) 650 val->BackColor=Color::Red; 651 if(value==2) 652 val->BackColor=Color::LemonChiffon; 582 653 } 583 654 … … 587 658 // définit les paramètres du formulaire 588 659 Text = S"XSUC - lecture serveur"; 589 FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille 590 Size = System::Drawing::Size(1000,800); 660 // FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille 661 FormBorderStyle = FormBorderStyle::FixedDialog; 662 MaximizeBox = false; 663 MinimizeBox = false; 664 this->ControlBox=false; 665 Size = System::Drawing::Size(1250,800); 591 666 592 667 // Creation de controle … … 611 686 EcritureBtn->Name = "Bouton Ecriture"; 612 687 EcritureBtn->Text = "Ecriture"; 613 EcritureBtn->DialogResult = DialogResult::OK; 688 // EcritureBtn->DialogResult = DialogResult::OK;//sinon fermera aussi la fenetre parente 614 689 615 690 // Ajoute les controles dans le formaulaire … … 641 716 Controls->Add(cltbPtr->GetTextBox()); 642 717 } 718 643 719 Setup_Group_Conditionning(); 720 644 721 // Mode tt seul 645 722 pal->Add(new CLabelTextBox("MODE",20,100,50,16,75)); … … 647 724 Controls->Add(cltbPtr->GetLabel()); 648 725 Controls->Add(cltbPtr->GetTextBox()); 726 727 //sauve l'index condionning 728 indexTextBoxSave=indexTextBox;//04-07-2013 : nouveaux controles 729 // Ln 730 // Ln tt seul 731 Label* ln= new Label(); 732 ln->Location = Point(950, 300); 733 ln->Size = System::Drawing::Size(70,16); 734 ln->Text = nameLab_5[1];//zone de texte initialisée 735 ln->TextAlign = ContentAlignment::MiddleCenter; 736 Controls->Add(ln); 737 int j=0; 738 for (;indexTextBox<(indexTextBoxSave+8);indexTextBox++)//creation des controles dans le formulaire 739 { 740 int posX=850;int posY=300; 741 int sizeText=70; 742 pal->Add(new CLabelTextBox(nameLab_6[indexTextBox-indexTextBoxSave],posX,posY+(j+=20),100,16,sizeText)); 743 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 744 Controls->Add(cltbPtr->GetLabel()); 745 Controls->Add(cltbPtr->GetTextBox()); 746 // Console::WriteLine(indexTextBox); 747 // Console::WriteLine(posX); 748 // Console::WriteLine(posY); 749 } 750 751 //sauve l'index condionning 752 indexTextBoxSave=indexTextBox;//04-07-2013 : nouveaux controles 753 //Tp_max 754 //Tp_max tt seul 755 Label* tp_max= new Label(); 756 tp_max->Location = Point(1050, 300); 757 tp_max->Size = System::Drawing::Size(70,16); 758 tp_max->Text = nameLab_5[2];//zone de texte initialisée 759 tp_max->TextAlign = ContentAlignment::MiddleCenter; 760 Controls->Add(tp_max); 761 j=0; 762 for (;indexTextBox<(indexTextBoxSave+7);indexTextBox++)//creation des controles dans le formulaire 763 { 764 int posX=950;int posY=300; 765 int sizeText=70; 766 pal->Add(new CLabelTextBox(nameLab_6[indexTextBox-indexTextBoxSave],posX,posY+(j+=20),100,16,sizeText)); 767 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 768 Controls->Add(cltbPtr->GetLabel()); 769 Controls->Add(cltbPtr->GetTextBox()); 770 // Console::WriteLine(indexTextBox); 771 // Console::WriteLine(posX); 772 // Console::WriteLine(posY); 773 } 774 775 //sauve l'index condionning 776 indexTextBoxSave=indexTextBox;//04-07-2013 : nouveaux controles 777 //Pi_max 778 //Pi_max tt seul 779 Label* pi_max= new Label(); 780 pi_max->Location = Point(1150, 300); 781 pi_max->Size = System::Drawing::Size(70,16); 782 pi_max->Text = nameLab_5[3];//zone de texte initialisée 783 pi_max->TextAlign = ContentAlignment::MiddleCenter; 784 Controls->Add(pi_max); 785 j=0; 786 for (;indexTextBox<(indexTextBoxSave+8);indexTextBox++)//creation des controles dans le formulaire 787 { 788 int posX=1050;int posY=300; 789 int sizeText=70; 790 pal->Add(new CLabelTextBox(nameLab_6[indexTextBox-indexTextBoxSave],posX,posY+(j+=20),100,16,sizeText)); 791 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 792 Controls->Add(cltbPtr->GetLabel()); 793 Controls->Add(cltbPtr->GetTextBox()); 794 // Console::WriteLine(indexTextBox); 795 // Console::WriteLine(posX); 796 // Console::WriteLine(posY); 797 } 798 799 // ERREUR tt seul 800 //sauve l'index condionning 801 indexTextBoxSave=indexTextBox;//04-07-2013 : nouveaux controles 802 for (;indexTextBox<(indexTextBoxSave+1);indexTextBox++)//creation des controles dans le formulaire 803 { 804 int sizeText=100; 805 pal->Add(new CLabelTextBox("Erreur",900,550,100,16,sizeText)); 806 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 807 Controls->Add(cltbPtr->GetLabel()); 808 Controls->Add(cltbPtr->GetTextBox()); 809 } 810 649 811 650 812 //configure les 2 propriétés : AcceptButton contient la réf du bouton par défaut du formulaire.. … … 676 838 void MaDialogUser::OKMaDBtn_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue 677 839 { 678 //fermer le formulaire lorsqu'on clique sur le bouton 840 //arrete le lecture si activée et fermer le formulaire lorsqu'on clique sur le bouton 841 if ((uThread!=NULL)&&(uThread->IsAlive)) 842 { 843 // Stop the thread. 844 uThread->Suspend(); 845 uThread=NULL; 846 } 679 847 Close(); 680 848 } … … 732 900 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 733 901 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[42])); 902 cltbPtr->SetColor(2); 734 903 //P_cde : float32 735 904 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 736 905 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,43))); 906 cltbPtr->SetColor(2); 737 907 //Pp : float32 738 908 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); … … 747 917 //N_cur : ui16 748 918 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 749 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[27])); 919 if (tab_rp_registers_low[27]==(NB_ETAPES-4))//N_cur s'arrete a 8 920 cltbPtr->SetVal("Balayage..."); 921 else 922 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[27])); 923 cltbPtr->SetColor(2); 750 924 751 925 //SVd : ui16 … … 765 939 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 766 940 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[37])); 941 cltbPtr->SetColor(2); 767 942 //Pic : float32 768 943 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); … … 771 946 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 772 947 cltbPtr->SetVal(Convert::ToString((tab_rp_registers_low[40]<<16)+(tab_rp_registers_low[41]))); 948 cltbPtr->SetColor(2); 773 949 774 950 //SVil : ui16 … … 788 964 cltbPtr->SetColor(1); 789 965 else 790 cltbPtr->SetColor( 0);966 cltbPtr->SetColor(2); 791 967 //Nil : ui16 792 968 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 793 969 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[30])); 970 if(tab_rp_registers_low[30])//echec changer couleur 971 cltbPtr->SetColor(1); 972 else 973 cltbPtr->SetColor(2); 794 974 //Nil_stat : ui16 795 975 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 796 976 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[31])); 977 cltbPtr->SetColor(2); 797 978 //P_last : float32 798 979 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 799 980 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,32))); 981 cltbPtr->SetColor(2); 800 982 //N_last : ui16 801 983 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 802 984 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[34])); 985 cltbPtr->SetColor(2); 803 986 //DPil : float32 804 987 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); … … 810 993 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 811 994 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[indexMbArray])); 995 cltbPtr->SetColor(2); 812 996 } 813 997 … … 817 1001 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 818 1002 cltbPtr->SetVal(Convert::ToString(tab_rp_bits[indexMbArray])); 819 if(!tab_rp_bits[indexMbArray])//echec changer couleur1003 /* if(!tab_rp_bits[indexMbArray])//echec changer couleur 820 1004 cltbPtr->SetColor(1); 821 1005 else 822 1006 cltbPtr->SetColor(0); 823 }1007 */ } 824 1008 825 1009 //Temp_cond : tab ui16 … … 828 1012 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 829 1013 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[indexMbArray])); 1014 cltbPtr->SetColor(2); 830 1015 } 831 1016 832 1017 //status : ui16 833 1018 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 1019 cltbPtr->SetColor(2); 834 1020 if (tab_rp_registers_low[49] != 4)//on n'est pas ds le mode pulsing 835 1021 { … … 877 1063 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 878 1064 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[47])); 1065 cltbPtr->SetColor(2); 879 1066 880 1067 Thread::Sleep(500); … … 897 1084 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 898 1085 cltbPtr->SetVal(str); 1086 cltbPtr->SetColor(2); 899 1087 String* strHD[] = { 900 1088 Convert::ToString(tab_rp_registers_high[87]), … … 906 1094 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 907 1095 cltbPtr->SetVal(str); 1096 cltbPtr->SetColor(2); 908 1097 909 1098 //DateF HeureF : tab ui16 … … 917 1106 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 918 1107 cltbPtr->SetVal(str); 1108 cltbPtr->SetColor(2); 919 1109 String* strHF[] = { 920 1110 Convert::ToString(tab_rp_registers_high[93]), … … 926 1116 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 927 1117 cltbPtr->SetVal(str); 1118 cltbPtr->SetColor(2); 928 1119 929 1120 //Vides : tab ui16 … … 932 1123 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 933 1124 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_high[indexMbArray])); 1125 cltbPtr->SetColor(2); 934 1126 } 935 1127 … … 939 1131 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 940 1132 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray))); 1133 cltbPtr->SetColor(2); 941 1134 } 942 1135 … … 946 1139 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 947 1140 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray))); 1141 cltbPtr->SetColor(2); 948 1142 } 949 1143 … … 953 1147 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 954 1148 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray))); 1149 cltbPtr->SetColor(2); 955 1150 } 956 1151 … … 960 1155 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 961 1156 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,indexMbArray))); 1157 cltbPtr->SetColor(2); 962 1158 } 963 1159 … … 967 1163 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 968 1164 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[indexMbArray])); 1165 cltbPtr->SetColor(2); 969 1166 } 970 1167 … … 991 1188 break; 992 1189 } 993 // 994 // 1190 1191 //Ln : tab ui16 1192 for (int indexMbArray=0;indexMbArray<8;indexMbArray++) 1193 { 1194 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 1195 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_high[indexMbArray])); 1196 } 1197 1198 //Tp_max : tab ui16 1199 for (int indexMbArray=24;indexMbArray<31;indexMbArray++) 1200 { 1201 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 1202 cltbPtr->SetVal(Convert::ToString(tab_rp_registers_high[indexMbArray])); 1203 } 1204 1205 //Pi_max : tab float32 1206 for (int indexMbArray=36;indexMbArray<52;indexMbArray+=2) 1207 { 1208 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 1209 cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray))); 1210 } 1211 1212 //Erreur : ui16 1213 cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++); 1214 switch (tab_rp_registers_low[29]){//Erreur 1215 case 1: 1216 cltbPtr->SetVal("erreur 1"); 1217 cltbPtr->SetColor(1); 1218 break; 1219 case 2: 1220 cltbPtr->SetVal("erreur 2"); 1221 cltbPtr->SetColor(1); 1222 break; 1223 case 3: 1224 cltbPtr->SetVal("erreur 3"); 1225 cltbPtr->SetColor(1); 1226 break; 1227 case 4: 1228 cltbPtr->SetVal("erreur 4"); 1229 cltbPtr->SetColor(1); 1230 break; 1231 case 5: 1232 cltbPtr->SetVal("erreur 5"); 1233 cltbPtr->SetColor(1); 1234 break; 1235 case 6: 1236 cltbPtr->SetVal("erreur 6"); 1237 cltbPtr->SetColor(1); 1238 break; 1239 case 7: 1240 cltbPtr->SetVal("erreur 7"); 1241 cltbPtr->SetColor(1); 1242 break; 1243 default: 1244 cltbPtr->SetVal("pas d'erreur"); 1245 cltbPtr->SetColor(0); 1246 break; 1247 } 995 1248 } 996 1249 } … … 1000 1253 // Creation 1001 1254 gbox = new GroupBox(); 1002 gbox->Text = S" enablelecture";1255 gbox->Text = S"lecture"; 1003 1256 gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels 1004 1257 gbox->Location = Point(200, 90); … … 1043 1296 Controls->Add(num_C); 1044 1297 int j=60;//depart affichage 1045 // for (int i=0;indexTextBox<34;indexTextBox++,i++,j+=80)//creation des controles dans le formulaire 1046 for (int i=0;i<NB_COUPLEURS;indexTextBox++,i++,j+=80)//creation des controles dans le formulaire 1298 /* for (int i=0;i<NB_COUPLEURS;indexTextBox++,i++,j+=80)//creation des controles dans le formulaire 1047 1299 { 1048 1300 int posX=70; 1049 1301 pal->Add(new CLabelTextBox(nameLab_2[i],posX+j,390,25,16,50)); 1302 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 1303 Controls->Add(cltbPtr->GetLabel()); 1304 Controls->Add(cltbPtr->GetTextBox()); 1305 } 1306 */ 1307 int posX; 1308 for (int i=0;i<NB_COUPLEURS;indexTextBox++,i++)//creation des controles dans le formulaire 1309 { 1310 switch (i) 1311 { 1312 case 0:posX=120;break; 1313 case 1:posX=190;break; 1314 case 2:posX=300;break; 1315 case 3:posX=370;break; 1316 case 4:posX=480;break; 1317 case 5:posX=550;break; 1318 case 6:posX=660;break; 1319 case 7:posX=730;break; 1320 } 1321 Console::WriteLine(posX); 1322 pal->Add(new CLabelTextBox(nameLab_2[i],posX,390,25,16,50)); 1050 1323 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 1051 1324 Controls->Add(cltbPtr->GetLabel()); … … 1059 1332 stat_C->Text = "Stat_C";//zone de texte initialisée 1060 1333 stat_C->TextAlign = ContentAlignment::MiddleRight; 1061 Controls->Add(stat_C);1334 //4-07-13 Controls->Add(stat_C); 1062 1335 j=20;//depart affichage 1063 1336 // for (int i=0;indexTextBox<46;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire … … 1067 1340 pal->Add(new CLabelTextBox(Convert::ToString(i+1),posX+j,630,25,16,20)); 1068 1341 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 1069 Controls->Add(cltbPtr->GetLabel());1070 Controls->Add(cltbPtr->GetTextBox());1342 //4-07-13 Controls->Add(cltbPtr->GetLabel()); 1343 //4-07-13 Controls->Add(cltbPtr->GetTextBox()); 1071 1344 } 1072 1345 1073 1346 // Temp_cond label tt seul 1074 1347 Label* temp_cond= new Label(); 1075 temp_cond->Location = Point(50, 6 70);1076 temp_cond->Size = System::Drawing::Size( 70,16);1077 temp_cond->Text = "Temp_cond ";//zone de texte initialisée1348 temp_cond->Location = Point(50, 665); 1349 temp_cond->Size = System::Drawing::Size(65,32); 1350 temp_cond->Text = "Temp_cond (min)";//zone de texte initialisée 1078 1351 temp_cond->TextAlign = ContentAlignment::MiddleRight; 1079 1352 Controls->Add(temp_cond); 1080 1353 j=20;//depart affichage 1081 // for (int i=0;indexTextBox<58;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire1082 1354 for (int i=0;i<NB_ETAPES;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire 1083 1355 { … … 1085 1357 pal->Add(new CLabelTextBox(Convert::ToString(i+1),posX+j,670,25,16,40)); 1086 1358 CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox); 1087 Controls->Add(cltbPtr->GetLabel()); 1088 Controls->Add(cltbPtr->GetTextBox()); 1359 if (i<8)//7 etapes et 1 balayage 1360 { 1361 Controls->Add(cltbPtr->GetLabel()); 1362 Controls->Add(cltbPtr->GetTextBox()); 1363 } 1089 1364 } 1090 1365 … … 1237 1512 Controls->Add(cltbPtr->GetTextBox()); 1238 1513 } 1239 1514 /* 1240 1515 // crée un objet graphique 1241 1516 Graphics* pg = this->CreateGraphics(); … … 1246 1521 //dispose l'objet Graphics 1247 1522 pg->Dispose(); 1248 1523 */ 1249 1524 // ajout du groupe dans le formulaire. 1250 1525 Controls->Add(gboxC); … … 1282 1557 btnPause->Size = System::Drawing::Size(70, 20); 1283 1558 btnPause->Location = Point(230, 720); 1284 btnPause->Click += new EventHandler(this, &MaDialogUser::BtnPause_Clicked);1285 Controls->Add(btnPause);1559 // btnPause->Click += new EventHandler(this, &MaDialogUser::BtnPause_Clicked); 1560 // Controls->Add(btnPause); 1286 1561 1287 1562 // idem bouton REPRISE … … 1302 1577 // Create the thread, passing a ThreadStart delegate that 1303 1578 // represents the ThreadReadModbus::ThreadProc method. 1304 uThread = new Thread(new ThreadStart(0, &MaDialogUser::ThreadProc)); 1305 // Start the thread. 1306 uThread->Start(); 1579 if (uThread==NULL) 1580 { 1581 uThread = new Thread(new ThreadStart(0, &MaDialogUser::ThreadProc)); 1582 // Start the thread. 1583 uThread->Start(); 1584 } 1307 1585 } 1308 1586 else if (pSender == rb2) 1309 1587 { 1310 1588 Console::WriteLine(S"MaDialogUser::Radio_Clicked : lecture désactivée..."); 1311 if ( uThread->IsAlive)1589 if ((uThread!=NULL)&&(uThread->IsAlive)) 1312 1590 { 1313 1591 // Stop the thread. 1314 1592 uThread->Suspend(); 1593 uThread=NULL; 1315 1594 } 1316 1595 } … … 1407 1686 1408 1687 void AboutBox::OKButton_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue 1409 { 1410 1411 //se contente de fermer le formulaire lorsqu'on clique sur le bouton 1412 Close(); 1413 } 1414 1415 void MaDialog::OKMaDBtn_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue 1416 { 1417 //fermer le formulaire lorsqu'on clique sur le bouton 1418 Close(); 1419 } 1688 { 1689 //se contente de fermer le formulaire lorsqu'on clique sur le bouton 1690 Close(); 1691 } 1420 1692 1421 1693 AboutBox::AboutBox()//constructeur … … 1518 1790 // bouton Cancel 1519 1791 CancelBtn->Location = Point(192, 136); 1520 CancelBtn->Name = "Bouton Cancel";1792 CancelBtn->Name = "Bouton Annuler"; 1521 1793 CancelBtn->Text = "Annuler"; 1522 1794 CancelBtn->DialogResult = DialogResult::Cancel; … … 1543 1815 } 1544 1816 1817 void MaDialog::OKMaDBtn_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue 1818 { 1819 //se contente de fermer le formulaire lorsqu'on clique sur le bouton 1820 Close(); 1821 } 1822 1545 1823 void MaDialog::setIp(String* theIp) 1546 1824 { … … 1601 1879 void CppForm::Btn1_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 1 1602 1880 { 1603 MessageBox::Show(S"ça marche!", S" Message...");//MessageBox fait partie de l'espace de noms Forms1881 MessageBox::Show(S"ça marche!", S"A FAIRE...");//MessageBox fait partie de l'espace de noms Forms 1604 1882 //unique methode Show surchargée acceptant differents parametres 1605 1883 } 1606 1884 1607 1608 1885 void CppForm::Btn2_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 2 1609 1886 { 1610 MessageBox::Show(S"ça marche aussi!", S" Message...");//MessageBox fait partie de l'espace de noms Forms1887 MessageBox::Show(S"ça marche aussi!", S"A FAIRE...");//MessageBox fait partie de l'espace de noms Forms 1611 1888 //unique methode Show surchargée acceptant differents parametres 1612 1889 } … … 1614 1891 void CppForm::Btn3_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 3 1615 1892 { 1616 MessageBox::Show(S"connexion et lecture serveur", S" Message...");//MessageBox fait partie de l'espace de noms Forms1893 MessageBox::Show(S"connexion et lecture serveur", S"A FAIRE...");//MessageBox fait partie de l'espace de noms Forms 1617 1894 //unique methode Show surchargée acceptant differents parametres 1618 1895 } … … 1673 1950 { 1674 1951 //affiche la boite de dialogue modale qui doit etre fermée avant de pouvoir revenir à l'application 1675 MessageBox::Show(S"ITEM à propos", S"Menu");1952 // MessageBox::Show(S"ITEM à propos", S"Menu"); 1676 1953 AboutBox* box = new AboutBox(); 1677 1954 box->ShowDialog(); … … 1700 1977 String* line = sr->ReadLine(); 1701 1978 box->setIp(line); 1979 sr->Close; 1980 fs->Flush(); 1981 fs->Close(); 1702 1982 } 1703 1983 catch (System::Exception* pe) … … 1708 1988 box->setPort(S"502"); 1709 1989 box->setTimeout(1); 1990 1710 1991 //affiche la boite de dialogue 1711 1992 if (box->ShowDialog() == DialogResult::OK) 1712 1993 { 1713 1994 //si la valeur OK est renvoyée, on affiche le nom 1714 MessageBox::Show(box->getIp(), S" le n° IP était...");1995 MessageBox::Show(box->getIp(), S"IP du serveur"); 1715 1996 } 1716 1997 … … 1728 2009 { 1729 2010 //si la valeur OK est renvoyée, on affiche le nom 1730 MessageBox::Show(S"Lecture");2011 // MessageBox::Show(S"Lecture"); 1731 2012 } 1732 2013 } … … 1753 2034 StreamReader* sr = new StreamReader(fs); 1754 2035 lineIp = sr->ReadLine(); 2036 sr->Close; 2037 fs->Flush(); 2038 fs->Close(); 1755 2039 } 1756 2040 catch (System::Exception* pe) … … 1898 2182 Controls->Add(btn4);//.. 1899 2183 //.. 1900 1901 2184 } 1902 2185 … … 2028 2311 // Cree les elements du menu et les affiche. 2029 2312 item1 = new MenuItem("&A propos..."); 2030 item11 = new MenuItem("& MaDialogBox...");2313 item11 = new MenuItem("&Choisir Serveur..."); 2031 2314 fontDlgItem = new MenuItem("&Choisir la police..."); 2032 2315 item2 = new MenuItem("S&ortie"); … … 2076 2359 2077 2360 text1->ReadOnly = true; 2078 text1->Text = "Pour se connecter au Serveur : cliquer sur le bouton Connexion \r\n\r\n" 2079 "Pour configurer des paramètres : cliquer sur le bouton Ecriture \r\n\r\n"; 2361 // text1->Text = "Pour se connecter au Serveur : cliquer sur le bouton Connexion \r\n\r\n" 2362 // "Pour configurer des paramètres : cliquer sur le bouton Ecriture \r\n\r\n"; 2363 text1->Text = "Pour se connecter au Serveur : dans le menu 'Action', cliquer sur 'Faire' puis sur 'connexion serveur'.\r\n\r\n" 2364 "on peut alors accéder aux paramètres : dans le menu 'Action', cliquer sur 'Faire' puis sur 'lecture serveur'\r\n\r\n" 2365 "ou bien configurer des paramètres : cliquer sur le bouton Ecriture \r\n\r\n"; 2080 2366 2081 2367 -
trunk/XSUCLWF/cxfel.h
r18 r25 76 76 CDialogConfig(); 77 77 CDialogConfig(uint16_t *tab_rp_registers_low,uint16_t *tab_rp_registers_high); 78 String* getTp_max(); 78 79 79 80 protected ://privé sauf au niveau des classes dérivées … … 88 89 static ArrayList* pal; 89 90 91 Label* labTp_max; 92 TextBox* valTp_max; 93 Label* labN_cur; 94 ComboBox* valN_cur; 95 Button* btnAppliquer; 96 90 97 private: 91 98 void SortirBtn_Clicked(Object* pSender,EventArgs* pArgs);//gestionnaire d'evenement de la boite dialogue 99 void BtnAppliquer_Clicked(Object* pSender,EventArgs* pArgs);//gestionnaire d'evenement de la boite dialogue 92 100 }; 93 101 … … 119 127 protected ://privé sauf au niveau des classes dérivées 120 128 String* name; 121 static String* nameLab_1[] = { "dtp( ms)","dt(sec)","dP(dB)","dPSecu(dB)","Nbal",129 static String* nameLab_1[] = { "dtp(sec)","dt(sec)","dP(dB)","dPSecu(dB)","Nbal", 122 130 "P_cde(dBm)","Pp(kW)","Nbal_max","Fr(Hz)","N_cur", 123 "SVd ","SVfin","SV1","SV2","V_cur(10-9mbar)",124 "Pi ck(kW)","Timer","SVil(10-9mbar)","Sleil(mA)","STc(°C)",131 "SVd(10-9mbar)","SVfin(10-9mbar)","SV1(10-9mbar)","SV2(10-9mbar)","V_cur(10-9mbar)", 132 "Pi_min(kW)","Timer(min)","SVil(10-9mbar)","Sleil(mA)","STc(°C)", 125 133 "Eil","Nil","Nil_stat","P_last(dBm)","N_last","dPil(dB)"}; 126 134 … … 131 139 static String* nameLab_4[] = {"a","a","a","b","b","b","c","c","c","d","d","d" }; 132 140 141 static String* nameLab_5[] = {"N_cur","Ln(us)","Tp_max(h)","Pi_max(kW)"}; 142 143 static String* nameLab_6[] = {"1","2","3","4","5","6","7","8"}; 144 133 145 int indexTextBox;//nb de TextBox 146 int indexTextBoxSave;//nb de TextBox après conditionning 134 147 135 148 private://données avec controle, label, bouton OK, textBox...
Note: See TracChangeset
for help on using the changeset viewer.