Vb

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

up svp

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+

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

merci

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

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

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

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.

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