Racine carré en VBS Résolu/Fermé

Question

Bonjour,

Je programme en VB Script . Ma question conçernerait un script que j'utiliserai dans un autre but que celui de l'inclure en HTML ou en excel hein donc c'est juste un simple script enregistré à faire fonctionner normalement..

Voilà j'ai ma variable "delta", et j'aimerais calculer sa racine carré...C'est pas plus compliqué. Sauf que sqr c'est pour un nombre, comment calculer pour la valeur d'une variable ?? 

Merci

pijaku · Accepted Answer

Bonjour,

Deux choses ne fonctionnent pas principalement dans votre code :
1- l'orthographe des "mots clés" de programmation : else if n'est pas la même chose que ElseIf
2- votre code n'est pas indenté. Il est tout "plat" collé sur la marge de gauche. Ainsi vous n'avez pas pu voir que vous aviez deux End If en trop.

Voici votre code correctement corrigé :
Msgbox " Bonjour ! Bienvenue dans ce petit outil ! "

Do 
	choix = inputbox("Pour calculer discriminant/racine d'une équation du second degré, tapez 1."&vbLf& "Pour convertir des Joules en eV, Taper 2." & vbLf & "Pour convertir des eV en J, taper 3." , "Que choississez-vous ?", "Taper votre choix ici...")
 	If choix="1" then 
		a = inputbox("Valeur de a?" , "Valeur de a", "a vaut...") 
		b = inputbox("Valeur de b?" , "Valeur de b", "b vaut...") 
		c = inputbox("Valeur de c?" , "Valeur de c", "c vaut...") 
		d = b*b-4*a*c 
		e= 2*a 
		f=(-b)/e 
		reponse = MsgBox("Delta = " & d & vbLf & "Voulez - vous les racines ?", vbYesNo, "Delta")
 		If reponse = vbYes then 
			If d>0 then 
				g = sqr(d)
				Msgbox " Il existe donc deux racines réelles : " & vbLf & "x1= (-" & b & " -"& g & ") /"&e & vbLf & " x2= (-" & b & " +"& g & ") /"&e
 			ElseIf d=0 then 
				Msgbox "Il existe donc une racine double qui est :" &vbf& "x0 = " & f 
			Else 
				h = sqr(-d)
				Msgbox " Il existe donc deux racines complexes : " &vbLf& "z1 = (-" & b & " - i *"& h & ") /"&e & vbLf & "z2 = (-"&b&" + i*"&h& ") /"&e
 
			End If 
		End If 
	End If 
	If choix="2" then 
		J = inputbox("Valeur en J?" , "Valeur en J", "Valeur...") 
		eJ = J*6242000000000000000 
		Msgbox " Pour "&J& "J, on obtient "&eJ& " eV" 
	ElseIf choix="3" then 
		eV = inputbox("Valeur en eV?" , "Valeur en eV", "Valeur...") 
		J = eV * 0.00000000000000000016022 
		MsgBox " Pour "&eV& " eV, on obtient " &J& " J." 
	End If 
	rep = MsgBox(" Voulez-vous faire autre chose ?", vbYesNo, "Fin?") 
Loop while rep=vbYes

Msgbox " Merci et bonne journée! "

Une troisième chose importante (certes moins en vbs, mais tout de même) consiste en la déclaration de variables.
Pour cela, toutefois, je vous laisse faire.
 
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

f894009 · Answer

Bonjour,
Normalement, y a pas de lezard

exemple:
x=25.5
MsgBox Sqr(x)

NHenry · Answer

Result=sqrt(delta)

geo trouve-tout · Answer

Bojour à vous deux,

f894009, en fait ca ne fonctionne pas car delta est un calcul de discriminant, donc il fait son opération, et il faut que je fasse la racine carré de la valeur de delta, donc on ne peut pas mettre une valeur à delta puisque selon les valeurs qu'on entrera avant, delta changera.

Nhenry, non ca ne fonctionne pas... :/ Car en VBS c'est sqr, sans le -t et que ca s'applique qu'aux nombres... :/

michel_m · Answer

Bpnjour-soir
Si par ex Delta est le discriminant d'une équation du 2° degré 
il fau connaitre les valeurs des variables a,b,c

a=4
b=5
C=1
Delta=b^2-4a*c
If delta>=0 then xxx=sqr(delta)

michel_m · Answer

Réponse fin janvier...

f894009 · Answer

Bonjour michel_m

geo trouve-tout: mettez votre code a dispo, car y a kake chose qui cloche, vous ne nous dtes pas tout !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

geo trouve-tout · Answer

Hey,

Msgbox " Bonjour ! Bienvenue dans ce petit outil ! " Do choix = inputbox("Pour calculer discriminant/racine d'une équation du second degré, tapez 1."&vbLf& "Pour convertir des Joules en eV, Taper 2." & vbLf & "Pour convertir des eV en J, taper 3." , "Que choississez-vous ?", "Taper votre choix ici...") If choix="1" then a = inputbox("Valeur de a?" , "Valeur de a", "a vaut...") b = inputbox("Valeur de b?" , "Valeur de b", "b vaut...") c = inputbox("Valeur de c?" , "Valeur de c", "c vaut...") d = b*b-4*a*c e= 2*a f=(-b)/e g = sqr(d) h = sqr(-d) reponse = MsgBox("Delta = " & d & vbLf & "Voulez - vous les racines ?", vbYesNo, "Delta") if reponse = vbYes then if d>0 then Msgbox " Il existe donc deux racines réelles : " & vbLf & "x1= (-" & b & " -"& g & ") /"&e & vbLf & " x2= (-" & b & " +"& g & ") /"&e else if d=0 then Msgbox "Il existe donc une racine double qui est :" &vbf& "x0 = " & f else Msgbox " Il existe donc deux racines complexes : " &vbLf& "z1 = (-" & b & " - i *"& h & ") /"&e & vbLf & "z2 = (-"&b&" + i*"&h& ") /"&e end if end if end if end if If choix="2" then J = inputbox("Valeur en J?" , "Valeur en J", "Valeur...") eJ = J*6242000000000000000 Msgbox " Pour "&J& "J, on obtient "&eJ& " eV" else if choix="3" then eV = inputbox("Valeur en eV?" , "Valeur en eV", "Valeur...") J = eV * 0.00000000000000000016022 MsgBox " Pour "&eV& " eV, on obtient " &J& " J." End If End if rep = MsgBox(" Voulez-vous faire autre chose ?", vbYesNo, "Fin?") Loop while rep=vbYes Msgbox " Merci et bonne journée! "

Racine carré en VBS

8 réponses

Discussions similaires