Context Navigation

source: trunk/XSUCLWF/Cxfel.cpp @ 23

Last change on this file since 23 was 18, checked in by marrucho, 11 years ago
Rajout de la saisie de numP et numC
File size: 75.5 KB

Line
1	#include "cxfel.h"
2
3
4	#include "heure.h"
5
6	#using <mscorlib.dll>
7	#using <System.dll>
8	#using <System.Windows.Forms.dll>
9	#using <System.Drawing.dll>//pour les controles bouton
10
11	using namespace System;
12	using namespace System::ComponentModel;//contient des classes pour les composants et les contrôles
13	using namespace System::Windows::Forms;//contient des classes dédiées à la génération des formulaires
14	using namespace System::Drawing;//contient les classes Point et Size du bouton
15
16	using namespace System::IO;//contient les classes pour les I/O
17
18	using namespace System::Threading;
19
20	#undef MessageBox
21
22	modbus_t *ctx;//modbus
23
24
25	public __gc class ThreadReadModbus
26	{
27	public:
28	// The ThreadProc method is called when the thread starts.
29	static void ThreadProc()
30	{
31	uint8_t tab_rp_bits[MODBUS_SIZE_READ_COILS];
32	Console::WriteLine(S"ThreadProc: read coils...");
33	int rc = modbus_read_bits(ctx, MODBUS_BASEADR_COILS, MODBUS_SIZE_READ_COILS, tab_rp_bits);////JCM : adresse coils=MODBUS_BASEADR_COILS
34	if (rc != MODBUS_SIZE_READ_COILS)
35	Console::WriteLine(S"ThreadProc: read coils failed...");
36	Thread::Sleep(500);
37
38	uint16_t tab_rp_registers_low[MODBUS_SIZE_READ_HOLDINGS_LOW];
39	Console::WriteLine(S"ThreadProc: read holdings...");
40	rc = modbus_read_registers(ctx, MODBUS_BASEADR_LOW_HOLDINGS,//JCM : adresse holding=MODBUS_BASEADR_LOW_HOLDINGS
41	MODBUS_SIZE_READ_HOLDINGS_LOW, tab_rp_registers_low);
42	if (rc != MODBUS_SIZE_READ_HOLDINGS_LOW)
43	Console::WriteLine(S"ThreadProc: read holdings failed...");
44	Thread::Sleep(500);
45
46	uint16_t wordPermuted[2];
47	float real = modbus_get_float(tab_rp_registers_low+6);//dP : float32 Normal
48	*(wordPermuted+0)= tab_rp_registers_low[6+1];//dP : float32 Reverse
49	*(wordPermuted+1)= tab_rp_registers_low[6+0];//dP : float32 Reverse
50	float realReversed = modbus_get_float(wordPermuted+0);//dP : float32 Reverse
51
52	Console::WriteLine(S"ThreadProc: read float...");
53	// if (real != UT_REAL)
54	// Console::WriteLine(S"ThreadProc: read float failed...");
55	printf("real(2006d) = normal=%f reverse=%f\n",
56	real,
57	//word2float[0]+(word2float[1]<<16)
58	//tab_rp_registers_low[6]+(tab_rp_registers_low[7]<<16));
59	realReversed);
60	Thread::Sleep(500);
61
62	uint16_t tab_rp_registers_high[MODBUS_SIZE_READ_HOLDINGS_HIGH];
63	Console::WriteLine(S"ThreadProc: read holdings...");
64	rc = modbus_read_registers(ctx, MODBUS_BASEADR_HIGH_HOLDINGS,
65	MODBUS_SIZE_READ_HOLDINGS_HIGH, tab_rp_registers_high);
66	if (rc != MODBUS_SIZE_READ_HOLDINGS_HIGH)
67	Console::WriteLine(S"ThreadProc: read holdings failed...");
68	Thread::Sleep(500);
69
70	real = modbus_get_float(tab_rp_registers_high+36);//Pi_max
71	Console::WriteLine(S"ThreadProc: read float...");
72	// if (real != UT_REAL)
73	// Console::WriteLine(S"ThreadProc: read float failed...");
74	printf("real(2118d) = %f\n", real);
75	Thread::Sleep(500);
76	}
77	};
78
79
80	CGroupBox::CGroupBox(String* gname, int posX, int posY)
81	{
82	name=gname;
83	nbInstance++;
84
85	// Creation
86	gbox = new GroupBox();
87	gbox->Text = name;
88	gbox->Size = System::Drawing::Size(200, 200);//taille du groupbox en pixels
89	gbox->Location = Point(posX,posY);
90
91	// Num_P label tt seul
92	Label* labNumP= new Label();
93	// labNumP->Location = Point(posX+10,posY+5);
94	labNumP->Location = Point(70,35);
95	labNumP->Size = System::Drawing::Size(50,16);
96	labNumP->Text = "Num_P";//zone de texte initialisée
97	labNumP->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);;
98	labNumP->TextAlign = ContentAlignment::MiddleRight;
99	valNumP= new TextBox();
100	valNumP->Location = Point(70,55);
101	valNumP->Size = System::Drawing::Size(60, 40);
102	valNumP->Text = "xx";//zone de texte initialisée vide
103	valNumP->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);
104	valNumP->ForeColor = Color::Brown;
105	gbox->Controls->Add(labNumP);
106	gbox->Controls->Add(valNumP);
107	// Num_C1 label tt seul
108	Label* labNumC1= new Label();
109	// labNumC1->Location = Point(posX+5, posY+20);
110	labNumC1->Location = Point(20, 90);
111	labNumC1->Size = System::Drawing::Size(50,16);
112	labNumC1->Text = "1";//zone de texte initialisée
113	labNumC1->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);;
114	labNumC1->TextAlign = ContentAlignment::MiddleRight;
115	valNumC1= new TextBox();
116	valNumC1->Location = Point(30,110);
117	valNumC1->Size = System::Drawing::Size(60, 40);
118	valNumC1->Text = "xx";//zone de texte initialisée vide
119	valNumC1->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);;
120	valNumC1->ForeColor = Color::Brown;
121	gbox->Controls->Add(labNumC1);
122	gbox->Controls->Add(valNumC1);
123	// Num_C2 label tt seul
124	Label* labNumC2= new Label();
125	// labNumC2->Location = Point(posX+60, posY+20);
126	labNumC2->Location = Point(85, 90);
127	labNumC2->Size = System::Drawing::Size(50,16);
128	labNumC2->Text = "2";//zone de texte initialisée
129	labNumC2->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);;
130	labNumC2->TextAlign = ContentAlignment::MiddleRight;
131	valNumC2= new TextBox();
132	valNumC2->Location = Point(105,110);
133	valNumC2->Size = System::Drawing::Size(60, 40);
134	valNumC2->Text = "xx";//zone de texte initialisée vide
135	valNumC2->Font = new System::Drawing::Font(S"Arial", 9, FontStyle::Bold);;
136	valNumC2->ForeColor = Color::Brown;
137	gbox->Controls->Add(labNumC2);
138	gbox->Controls->Add(valNumC2);
139	//bouton Appliquer
140	appliquerBtn = new Button();
141	appliquerBtn->Location = Point(65, 170);
142	appliquerBtn->Name = "Bouton Appliquer";
143	appliquerBtn->Text = "Appliquer";
144	appliquerBtn->Click += new EventHandler(this, &CGroupBox::AppliquerBtn_Clicked);
145	gbox->Controls->Add(appliquerBtn);
146
147	/*
148	String* str;
149	str=String::Concat(labNumC1->Text);
150	Console::WriteLine(str);
151	str=String::Concat(labNumC2->Text);
152	Console::WriteLine(str);
153	*/
154	//..............
155	//..............
156
157	}
158
159	Label* CGroupBox::GetLabelNumP()
160	{
161	return labNumP;
162	}
163
164	Label* CGroupBox::GetLabelNumC1()
165	{
166	return labNumC1;
167	}
168
169	Label* CGroupBox::GetLabelNumC2()
170	{
171	return labNumC2;
172	}
173
174	GroupBox* CGroupBox::GetGroupBox()
175	{
176	return gbox;
177	}
178
179	void CGroupBox::AppliquerBtn_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton Appliquer
180	{
181	String* str;
182	//lecture fichier ou BDD pour comparaison avec saisie
183	try
184	{
185	FileStream* fs = new FileStream("..\\test1_4xsuc.txt",FileMode::Open);
186	StreamReader* sr = new StreamReader(fs);
187	int count=0;
188
189	if(!String::Compare(name,"a"))
190	{
191	Console::WriteLine(S"appliquer a");
192	for (;;)
193	{
194	String* line = sr->ReadLine();
195	if (count==0)
196	if(String::Compare(line,valNumP->Text))
197	{
198	MessageBox::Show(S"a: NumP n'existe pas !!");
199	sr->Close();
200	break;
201	}
202	if (count==1)
203	if(String::Compare(line,valNumC1->Text))
204	{
205	MessageBox::Show(S"a: NumC1 n'existe pas !!");
206	sr->Close();
207	break;
208	}
209	if (count==2)
210	if(String::Compare(line,valNumC2->Text))
211	{
212	MessageBox::Show(S"a: NumC2 n'existe pas !!");
213	sr->Close();
214	break;
215	}
216	count++;
217	if (line==0)//fin du fichier
218	{
219	sr->Close();
220	uint16_t tab_rp_registers[2];
221	int rc;
222	int size;
223	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write NumP NumC1 et NumC2...");
224	size=1;
225	tab_rp_registers[0] = Convert::ToInt16(valNumP->Text);
226	modbus_write_registers(ctx, 2070,size, tab_rp_registers);//NumP
227	if (rc != size)
228	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
229	// Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding...");
230	size=2;
231	tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text);
232	tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text);
233	modbus_write_registers(ctx, 2050,size, tab_rp_registers);//NumC1 et NumC2
234	if (rc != size)
235	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
236	break;
237	}
238	}
239	}
240	if(!String::Compare(name,"b"))
241	{
242	Console::WriteLine(S"appliquer b");
243	for (;;)
244	{
245	String* line = sr->ReadLine();
246	if (count==3)
247	if(String::Compare(line,valNumP->Text))
248	{
249	MessageBox::Show(S"b: NumP n'existe pas !!");
250	sr->Close();
251	break;
252	}
253	if (count==4)
254	if(String::Compare(line,valNumC1->Text))
255	{
256	MessageBox::Show(S"b: NumC1 n'existe pas !!");
257	sr->Close();
258	break;
259	}
260	if (count==5)
261	if(String::Compare(line,valNumC2->Text))
262	{
263	MessageBox::Show(S"b: NumC2 n'existe pas !!");
264	sr->Close();
265	break;
266	}
267	count++;
268	if (line==0)//fin du fichier
269	{
270	sr->Close();
271	uint16_t tab_rp_registers[2];
272	int rc;
273	int size;
274	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write NumP NumC1 et NumC2...");
275	size=1;
276	tab_rp_registers[0] = Convert::ToInt16(valNumP->Text);
277	modbus_write_registers(ctx, 2071,size, tab_rp_registers);//NumP
278	if (rc != size)
279	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
280	// Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding...");
281	size=2;
282	tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text);
283	tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text);
284	modbus_write_registers(ctx, 2052,size, tab_rp_registers);//NumC1 et NumC2
285	if (rc != size)
286	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
287	break;
288	}
289	}
290	}
291	if(!String::Compare(name,"c"))
292	{
293	Console::WriteLine(S"appliquer c");
294	for (;;)
295	{
296	String* line = sr->ReadLine();
297	if (count==6)
298	if(String::Compare(line,valNumP->Text))
299	{
300	MessageBox::Show(S"c: NumP n'existe pas !!");
301	sr->Close();
302	break;
303	}
304	if (count==7)
305	if(String::Compare(line,valNumC1->Text))
306	{
307	MessageBox::Show(S"c: NumC1 n'existe pas !!");
308	sr->Close();
309	break;
310	}
311	if (count==8)
312	if(String::Compare(line,valNumC2->Text))
313	{
314	MessageBox::Show(S"c: NumC2 n'existe pas !!");
315	sr->Close();
316	break;
317	}
318	count++;
319	if (line==0)//fin du fichier
320	{
321	sr->Close();
322	uint16_t tab_rp_registers[2];
323	int rc;
324	int size;
325	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write NumP NumC1 et NumC2...");
326	size=1;
327	tab_rp_registers[0] = Convert::ToInt16(valNumP->Text);
328	modbus_write_registers(ctx, 2072,size, tab_rp_registers);//NumP
329	if (rc != size)
330	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
331	// Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding...");
332	size=2;
333	tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text);
334	tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text);
335	modbus_write_registers(ctx, 2054,size, tab_rp_registers);//NumC1 et NumC2
336	if (rc != size)
337	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
338	break;
339	}
340	}
341	}
342	if(!String::Compare(name,"d"))
343	{
344	Console::WriteLine(S"appliquer d");
345	for (;;)
346	{
347	String* line = sr->ReadLine();
348	if (count==9)
349	if(String::Compare(line,valNumP->Text))
350	{
351	MessageBox::Show(S"d: NumP n'existe pas !!");
352	sr->Close();
353	break;
354	}
355	if (count==10)
356	if(String::Compare(line,valNumC1->Text))
357	{
358	MessageBox::Show(S"d: NumC1 n'existe pas !!");
359	sr->Close();
360	break;
361	}
362	if (count==11)
363	if(String::Compare(line,valNumC2->Text))
364	{
365	MessageBox::Show(S"d: NumC2 n'existe pas !!");
366	sr->Close();
367	break;
368	}
369	count++;
370	if (line==0)//fin du fichier
371	{
372	sr->Close();
373	uint16_t tab_rp_registers[2];
374	int rc;
375	int size;
376	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write NumP NumC1 et NumC2...");
377	size=1;
378	tab_rp_registers[0] = Convert::ToInt16(valNumP->Text);
379	modbus_write_registers(ctx, 2073,size, tab_rp_registers);//NumP
380	if (rc != size)
381	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
382	// Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding...");
383	size=2;
384	tab_rp_registers[0] = Convert::ToInt16(valNumC1->Text);
385	tab_rp_registers[1] = Convert::ToInt16(valNumC2->Text);
386	modbus_write_registers(ctx, 2056,size, tab_rp_registers);//NumC1 et NumC2
387	if (rc != size)
388	Console::WriteLine(S"CGroupBox::::AppliquerBtn_Clicked : write holding failed...");
389	break;
390	}
391	}
392	}
393	}
394	catch (System::Exception* pe)
395	{
396	Console::WriteLine(pe->ToString());
397	}
398	int count=0;
399
400	}
401
402	CDialogConfig::CDialogConfig()
403	{
404	// définit les paramètres du formulaire
405	Text = S"XSUC - ecriture serveur";
406	FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille
407	Size = System::Drawing::Size(1000,800);
408
409	// Creation de controle
410	sortirBtn = new Button();
411
412	// bouton OK
413	sortirBtn->Location = Point(900, 700);
414	sortirBtn->Name = "Bouton Sortir";
415	sortirBtn->Text = "sortir";
416	sortirBtn->DialogResult = DialogResult::OK;
417
418	// Ajoute les controles dans le formaulaire
419	Controls->Add(sortirBtn);
420
421	/* GroupBox* gbox = new GroupBox();
422	gbox->Text = S"name";
423	gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels
424	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ée
429	labNumP->TextAlign = ContentAlignment::MiddleRight;
430	gbox->Controls->Add(labNumP);
431	Controls->Add(gbox);
432	*/
433	pal = new ArrayList();
434	int j=20;//depart affichage
435	for (indexGroupBox=0;indexGroupBox<NB_BANCS;indexGroupBox++)//creation des controles dans le formulaire
436	{
437	pal->Add(new CGroupBox(gname[indexGroupBox],j,90));
438	j+=250;
439	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	Controls->Add(gboxPtr->GetGroupBox());
444	String* str;
445	str=String::Concat(gboxPtr->GetGroupBox()->Text);
446	Console::WriteLine(str);
447	/* str=String::Concat(gboxPtr->GetLabelNumP()->Text);
448	Console::WriteLine(str);
449	str=String::Concat(gboxPtr->GetLabelNumC1()->Text);
450	Console::WriteLine(str);
451	*/ }
452
453	//configure les 2 propriétés : AcceptButton contient la réf du bouton par défaut du formulaire..
454	//..on peut cliquer sur le bouton OK ou bien sur la touche Entrée du clavier..
455	//..referme aussi la boite car DialogResult renvoie OK
456	AcceptButton = sortirBtn;
457
458	//gestionnnaire associé au bouton OK
459	sortirBtn->Click += new EventHandler(this, &CDialogConfig::SortirBtn_Clicked);
460	}
461
462	CDialogConfig::CDialogConfig(uint16_t tab_rp_registers_low,uint16_t tab_rp_registers_high)
463	{
464	// définit les paramètres du formulaire
465	Text = S"XSUC - ecriture serveur";
466	FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille
467	Size = System::Drawing::Size(1000,800);
468
469	// Creation de controle
470	sortirBtn = new Button();
471
472	// bouton OK
473	sortirBtn->Location = Point(900, 700);
474	sortirBtn->Name = "Bouton Sortir";
475	sortirBtn->Text = "sortir";
476	sortirBtn->DialogResult = DialogResult::OK;
477
478	// Ajoute les controles dans le formaulaire
479	Controls->Add(sortirBtn);
480
481	/* GroupBox* gbox = new GroupBox();
482	gbox->Text = S"name";
483	gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels
484	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ée
489	labNumP->TextAlign = ContentAlignment::MiddleRight;
490	gbox->Controls->Add(labNumP);
491	Controls->Add(gbox);
492	*/
493	pal = new ArrayList();
494	int j=20;//depart affichage
495	for (indexGroupBox=0;indexGroupBox<NB_BANCS;indexGroupBox++)//creation des controles dans le formulaire
496	{
497	pal->Add(new CGroupBox(gname[indexGroupBox],j,90));
498	j+=250;
499	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	Controls->Add(gboxPtr->GetGroupBox());
504	String* str;
505	str=String::Concat(gboxPtr->GetGroupBox()->Text);
506	Console::WriteLine(str);
507	/* str=String::Concat(gboxPtr->GetLabelNumP()->Text);
508	Console::WriteLine(str);
509	str=String::Concat(gboxPtr->GetLabelNumC1()->Text);
510	Console::WriteLine(str);
511	*/ }
512
513	//configure les 2 propriétés : AcceptButton contient la réf du bouton par défaut du formulaire..
514	//..on peut cliquer sur le bouton OK ou bien sur la touche Entrée du clavier..
515	//..referme aussi la boite car DialogResult renvoie OK
516	AcceptButton = sortirBtn;
517
518	//gestionnnaire associé au bouton OK
519	sortirBtn->Click += new EventHandler(this, &CDialogConfig::SortirBtn_Clicked);
520	}
521
522	void CDialogConfig::SortirBtn_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue
523	{
524	//fermer le formulaire lorsqu'on clique sur le bouton
525	Close();
526	}
527
528
529	CLabelTextBox::CLabelTextBox(String* labString, int posX, int posY, int sizeX, int sizeY, int sizeText)
530	{
531	name=labString;
532	labPosX=posX;
533	labPosY=posY;
534	labSizeX=sizeX;
535	labSizeY=sizeY;
536	nbInstance++;
537
538	lab= new Label();
539	val= new TextBox();
540
541	// dPLabel et dPBox : label et zone de saisie sont placés l'un à côté de l'autre
542	lab->Location = Point(labPosX, labPosY);
543	lab->Size = System::Drawing::Size(labSizeX,labSizeY);
544	lab->Text = name;//zone de texte initialisée
545	lab->TextAlign = ContentAlignment::MiddleRight;
546	val->Location = Point(labPosX+labSizeX, labPosY);
547	val->Size = System::Drawing::Size(sizeText, 20);
548	val->Text = "";//zone de texte initialisée vide
549	}
550
551	Label* CLabelTextBox::GetLabel()
552	{
553	return lab;
554	}
555
556	TextBox* CLabelTextBox::GetTextBox()
557	{
558	return val;
559	}
560
561	String* CLabelTextBox::GetName()
562	{
563	return name;
564	}
565
566	void CLabelTextBox::SetVal(String* value)
567	{
568	val->Text=value;
569	}
570
571	String* CLabelTextBox::GetVal()
572	{
573	return val->Text;
574	}
575
576	void CLabelTextBox::SetColor(int value)
577	{
578	if(value)
579	val->BackColor=Color::Red;
580	else
581	val->BackColor=Color::White;
582	}
583
584
585	MaDialogUser::MaDialogUser()
586	{
587	// définit les paramètres du formulaire
588	Text = S"XSUC - lecture serveur";
589	FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille
590	Size = System::Drawing::Size(1000,800);
591
592	// Creation de controle
593	OKBtn = new Button();
594	EcritureBtn = new Button();
595	// CancelBtn = new Button();
596
597	// bouton OK
598	OKBtn->Location = Point(900, 700);
599	OKBtn->Name = "Bouton OK";
600	OKBtn->Text = "OK";
601	OKBtn->DialogResult = DialogResult::OK;
602	/*
603	// bouton Cancel
604	CancelBtn->Location = Point(192, 136);
605	CancelBtn->Name = "Bouton Cancel";
606	CancelBtn->Text = "Annuler";
607	CancelBtn->DialogResult = DialogResult::Cancel;
608	*/
609	// bouton Ecriture
610	EcritureBtn->Location = Point(900, 600);
611	EcritureBtn->Name = "Bouton Ecriture";
612	EcritureBtn->Text = "Ecriture";
613	EcritureBtn->DialogResult = DialogResult::OK;
614
615	// Ajoute les controles dans le formaulaire
616	Controls->Add(OKBtn);
617	Controls->Add(EcritureBtn);
618
619	pal = new ArrayList();
620	for (indexTextBox=0;indexTextBox<20;indexTextBox++)//creation des controles dans le formulaire
621	{
622	int posX=650, j=indexTextBox;
623	if (indexTextBox>=10)
624	{
625	posX=800;
626	j=indexTextBox-10;
627	}
628	pal->Add(new CLabelTextBox(nameLab_1[indexTextBox],posX,(25*j)+10,100,16,70));
629	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
630	Controls->Add(cltbPtr->GetLabel());
631	Controls->Add(cltbPtr->GetTextBox());
632	}
633	for (;indexTextBox<26;indexTextBox++)//creation des controles dans le formulaire
634	{
635	int posX=400, j=indexTextBox-20;
636	int sizeText=70;
637	if (indexTextBox==20)sizeText=20;
638	pal->Add(new CLabelTextBox(nameLab_1[indexTextBox],posX,(25*j)+10,100,16,sizeText));
639	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
640	Controls->Add(cltbPtr->GetLabel());
641	Controls->Add(cltbPtr->GetTextBox());
642	}
643	Setup_Group_Conditionning();
644	// Mode tt seul
645	pal->Add(new CLabelTextBox("MODE",20,100,50,16,75));
646	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox++);
647	Controls->Add(cltbPtr->GetLabel());
648	Controls->Add(cltbPtr->GetTextBox());
649
650	//configure les 2 propriétés : AcceptButton contient la réf du bouton par défaut du formulaire..
651	//..on peut cliquer sur le bouton OK ou bien sur la touche Entrée du clavier..
652	//..referme aussi la boite car DialogResult renvoie OK
653	AcceptButton = OKBtn;
654	//CancelButton contient la réf du bouton associée à la touche Echap du clavier
655	// CancelButton = CancelBtn;
656
657	//gestionnnaire associé aux boutons
658	OKBtn->Click += new EventHandler(this, &MaDialogUser::OKMaDBtn_Clicked);
659	EcritureBtn->Click += new EventHandler(this, &MaDialogUser::EcritureBtn_Clicked);
660
661	Setup_Group();
662	}
663
664	void MaDialogUser::EcritureBtn_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue
665	{
666	//crée la boite de dialogue utilisateur
667	CDialogConfig* box = new CDialogConfig();
668	//affiche la boite de dialogue
669	if (box->ShowDialog() == DialogResult::OK)
670	{
671	//si la valeur OK est renvoyée, on affiche le nom
672	//MessageBox::Show(S"Ecriture");
673	}
674	}
675
676	void MaDialogUser::OKMaDBtn_Clicked(Object* pSender,EventArgs* pArgs)//gestionnaire d'evenement de la boite dialogue
677	{
678	//fermer le formulaire lorsqu'on clique sur le bouton
679	Close();
680	}
681
682	float MaDialogUser::PermutToReversed(uint16_t* tab_rp_registers,int index)//permute float32 en float32 Reverse
683	{
684	uint16_t wordPermuted[2];
685
686	*(wordPermuted+0)= tab_rp_registers[index+1];
687	*(wordPermuted+1)= tab_rp_registers[index+0];
688	return (modbus_get_float(wordPermuted+0));//float32 Reverse
689	}
690
691	void MaDialogUser::ThreadProc()//gestionnaire d'evenement du thread de la boite dialogue
692	{
693	uint8_t tab_rp_bits[MODBUS_SIZE_READ_COILS];
694	uint16_t tab_rp_registers_low[MODBUS_SIZE_READ_HOLDINGS_LOW];
695	uint16_t tab_rp_registers_high[MODBUS_SIZE_READ_HOLDINGS_HIGH];
696	int rc, adress, size;
697	CLabelTextBox* cltbPtr;
698
699	for (;;)
700	{
701	Thread::Sleep(500);
702	Console::WriteLine(S"ThreadProc: read coils...");
703	adress=MODBUS_BASEADR_COILS;//adresse coils=MODBUS_BASEADR_COILS
704	size=MODBUS_SIZE_READ_COILS;
705	rc = modbus_read_bits(ctx, adress, size, tab_rp_bits);////JCM : adresse coils=MODBUS_BASEADR_COILS
706	if (rc != size)
707	Console::WriteLine(S"ThreadProc: read coils failed...");
708
709	Thread::Sleep(500);
710	Console::WriteLine(S"ThreadProc: read holdings...");
711	adress=MODBUS_BASEADR_LOW_HOLDINGS;//adresse holding=MODBUS_BASEADR_LOW_HOLDINGS
712	size=82;
713	rc = modbus_read_registers(ctx, adress, size, tab_rp_registers_low);
714	if (rc != size)
715	Console::WriteLine(S"ThreadProc: read holdings failed...");
716
717	int indexArrayList=0;
718	//dtp : ui16
719	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
720	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[4]));
721	//dt : ui16
722	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
723	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[5]));
724	//dP : float32
725	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
726	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,6)));
727	//dPsecu : float32
728	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
729	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,8)));
730
731	//NBal : ui16
732	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
733	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[42]));
734	//P_cde : float32
735	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
736	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,43)));
737	//Pp : float32
738	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
739	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,45)));
740
741	//Nbal_max : ui16
742	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
743	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[25]));
744	//Fr : ui16
745	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
746	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[26]));
747	//N_cur : ui16
748	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
749	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[27]));
750
751	//SVd : ui16
752	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
753	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[0]));
754	//SVfin : ui16
755	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
756	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[1]));
757	//SV1 : ui16
758	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
759	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[2]));
760	//SV2 : ui16
761	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
762	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[3]));
763
764	//V_cur : ui16
765	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
766	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[37]));
767	//Pic : float32
768	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
769	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,38)));
770	//Timer : uint32
771	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
772	cltbPtr->SetVal(Convert::ToString((tab_rp_registers_low[40]<<16)+(tab_rp_registers_low[41])));
773
774	//SVil : ui16
775	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
776	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[20]));
777	//Sleil : float32
778	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
779	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,21)));
780	//STc : float32
781	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
782	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,23)));
783
784	//Eil : bool
785	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
786	cltbPtr->SetVal(Convert::ToString(tab_rp_bits[0]));
787	if(tab_rp_bits[0])//echec changer couleur
788	cltbPtr->SetColor(1);
789	else
790	cltbPtr->SetColor(0);
791	//Nil : ui16
792	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
793	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[30]));
794	//Nil_stat : ui16
795	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
796	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[31]));
797	//P_last : float32
798	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
799	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,32)));
800	//N_last : ui16
801	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
802	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[34]));
803	//DPil : float32
804	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
805	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,35)));
806
807	//Num_C : tab ui16
808	for (int indexMbArray=50;(indexArrayList<34 && indexMbArray<58);indexMbArray++)
809	{
810	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
811	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[indexMbArray]));
812	}
813
814	//Stat_C : tab bool
815	for (int indexMbArray=1;(indexArrayList<46 && indexMbArray<13);indexMbArray++)
816	{
817	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
818	cltbPtr->SetVal(Convert::ToString(tab_rp_bits[indexMbArray]));
819	if(!tab_rp_bits[indexMbArray])//echec changer couleur
820	cltbPtr->SetColor(1);
821	else
822	cltbPtr->SetColor(0);
823	}
824
825	//Temp_cond : tab ui16
826	for (int indexMbArray=58;(indexArrayList<58 && indexMbArray<71);indexMbArray++)
827	{
828	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
829	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[indexMbArray]));
830	}
831
832	//status : ui16
833	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
834	if (tab_rp_registers_low[49] != 4)//on n'est pas ds le mode pulsing
835	{
836	cltbPtr->SetVal("ARRET");
837	btnStart->Enabled=false;//bouton start
838	btnStop->Enabled=false;//bouton stop
839	btnPause->Enabled=false;//bouton pause
840	btnReprise->Enabled=false;//bouton reprise
841	}
842	else
843	{//mode pulsing
844	switch (tab_rp_registers_low[28]){//RetMAPR
845	case 0://conditionnement arreté
846	cltbPtr->SetVal("ARRET");
847	btnStart->Enabled=true;//bouton start
848	btnStop->Enabled=false;//bouton stop
849	btnPause->Enabled=false;//bouton pause
850	btnReprise->Enabled=false;//bouton reprise
851	break;
852	case 2: case 3://conditionnement démarré ou repris
853	cltbPtr->SetVal("MARCHE");
854	btnStart->Enabled=false;//bouton start
855	btnStop->Enabled=true;//bouton stop
856	btnPause->Enabled=true;//bouton pause
857	btnReprise->Enabled=false;//bouton reprise
858	break;
859	case 1://conditionnement en pause
860	cltbPtr->SetVal("PAUSE");
861	btnStart->Enabled=false;//bouton start
862	btnStop->Enabled=true;//bouton stop
863	btnPause->Enabled=false;//bouton pause
864	btnReprise->Enabled=true;//bouton reprise
865	break;
866	}
867	if (tab_rp_registers_low[28] != tab_rp_registers_low[48])//message affiché
868	{
869	String* stra[] = {S"RetMAPR=",Convert::ToString(tab_rp_registers_low[28]),
870	S" not equal to MAPR=",Convert::ToString(tab_rp_registers_low[48])};
871	String* str=String::Concat(stra);
872	Console::WriteLine(str);
873	}
874	}//fin mode pulsing
875
876	//N_Seqcond : ui16
877	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
878	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[47]));
879
880	Thread::Sleep(500);
881	Console::WriteLine(S"ThreadProc: read holdings...");
882	adress=MODBUS_BASEADR_HIGH_HOLDINGS;//adresse holding=MODBUS_BASEADR_HIGH_HOLDINGS
883	size=MODBUS_SIZE_READ_HOLDINGS_HIGH;
884	rc = modbus_read_registers(ctx, adress, size, tab_rp_registers_high);
885	if (rc != size)
886	Console::WriteLine(S"ThreadProc: read holdings failed...");
887
888	//DateD HeureD : tab ui16
889	String* str;
890	String* strDD[] = {
891	Convert::ToString(tab_rp_registers_high[84]),
892	"-",
893	Convert::ToString(tab_rp_registers_high[85]),
894	"-",
895	Convert::ToString(tab_rp_registers_high[86])};
896	str=String::Concat(strDD);
897	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
898	cltbPtr->SetVal(str);
899	String* strHD[] = {
900	Convert::ToString(tab_rp_registers_high[87]),
901	":",
902	Convert::ToString(tab_rp_registers_high[88]),
903	":",
904	Convert::ToString(tab_rp_registers_high[89])};
905	str=String::Concat(strHD);
906	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
907	cltbPtr->SetVal(str);
908
909	//DateF HeureF : tab ui16
910	String* strDF[] = {
911	Convert::ToString(tab_rp_registers_high[90]),
912	"-",
913	Convert::ToString(tab_rp_registers_high[91]),
914	"-",
915	Convert::ToString(tab_rp_registers_high[92])};
916	str=String::Concat(strDF);
917	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
918	cltbPtr->SetVal(str);
919	String* strHF[] = {
920	Convert::ToString(tab_rp_registers_high[93]),
921	":",
922	Convert::ToString(tab_rp_registers_high[94]),
923	":",
924	Convert::ToString(tab_rp_registers_high[95])};
925	str=String::Concat(strHF);
926	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
927	cltbPtr->SetVal(str);
928
929	//Vides : tab ui16
930	for (int indexMbArray=98;indexMbArray<110;indexMbArray++)
931	{
932	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
933	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_high[indexMbArray]));
934	}
935
936	//Prc : tab float32
937	for (int indexMbArray=68;indexMbArray<76;indexMbArray+=2)
938	{
939	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
940	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray)));
941	}
942
943	//Pic : tab float32
944	for (int indexMbArray=60;indexMbArray<68;indexMbArray+=2)
945	{
946	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
947	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray)));
948	}
949
950	//Pch : tab float32
951	for (int indexMbArray=76;indexMbArray<84;indexMbArray+=2)
952	{
953	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
954	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_high,indexMbArray)));
955	}
956
957	//Ie_cur : tab float32
958	for (int indexMbArray=10;indexMbArray<18;indexMbArray+=2)
959	{
960	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
961	cltbPtr->SetVal(Convert::ToString(PermutToReversed(tab_rp_registers_low,indexMbArray)));
962	}
963
964	//Num_P : tab ui16
965	for (int indexMbArray=70;indexMbArray<74;indexMbArray++)
966	{
967	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
968	cltbPtr->SetVal(Convert::ToString(tab_rp_registers_low[indexMbArray]));
969	}
970
971	//Mode : ui16
972	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList++);
973	switch (tab_rp_registers_low[49]){
974	case 0://station en mode init
975	cltbPtr->SetVal("INIT");
976	break;
977	case 1://station en mode off
978	cltbPtr->SetVal("OFF");
979	break;
980	case 2://station en mode heater
981	cltbPtr->SetVal("HEATER");
982	break;
983	case 3://station en mode standby
984	cltbPtr->SetVal("STANDBY");
985	break;
986	case 4://station en mode pulsing=conditionnement
987	cltbPtr->SetVal("PULSING");
988	break;
989	case 5://station en mode off
990	cltbPtr->SetVal("STOP");
991	break;
992	}
993	//
994	//
995	}
996	}
997
998	void MaDialogUser::Setup_Group ()//creation et configuration d'un groupe d'options
999	{
1000	// Creation
1001	gbox = new GroupBox();
1002	gbox->Text = S"enable lecture";
1003	gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels
1004	gbox->Location = Point(200, 90);
1005
1006	// Creation des boutons radio.
1007	rb1 = new RadioButton();
1008	rb1->Text = S"oui";
1009	rb1->Location = Point(10,25);
1010
1011	rb2 = new RadioButton();
1012	rb2->Text = S"non";
1013	rb2->Location = Point(10,55);
1014
1015	// ajout des controles dans le groupe
1016	gbox->Controls->Add(rb1);
1017	gbox->Controls->Add(rb2);
1018
1019	// ajout du groupe dans le formulaire.
1020	Controls->Add(gbox);
1021
1022	// associe le gestionnaire au groupe d'options
1023	rb1->Click += new EventHandler(this, &MaDialogUser::Radio_Clicked);
1024	rb2->Click += new EventHandler(this, &MaDialogUser::Radio_Clicked);
1025	}
1026
1027	void MaDialogUser::Setup_Group_Conditionning()//creation et configuration d'un groupe d'options
1028	{
1029	// Creation
1030	GroupBox* gboxC = new GroupBox();
1031	gboxC->Text = S"CONDITIONNEMENT";
1032	gboxC->Size = System::Drawing::Size(800, 450);//taille du groupbox en pixels
1033	gboxC->Location = Point(40,300);
1034
1035	Setup_Buttons_Conditionning();//configure les boutons du formulaire
1036
1037	// Num_C label tt seul
1038	Label* num_C= new Label();
1039	num_C->Location = Point(50, 390);
1040	num_C->Size = System::Drawing::Size(50,16);
1041	num_C->Text = "Num_C";//zone de texte initialisée
1042	num_C->TextAlign = ContentAlignment::MiddleRight;
1043	Controls->Add(num_C);
1044	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
1047	{
1048	int posX=70;
1049	pal->Add(new CLabelTextBox(nameLab_2[i],posX+j,390,25,16,50));
1050	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1051	Controls->Add(cltbPtr->GetLabel());
1052	Controls->Add(cltbPtr->GetTextBox());
1053	}
1054
1055	// Stat_C label tt seul
1056	Label* stat_C= new Label();
1057	stat_C->Location = Point(50, 630);
1058	stat_C->Size = System::Drawing::Size(50,16);
1059	stat_C->Text = "Stat_C";//zone de texte initialisée
1060	stat_C->TextAlign = ContentAlignment::MiddleRight;
1061	Controls->Add(stat_C);
1062	j=20;//depart affichage
1063	// for (int i=0;indexTextBox<46;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire
1064	for (int i=0;i<NB_ETAPES;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire
1065	{
1066	int posX=100;
1067	pal->Add(new CLabelTextBox(Convert::ToString(i+1),posX+j,630,25,16,20));
1068	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1069	Controls->Add(cltbPtr->GetLabel());
1070	Controls->Add(cltbPtr->GetTextBox());
1071	}
1072
1073	// Temp_cond label tt seul
1074	Label* temp_cond= new Label();
1075	temp_cond->Location = Point(50, 670);
1076	temp_cond->Size = System::Drawing::Size(70,16);
1077	temp_cond->Text = "Temp_cond";//zone de texte initialisée
1078	temp_cond->TextAlign = ContentAlignment::MiddleRight;
1079	Controls->Add(temp_cond);
1080	j=20;//depart affichage
1081	// for (int i=0;indexTextBox<58;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire
1082	for (int i=0;i<NB_ETAPES;indexTextBox++,i++,j+=60)//creation des controles dans le formulaire
1083	{
1084	int posX=90;
1085	pal->Add(new CLabelTextBox(Convert::ToString(i+1),posX+j,670,25,16,40));
1086	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1087	Controls->Add(cltbPtr->GetLabel());
1088	Controls->Add(cltbPtr->GetTextBox());
1089	}
1090
1091	// status, N_Seqcond, DateD et heureD , DateF et HeureF labels tt seul
1092	Label* status= new Label();
1093	status->Location = Point(370, 700);
1094	status->Size = System::Drawing::Size(65,16);
1095	status->Text = "status";//zone de texte initialisée
1096	status->TextAlign = ContentAlignment::MiddleRight;
1097	Controls->Add(status);
1098	Label* n_seqcond= new Label();
1099	n_seqcond->Location = Point(450, 700);
1100	n_seqcond->Size = System::Drawing::Size(65,16);
1101	n_seqcond->Text = "N_Seqcond";//zone de texte initialisée
1102	n_seqcond->TextAlign = ContentAlignment::MiddleRight;
1103	Controls->Add(n_seqcond);
1104	Label* dateD= new Label();
1105	dateD->Location = Point(510, 700);
1106	dateD->Size = System::Drawing::Size(65,16);
1107	dateD->Text = "DateD";//zone de texte initialisée
1108	dateD->TextAlign = ContentAlignment::MiddleRight;
1109	Controls->Add(dateD);
1110	Label* heureD= new Label();
1111	heureD->Location = Point(580, 700);
1112	heureD->Size = System::Drawing::Size(65,16);
1113	heureD->Text = "HeureD";//zone de texte initialisée
1114	heureD->TextAlign = ContentAlignment::MiddleRight;
1115	Controls->Add(heureD);
1116	Label* dateF= new Label();
1117	dateF->Location = Point(650, 700);
1118	dateF->Size = System::Drawing::Size(65,16);
1119	dateF->Text = "DateF";//zone de texte initialisée
1120	dateF->TextAlign = ContentAlignment::MiddleRight;
1121	Controls->Add(dateF);
1122	Label* heureF= new Label();
1123	heureF->Location = Point(720, 700);
1124	heureF->Size = System::Drawing::Size(65,16);
1125	heureF->Text = "HeureF";//zone de texte initialisée
1126	heureF->TextAlign = ContentAlignment::MiddleRight;
1127	Controls->Add(heureF);
1128	j=330;//depart affichage
1129	// for (int i=0;indexTextBox<62;indexTextBox++,i++,j+=100)//creation des controles dans le formulaire
1130	for (int i=0;i<6;indexTextBox++,i++,j+=70)//creation des controles dans le formulaire
1131	{
1132	int posX=0;
1133	pal->Add(new CLabelTextBox("",posX+j,720,55,16,70));
1134	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1135	Controls->Add(cltbPtr->GetTextBox());
1136	}
1137
1138	// Vides label tt seul
1139	Label* vides = new Label();
1140	vides->Location = Point(50, 590);
1141	vides->Size = System::Drawing::Size(60,32);
1142	vides->Text = "Vides (10-9mbar)";//zone de texte initialisée
1143	vides->TextAlign = ContentAlignment::MiddleRight;
1144	Controls->Add(vides);
1145	j=40;//depart affichage
1146	for (int i=0;i<(NB_BANCS*3);indexTextBox++,i++,j+=60)//creation des controles dans le formulaire
1147	{
1148	int posX=70;
1149	pal->Add(new CLabelTextBox(nameLab_4[i],posX+j,590,10,16,50));
1150	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1151	Controls->Add(cltbPtr->GetLabel());
1152	Controls->Add(cltbPtr->GetTextBox());
1153	}
1154
1155	// Prc label tt seul
1156	Label* prc = new Label();
1157	prc->Location = Point(50, 430);
1158	prc->Size = System::Drawing::Size(50,32);
1159	prc->Text = "Prc (kW)";//zone de texte initialisée
1160	prc->TextAlign = ContentAlignment::MiddleRight;
1161	Controls->Add(prc);
1162	j=100;//depart affichage
1163	for (int i=0;i<NB_BANCS;indexTextBox++,i++,j+=180)//creation des controles dans le formulaire
1164	{
1165	int posX=70;
1166	pal->Add(new CLabelTextBox(nameLab_3[i],posX+j,430,10,16,50));
1167	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1168	Controls->Add(cltbPtr->GetLabel());
1169	Controls->Add(cltbPtr->GetTextBox());
1170	}
1171
1172	// Pic label tt seul
1173	Label* pic = new Label();
1174	pic->Location = Point(50, 470);
1175	pic->Size = System::Drawing::Size(50,32);
1176	pic->Text = "Pic (kW)";//zone de texte initialisée
1177	pic->TextAlign = ContentAlignment::MiddleRight;
1178	Controls->Add(pic);
1179	j=100;//depart affichage
1180	for (int i=0;i<NB_BANCS;indexTextBox++,i++,j+=180)//creation des controles dans le formulaire
1181	{
1182	int posX=70;
1183	pal->Add(new CLabelTextBox(nameLab_3[i],posX+j,470,10,16,50));
1184	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1185	Controls->Add(cltbPtr->GetLabel());
1186	Controls->Add(cltbPtr->GetTextBox());
1187	}
1188
1189	// Pch label tt seul
1190	Label* pch = new Label();
1191	pch->Location = Point(50, 510);
1192	pch->Size = System::Drawing::Size(50,32);
1193	pch->Text = "Pch (kW)";//zone de texte initialisée
1194	pch->TextAlign = ContentAlignment::MiddleRight;
1195	Controls->Add(pch);
1196	j=100;//depart affichage
1197	for (int i=0;i<NB_BANCS;indexTextBox++,i++,j+=180)//creation des controles dans le formulaire
1198	{
1199	int posX=70;
1200	pal->Add(new CLabelTextBox(nameLab_3[i],posX+j,510,10,16,50));
1201	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1202	Controls->Add(cltbPtr->GetLabel());
1203	Controls->Add(cltbPtr->GetTextBox());
1204	}
1205
1206	// Ie_cur label tt seul
1207	Label* ie_cur = new Label();
1208	ie_cur->Location = Point(50, 550);
1209	ie_cur->Size = System::Drawing::Size(50,32);
1210	ie_cur->Text = "Ie_cur (V)";//zone de texte initialisée
1211	ie_cur->TextAlign = ContentAlignment::MiddleRight;
1212	Controls->Add(ie_cur);
1213	j=100;//depart affichage
1214	for (int i=0;i<NB_BANCS;indexTextBox++,i++,j+=180)//creation des controles dans le formulaire
1215	{
1216	int posX=70;
1217	pal->Add(new CLabelTextBox(nameLab_3[i],posX+j,550,10,16,50));
1218	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1219	Controls->Add(cltbPtr->GetLabel());
1220	Controls->Add(cltbPtr->GetTextBox());
1221	}
1222
1223	// Num_P label tt seul
1224	Label* num_P = new Label();
1225	num_P->Location = Point(50, 350);
1226	num_P->Size = System::Drawing::Size(50,32);
1227	num_P->Text = "Num_P";//zone de texte initialisée
1228	num_P->TextAlign = ContentAlignment::MiddleRight;
1229	Controls->Add(num_P);
1230	j=100;//depart affichage
1231	for (int i=0;i<NB_BANCS;indexTextBox++,i++,j+=180)//creation des controles dans le formulaire
1232	{
1233	int posX=70;
1234	pal->Add(new CLabelTextBox(nameLab_3[i],posX+j,350,10,16,50));
1235	CLabelTextBox* cltbPtr = (CLabelTextBox *) pal->get_Item(indexTextBox);
1236	Controls->Add(cltbPtr->GetLabel());
1237	Controls->Add(cltbPtr->GetTextBox());
1238	}
1239
1240	// crée un objet graphique
1241	Graphics* pg = this->CreateGraphics();
1242	//crée un objet pen
1243	Pen* pen1 = new Pen(Color::Red);
1244	//trace une ligne
1245	pg->DrawLine(pen1,20,20,100,100);
1246	//dispose l'objet Graphics
1247	pg->Dispose();
1248
1249	// ajout du groupe dans le formulaire.
1250	Controls->Add(gboxC);
1251
1252	/*
1253	// associe le gestionnaire au groupe d'options
1254	rb1->Click += new EventHandler(this, &MaDialogUser::Radio_Clicked);
1255	rb2->Click += new EventHandler(this, &MaDialogUser::Radio_Clicked);
1256	*/ }
1257
1258	void MaDialogUser::Setup_Buttons_Conditionning()//creation et definition des boutons
1259	{
1260	// ajoute bouton START
1261	btnStart = new Button();
1262	btnStart->Text = S"MARCHE";//se sert de sa propriété Text pour definir son titre
1263	btnStart->Size = System::Drawing::Size(70, 20);//taille du bouton en pixels
1264	btnStart->Location = Point(70, 720);//emplacement
1265	btnStart->Click += new EventHandler(this, &MaDialogUser::BtnStart_Clicked);//creation d'un objet EventHandler en..
1266	//..lui transmettant un ptr sur le bouotn et l'adresse de la fonction en charge de..
1267	//..l'evenement
1268	Controls->Add(btnStart);//pour avertir le formulaire de la présence du bouton, on ajoute le bouton..
1269	//.. dans la collection des controles du formulaire
1270
1271	// idem bouton STOP
1272	btnStop = new Button();
1273	btnStop->Text = S"ARRET";
1274	btnStop->Size = System::Drawing::Size(70, 20);
1275	btnStop->Location = Point(150, 720);
1276	btnStop->Click += new EventHandler(this, &MaDialogUser::BtnStop_Clicked);
1277	Controls->Add(btnStop);
1278
1279	// idem bouton PAUSE
1280	btnPause = new Button();
1281	btnPause->Text = S"PAUSE";
1282	btnPause->Size = System::Drawing::Size(70, 20);
1283	btnPause->Location = Point(230, 720);
1284	btnPause->Click += new EventHandler(this, &MaDialogUser::BtnPause_Clicked);
1285	Controls->Add(btnPause);
1286
1287	// idem bouton REPRISE
1288	btnReprise = new Button();
1289	btnReprise->Text = S"REPRISE";
1290	btnReprise->Size = System::Drawing::Size(70, 20);
1291	btnReprise->Location = Point(310, 720);
1292	btnReprise->Click += new EventHandler(this, &MaDialogUser::BtnReprise_Clicked);
1293	Controls->Add(btnReprise);
1294	}
1295
1296	void MaDialogUser::Radio_Clicked(Object* pSender, EventArgs* pArgs)//remplit automatiquement la zone de texte
1297	{
1298	if (pSender == rb1)
1299	{
1300	Console::WriteLine(S"MaDialogUser::Radio_Clicked : lecture activée...");
1301	Console::WriteLine(S"Main thread: Start a second thread.");
1302	// Create the thread, passing a ThreadStart delegate that
1303	// represents the ThreadReadModbus::ThreadProc method.
1304	uThread = new Thread(new ThreadStart(0, &MaDialogUser::ThreadProc));
1305	// Start the thread.
1306	uThread->Start();
1307	}
1308	else if (pSender == rb2)
1309	{
1310	Console::WriteLine(S"MaDialogUser::Radio_Clicked : lecture désactivée...");
1311	if (uThread->IsAlive)
1312	{
1313	// Stop the thread.
1314	uThread->Suspend();
1315	}
1316	}
1317	}
1318
1319	void MaDialogUser::BtnStart_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 1
1320	{
1321	// MessageBox::Show(S"ça marche!", S"bouton START...");//MessageBox fait partie de l'espace de noms Forms
1322	//unique methode Show surchargée acceptant differents parametres
1323	CLabelTextBox* cltbPtr;
1324	for (int indexArrayList=0;(indexArrayList<MAX_NB_LABEL_TEXTBOX);indexArrayList++)//on cherche le LabelBox "MODE"
1325	{
1326	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList);
1327	if(String::Compare(cltbPtr->GetName(),"MODE"))
1328	break;//on y est
1329	if(indexArrayList==(MAX_NB_LABEL_TEXTBOX-1))return;//il faut sortir si non trouvé
1330	}
1331	if(String::Compare(cltbPtr->GetVal(),"PULSING"))
1332	{
1333	uint16_t tab_rp_registers[1] = { 0x2 };
1334	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding...");
1335	int rc = modbus_write_registers(ctx, 2048,1 , tab_rp_registers);
1336	if (rc != 1)
1337	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding failed...");
1338	}
1339	}
1340
1341	void MaDialogUser::BtnStop_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 1
1342	{
1343	// MessageBox::Show(S"ça marche!", S"bouton STOP...");//MessageBox fait partie de l'espace de noms Forms
1344	//unique methode Show surchargée acceptant differents parametres
1345	CLabelTextBox* cltbPtr;
1346	for (int indexArrayList=0;(indexArrayList<MAX_NB_LABEL_TEXTBOX);indexArrayList++)//on cherche le LabelBox "MODE"
1347	{
1348	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList);
1349	if(String::Compare(cltbPtr->GetName(),"MODE"))
1350	break;//on y est
1351	if(indexArrayList==(MAX_NB_LABEL_TEXTBOX-1))return;//il faut sortir si non trouvé
1352	}
1353	if(String::Compare(cltbPtr->GetVal(),"PULSING"))
1354	{
1355	uint16_t tab_rp_registers[1] = { 0x0 };
1356	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding...");
1357	int rc = modbus_write_registers(ctx, 2048,1 , tab_rp_registers);
1358	if (rc != 1)
1359	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding failed...");
1360	}
1361	}
1362
1363	void MaDialogUser::BtnPause_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 1
1364	{
1365	// MessageBox::Show(S"ça marche!", S"bouton PAUSE...");//MessageBox fait partie de l'espace de noms Forms
1366	//unique methode Show surchargée acceptant differents parametres
1367	CLabelTextBox* cltbPtr;
1368	for (int indexArrayList=0;(indexArrayList<MAX_NB_LABEL_TEXTBOX);indexArrayList++)//on cherche le LabelBox "MODE"
1369	{
1370	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList);
1371	if(String::Compare(cltbPtr->GetName(),"MODE"))
1372	break;//on y est
1373	if(indexArrayList==(MAX_NB_LABEL_TEXTBOX-1))return;//il faut sortir si non trouvé
1374	}
1375	if(String::Compare(cltbPtr->GetVal(),"PULSING"))
1376	{
1377	uint16_t tab_rp_registers[1] = { 0x1 };
1378	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding...");
1379	int rc = modbus_write_registers(ctx, 2048,1 , tab_rp_registers);
1380	if (rc != 1)
1381	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding failed...");
1382	}
1383	}
1384
1385	void MaDialogUser::BtnReprise_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 1
1386	{
1387	// MessageBox::Show(S"ça marche!", S"bouton REPRISE...");//MessageBox fait partie de l'espace de noms Forms
1388	//unique methode Show surchargée acceptant differents parametres
1389	CLabelTextBox* cltbPtr;
1390	for (int indexArrayList=0;(indexArrayList<MAX_NB_LABEL_TEXTBOX);indexArrayList++)//on cherche le LabelBox "MODE"
1391	{
1392	cltbPtr = (CLabelTextBox *) pal->get_Item(indexArrayList);
1393	if(String::Compare(cltbPtr->GetName(),"MODE"))
1394	break;//on y est
1395	if(indexArrayList==(MAX_NB_LABEL_TEXTBOX-1))return;//il faut sortir si non trouvé
1396	}
1397	if(String::Compare(cltbPtr->GetVal(),"PULSING"))
1398	{
1399	uint16_t tab_rp_registers[1] = { 0x3 };
1400	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding...");
1401	int rc = modbus_write_registers(ctx, 2048,1 , tab_rp_registers);
1402	if (rc != 1)
1403	Console::WriteLine(S"MaDialogUser::BtnStart_Clicked : write holding failed...");
1404	}
1405	}
1406
1407
1408	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	}
1420
1421	AboutBox::AboutBox()//constructeur
1422	{
1423	// qqs propriétés
1424	Text = S"A propos cxfel";
1425	FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille
1426	Size = System::Drawing::Size(300,150);
1427
1428	// ajout de 2 labels au formulaire.
1429	Label* label1 = new Label();
1430	label1->Text = "Application client XFEL";
1431	label1->Size = System::Drawing::Size(label1->PreferredWidth,
1432	label1->PreferredHeight);
1433	label1->Location = Point(20, 30);
1434
1435	Label* label2 = new Label();
1436	label2->Text = "JC Marrucho, 2013";
1437	label2->Size = System::Drawing::Size(label1->PreferredWidth,
1438	label1->PreferredHeight);//sert à modifier auto la taille des labels..
1439	//..selon le texte
1440	label2->Location = Point(20, 30+label1->PreferredHeight+10);//sert à calculer la position du 2ème label
1441
1442	// Ajoute les controles dans le formulaire
1443	Controls->Add(label1);
1444	Controls->Add(label2);
1445
1446	// Ajout d'un bouton OK.
1447	OKButton = new Button();
1448	OKButton->Text = S"OK";
1449	OKButton->DialogResult = System::Windows::Forms::DialogResult::OK;//renvoi de la valeur OK..
1450	//.. plus besoin d'associer le gestionnaire à sa fonction.. voir plus bas
1451	OKButton->Size = System::Drawing::Size(40,25);
1452	OKButton->Location = Point(240,85);
1453
1454	//configure un gestionnaire : pas nécessaire si le formulaire renvoie une valeur.. voir + haut
1455	//OKButton->Click += new EventHandler(this,&AboutBox::OKButton_Clicked);
1456
1457	// Ajoute le bouton au formulaire.
1458	Controls->Add(OKButton);
1459	}
1460
1461
1462	MaDialog::MaDialog()
1463	{
1464	// définit les paramètres du formulaire
1465	Text = S"détails serveur";
1466	FormBorderStyle = FormBorderStyle::Fixed3D;//impossible de modifier la taille
1467	Size = System::Drawing::Size(280,200);
1468
1469	// Creation de tous les controles : TextBox pour io/port et ComboBox pour timeout
1470	ipLabel = new Label();
1471	ipBox = new TextBox();
1472	portLabel = new Label();
1473	portBox = new TextBox();
1474	timeoutLabel = new Label();
1475	timeoutCombo = new ComboBox();
1476	OKBtn = new Button();
1477	CancelBtn = new Button();
1478
1479	// ipLabel et ipBox : label et zone de saisie sont placés l'un à côté de l'autre
1480	ipLabel->Location = Point(16, 24);
1481	ipLabel->Size = System::Drawing::Size(48, 16);
1482	ipLabel->Text = "n°IP:";//zone de texte initialisée vide
1483	ipLabel->TextAlign = ContentAlignment::MiddleRight;
1484	ipBox->Location = Point(72, 24);
1485	ipBox->Size = System::Drawing::Size(152, 20);
1486	ipBox->Text = "";//zone de texte initialisée vide
1487
1488	// portLabel et portBox
1489	portLabel->Location = Point(16, 56);
1490	portLabel->Size = System::Drawing::Size(48, 16);
1491	portLabel->Text = "n°port:";//zone de texte initialisée vide
1492	portLabel->TextAlign = ContentAlignment::MiddleRight;
1493	portBox->Location = Point(72, 56);
1494	portBox->Size = System::Drawing::Size(152, 20);
1495	portBox->Text = "";//zone de texte initialisée
1496
1497	// timeoutLabel et timeoutCombo : : liste déroulante spécifiant le tiemout et son label
1498	timeoutLabel->Location = Point(16, 88);
1499	timeoutLabel->Size = System::Drawing::Size(48, 16);
1500	timeoutLabel->Text = "Timeout(ms):";
1501	timeoutLabel->TextAlign = ContentAlignment::MiddleRight;
1502	timeoutCombo->DropDownWidth = 121;
1503	timeoutCombo->Location = Point(72, 88);
1504	timeoutCombo->Size = System::Drawing::Size(121, 21);
1505	//5 items, pas de valeur par défaut
1506	timeoutCombo->Items->Add(S"500");
1507	timeoutCombo->Items->Add(S"1000");
1508	timeoutCombo->Items->Add(S"1500");
1509	timeoutCombo->Items->Add(S"2000");
1510	timeoutCombo->Items->Add(S"3000");
1511
1512	// bouton OK
1513	OKBtn->Location = Point(104, 136);
1514	OKBtn->Name = "Bouton OK";
1515	OKBtn->Text = "OK";
1516	OKBtn->DialogResult = DialogResult::OK;
1517
1518	// bouton Cancel
1519	CancelBtn->Location = Point(192, 136);
1520	CancelBtn->Name = "Bouton Cancel";
1521	CancelBtn->Text = "Annuler";
1522	CancelBtn->DialogResult = DialogResult::Cancel;
1523
1524	// Ajoute les controles dans le formaulaire
1525	Controls->Add(ipBox);
1526	Controls->Add(portBox);
1527	Controls->Add(ipLabel);
1528	Controls->Add(portLabel);
1529	Controls->Add(timeoutLabel);
1530	Controls->Add(timeoutCombo);
1531	Controls->Add(OKBtn);
1532	Controls->Add(CancelBtn);
1533
1534	//configure les 2 propriétés : AcceptButton contient la réf du bouton par défaut du formulaire..
1535	//..on peut cliquer sur le bouton OK ou bien sur la touche Entrée du clavier..
1536	//..referme aussi la boite car DialogResult renvoie OK
1537	AcceptButton = OKBtn;
1538	//CancelButton contient la réf du bouton associée à la touche Echap du clavier
1539	CancelButton = CancelBtn;
1540
1541	//gestionnnaire associé au bouton OK
1542	OKBtn->Click += new EventHandler(this, &MaDialog::OKMaDBtn_Clicked);
1543	}
1544
1545	void MaDialog::setIp(String* theIp)
1546	{
1547	ipBox->Text = theIp;
1548	}
1549
1550	String* MaDialog::getIp()
1551	{
1552	return ipBox->Text;
1553	}
1554
1555	void MaDialog::setPort(String* thePort)
1556	{
1557	portBox->Text = thePort;
1558	}
1559
1560	String* MaDialog::getPort()
1561	{
1562	return portBox->Text;
1563	}
1564
1565	void MaDialog::setTimeout(int theTimeout)
1566	{
1567	timeoutCombo->SelectedIndex = theTimeout;
1568	}
1569
1570	int MaDialog::getTimeout()
1571	{
1572	return timeoutCombo->SelectedIndex;
1573	}
1574
1575
1576	CppForm::CppForm()//constructeur
1577	{
1578	// définit la légende du formulaire
1579	//la propriété Text est héritée de Control
1580	Text = S"XSUC";
1581
1582	// définit le style des bords
1583	//la propriété FormBorder est membre de Form
1584	FormBorderStyle = FormBorderStyle::Fixed3D;
1585
1586	// Set up controls on the form.
1587	Setup_Menu();
1588	Setup_Context_Menu();
1589	Setup_Buttons();//configure les boutons du formulaire
1590	Setup_Label();
1591	// Setup_Group();
1592	// Setup_Combo();
1593	Setup_Text();
1594
1595	// pour agrandir la zone de saisie, on rajoute des pixels, par defaut 300x300
1596	// Size = System::Drawing::Size(450, 300);
1597	Size = System::Drawing::Size(650, 500);
1598
1599	}
1600
1601	void CppForm::Btn1_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 1
1602	{
1603	MessageBox::Show(S"ça marche!", S"Message...");//MessageBox fait partie de l'espace de noms Forms
1604	//unique methode Show surchargée acceptant differents parametres
1605	}
1606
1607
1608	void CppForm::Btn2_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 2
1609	{
1610	MessageBox::Show(S"ça marche aussi!", S"Message...");//MessageBox fait partie de l'espace de noms Forms
1611	//unique methode Show surchargée acceptant differents parametres
1612	}
1613
1614	void CppForm::Btn3_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 3
1615	{
1616	MessageBox::Show(S"connexion et lecture serveur", S"Message...");//MessageBox fait partie de l'espace de noms Forms
1617	//unique methode Show surchargée acceptant differents parametres
1618	}
1619
1620	void CppForm::Btn4_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenements associés au bouton 4
1621	{
1622	/* uint16_t tab_rp_registers_low[MODBUS_SIZE_READ_HOLDINGS_LOW];
1623	uint16_t tab_rp_registers_high[MODBUS_SIZE_READ_HOLDINGS_HIGH];
1624	int rc, adress, size;
1625	Console::WriteLine(S"ThreadProc: read holdings...");
1626	adress=MODBUS_BASE_LOW_HOLDINGS;//adresse holding=MODBUS_BASE_LOW_HOLDINGS
1627	size=82;
1628	rc = modbus_read_registers(ctx, adress, size, tab_rp_registers_low);
1629	if (rc != size)
1630	Console::WriteLine(S"ThreadProc: read holdings failed...");
1631	Thread::Sleep(500);
1632	Console::WriteLine(S"ThreadProc: read holdings...");
1633	adress=MODBUS_BASEADR_HIGH_HOLDINGS;//adresse holding=MODBUS_BASEADR_HIGH_HOLDINGS
1634	size=MODBUS_SIZE_READ_HOLDINGS_HIGH;
1635	rc = modbus_read_registers(ctx, adress, size, tab_rp_registers_high);
1636	if (rc != size)
1637	Console::WriteLine(S"ThreadProc: read holdings failed...");
1638	*/
1639	//crée la boite de dialogue utilisateur
1640	CDialogConfig* box = new CDialogConfig();
1641	//affiche la boite de dialogue
1642	if (box->ShowDialog() == DialogResult::OK)
1643	{
1644	//si la valeur OK est renvoyée, on affiche le nom
1645	//MessageBox::Show(S"Ecriture");
1646	}
1647	//unique methode Show surchargée acceptant differents parametres
1648	}
1649
1650	void CppForm::Combo1_SelChanged(Object* pSender, EventArgs* pArgs)//gestionnaire d'evenement associé à la liste deroulante
1651	{
1652	if (pSender == combo1)
1653	{
1654	// String* ps = String::Concat(S"New index is ",
1655	// __box(combo1->SelectedIndex)->ToString());
1656	// MessageBox::Show(ps, S"Index Change");
1657	String* ps = __box(combo1->SelectedIndex)->ToString();
1658	if(String::Compare(ps,"1")==0)
1659	{
1660	Console::WriteLine(S"Main thread: Start a second thread.");
1661	// Create the thread, passing a ThreadStart delegate that
1662	// represents the ThreadReadModbus::ThreadProc method.
1663	Thread *oThread = new Thread(new ThreadStart(0, &ThreadReadModbus::ThreadProc));
1664	// Start the thread.
1665	oThread->Start();
1666	}
1667	}
1668	}
1669
1670	void CppForm::MenuItem_Clicked(Object* pSender, EventArgs* pArgs)//gestionnaire des elements de menu
1671	{
1672	if (pSender == item1)
1673	{
1674	//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");
1676	AboutBox* box = new AboutBox();
1677	box->ShowDialog();
1678	}
1679	else if (pSender == item2)
1680	{
1681	// Exit application.
1682	Application::Exit();
1683	}
1684	else if (pSender == item11)
1685	{
1686	//crée la boite de dialogue
1687	MaDialog* box = new MaDialog();
1688	//données initiales
1689	/* String* path = new String("c:\\temp\\condip.txt.txt");
1690	if (!File::Exists(path))
1691	{
1692	Console::WriteLine("le fichier n'existe pas!");
1693	}
1694	*/
1695	//lecture du n°IP dans le fichier condip
1696	try
1697	{
1698	FileStream* fs = new FileStream("..\\condip.txt",FileMode::Open);
1699	StreamReader* sr = new StreamReader(fs);
1700	String* line = sr->ReadLine();
1701	box->setIp(line);
1702	}
1703	catch (System::Exception* pe)
1704	{
1705	Console::WriteLine(pe->ToString());
1706	}
1707	// box->setIp(S"134.158.91.254");
1708	box->setPort(S"502");
1709	box->setTimeout(1);
1710	//affiche la boite de dialogue
1711	if (box->ShowDialog() == DialogResult::OK)
1712	{
1713	//si la valeur OK est renvoyée, on affiche le nom
1714	MessageBox::Show(box->getIp(), S"le n° IP était...");
1715	}
1716
1717	}
1718	else if (pSender == anotherItem)
1719	{
1720	//crée la boite de dialogue utilisateur
1721	MaDialogUser* box = new MaDialogUser();
1722	//données initiales
1723	/* box->setIp(S"134.158.91.254");
1724	box->setPort(S"502");
1725	box->setTimeout(1);
1726	*/ //affiche la boite de dialogue
1727	if (box->ShowDialog() == DialogResult::OK)
1728	{
1729	//si la valeur OK est renvoyée, on affiche le nom
1730	MessageBox::Show(S"Lecture");
1731	}
1732	}
1733	else if (pSender == item1_1 \|\| pSender == item1_2)
1734	{
1735	// modbus_t *ctx;
1736	if(pSender == item1_1)
1737	{
1738	// ctx = (modbus_t *) malloc(sizeof(modbus_t));
1739	// Ex20cSquareRoot(4);
1740	// char* ptr = GetHeure(1);
1741	/* String* psone = String::Concat(S"il est ", GetHeure(1));
1742	MessageBox::Show(psone, S"heure");
1743	int* monInt = allou();
1744	int taille=sizeof(monInt);
1745	Console::WriteLine(taille);
1746	libere(monInt);
1747	*/
1748	//lecture du n°IP dans le fichier condip
1749	String* lineIp;
1750	try
1751	{
1752	FileStream* fs = new FileStream("..\\condip.txt",FileMode::Open);
1753	StreamReader* sr = new StreamReader(fs);
1754	lineIp = sr->ReadLine();
1755	}
1756	catch (System::Exception* pe)
1757	{
1758	Console::WriteLine(pe->ToString());
1759	}
1760
1761	Console::WriteLine(S"CppForm::MenuItem_Clicked : modbus_new_tcp...");
1762	// ctx = modbus_new_tcp("134.158.91.254", 502);//JCM
1763	char* chaineChar = static_cast<char *>(System::Runtime::InteropServices::Marshal::StringToHGlobalAnsi(lineIp).ToPointer());
1764	ctx = modbus_new_tcp(chaineChar,502);//JCM
1765	modbus_set_debug(ctx, 1);
1766	// modbus_set_error_recovery(ctx,
1767	// MODBUS_ERROR_RECOVERY_LINK \|
1768	// MODBUS_ERROR_RECOVERY_PROTOCOL);
1769	modbus_set_slave(ctx,1);//JCM: avec le serveur python slave=1
1770	if (modbus_connect(ctx) == -1) {
1771	Console::WriteLine(modbus_strerror(errno));
1772	modbus_free(ctx);
1773	}
1774	}
1775	else
1776	{
1777	modbus_free(ctx);
1778	}
1779	}
1780	else if (pSender == fontDlgItem)
1781	{
1782	FontDialog* fd = new FontDialog();
1783	fd->Font = labelFont;
1784
1785	if (fd->ShowDialog() == DialogResult::OK)//la police du label est modifiée selon le choix d el'uitlisateur
1786	{
1787	MessageBox::Show(fd->Font->Name, S"la police était...");
1788	labelFont = fd->Font;
1789	theLabel->Font = labelFont;
1790	}
1791	}
1792	else
1793	MessageBox::Show(S"AUTRE ITEM", S"Menu");
1794	}
1795
1796	void CppForm::Radio_Clicked(Object* pSender, EventArgs* pArgs)//remplit automatiquement la zone de texte
1797	{
1798	if (pSender == rb1)
1799	{
1800	text1->Text = "Read Coils choisi : \r\n\r\n"
1801	"FC01";
1802	uint8_t tab_rp_bits[1];
1803	int rc = modbus_read_bits(ctx, MODBUS_BASEADR_COILS, 1, tab_rp_bits);////JCM : adresse coils=MODBUS_BASEADR_COILS
1804	Console::WriteLine(S"CppForm::Radio_Clicked : read one coil...");
1805	if (rc != 1)
1806	Console::WriteLine(S"CppForm::Radio_Clicked : read one coil failed...");
1807	}
1808	else if (pSender == rb2)
1809	{
1810	text1->Text = "Write Coils choisi : \r\n\r\n"
1811	"FC15";
1812	uint8_t tab_value[77];//JCM
1813	modbus_set_bits_from_bytes(tab_value, 0, 77, UT_BITS_TAB);
1814	printf("tab[0]=%d,tab[1]=%d,tab[2]=%d\n", tab_value[0], tab_value[1], tab_value[2]);
1815	int rc = modbus_write_bits(ctx, MODBUS_BASEADR_COILS,//JCM : adresse coils=MODBUS_BASEADR_COILS
1816	77, tab_value);
1817	if (rc != 77)
1818	Console::WriteLine(S"CppForm::Radio_Clicked : write coil failed...");
1819	}
1820	else if (pSender == rb3)
1821	{
1822	text1->Text = "Read Holdings choisi : \r\n\r\n"
1823	"FC03";
1824	uint16_t tab_rp_registers[UT_REGISTERS_NB];
1825	int rc = modbus_read_registers(ctx, MODBUS_BASEADR_LOW_HOLDINGS,//JCM : adresse holding=MODBUS_BASEADR_LOW_HOLDINGS
1826	UT_REGISTERS_NB, tab_rp_registers);
1827	Console::WriteLine(S"CppForm::Radio_Clicked : read holding...");
1828	if (rc != UT_REGISTERS_NB)
1829	Console::WriteLine(S"CppForm::Radio_Clicked : read holding failed...");
1830	}
1831	else if (pSender == rb4)
1832	{
1833	text1->Text = "Write Holdings choisi :\r\n\r\n"
1834	"FC16";
1835	Random* myRnd = new Random();
1836	float realToWrite, real = myRnd->NextDouble();
1837	printf("random = %f\n", real<0.5 ? realToWrite=-1000real:realToWrite=1000real);
1838
1839	uint16_t tab_rp_registers[48];
1840	Console::WriteLine(S"CppForm::Radio_Clicked : write holding...");
1841	modbus_set_float(realToWrite, tab_rp_registers);//Pi_min
1842	int rc = modbus_write_registers(ctx, 2118,48 , tab_rp_registers);
1843	if (rc != 48)
1844	Console::WriteLine(S"CppForm::Radio_Clicked : write holding failed...");
1845	}
1846	}
1847
1848	void CppForm::Setup_Buttons()//creation et definition du bouton
1849	{
1850	// ajoute un bouton
1851	btn1 = new Button();
1852	btn1->Text = S"OK";//se sert de sa propriété Text pour definir son titre
1853
1854	btn1->Size = System::Drawing::Size(70, 25);//taille du bouton en pixels
1855	btn1->Location = Point(230, 400);//emplacement
1856	// btn1->Font = new System::Drawing::Font(S"Verdana", 16, FontStyle::Bold);;//l'objet Font est sauvegardé dans l'objet LabelFont grâce au pointeur
1857	// btn1->ForeColor = Color::Brown;
1858
1859	btn1->Click += new EventHandler(this, &CppForm::Btn1_Clicked);//creation d'un objet EventHandler en..
1860	//..lui transmettant un ptr sur le bouotn et l'adresse de la fonction en charge de..
1861	//..l'evenement
1862
1863	Controls->Add(btn1);//pour avertir le formulaire de la présence du bouton, on ajoute le bouton..
1864	//.. dans la collection des controles du formulaire
1865
1866	// idem pour 2eme bouton
1867	btn2 = new Button();
1868	btn2->Text = S"Annuler";//..
1869
1870	btn2->Size = System::Drawing::Size(70, 25);//..
1871	btn2->Location = Point(310, 400);//..
1872	btn2->Click += new EventHandler(this, &CppForm::Btn2_Clicked);
1873	Controls->Add(btn2);//..
1874	//..
1875
1876	// idem pour 3eme bouton
1877	btn3 = new Button();
1878	btn3->Text = S"Connexion";//..
1879
1880	btn3->Size = System::Drawing::Size(120, 25);//..
1881	btn3->Location = Point(50, 220);//..
1882	btn3->Font = new System::Drawing::Font(S"Verdana", 12, FontStyle::Bold);;//l'objet Font est sauvegardé dans l'objet LabelFont grâce au pointeur
1883	btn3->ForeColor = Color::Brown;
1884
1885	btn3->Click += new EventHandler(this, &CppForm::Btn3_Clicked);
1886	Controls->Add(btn3);//..
1887	//..
1888	// idem pour 4eme bouton
1889	btn4 = new Button();
1890	btn4->Text = S"Ecriture";//..
1891
1892	btn4->Size = System::Drawing::Size(120, 25);//..
1893	btn4->Location = Point(475, 220);//..
1894	btn4->Font = new System::Drawing::Font(S"Verdana", 12, FontStyle::Bold);;//l'objet Font est sauvegardé dans l'objet LabelFont grâce au pointeur
1895	btn4->ForeColor = Color::Brown;
1896
1897	btn4->Click += new EventHandler(this, &CppForm::Btn4_Clicked);
1898	Controls->Add(btn4);//..
1899	//..
1900
1901	}
1902
1903	void CppForm::Setup_Combo ()//configuration de la liste deroulmnte
1904	{
1905	// creation
1906	combo1 = new ComboBox();
1907	combo1->DropDownStyle = ComboBoxStyle::DropDownList;
1908	// combo1->Location = Point(20,180);
1909	combo1->Location = Point(20,280);
1910
1911	// pour ajuster la taille en fonction de la plus longue chaine
1912	// la valeur 20 correspond à la taille du bouton situé à droite du bouton d'édition
1913	Label* l1 = new Label();
1914	l1->Text = S"Automatique";
1915	combo1->Width = l1->PreferredWidth + 20;
1916
1917	// ajout de qqs chaines et association avec tous les controles du formulaire
1918	combo1->Items->Add(S"Manuel");
1919	combo1->Items->Add(S"Automatique");
1920	combo1->Items->Add(S"...");
1921	combo1->SelectedIndex = 0;//affiche la 1ere chaine par defaut
1922
1923	// ajout du groupe dans le formulaire
1924	Controls->Add(combo1);
1925
1926	// associe le gestionnaire à liste deroulante.
1927	combo1->SelectedIndexChanged += new EventHandler(this, &CppForm::Combo1_SelChanged);
1928	}
1929
1930	void CppForm::Setup_Context_Menu ()//menu contextuel
1931	{
1932	// Creation
1933	popupMenu = new System::Windows::Forms::ContextMenu();
1934
1935	// Creation des items.
1936	item_p1 = new MenuItem("UN");
1937	popupMenu->MenuItems->Add(item_p1);
1938	item_p2 = new MenuItem("DEUX");
1939	popupMenu->MenuItems->Add(item_p2);
1940	item_p3 = new MenuItem("TROIS");
1941	popupMenu->MenuItems->Add(item_p3);
1942
1943	//associe le menu contextuel au formulaire
1944	ContextMenu = popupMenu;
1945	}
1946
1947	void CppForm::Setup_Group ()//creation et configuration d'un groupe d'options
1948	{
1949	// Creation
1950	gbox = new GroupBox();
1951	gbox->Text = S"Fonction Code";
1952	gbox->Size = System::Drawing::Size(200, 150);//taille du groupbox en pixels
1953	gbox->Location = Point(20, 90);
1954
1955	// Creation des boutons radio.
1956	rb1 = new RadioButton();
1957	rb1->Text = S"Read Coils";
1958	rb1->Location = Point(10,25);
1959
1960	rb2 = new RadioButton();
1961	rb2->Text = S"Write Coils";
1962	rb2->Location = Point(10,55);
1963
1964	rb3 = new RadioButton();
1965	rb3->Text = S"Read Holdings";
1966	rb3->Location = Point(10,85);
1967	// rb3->Checked = true;//c'est la valeur par defaut
1968
1969	rb4 = new RadioButton();
1970	rb4->Text = S"Write Holdings";
1971	rb4->Location = Point(10,115);
1972	rb4->Checked = true;//c'est la valeur par defaut
1973
1974	// ajout des controles dans le groupe
1975	gbox->Controls->Add(rb1);
1976	gbox->Controls->Add(rb2);
1977	gbox->Controls->Add(rb3);
1978	gbox->Controls->Add(rb4);
1979
1980	// ajout du groupe dans le formulaire.
1981	Controls->Add(gbox);
1982
1983	// associe le gestionnaire au groupe d'options
1984	rb1->Click += new EventHandler(this, &CppForm::Radio_Clicked);
1985	rb2->Click += new EventHandler(this, &CppForm::Radio_Clicked);
1986	rb3->Click += new EventHandler(this, &CppForm::Radio_Clicked);
1987	rb4->Click += new EventHandler(this, &CppForm::Radio_Clicked);
1988	}
1989
1990	void CppForm::Setup_Label()//description textuelle dans le formulaire
1991	{
1992	theLabel = new Label();
1993	theLabel->AutoSize = true;
1994
1995	theLabel->Text = S" XFEL Supervision Client";//les espaces sont prévus pour inserer uen image
1996
1997	// definition de la police
1998	// labelFont = new System::Drawing::Font(S"Verdana", 20, FontStyle::Italic);
1999	labelFont = new System::Drawing::Font(S"Arial", 20, FontStyle::Italic);
2000	theLabel->Font = labelFont;//l'objet Font est sauvegardé dans l'objet LabelFont grâce au pointeur
2001	theLabel->ForeColor = Color::Black;
2002
2003	// taille et emplacement
2004	// theLabel->Location = Point(300,20);
2005	theLabel->Location = Point(125,40);
2006	theLabel->Size = System::Drawing::Size(theLabel->PreferredWidth,
2007	theLabel->PreferredHeight);
2008
2009	// ajout de l'image
2010	// Bitmap* theImage = new Bitmap("SAVE.BMP");
2011	Bitmap* theImage = new Bitmap("..//image1.BMP");
2012	theLabel->Image = theImage;
2013	theLabel->ImageAlign = ContentAlignment::MiddleLeft;
2014
2015	// ajout du label dans la collection des controles du formulaire
2016	Controls->Add(theLabel);
2017	}
2018
2019	void CppForm::Setup_Menu()//barre de menu
2020	{
2021	// Creation de la barre de menu principal
2022	menuBar = new MainMenu();
2023
2024	// Cree le menu fichier.
2025	fileMenu = new MenuItem("&Fichier");
2026	menuBar->MenuItems->Add(fileMenu);
2027
2028	// Cree les elements du menu et les affiche.
2029	item1 = new MenuItem("&A propos...");
2030	item11 = new MenuItem("&MaDialogBox...");
2031	fontDlgItem = new MenuItem("&Choisir la police...");
2032	item2 = new MenuItem("S&ortie");
2033	fileMenu->MenuItems->Add(item1);
2034	fileMenu->MenuItems->Add(item11);
2035	fileMenu->MenuItems->Add(fontDlgItem);
2036	fileMenu->MenuItems->Add(item2);
2037
2038	// associe le gestionnaire ayx elements du menu.
2039	item1->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2040	item11->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2041	fontDlgItem->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2042	item2->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2043
2044	// ajoute le menu principal dans le formulaire
2045	Menu = menuBar;
2046
2047	//,menu déroulant ajouté à la barre de menu, puis 2 éléments
2048	actionMenu =new MenuItem("Action");
2049	menuBar->MenuItems->Add(actionMenu);
2050	subMenu1=new MenuItem("Faire");
2051	actionMenu->MenuItems->Add(subMenu1);
2052	//barre de séparation, le ptr n'est pas sauvegardé car le sépérateur ne peut être sélectionné
2053	actionMenu->MenuItems->Add(new MenuItem("-"));
2054	anotherItem=new MenuItem("lecture serveur");
2055	actionMenu->MenuItems->Add(anotherItem);
2056	//crée les 2 élements du menu et les ajoute
2057	item1_1 =new MenuItem("connexion serveur...");
2058	item1_2 = new MenuItem("deconnexion serveur...");
2059	subMenu1->MenuItems->Add(item1_1);
2060	subMenu1->MenuItems->Add(item1_2);
2061	//on pourrait aussi utiliser des propriétés pour afficher un syumbole..
2062	//..disant élémen tselectionné (Checked) et griser des éléments du menu (Enabled)
2063
2064	// associe le gestionnaire aux elements du menu.
2065	anotherItem->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2066	item1_1->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2067	item1_2->Click += new EventHandler(this, &CppForm::MenuItem_Clicked);
2068	}
2069
2070	void CppForm::Setup_Text()//controle d'edition
2071	{
2072	text1 = new TextBox();
2073	text1->Location = Point(200,110);
2074	text1->Size = System::Drawing::Size(250,250);
2075	text1->Multiline = true;
2076
2077	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";
2080
2081
2082	Controls->Add(text1);
2083	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: