1 /***********************************************************************
2 *
3 * ***** *** ***
4 * * * * * *
5 * * *** ***
6 * * * * * *
7 * ***** *** ***
8 *
9 * A FREE Finite Elements Analysis Program in ANSI C for the Windows OS.
10 *
11 * Composed and edited and copyright by
12 * Professor Dr.-Ing. Frank Rieg, University of Bayreuth, Germany
13 *
14 * eMail:
15 * frank.rieg@uni-bayreuth.de
16 * dr.frank.rieg@t-online.de
17 *
18 * V15.0 November 18, 2015
19 *
20 * This program is free software; you can redistribute it and/or modify
21 * it under the terms of the GNU General Public License as published by
22 * the Free Software Foundation; either version 2, or (at your option)
23 * any later version.
24 *
25 * This program is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28 * GNU General Public License for more details.
29 *
30 * You should have received a copy of the GNU General Public License
31 * along with this program; see the file COPYING. If not, write to
32 * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
33 ***********************************************************************/
34 /***********************************************************************
35 * wrim88g gibt Texte aus (1 FR_INT4)
36 * 30.7.2011 Rieg
37 ***********************************************************************/
38
39 /***********************************************************************
40 * Fuer Windows
41 ***********************************************************************/
42 #ifdef FR_WIN
43 #include <z88g.h>
44 #include <windows.h>
45 #include <string.h> /* strlen */
46 #include <stdio.h> /* sprintf */
47 #endif
48
49 /***********************************************************************
50 * Formate
51 ***********************************************************************/
52 #ifdef FR_XINT
53 #define PD "%d"
54 #endif
55
56 #ifdef FR_XLONG
57 #define PD "%ld"
58 #endif
59
60 #ifdef FR_XLOLO
61 #define PD "%lld"
62 #endif
63
64 /***********************************************************************
65 * hier beginnt Function wrim88g
66 ***********************************************************************/
wrim88g(FR_INT4 i,int iatx)67 int wrim88g(FR_INT4 i,int iatx)
68 {
69 extern HDC hDC;
70 extern FR_INT4 LANG;
71
72 size_t laenge;
73
74 char cline[80];
75
76 switch(iatx)
77 {
78 case TX_COSOPEN:
79 if(LANG == 1) TextOut(hDC,10,50,"Z88G.COS geoeffnet",18);
80 if(LANG == 2) TextOut(hDC,10,50,"Z88G.COS opened",15);
81 break;
82
83 case TX_NASOPEN:
84 if(LANG == 1) TextOut(hDC,10,50,"Z88G.NAS geoeffnet",18);
85 if(LANG == 2) TextOut(hDC,10,50,"Z88G.NAS opened",15);
86 break;
87
88 case TX_I1OPEN:
89 if(LANG == 1) TextOut(hDC,280,50,"Z88I1.TXT geoeffnet",19);
90 if(LANG == 2) TextOut(hDC,280,50,"Z88I1.TXT opened",16);
91 break;
92
93 case TX_I2OPEN:
94 if(LANG == 1) TextOut(hDC,10,70,"Z88I2.TXT geoeffnet",19);
95 if(LANG == 2) TextOut(hDC,10,70,"Z88I2.TXT opened",16);
96 break;
97
98 case TX_DIMDET:
99 if(LANG == 1) sprintf(cline,PD "-D Struktur entdeckt",i);
100 if(LANG == 2) sprintf(cline,PD "-D structure detected",i);
101 laenge= strlen(cline);
102 TextOut(hDC,10,90,cline,laenge);
103 break;
104
105 case TX_NODDET:
106 if(LANG == 1) sprintf(cline,PD " Knoten entdeckt",i);
107 if(LANG == 2) sprintf(cline,PD " nodes detected",i);
108 laenge= strlen(cline);
109 TextOut(hDC,280,90,cline,laenge);
110 break;
111
112 case TX_ELEDET:
113 if(LANG == 1) sprintf(cline,PD " Elemente entdeckt",i);
114 if(LANG == 2) sprintf(cline,PD " elements detected",i);
115 laenge= strlen(cline);
116 TextOut(hDC,10,110,cline,laenge);
117 break;
118
119 case TX_CONDET:
120 if(LANG == 1) sprintf(cline,PD " Randbedingungen entdeckt",i);
121 if(LANG == 2) sprintf(cline,PD " boundary conditions detected",i);
122 laenge= strlen(cline);
123 TextOut(hDC,280,110,cline,laenge);
124 break;
125
126 case TX_PELDET:
127 if(LANG == 1) sprintf(cline,PD " Elemente mit Druck entdeckt",i);
128 if(LANG == 2) sprintf(cline,PD " elements with pressure detected",i);
129 laenge= strlen(cline);
130 TextOut(hDC,280,130,cline,laenge);
131 break;
132
133 case TX_REAWRI:
134 if(LANG == 1) TextOut(hDC,10,150,"Z88G.COS/IN lesen, Z88I*.TXT schreiben",38);
135 if(LANG == 2) TextOut(hDC,10,150,"reading Z88G.COS/IN, writing Z88I*.TXT",38);
136 break;
137
138 case TX_NODDON:
139 if(LANG == 1) sprintf(cline,PD " Knoten erledigt",i);
140 if(LANG == 2) sprintf(cline,PD " nodes done",i);
141 laenge= strlen(cline);
142 TextOut(hDC,10,170,cline,laenge);
143 break;
144
145 case TX_ELEDON:
146 if(LANG == 1) sprintf(cline,PD " Elemente erledigt",i);
147 if(LANG == 2) sprintf(cline,PD " elements done",i);
148 laenge= strlen(cline);
149 TextOut(hDC,280,170,cline,laenge);
150 break;
151
152 case TX_CONDON:
153 if(LANG == 1) sprintf(cline,PD " Randbedingungen erledigt",i);
154 if(LANG == 2) sprintf(cline,PD " boundary conditions done",i);
155 laenge= strlen(cline);
156 TextOut(hDC,10,190,cline,laenge);
157 break;
158
159 case TX_16DET:
160 if(LANG == 1) sprintf(cline,PD " Tetraeder Nr.16 entdeckt",i);
161 if(LANG == 2) sprintf(cline,PD " tetrahedrons No.16 detected",i);
162 laenge= strlen(cline);
163 TextOut(hDC,10,210,cline,laenge);
164 break;
165
166 case TX_17DET:
167 if(LANG == 1) sprintf(cline,PD " Tetraeder Nr.17 entdeckt",i);
168 if(LANG == 2) sprintf(cline,PD " tetrahedrons No.17 detected",i);
169 laenge= strlen(cline);
170 TextOut(hDC,280,210,cline,laenge);
171 break;
172
173 case TX_7DET:
174 if(LANG == 1) sprintf(cline,PD " Scheiben Nr.7 entdeckt",i);
175 if(LANG == 2) sprintf(cline,PD " plane stress ele. No.7 detected",i);
176 laenge= strlen(cline);
177 TextOut(hDC,10,230,cline,laenge);
178 break;
179
180 case TX_14DET:
181 if(LANG == 1) sprintf(cline,PD " Scheiben Nr.14 entdeckt",i);
182 if(LANG == 2) sprintf(cline,PD " plane stress ele. No.14 detected",i);
183 laenge= strlen(cline);
184 TextOut(hDC,280,230,cline,laenge);
185 break;
186
187 case TX_18DET:
188 if(LANG == 1) sprintf(cline,PD " Platten Nr.18 entdeckt",i);
189 if(LANG == 2) sprintf(cline,PD " plates No.18 detected",i);
190 laenge= strlen(cline);
191 TextOut(hDC,10,250,cline,laenge);
192 break;
193
194 case TX_20DET:
195 if(LANG == 1) sprintf(cline,PD " Platten Nr.20 entdeckt",i);
196 if(LANG == 2) sprintf(cline,PD " plates No.20 detected",i);
197 laenge= strlen(cline);
198 TextOut(hDC,280,250,cline,laenge);
199 break;
200
201 case TX_8DET:
202 if(LANG == 1) sprintf(cline,PD " Torus Nr.8 entdeckt",i);
203 if(LANG == 2) sprintf(cline,PD " torus No.8 detected",i);
204 laenge= strlen(cline);
205 TextOut(hDC,10,250,cline,laenge);
206 break;
207
208 case TX_15DET:
209 if(LANG == 1) sprintf(cline,PD " Torus Nr.15 entdeckt",i);
210 if(LANG == 2) sprintf(cline,PD " torus No.15 detected",i);
211 laenge= strlen(cline);
212 TextOut(hDC,280,250,cline,laenge);
213 break;
214
215 case TX_23DET:
216 if(LANG == 1) sprintf(cline,PD " Schalen Nr.23 entdeckt",i);
217 if(LANG == 2) sprintf(cline,PD " shells No.23 detected",i);
218 laenge= strlen(cline);
219 TextOut(hDC,10,250,cline,laenge);
220 break;
221
222 case TX_24DET:
223 if(LANG == 1) sprintf(cline,PD " Schalen Nr.24 entdeckt",i);
224 if(LANG == 2) sprintf(cline,PD " shells No.24 detected",i);
225 laenge= strlen(cline);
226 TextOut(hDC,280,250,cline,laenge);
227 break;
228
229 case TX_Z88CS:
230 if(LANG == 1) TextOut(hDC,10,270,"Z88-Daten berechnet und gespeichert",35);
231 if(LANG == 2) TextOut(hDC,10,270,"Z88 data computed and stored",28);
232 break;
233
234 case TX_Z88DONE:
235 if(LANG == 1) TextOut(hDC,280,270,"Alle Dateien geschlossen. Ende Z88G",35);
236 if(LANG == 2) TextOut(hDC,280,270,"All files closed. Z88G done",27);
237 break;
238 }
239 return(0);
240 }
241
242