[VB] Problème de function / sub (tableau comme paramètre)

Version imprimable

salut tt le monde

je suis vraiment un débutant de VB et donc vs allez être nombreux à pouvoir répondre à ma modeste question, bon voilà j'ai plusieurs procédures et des fonctions que je veux les applez d'une procédure main le problème c'est que j'ai déclarer un tableau de n entier et je pense que c'est de là que vient le prob.

bon vue que mon code est tré petit je me suis permis de le mettre ici pour pouvoir me dire où ça marche pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Sub saisir(t() As Integer, n As Integer) For i = 1 To n t(i) = InputBox("entrez t(" & i & ")") Next End Sub '------------------------------------------------- Function moyenne(t() As Integer, n As Integer) Dim s As Integer For i = 1 To n s = s + 1 Next moyenne = s / n End Function '---------------------------------------------------- Function valmax(t() As Integer, n As Integer) Dim s As Integer valmax = t(1) For i = 1 To n - 1 If t(i) < t(i + 1) Then valmax = t(i + 1) End If Next End Function '--------------------------------------------------------- Sub main() Dim t(1 To n) As Integer, n As Integer saisir MsgBox ("la valueur moyenne est " & moyenne) MsgBox ("la valeur max est " & valmax) End Sub
en attendant vos réponses je vous remerice infiniment

et bonne journée à vous tous

y'a des trucs bizares...

Citation:

Code:

1
2
3
4
5
6
7
8
9
10
Function moyenne(t() As Integer, n As Integer)
Dim s As Integer
 
For i = 1 To n
s = s + 1
Next
 
moyenne = s / n
 
End Function

cette fonction revoie toujours 1 et en plus i n'est pas déclaré et le type de donnée que renvoie ta fonction non plus.

remplace:

Citation:

Code:

1
2
3
4
5
6
7
Sub saisir(t() As Integer, n As Integer)
 
For i = 1 To n
t(i) = InputBox("entrez t(" & i & ")")
Next
 
End Sub

par

Code:

1
2
3
4
5
6
7
Sub saisir(t() As Integer, n As Integer)
 
For i = 1 To n
t(i) = val(InputBox("entrez t(" & i & ")"))
Next
 
End Sub

ça t'évitera déja des erreurs

Citation:

Code:

1
2
3
4
5
6
7
8
9
10
11
Function valmax(t() As Integer, n As Integer)
Dim s As Integer
 
valmax = t(1)
For i = 1 To n - 1
If t(i) < t(i + 1) Then
valmax = t(i + 1)
End If
Next
 
End Function

i n'est pas déclaré, les données que renvoit ta fonction non plus.

Citation:

Code:

1
2
3
4
5
6
Sub main()
Dim t(1 To n) As Integer, n As Integer
saisir
MsgBox ("la valueur moyenne est " & moyenne)
MsgBox ("la valeur max est " & valmax)
End Sub

tu ne peut déclarer t comme ça. met plutot

Code:

1
2
3
4
5
6
7
8
Sub main()
Dim t() As Integer
dim n As Integer
redim t(1to n)
saisir
MsgBox ("la valueur moyenne est " & moyenne & vbcrlf & "la valeur max est " _
 & valmax)
End Sub

tu à tout.

tiens essai de comprendre l'utilisation de UBound et Redim ( voir :f1:)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub saisir(t() As Integer)
For i = 1 To UBound(t)
    t(i) = InputBox("entrez t(" & i & ")")
Next
End Sub
'-------------------------------------------------
Function moyenne(t() As Integer)
Dim s As Integer
n = UBound(t)
 
For i = 1 To n
    s = s + 1
Next
moyenne = s / n
End Function
'----------------------------------------------------
Function valmax(t() As Integer)
Dim s As Integer
n = UBound(t)
valmax = t(1)
For i = 1 To n - 1
    If t(i) < t(i + 1) Then
        valmax = t(i + 1)
    End If
Next
End Function
'---------------------------------------------------------
Sub main()
Dim t() As Integer, n As Integer
n = Val(InputBox("Valeur de n :"))
If n <= 0 Then Exit Sub
ReDim t(1 To n)
saisir t
MsgBox ("la valueur moyenne est " & moyenne(t()))
MsgBox ("la valeur max est " & valmax(t()))
End Sub

10/05/2006, 17h50
elhosni

Merci méphistopheles, pour cette fonction c'est juste une faute de frap, j'ai remplacer i par 1 je l'ai corrigé maintenant
[FONT=monospace]
[/FONT]Function moyenne(t() As Integer, n As Integer)
Dim s As Integer

For i = 1 To n
s = s + i
Next

moyenne = s / n

End Function
[FONT=monospace]
Svp j'ai d'autre question concernant votre réponse :

1) tt d'abord pour cette ligne
[/FONT]
t(i) = InputBox("entrez t(" & i & ")")j'ai pas compris pq vous l'avez remplacer par celle là

t(i) = val(InputBox("entrez t(" & i & ")"))
à quoi sert val ?

2)
la varible qui contient le résultat de la fonction, comment je peut la déclarer ? je peut le faire normalement comme tte autre déclaration ou bien jdoit la mettre dans le paramètre de la fonction ?

et merci bcp encore une fois pour votre aide
10/05/2006, 17h52
random

ca semble bien long

sub pluscourt()
const nbval=20
dim compteur as integer
dim reponse as double
dim somme as double
dim mini as double
dim maxi as double
min=10^300
maxi=-mini
for compteur=1 to nbal
reponse=val(inputbox("un nombre fissa"))
somme=somme+reponse
if reponse>maxi then maxi=reponse
if reponse<mini then mini=reponse
next compteur
msgbox( "moyenne :" & somme/nbval & " mini:" & mini & " maxi:" & maxi)
end sub

merci tt le monde

j'ai pu enfin corriger tt les prob, voici mon code final

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub saisir(t() As Integer, n As Integer)
For i = 1 To n
    t(i) = InputBox("entrez t(" & i & ")")
Next
 
End Sub
 
'-------------------------------------------------------
 
Function moyenne(t() As Integer, n As Integer) as double
Dim s As Integer, i as integer
 
For i = 1 To n
    s = s + i
Next
 
moyenne = s / n
 
End Function
 
'-------------------------------------------------------
 
Function valmax(t() As Integer, n As Integer) as integer
Dim s As Integer, i as integer
 
valmax = t(1)
For i = 1 To n - 1
    If vlamax < t(i + 1) Then
        valmax = t(i + 1)
    End If
Next
 
End Function
 
'-------------------------------------------------------
 
Function valmin(t() As Integer, n As Integer) as integer
Dim s As Integer, i as integer
 
valmin = t(1)
For i = 1 To n - 1
    If t(i) > t(i + 1) Then
        valmin = t(i + 1)
    End If
Next
 
End Function
 
'-------------------------------------------------------
 
Sub main()
Dim t() As Integer, n As Integer
ReDim t(1 To n)
saisir t,n
MsgBox ("la valueur moyenne est " & moyenne(t,n))
MsgBox ("la valeur max est " & valmax(t,n))
MsgBox ("la valeur min est " & valmin(t,n))
 
End Sub

merci tt le monde encore une fois, ceci dit je vais cliquez sur le bouton résolu

10/05/2006, 20h34
SfJ5Rpw8

? et c'est ou que tu affecte une valeur à n ?