Salut,
Je vous propose de telecharger une calculette fait de mes propres mains garantie aucun virus !!
Je debute juste alors soyez gentils !
Mais n'ésiste pas a faire des remarques constructives !!
Voilà !!
Source / Exemple :
dim n1,n2,fin,tour,result,choix,n5
fin=false
tour=0
do while not fin
if tour=0 then
Msgbox"Bonjour et d'abord bienvenue !",vbinformation,"Bonjour"
end if
if tour=>1 then
msgbox"Rebonjour !!! ",,"Rebonjour"
end if
choix=inputbox("Merci de choisir le type de calcule que vous desirez : 1) Addition 2) soustraction 3) multiplication 4) Quitter","Bonjour :")
'{
if choix=1 then
n1=inputbox("Entrez le premier nombre :","Premier nombre")
n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
n1=ccur(n1)
n2=ccur(n2)
result=n1+n2
Msgbox"Le resultat de l'addtion est : "&result
tour=tour+1
end if
'}
'{
if choix=2 then
n1=inputbox("Entrez le premier nombre :","Premier nombre")
n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
n1=ccur(n1)
n2=ccur(n2)
result=n1-n2
Msgbox"Le resultat de la soustraction est : "&result
tour=tour+1
end if
'}
'{
if choix=3 then
n1=inputbox("Entrez le premier nombre :","Premier nombre")
n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
n1=ccur(n1)
n2=ccur(n2)
result=n1*n2
msgbox"Le resultat de la multiplication est : "&result
tour=tour+1
end if
'}
'{
if choix=4 then
choixmsg=msgbox("Souhaitez vous quittez l'application ??",VByesnocancel,"Souhaitez vous partir ??")
end if
if choixmsg=vbyes then
wscript.quit
end if
'}
loop
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.