1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
|
// MoDiT.cpp : Defines the entry point for the application.
#include "stdafx.h"
#include "MoDiT.h"
#include <string>
using namespace std;
#define MAX_LOADSTRING 100
// Global Variables:
HINSTANCE hInst; // current instance
TCHAR szTitle[MAX_LOADSTRING]; // The title bar text
TCHAR szWindowClass[MAX_LOADSTRING]; // the main window class name
Param Param1;
// Forward declarations of functions included in this code module:
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
LRESULT CALLBACK About(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK Param(HWND, UINT, WPARAM, LPARAM);
int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR lpCmdLine,
int nCmdShow)
{
// TODO: Place code here.
MSG msg;
HACCEL hAccelTable;
string IniDir = Param1.GetAppDir();
Param1.Nel = GetPrivateProfileInt("Maillage","NbrMailles",0,IniDir.c_str());
Param1.TypeE = GetPrivateProfileInt("Elements","Type",0,IniDir.c_str());
Param1.TypeS = GetPrivateProfileInt("Spatial","Type",0,IniDir.c_str());
Param1.TypeT = GetPrivateProfileInt("Temporel","Type",0,IniDir.c_str());
// Initialize global strings
LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
LoadString(hInstance, IDC_MODIT, szWindowClass, MAX_LOADSTRING);
MyRegisterClass(hInstance);
// Perform application initialization:
if (!InitInstance (hInstance, nCmdShow))
{
return FALSE;
}
hAccelTable = LoadAccelerators(hInstance, (LPCTSTR)IDC_MODIT);
// Main message loop:
while (GetMessage(&msg, NULL, 0, 0))
{
if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
return (int) msg.wParam;
}
//
// FUNCTION: MyRegisterClass()
//
// PURPOSE: Registers the window class.
//
// COMMENTS:
//
// This function and its usage are only necessary if you want this code
// to be compatible with Win32 systems prior to the 'RegisterClassEx'
// function that was added to Windows 95. It is important to call this function
// so that the application will get 'well formed' small icons associated
// with it.
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{
WNDCLASSEX wcex;
wcex.cbSize = sizeof(WNDCLASSEX);
wcex.style = CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc = (WNDPROC)WndProc;
wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;
wcex.hInstance = hInstance;
wcex.hIcon = LoadIcon(hInstance, (LPCTSTR)IDI_MODIT);
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName = (LPCTSTR)IDC_MODIT;
wcex.lpszClassName = szWindowClass;
wcex.hIconSm = LoadIcon(wcex.hInstance, (LPCTSTR)IDI_SMALL);
return RegisterClassEx(&wcex);
}
//
// FUNCTION: InitInstance(HANDLE, int)
//
// PURPOSE: Saves instance handle and creates main window
//
// COMMENTS:
//
// In this function, we save the instance handle in a global variable and
// create and display the main program window.
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
HWND hWnd;
hInst = hInstance; // Store instance handle in our global variable
hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);
if (!hWnd)
{
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
return TRUE;
}
//
// FUNCTION: WndProc(HWND, unsigned, WORD, LONG)
//
// PURPOSE: Processes messages for the main window.
//
// WM_COMMAND - process the application menu
// WM_PAINT - Paint the main window
// WM_DESTROY - post a quit message and return
//
//
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
int wmId, wmEvent,ibuffer;
PAINTSTRUCT ps;
HDC hdc;
ibuffer = Param1.Nel;
string buffer;
char * affiche = new char;
size_t size;
switch (message)
{
case WM_COMMAND:
wmId = LOWORD(wParam);
wmEvent = HIWORD(wParam);
// Parse the menu selections:
switch (wmId)
{
case IDM_ABOUT:
DialogBox(hInst, (LPCTSTR)IDD_ABOUTBOX, hWnd, (DLGPROC)About);
break;
case ID_PARAM_MODIFIER:
DialogBox(hInst, (LPCTSTR)IDD_PARAM, hWnd, (DLGPROC)About);
break;
case IDM_EXIT:
DestroyWindow(hWnd);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
break;
case WM_PAINT:
hdc = BeginPaint(hWnd, &ps);
HFONT hFont;
HFONT hFont2;
hFont = CreateFont( 18, //taille de la police
0,0,0,
FW_NORMAL, //type de gras
FALSE, TRUE, FALSE, // italique, souligné, barré
ANSI_CHARSET, //type des caractères utilisés (ASCII)
OUT_DEFAULT_PRECIS, //type d’affichage de la police
CLIP_DEFAULT_PRECIS, //(caractètres plus ou moins espacés)
DEFAULT_QUALITY,
VARIABLE_PITCH, //espacement régulier ou non entre les caractères
"Arial") ;
SelectObject(hdc, hFont);
//strncpy( affiche, buffer.c_str(), size );
//TextOut (hdc, 10, 10,buffer.c_str() ,size);
TextOut (hdc, 10, 10,"Paramètres: ", strlen("Paramètres: "));
hFont2 = CreateFont(14,0,0,0,FW_NORMAL,FALSE, FALSE, FALSE,ANSI_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,VARIABLE_PITCH,"Arial") ;
SelectObject(hdc, hFont2);
buffer = "Nombre de Maille: " + Param1.IntToString(Param1.Nel);
size = buffer.size();
TextOut (hdc, 40, 50,buffer.c_str(), size);
buffer = "Nombre de subdivisions: ";
switch (Param1.TypeE)
{
case 2:
buffer += "Linéaire";
break;
case 3:
buffer += "Quadratique";
break;
default:
buffer += "Non défini";
break;
}
size = buffer.size();
TextOut (hdc, 40, 80,buffer.c_str(), size);
buffer = "Type de Maillage Temporel: ";
switch (Param1.TypeT)
{
case 1:
buffer += "Euler Implicite";
break;
case 2:
buffer += "Euler Explicite";
break;
case 3:
buffer += "2nd Ordre Implicite";
break;
case 4:
buffer += "2nd Ordre Explicite";
break;
default:
buffer += "Non défini";
break;
}
size = buffer.size();
TextOut (hdc, 40, 110,buffer.c_str(), size);
buffer = "Résolution Spatiale: ";
switch (Param1.TypeS)
{
case 1:
buffer += "Moindres Carrés";
break;
default:
buffer += "Non défini";
break;
}
size = buffer.size();
TextOut (hdc, 40, 140,buffer.c_str(), size);
break;
EndPaint(hWnd, &ps);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}
// Message handler for about box.
LRESULT CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
switch (message)
{
case WM_INITDIALOG:
return TRUE;
case WM_COMMAND:
if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
{
EndDialog(hDlg, LOWORD(wParam));
return TRUE;
}
break;
}
return FALSE;
}
INT_PTR CALLBACK Param(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
INT_PTR retour = TRUE;
switch (message)
{
case WM_INITDIALOG:
SendDlgItemMessage(hDlg, IDC_COMBO2, CB_ADDSTRING, 0, reinterpret_cast<LPARAM>(TEXT("Bonjour")));
break;
case WM_COMMAND:
if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
{
EndDialog(hDlg, LOWORD(wParam));
break;
}
break;
default:
retour = FALSE;
break;
}
return retour;
} |
