Vb
Résolu
glimor
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
voila j'ai mon programme vb qui ne marche pas et je ne comprend pas pk pouvais vous m'aider svp il faut juste calculer la moyenne avec n1=10 n2=11 n3=12 et coeff = tous 1 je trouve 25 en résultat
je ne doit déclarer les note et les coeff qu'une fois je ne sait plus quoi faire aider moi svp
merci
Option Explicit
Dim note1 As Integer
Dim note2 As Integer
Dim note3 As Integer
Dim coeff1 As Integer
Dim coeff2 As Integer
Dim coeff3 As Integer
Dim moyenne As Single
Sub main()
note1 = InputBox("entrer note 1")
coeff1 = InputBox("entrer coeff 1")
note2 = InputBox("entrer note 2")
coeff2 = InputBox("entrer coeff 2")
note3 = InputBox("entrer note 3")
coeff3 = InputBox("entrer coeff 3")
moyenne = ((note1 * coeff1) + (note2 * coeff2) + (note3 * coeff3) / (coeff1 + coeff2 + coeff3))
MsgBox ("votre moyenne est de : " & moyenne)
End Sub
voila j'ai mon programme vb qui ne marche pas et je ne comprend pas pk pouvais vous m'aider svp il faut juste calculer la moyenne avec n1=10 n2=11 n3=12 et coeff = tous 1 je trouve 25 en résultat
je ne doit déclarer les note et les coeff qu'une fois je ne sait plus quoi faire aider moi svp
merci
Option Explicit
Dim note1 As Integer
Dim note2 As Integer
Dim note3 As Integer
Dim coeff1 As Integer
Dim coeff2 As Integer
Dim coeff3 As Integer
Dim moyenne As Single
Sub main()
note1 = InputBox("entrer note 1")
coeff1 = InputBox("entrer coeff 1")
note2 = InputBox("entrer note 2")
coeff2 = InputBox("entrer coeff 2")
note3 = InputBox("entrer note 3")
coeff3 = InputBox("entrer coeff 3")
moyenne = ((note1 * coeff1) + (note2 * coeff2) + (note3 * coeff3) / (coeff1 + coeff2 + coeff3))
MsgBox ("votre moyenne est de : " & moyenne)
End Sub
A voir également:
- Vb
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
10 réponses
Bon, je retrouve vraiment plus ron topic ???
alors je te remet la solution que j'y avais donner
A+
alors je te remet la solution que j'y avais donner
Sub Main()
Dim Note(1 To 3) As Integer
Dim Coef(1 To 3) As Single
Dim Tot As Single
Dim CoefT As Single
For i = 1 To 3
Note(i) = InputBox("Entrez la note N°" & i, "Moyenne")
Coef(i) = InputBox("Entrez le coéficient pour la note N°" & i, "Moyenne")
Tot = Tot + (Note(i) * Coef(i))
CoefT = CoefT + Coef(i)
Next i
MsgBox ("votre moyenne est de : " & Tot / CoefT)
End Sub
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
svp aider moi j'ai fait tt mes algo comme il faut mais en les transformant en vb il marche pas aider moi svp
bon laisser tomber je me débrouillerais toute seul sa fait 5 jours que je fait ses algo et ses vb il marche pas je comprend pas ce que vous faite en plus je suis au débu débu des algo je cherche des truc super simple
merci pour tout
amicalement
dsl si je vous et froisser
merci pour tout
amicalement
dsl si je vous et froisser
oui vb 6 look ce code il est juste j'en suis sur et il marche pas (je l'ai vérifier 40fois) c'est une permutation
var
x,y,z : entier
début
afficher ("entrer x")
saisir (x)
afficher ("entrer y")
saisir (y)
z <- x
x <- y
y <- z
afficher ("x : ",y)
afficher ("y : ", x)
fin
--------
(vb)
Option Explicit
Sub main()
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = InputBox("entrer x")
y = InputBox("entrer y")
z = x
x = y
y = z
MsgBox ("x : " & y)
MsgBox ("y : " & x)
End Sub
var
x,y,z : entier
début
afficher ("entrer x")
saisir (x)
afficher ("entrer y")
saisir (y)
z <- x
x <- y
y <- z
afficher ("x : ",y)
afficher ("y : ", x)
fin
--------
(vb)
Option Explicit
Sub main()
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = InputBox("entrer x")
y = InputBox("entrer y")
z = x
x = y
y = z
MsgBox ("x : " & y)
MsgBox ("y : " & x)
End Sub
Bon,
Tu inverse tes variables.. OK, mais ensuite tu les inverse à nouveau dans MsgBox, donc ça sert à rien
faut faire..
MsgBox ("x : " & x)
MsgBox ("y : " & y)
Mais tu ne pourrais pas d'abord terminer la première question, tant que tu te disperse d'un truc à l'autre sans les avoir résolu l'un après l'autre tu n'en sortiras jamais.
Tu inverse tes variables.. OK, mais ensuite tu les inverse à nouveau dans MsgBox, donc ça sert à rien
faut faire..
MsgBox ("x : " & x)
MsgBox ("y : " & y)
Mais tu ne pourrais pas d'abord terminer la première question, tant que tu te disperse d'un truc à l'autre sans les avoir résolu l'un après l'autre tu n'en sortiras jamais.
sa y'est le premier j'ai trouver l'érreur juste a cause d'un parenthasé
(algo)
var
note1, note2, note3, coeff1, coeff2, coeff3 : entier
moyenne : réel
début
afficher ("entrer note 1")
saisir (note1)
afficher ("entrer note 2")
saisir (note2)
afficher ("entrer note 3")
saisir (note3)
afficher ("entrer coeff 1")
saisir (coeff1)
afficher ("entrer coeff 2")
saisir (coeff2)
afficher ("entrer coeff 3")
saisir (coeff3)
moyenne <- ((note1*coeff1)+(note2*coeff2)+(note3*coeff3))/(coeff1+coeff2+coeff3)
afficher ("votre moyenne est de : ",moyenne)
fin
--------
(vb)
Option Explicit
Sub main()
Dim note1 As Integer
Dim note2 As Integer
Dim note3 As Integer
Dim coeff1 As Integer
Dim coeff2 As Integer
Dim coeff3 As Integer
Dim moyenne As Single
note1 = InputBox("entrer note 1")
coeff1 = InputBox("entrer coeff 1")
note2 = InputBox("entrer note 2")
coeff2 = InputBox("entrer coeff 2")
note3 = InputBox("entrer note 3")
coeff3 = InputBox("entrer coeff 3")
moyenne = ((note1 * coeff1) + (note2 * coeff2) + (note3 * coeff3)) / (coeff1 + coeff2 + coeff3)
MsgBox ("votre moyenne est de : " & moyenne)
End Sub
---------
(jeux d'éssais)
n1 n2 n3 = 10
coeff1 coeff2 coeff3 = 1
résultat moyenne = 10
n1= 10
n2= 11
n3 = 12
coeff1 coeff2 coeff3 = 1
résultat moyenne = 11
(algo)
var
note1, note2, note3, coeff1, coeff2, coeff3 : entier
moyenne : réel
début
afficher ("entrer note 1")
saisir (note1)
afficher ("entrer note 2")
saisir (note2)
afficher ("entrer note 3")
saisir (note3)
afficher ("entrer coeff 1")
saisir (coeff1)
afficher ("entrer coeff 2")
saisir (coeff2)
afficher ("entrer coeff 3")
saisir (coeff3)
moyenne <- ((note1*coeff1)+(note2*coeff2)+(note3*coeff3))/(coeff1+coeff2+coeff3)
afficher ("votre moyenne est de : ",moyenne)
fin
--------
(vb)
Option Explicit
Sub main()
Dim note1 As Integer
Dim note2 As Integer
Dim note3 As Integer
Dim coeff1 As Integer
Dim coeff2 As Integer
Dim coeff3 As Integer
Dim moyenne As Single
note1 = InputBox("entrer note 1")
coeff1 = InputBox("entrer coeff 1")
note2 = InputBox("entrer note 2")
coeff2 = InputBox("entrer coeff 2")
note3 = InputBox("entrer note 3")
coeff3 = InputBox("entrer coeff 3")
moyenne = ((note1 * coeff1) + (note2 * coeff2) + (note3 * coeff3)) / (coeff1 + coeff2 + coeff3)
MsgBox ("votre moyenne est de : " & moyenne)
End Sub
---------
(jeux d'éssais)
n1 n2 n3 = 10
coeff1 coeff2 coeff3 = 1
résultat moyenne = 10
n1= 10
n2= 11
n3 = 12
coeff1 coeff2 coeff3 = 1
résultat moyenne = 11