vb Résolu/Fermé

Question

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

glimore · Answer

up svp

lermite222 · Answer

Bon, je retrouve vraiment plus ron topic ???
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+

gligli · Answer

je cherche qq qui pourrais m'aider sur msn pour mon vb et mes algo urgent svp 

merci

gligli · Answer

svp aider moi j'ai fait tt mes algo comme il faut mais en les transformant en vb il marche pas aider moi svp

gligli · Answer

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

gligli · Answer

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

gligli · Answer

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

lermite222 · Answer

AH, vous me faite touner en bourique.. j'avais pas remarquer qu'y avait deux posteur différent.
Est-ce que gligli c'est le même que glimor
Si oui, arrète de poster avec deux pseudo.
Si non, que chacun poste dans un topic perso.

gligli · Answer

dsl ta question c'est sa

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.

oui je sait mais quand le 2 mess a été poster j'avais trouver la rep a la 1

lermite222 · Answer

Suis de bonne volonté mais là c'en est trop.
A++++++

Vb

10 réponses

Discussions similaires