diff --git a/Notice d'utilisation des signaux_complexes_GL_V8.2.pdf b/Notice d'utilisation des signaux_complexes_GL_V8.2.pdf index 062c1e0..68b3f59 100644 Binary files a/Notice d'utilisation des signaux_complexes_GL_V8.2.pdf and b/Notice d'utilisation des signaux_complexes_GL_V8.2.pdf differ diff --git a/Signaux_complexes_GL.cfg b/Signaux_complexes_GL.cfg index 8d97c47..bcc5ab2 100644 --- a/Signaux_complexes_GL.cfg +++ b/Signaux_complexes_GL.cfg @@ -14,8 +14,8 @@ -$N+ -$O- -$P+ --$Q- --$R- +-$Q+ +-$R+ -$S- -$T- -$U- diff --git a/Signaux_complexes_GL.dof b/Signaux_complexes_GL.dof index 124f86c..39f4338 100644 --- a/Signaux_complexes_GL.dof +++ b/Signaux_complexes_GL.dof @@ -17,8 +17,8 @@ M=0 N=1 O=0 P=1 -Q=0 -R=0 +Q=1 +R=1 S=0 T=0 U=0 diff --git a/Signaux_complexes_GL.map b/Signaux_complexes_GL.map index 3a6f084..ffd4ae2 100644 --- a/Signaux_complexes_GL.map +++ b/Signaux_complexes_GL.map @@ -1,8 +1,8 @@ Start Length Name Class - 0001:00000000 00178F28H .text CODE + 0001:00000000 00179218H .text CODE 0002:00000000 00002BF4H .data DATA - 0002:00002BF4 041A0599H .bss BSS + 0002:00002BF4 041A059DH .bss BSS Detailed map of segments @@ -93,12 +93,12 @@ Detailed map of segments 0001:000EDAE4 000027D4 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9 0001:000F02B8 000015C7 C=CODE S=.text G=(none) M=verif_version ACBP=A9 0001:000F1880 0000114C C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9 - 0001:000F29CC 0003DA68 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9 - 0001:00130434 00002904 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9 - 0001:00132D38 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9 - 0001:00133938 00002558 C=CODE S=.text G=(none) M=Unitplace ACBP=A9 - 0001:00135E90 00042C08 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9 - 0001:00178A98 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9 + 0001:000F29CC 0003DCC8 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9 + 0001:00130694 00002904 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9 + 0001:00132F98 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9 + 0001:00133B98 00002558 C=CODE S=.text G=(none) M=Unitplace ACBP=A9 + 0001:001360F0 00042C98 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9 + 0001:00178D88 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9 0002:00000000 000000CC C=DATA S=.data G=DGROUP M=System ACBP=A9 0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9 @@ -217,11 +217,11 @@ Detailed map of segments 0002:00049A30 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9 0002:00049A44 00000014 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9 0002:00049A58 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9 - 0002:00049A5C 00000398 C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9 - 0002:00049DF4 00000028 C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9 - 0002:00049E1C 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9 - 0002:00049E28 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9 - 0002:00049E30 04159768 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9 + 0002:00049A5C 0000039C C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9 + 0002:00049DF8 00000028 C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9 + 0002:00049E20 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9 + 0002:00049E2C 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9 + 0002:00049E34 04159768 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9 Bound resource files @@ -247,4 +247,4 @@ Signaux_complexes_GL.res Signaux_complexes_GL.drf -Program entry point at 0001:00178DA8 +Program entry point at 0001:00179098 diff --git a/UnitConfig.dfm b/UnitConfig.dfm index 5eb8a19..fd9069b 100644 --- a/UnitConfig.dfm +++ b/UnitConfig.dfm @@ -2326,7 +2326,7 @@ object FormConfig: TFormConfig Width = 129 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 1 OnChange = ComboBoxDecChange end @@ -2433,7 +2433,7 @@ object FormConfig: TFormConfig Width = 129 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 2 OnChange = ComboBoxAspChange end @@ -2719,7 +2719,7 @@ object FormConfig: TFormConfig Top = 56 Width = 193 Height = 21 - ItemHeight = 0 + ItemHeight = 13 TabOrder = 0 OnChange = ComboBoxDecodeurPersoChange end @@ -2738,7 +2738,7 @@ object FormConfig: TFormConfig Width = 145 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 2 OnChange = ComboBoxNationChange end @@ -3139,7 +3139,7 @@ object FormConfig: TFormConfig Width = 169 Height = 21 Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "accessoires COM/USB"' - ItemHeight = 0 + ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 6 @@ -4228,7 +4228,7 @@ object FormConfig: TFormConfig end end object TabSheetAccessoires: TTabSheet - Caption = 'Accessoires COM/USB' + Caption = 'P'#233'riph'#233'riques COM/USB' ImageIndex = 9 object Label73: TLabel Left = 8 @@ -4291,9 +4291,9 @@ object FormConfig: TFormConfig object Label71: TLabel Left = 10 Top = 32 - Width = 95 + Width = 98 Height = 13 - Caption = 'Nom de l'#39'accessoire' + Caption = 'Nom du p'#233'riph'#233'rique' end object Label72: TLabel Left = 10 @@ -4307,7 +4307,7 @@ object FormConfig: TFormConfig Top = 24 Width = 121 Height = 21 - Hint = 'Nom de l'#39'accessoire' + Hint = 'Nom au choix du p'#233'riph'#233'rique' ParentShowHint = False ShowHint = True TabOrder = 0 diff --git a/UnitConfig.pas b/UnitConfig.pas index f45c4cc..c344bd9 100644 --- a/UnitConfig.pas +++ b/UnitConfig.pas @@ -655,7 +655,6 @@ section_placement_ch='[section_placement]'; section_DecPers_ch='[section_decodeurs]'; section_accCOM_ch='[section_accCOMUSB]'; - var FormConfig: TFormConfig; AdresseIPCDM,AdresseIP,PortCom,portComCde,recuCDM,residuCDM,trainsauve : string; @@ -674,7 +673,7 @@ var // composants dynamiques Gp1 : TGroupBox; - Cb1,Cb2,Cb3 : TCheckBox; + Cb1,Cb2,Cb3,CbVis : TCheckBox; EditT : Array[1..10] of Tedit; ComboL1,ComboL2,ComboTS1,ComboTS2 : Array[1..10] of TComboBox; ShapeT : array[1..10] of TShape; @@ -925,7 +924,7 @@ begin if Tablo_acc_COMUSB[index].ScvAig then s:=s+',1' else s:=s+',0'; if Tablo_acc_COMUSB[index].ScvDet then s:=s+',1' else s:=s+',0'; if Tablo_acc_COMUSB[index].ScvAct then s:=s+',1' else s:=s+',0'; - + if Tablo_acc_COMUSB[index].ScvVis then s:=s+',1' else s:=s+',0'; result:=s; end; @@ -2855,6 +2854,11 @@ var s,sa,SOrigine: string; val(sa,i,erreur); Tablo_acc_COMUSB[NbAcc_USBCOM].ScvAct:=i=1; + i:=pos(',',sa);Delete(sa,1,i); + val(sa,i,erreur); + Tablo_acc_COMUSB[NbAcc_USBCOM].ScvVis:=i=1; + + end; NbreComCde:=NbAcc_USBCOM; until (sOrigine='0') or (NbAcc_USBCOM>=NbAccMaxi_USBCOM); @@ -4148,10 +4152,11 @@ begin if clicliste or (ligneClicAccCOM<0) then exit; cb:=(sender as Tcheckbox); s := cb.Name; - //Affiche(s,clyellow); + Affiche(s,clyellow); if pos('Aig',s)<>0 then Tablo_acc_COMUSB[ligneClicAccCOM+1].ScvAig:=cb.Checked; if pos('Det',s)<>0 then Tablo_acc_COMUSB[ligneClicAccCOM+1].ScvDet:=cb.Checked; if pos('Act',s)<>0 then Tablo_acc_COMUSB[ligneClicAccCOM+1].ScvAct:=cb.Checked; + if pos('Vis',s)<>0 then Tablo_acc_COMUSB[ligneClicAccCOM+1].ScvVis:=cb.Checked; s:=encode_AccCOM(ligneClicAccCOM+1); ListBoxAcc.Items[ligneClicAccCOM]:=s; @@ -4489,6 +4494,18 @@ begin onclick:=formconfig.cb_onclick; end; + cbVis:=TCheckBox.Create(FormConfig.TabSheetAccessoires); + with cbVis do + begin + Left:=110;Top:=45;Width:=100;Height:=12; + caption:='Mode visible'; + name:='cbVis'; + parent:=gp1; + hint:='Affiche le texte à l''écran lors de l''envoi'; + ShowHint:=true; + onclick:=formconfig.cb_onclick; + end; + {if FileExists('Image_Signaux.jpg') then ImageSignaux.Picture.LoadFromFile('Image_Signaux.jpg') else @@ -4546,6 +4563,7 @@ begin cb1.Checked:=Tablo_acc_COMUSB[index].ScvAig; cb2.Checked:=Tablo_acc_COMUSB[index].ScvDet; cb3.Checked:=Tablo_acc_COMUSB[index].ScvAct; + cbVis.Checked:=Tablo_acc_COMUSB[index].ScvVis; clicliste:=false; end; @@ -4872,7 +4890,7 @@ begin GroupBoxAct.Caption:='Action pour commande sur COM/USB'; LabelTempo.Visible:=true; EditTempo.visible:=true; editEtatFoncSortie.visible:=false;LabelA.Visible:=false; LabelFonction.visible:=true; - LabelFonction.caption:='Accessoire COM/USB'; + LabelFonction.caption:='Périphérique COM/USB'; LabelFonction.Top:=18; ComboBoxAccComUSB.Top:=32; diff --git a/UnitPrinc.pas b/UnitPrinc.pas index da598f5..05308ac 100644 --- a/UnitPrinc.pas +++ b/UnitPrinc.pas @@ -562,7 +562,7 @@ var Tablo_com_cde : array[1..10] of record portOuvert: boolean; - NumAcc: integer; // numéro accessoire tableau tablo_acc_comusb + NumAcc: integer; // numéro périphérique tableau tablo_acc_comusb tamponRx : string; end; @@ -597,7 +597,7 @@ var Tablo_acc_COMUSB : array[1..NbAccMaxi_USBCOM] of record nom : string; NumCom : integer; // numéro de port COM - ScvAig,ScvDet,ScvAct : boolean ; // services + ScvAig,ScvDet,ScvAct,ScvVis : boolean ; // services end; // tableau des croisement rencontrés par la fonction suivant_alg3 @@ -10298,14 +10298,17 @@ begin if (adr>650) then for i:=1 to NbAcc_USBCOM do begin - // envoyer event det à accessoire - if Tablo_acc_COMUSB[i].ScvAct then + if tablo_com_cde[i].portOuvert then begin - s:='A'+intToSTR(adr)+','+intToSTR(etat)+','+trainDecl; - if avecCR=1 then s:=s+#13; - Affiche(s,clOrange); - if i=1 then Formprinc.MSCommCde1.Output:=s; - if i=2 then Formprinc.MSCommCde2.Output:=s; + // envoyer event det à accessoire + if Tablo_acc_COMUSB[i].ScvAct then + begin + s:='A'+intToSTR(adr)+','+intToSTR(etat)+','+trainDecl; + if avecCR=1 then s:=s+#13; + if Tablo_acc_COMUSB[i].ScvVis then Affiche(s,clWhite); + if i=1 then Formprinc.MSCommCde1.Output:=s; + if i=2 then Formprinc.MSCommCde2.Output:=s; + end; end; end; @@ -10500,7 +10503,7 @@ begin begin s:='D'+intToSTR(adresse)+','+intToSTR(etat01)+','+train; if avecCR=1 then s:=s+#13; - Affiche(s,clOrange); + if Tablo_acc_COMUSB[i].ScvVis then Affiche(s,clOrange); if i=1 then Formprinc.MSCommCde1.Output:=s; if i=2 then Formprinc.MSCommCde2.Output:=s; end; @@ -10599,7 +10602,7 @@ begin begin s:='T'+intToSTR(adresse)+','+intToSTR(pos); if avecCR=1 then s:=s+#13; - Affiche(s,clOrange); + if Tablo_acc_COMUSB[i].ScvVis then Affiche(s,clOrange); if i=1 then Formprinc.MSCommCde1.Output:=s; if i=2 then Formprinc.MSCommCde2.Output:=s; end;