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
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
|
'©Créer Par ©*CASTOU60*©
MsgBox "Voici le mot de pass :" & vbCrLf & "" & vbCrLf & "castou60",vbInformation + vbOkOnly + vbApplicationModal + 0,"Mot de Passe"
Dim Choix,per,sur,vol,Forme,Response,nom,Dsys,hs,Pws,pwd
Nom=inputbox("Entrer votre prénom.","Calcul de formes Géométrique")&nom
pwd=inputbox("Entrer un Mot de passe.","Calcul de formes Géométrique")&pwd
Dsys = Date : hs = Time : Per=false : Sur=false : Choix=null
Pws="castou60"
testpass()
Function Testpass()
If Pwd=pws Then wscript.echo("Bonjour ")&nom,("nous sommes le ")&dsys,(" et il est ")&hs,(" Bienvenue dans le module de calcul de formes géometrique. 1°) Choisisser le mode de calcule de votre choix : (P) pour perimetre (S) pour surface (V) pour volume. 2°) Choisisser la Forme Géométrique souhaiter. 3°) Entrer les dimensions demander 4°) Convertisser vos résultats si vous le souhaiter. Cette application a été créer par Emmanuel Leclerc ©CASTOU60") : Choix_fonction()
If Pwd=pwd Then Sortir()
End Function
Function Choix_fonction()
Per=false : Sur=false : Choix=null : Forme=null : Response=null
Choix=inputbox("Choisisser le mode de calcul, (P) pour le périmètre (S) pour la Surface (V) pour le volume ","Calcul de formes Géométrique"," P , S , V")&Choix
If Choix="p" Or Choix="P" then Per=true
If Choix="s" Or Choix="S" Then Sur=true
if choix="v" or Choix="V" then vol=true
Choix=null
Traitement_formes()
End Function
Function Traitement_formes()
If Per=true Then Sur=false : Forme=inputbox("Maintenant choisissez une forme géometrique (c) pour Carrer (C) pour Cube (R) pour Rectangle (L) pour Losange (P) pour Polygone","Calcul de formes Géométrique","c,C,R,L,p")&Forme
If Sur=true Then Per=false : Forme=inputbox("Maintenant choisissez une forme géometrique (B) pour Boule (c) pour Carrer (C) pour Cube (Co) pour Cône (CYD) pour Cylindre droit (R) pour Rectangle (L) pour Losange (P) pour Polygone (Tr) pour Trapèze (Tor) pour Tore","Calcul de formes Géométrique","b,c,C,Co,CYD,CYT,R,L,p,tr,tor")&Forme
if vol=true then Forme=inputbox("Entrer (CYD) pour cylindre droit (CYT) pour Cylindre tronquer (T) pour tonneau (TOR) pour Tore","Calcul de formes Géométrique","t,tor,cyd,cyt")&Forme
If Forme="b" Or Forme="B" And Sur=true Then Boule()
If Forme="c" And Per=true Then Carrer_perimetre()
If Forme="c" And Sur=true Then Carrer_surface()
If Forme="C" And Per=true Then Cube_perimetre()
If Forme="C" And Sur=true Then Cube_surface()
If Forme="R" Or Forme="r" And Per=true Then Rectangle_perimetre()
If Forme="R" Or Forme="r" And Sur=true Then Rectangle_surface()
If Forme="L" Or Forme="l" And Per=true Then Los_per()
If Forme="L" Or Forme="l" And Sur=true Then Los_surf()
If Forme="P" Or Forme="p" And Per=true Then Po_per()
If Forme="P" Or Forme="p" And Sur=true Then wscript.echo("Veuiller Calculer le perimetre du polygone pour obtenir la suface") : Choix_fonction()
If Forme="t" Or Forme="T" And Vol=true Then Vol_tonneau()
If Forme="tr" Or Forme="Tr" Or Forme="TR" Or Forme="tR" And Sur=true Then Trapeze()
If Forme="tor" Or Forme="Tor" Or Forme="TOR" Or Forme="tOR" And Vol=true Then voltor()
If Forme="tor" Or Forme="Tor" Or Forme="TOR" Or Forme="tOR" And Sur=true Then Surfto()
If Forme="CYD" Or Forme="Cyd" Or Forme="CyD" Or Forme="cyd" And Sur=true Then surfaceCYD()
If Forme="CYD" Or Forme="Cyd" Or Forme="CyD" Or Forme="cyd" And Vol=true Then voluCYD()
If Forme="CYT" Or Forme="Cyt" Or Forme="CyT" Or Forme="cyt" And Vol=true Then Volcytr()
If Forme="Co" Or Forme="CO" Or Forme="co" And Sur=true Then Surco()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
'**********************Calcul de la surface d'un cone***************************
Function Surco()
Dim sur,Surface,pi,a,rayon,diam
Pi=4*Atn(1)
Diam=inputbox("Entrer le Diametre du Cône","Calcul de la surface d'un Cône")&diam
Rayon=(diam/2)
A=inputbox("Entrer la distance entre la base et la pointe du cône","Calcul de la surface d'un Cône")&a
Sur=(pi * Rayon)
Surface=(sur * A)
surface=fix(surface)
wscript.echo("La surface du cône est de ")&surface,(" Cm²")
Response=MsgBox( VbCrLf & "VOULEZ_VOUS CONTINUER ?" & VbCrLf & "" & VbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + VbYesNo + VbApplicationModal + 0,"Calcul de formes géométrique") :re()
Sur=null : Surface=null : Pi=null : A=null : Rayon=null : Diam=null
End Function
'*******************************************************************************
'**********************Calcul de la surface d'un cylindre droit*****************
function surfaceCYD()
Dim Pi,para,parb,diam,ray,h
Pi=4*Atn(1)
diam=inputbox("Entrer le Diametre du cylindre","Calcul de la surface d'un cylindre")&diam
ray=(diam/2)
H=inputbox("Entrer la hauteur du cylindre","Calcul de la surface d'un cylindre")&h
Para=(2*pi)
Parb=(ray*h)
Sur=(para * Parb)
sur=fix(sur)
Wscript.Echo("La Surface du cylindre droit est de ")&sur,("Cm²")
Convertir=MsgBox ("Voulez_vous convertir votre resultat en mm² ou en m² ?",vbInformation + VbYesNo + VbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then sur=sur*100 : Wscript.Echo("Le resultat après conversion est de: ")&sur,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then sur=sur/1000 : Wscript.Echo("Le resultat après conversion est de: ")&sur,(" ")&uniter, ("²")
Pi=null : Para=null : Parb=null : Diam=null : Ray=null : h=null
Response=MsgBox( VbCrLf & "VOULEZ_VOUS CONTINUER ?" & VbCrLf & "" & VbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + VbYesNo + VbApplicationModal + 0,"Calcul de formes géométrique") :re()
End Function
'©Créer Par ©*CASTOU60*©
'*******************************************************************************
'**********************Calcul du volume d'un cylindre droit*********************
function voluCYD()
Dim B,H,vol
B=inputbox("Entrer la dimension de la base","Calcul du volume d'un cylindre")&base
H=inputbox("Entrer la dimension de la hauteur","Calcul du volume d'un cylindre")&H
Vol=(b*H)
Wscript.Echo("Le volume du Cylindre est de ")&vol,("Cm³")
Convertir=MsgBox ("Voulez_vous convertir votre resultat en mm² ou en m² ?",vbInformation + VbYesNo + VbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then Vol=Vol*1000 : Wscript.Echo("Le resultat après conversion est de: ")&vol,(" ")&uniter,("³")
If Uniter="m" Or Uniter="M" Then Vol=Vol/10000 : Wscript.Echo("Le resultat après conversion est de: ")&vol,(" ")&uniter, ("³")
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
b=null : h=null : vol=null
End Function
'©Créer Par ©*CASTOU60*©
'*******************************************************************************
'**********************Calcul du volume d'un cylindre tronquer******************
function volcytr()
dim pi,vola,volb,voluc,diametre,rayon,rcarrer,hta,htb
Pi=4*Atn(1)
diametre=inputbox("Entrer le Diametre du cylindre","Calcul de la surface d'un cylindre")&diam
rayon=(diametre/2)
Rcarrer=(rayon^2)
Hta=inputbox("Entrer la hauteur_1","Calcul de la surface d'un cylindre")&hta
htb=inputbox("Entrer la hauteur_2","Calcul de la surface d'un cylindre")&htb
Vola=(pi*rcarrer)
volb=(hta/2 + htb/2)
Volc=(vola * Volb)
volc=fix(volc)
Wscript.Echo("Le Volume du cylindre tronquer est de :")&volc,("Cm³")
Vola=null : Volb=null : Volc=null : Pi=null : Diametre=null : Rayon=null : Rcarrer=null : Hta=null : htb=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer ©*CASTOU60*©
End Function
'**********************Calcul du Périmetre d'un Polygone************************
'©Créer Par ©*CASTOU60*©
Function Po_per()
Dim apo,circle,r,raci,Nbcoter,perpo,surpo
Wscript.Echo("Calculer l'Apothème du polygone")
If Per=true Then circle=inputbox("Entrer le diametre du cercle contenant le polygone","Calcul de l'apothème du Polygone")&circle
r=circle/2
raci=Sqr(3)
apo=r*(raci/2)
Nbcoter=inputbox("Entrer le nombre de coter","Calcul du périmetre d'un Polygone")&Nbcoter
Perpo=apo*Nbcoter : perpo=fix(perpo)
Surpo=(apo/2)*perpo : surpo=fix(surpo)
if surpo=surpo then Wscript.Echo("Le périmetre du Polygone est de ")&perpo,("Cm et sa Surface de ")&surpo,("Cm²")
'©Créer ©*CASTOU60*©
Apo=null : R=null : Raci=null : circle=null : surpo=null : Nbcoter=null : Perpo=null : Superpo=null : M=null : Mm=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
End Function
'©Créer ©*CASTOU60*©
'*******************************************************************************
'***********************Calcule de la surface d'une Tore************************
Function Surfto()
Dim GrandDiam,Petitdiam,GrRayon,Ptiray,pi,pcar,face
Pi=4*Atn(1)
pcar=pi^2
GrandDiam=inputbox("Entrer le grand diametre de la Tore","Calcule de la surface d'une Tore")&GrandDiam
GrRayon=GrandDiam/2
Petitdiam=inputbox("Entrer le petit diametre de la Tore","Calcule de la surface d'une Tore")&Petitdiam
Ptiray=Petitdiam/2
Face=4*pcar*Ptiray*GrRayon
face=fix(face)
Wscript.Echo("La surface de la Tore est de ")&face,(" Cm²")
Convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + VbYesNo + VbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure")&uniter
If Uniter="mm" or Uniter="Mm" Then face=face*10 : Wscript.Echo("Le resultat après conversion est de: ")&face,(" ")&uniter
If Uniter="m" Or Uniter="M" Then face=face/100 : Wscript.Echo("Le resultat après conversion est de: ")&face,(" ")&uniter
uniter=null : convertir=null : Perilosange=null : GrandDiam=null : Petitdiam=null : GrRayon=null : Ptiray=null : pi=null : pcar=null : face=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
'***********************Calcule du volume d'une Tore****************************
function voltor()
Dim GrandDiam,vo,vob,Petitdiam,GRayon,Ptiray,pi,pcar,Ptiraycar,voa
Pi=4*Atn(1)
pcar=pi^2
Petitdiam=inputbox("Entrer le petit diametre de la Tore","Calcule du volume d'une Tore")&Petitdiam '3
Ptiray=Petitdiam/2
Ptiraycar=(Ptiray^2)
GrandDiam=inputbox("Entrer le grand diametre de la Tore","Calcule du volume d'une Tore")&GrandDiam '5
GRayon=GrandDiam/2
Va=2*pcar
Vob=(Ptiraycar * GRayon )
vo=(va * vob)
Wscript.Echo("Le Volume de la tore est de ")&vo,(" Cm³")
Convertir=MsgBox("Voulez_vous convertir votre resultat en Litres ?",vbInformation + VbYesNo + VbApplicationModal + 0,"Conversion d'uniter")
If Convertir=vbYes Then vo=vo/1000 : Wscript.Echo("Le resultat après conversion est de: ")&vo,(" Litres")
If Convertir=vbNo Then Wscript.Quit 0
convertir=null : GrRayon=null : pcar=null : GrandDiam=null : Ptiray=null : Ptiraycar=null : pi=null : Petitdiam=null : result=null :
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer ©*CASTOU60*©
End Function
'*******************************************************************************
'***********************Calcul du Périmetre d'un Losange************************
Function Los_per()
Dim Perilosange,convertir,uniter
If Per=true then Sur=false : Perilosange=inputbox("Entrer la dimension en Centimetre de la base","Calcul du périmetre d'un losange")&perilosange
if perilosange=perilosange then perilosange=perilosange * 4 : perilosange=fix(perilosange) : wscript.echo("Le perimetre du losange est de ")&perilosange,(" Cm")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure")&uniter
If Uniter="mm" or Uniter="Mm" Then perilosange=perilosange*10 : Wscript.Echo("Le resultat après conversion est de: ")&perilosange,(" ")&uniter
If Uniter="m" Or Uniter="M" Then perilosange=perilosange/100 : Wscript.Echo("Le resultat après conversion est de: ")&perilosange,(" ")&uniter
uniter=null : convertir=null : Perilosange=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End function
'*******************************************************************************
'***********************Calcul de la Surface d'un Losange***********************
Function Los_surf()
Dim base,d1,d2,ht,toto,convertir,uniter
If Sur=true Then Per=false : base=inputbox("Entrer la dimension en Centimetre de la base_b","Calcul de la Surface d'un Losange")&base
If Sur=true Then Per=false : ht=inputbox("Entrer la dimension en Centimetre de la hauteur_h","Calcul de la Surface d'un Losange")&ht
If Sur=true Then Per=false : D1=inputbox("Entrer la dimension en Centimetre de la longueur_d1","Calcul de la Surface d'un Losange")&D1
If Sur=true Then Per=false : D2=inputbox("Entrer la dimension en Centimetre de la largeur_d2","Calcul de la Surface d'un Losange")&D2
Toto=base*ht*0.5*(d1*d2) : toto=fix(toto) : Wscript.Echo("La surface du losange est de ")&Toto,("Cm²")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure")&uniter
If Uniter="mm" or Uniter="Mm" Then toto=toto*10 : Wscript.Echo("Le resultat après conversion est de: ")&toto,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then toto=toto/100 : Wscript.Echo("Le resultat après conversion est de: ")&toto,(" ")&uniter,("²")
Toto=null : Ht=null : D2=null : D1=null : Base=null : Uniter=null : Convertir=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
'****************************Calcul de la surface d'une boule*******************
Function boule()
Dim D,r,rn,sb,pi,convertir
Pi=4*Atn(1)
If Sur=true Then D=inputbox("Entrer le diamètre de la boule","Calcul de la surface d'une boule")&d
r=D/2 : rn=r^2 : sb=4*pi*rn : sb=fix(sb)
wscript.echo("La surface de la Boule est de ")&sb,(" Cm²")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure")&uniter
If Uniter="mm" or Uniter="Mm" Then sb=sb*10 : Wscript.Echo("Le resultat après conversion est de: ")&sb,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then sb=sb/100 : Wscript.Echo("Le resultat après conversion est de: ")&sb,(" ")&uniter,("²")
D=null : r=null : rn=null : sb=null : pi=null : convertir=null
Response=MsgBox( VbCrLf & "VOULEZ_VOUS CONTINUER ?" & VbCrLf & "" & VbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + VbYesNo + VbApplicationModal + 0,"Calcul de formes géométrique") :re()
end function
'*******************************************************************************
'***********************Calcul du Périmetre d'un carrer*************************
Function Carrer_perimetre()
Dim Perimetre,uniter,convertir
If Per=true Then Sur=false : perimetre=inputbox("Entrer la dimension du coter","Calcul du périmetre d'un carrer")&perimetre
if perimetre=perimetre then perimetre=perimetre * 4 : perimetre=fix(perimetre) : wscript.echo("Le périmetre du Carrer est de ")&perimetre,(" Cm")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
If Convertir=vbNo Then Wscript.Quit 0
Uniter=inputbox("choisissez une uniter de mesure")&uniter
If Uniter="mm" or Uniter="Mm" Then perimetre=perimetre*10 : Wscript.Echo("Le resultat après conversion est de: ")&perimetre,(" ")&uniter
If Uniter="m" Or Uniter="M" Then perimetre=perimetre/100 : Wscript.Echo("Le resultat après conversion est de: ")&perimetre,(" ")&uniter
Perimetre=null : Uniter=null : Convertir=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
'********************Calcule de la surface d'un carrer**************************
Function Carrer_surface()
Dim Surface,uniter,convertir
If Sur=true Then Per=false : Surface=inputbox("Entrer la dimension du coter","Calcul de la Surface d'un Carrer")&surface
if surface=surface then surface=surface * surface : surface=fix(surface) : wscript.echo("La surface du Carrer est de ")&surface,("Cm²")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
If Convertir=vbNo Then Wscript.Quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then surface=surface*10 : Wscript.Echo("Le resultat après conversion est de: ")&surface,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then surface=surface/100 : Wscript.Echo("Le resultat après conversion est de: ")&surface,(" ")&uniter,("²")
Convertir=null : uniter=null : Surface=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
End Function
'*******************************************************************************
'*****************************Calcul du perimetre d'un Cube*********************
Function Cube_perimetre()
dim cuper,convertir,uniter
If Per=true Then Sur=false : cuper=inputbox("Entrer la dimension du coter","Calcul du périmetre d'un cube")&cuper
If Cuper=cuper Then Cuper=cuper*12
cuper=fix(cuper)
Wscript.Echo("Le périmetre du Cube est de ")&cuper,(" Cm")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then cuper=cuper*10 : Wscript.Echo("Le resultat après conversion est de: ")&cuper,(" ")&uniter
If Uniter="m" Or Uniter="M" Then cuper=cuper/100 : Wscript.Echo("Le resultat après conversion est de: ")&cuper,(" ")&uniter
Convertir=null : uniter=null : Cuper=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
End function
'*******************************************************************************
'*****************************Calcul de la surface d'un Cube*********************
Function Cube_surface()
dim cusur,convertir,uniter
If Sur=true Then Per=false : cusur=inputbox("Entrer la dimension en Centimetre","Calcul de la surface d'un cube")&cusur
If Cusur=cusur Then Cusur=(cusur^2)*6
cusur=fix(cusur)
Wscript.Echo("La surface du Cube est de ")&cusur,(" Cm²")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then cusur=cusur*10 : Wscript.Echo("Le resultat après conversion est de: ")&cusur,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then cusur=cusur/100 : Wscript.Echo("Le resultat après conversion est de: ")&cusur,(" ")&uniter,("²")
Convertir=null
uniter=null
Cusur=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
End Function
'*******************************************************************************
'*******************************Calcul du Perimetre d'un rectangle**************
Function Rectangle_perimetre()
Dim coterA,coterB,peri,uniter,convertir
If Per=true Then Sur=false : coterA=inputbox("Entrer la dimension du petit coter","Calcul du périmetre d'un rectangle")&coterA
If Per=true Then Sur=false : coterB=inputbox("Entrer la dimension du grand coter","Calcul du périmetre d'un rectangle")&coterB
'©Créer ©*CASTOU60*©
Peri = (coterA * 2)+(coterB * 2)
peri=fix(peri)
If Peri=peri Then Wscript.Echo("Le périmetre du rectangle est de ")&peri,("Cm")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then peri=peri*10 : Wscript.Echo("Le resultat après conversion est de: ")&peri,(" ")&uniter
If Uniter="m" Or Uniter="M" Then peri=peri/100 : Wscript.Echo("Le resultat après conversion est de: ")&peri,(" ")&uniter
Convertir=null
uniter=null : CoterA=null : CoterB=null : Peri=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
'***********************Calcul de la Surface d'un rectangle*********************
Function Rectangle_surface()
dim data1,data2,surf,convertir,uniter
If Sur=true then Per=false : data1=inputbox("Entrer la dimension du petit coter","Calcul de la surface d'un rectangle")&data1
if sur=true then Per=false : data2=inputbox("Entrer la dimension du grand coter","Calcul de la surface d'un rectangle")&data2
Surf = Data1 * Data2
surf=fix(surf)
If Surf=surf Then Wscript.Echo("La surface du rectangle est de ")&surf,("Cm²")
convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm ou en M ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then surf=surf*10 : Wscript.Echo("Le resultat après conversion est de: ")&surf,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then surf=surf/100 : Wscript.Echo("Le resultat après conversion est de: ")&surf,(" ")&uniter,("²")
Convertir=null : uniter=null : Data1=null : Data2=null : Surf=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
'*************************Calcul du Volume d'un tonneau*************************
Function vol_tonneau()
Dim pi,h,pd,gd,para,parb,parc,pard,convertir
If Vol=true Then Pd=inputbox("Entrer le Diamètre de fond","Calcule du volume d'un tonneau")&pd
If Vol=true Then Gd=inputbox("Entrer le Diamètre maxi","Calcul du volume d'un tonneau")&gd
If Vol=true Then H=inputbox("Entrer la distance entre les deux fond")&H
Pi=4*Atn(1)
Para=(Pi*H)
Parb=((pd/2)+(2/3)*(gd/2)-(pd/2))
Parc=parb^2
Pard=para*parc
pard=fix(pard)
Wscript.Echo("Le Volume du tonneau est de ")&pard,("Cm³") '39095
convertir=MsgBox("Voulez_vous convertir votre resultat en Litres ?",vbInformation + vbYesNo + vbApplicationModal + 0,"Conversion d'uniter")
If Convertir=vbYes Then Pard=pard/1000 : Wscript.Echo("Le resultat après conversion est de: ")&pard,(" Litres")
If Convertir=vbNo Then Wscript.Quit 0
Convertir=null: pi=null : h=null : pd=null : gd=null : para=null : parb=null : parc=null : pard=null
Response=MsgBox( VbCrLf & "VOULEZ_VOUS CONTINUER ?" & VbCrLf & "" & VbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + VbYesNo + VbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
End Function
'*******************************************************************************
Function Trapeze()
dim su,b1,b2,h,uniter
If Sur=true Then B1=inputbox("Entrer la dimension de la petite base","Calcul de la Surface d'un Trapèze")&b1
If Sur=true Then B2=inputbox("Entrer la dimension de la grande base","Calcul de la Surface d'un Trapèze")&b2
If Sur=true Then H=inputbox("Entrer la dimension de la hauteur","Calcul de la Surface d'un Trapèze")&h
su=(b1+b2/2) * h
wscript.echo("La surface du Trapeze est de ")&su,("Cm²")
Convertir=MsgBox ("Voulez_vous convertir votre resultat en Mm³ ou en M³ ?",vbInformation + VbYesNo + VbApplicationModal + 0,"Conversion d'uniter")
if convertir=vbNo then wscript.quit 0
Uniter=inputbox("choisissez une uniter de mesure","Conversion d'uniter")&uniter
If Uniter="mm" or Uniter="Mm" Then surface=surface*10 : Wscript.Echo("Le resultat après conversion est de: ")&surface,(" ")&uniter,("²")
If Uniter="m" Or Uniter="M" Then surface=surface/100 : Wscript.Echo("Le resultat après conversion est de: ")&surface,(" ")&uniter,("²")
Convertir=null
Su=null : B1=null : B2=null : H=null : uniter=null
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
end function
'*******************************************************************************
Function Sortir()
Wscript.Quit 0
End Function
Do Until Response = VbNo
Response=MsgBox( vbCrLf & "VOULEZ_VOUS CONTINUER ?" & vbCrLf & "" & vbCrLf & "Cette application a été créer par Emmanuel Leclerc ©CASTOU60",vbExclamation + vbYesNo + vbApplicationModal + 0,"Calcul de formes géométrique") :re()
'©Créer Par ©*CASTOU60*©
Loop
Function re()
If Response = VbYes Then Choix_fonction()
If Response = VbNo Then Sortir()
End Function
'©Créer Par ©*CASTOU60*© |
script vbs de calcule de forme Géométrique
Répondre avec citation
Partager