Discussion :

[devhafid]

j'ai fait une fonction qui doit retourner le minimum et le maximum d'un tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
private function minmax(byval tnb as variant) as integer
dim i,min,max as integer
for i=lbound(tnb) to ubound(tnb)
if t(i)>max then max=t(i)
if t(i)<min then min=t(i)
next i
minmax=max
minmax=min
end function

est ce qu'il y a des fautes dans cette fonction et surtout dans le retour de max et min en même temps dans cette fonction.
mercii d'avance.

[Delbeke]

Une fonction ne peux retourner qu'une seule valeur !
Donc ta fonction retourna systèmaiquement la valeur min.
Il te faut donc faire deux fonctions
une fonction Min et une fonction Max
Par ailleur dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim i,min,max as integer

seule la valeur i sera déclarée en integer, les autres seront des variants

[SfJ5Rpw8]

Coucou Delbeke ..

..
Par ailleurs dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim i,min,max as integer

seule la valeur i sera déclarée en integer, les autres seront des variants

en fait c'est max .. qui devient un entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim i, min, max As Integer
Debug.Print " i : " & TypeName(i)
Debug.Print " min : " & TypeName(min)
Debug.Print " max : " & TypeName(max)
Stop 'Actionnez CTRL+G pour accéder  à la fenêtre Exécution.
End Sub

résultat dans fenêtre exécution :

i : Empty
min : Empty
max : Integer

[babaothe]

Une fonction ne peux retourner qu'une seule valeur !
Donc ta fonction retourna systèmaiquement la valeur min.
Il te faut donc faire deux fonctions
une fonction Min et une fonction Max

salut

ou alors se servir s('une structure, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Type minetmax
  minimum As Integer
  maximum As Integer
End Type

code de la fonction dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Function minmax(ByVal tnb As Variant) As minetmax
  Dim i As Integer
  minmax.maximum = tnb(0)
  minmax.minimum = tnb(0)
  For i = LBound(tnb) To UBound(tnb)
    If tnb(i) > minmax.maximum Then minmax.maximum = tnb(i)
    If tnb(i) < minmax.minimum Then minmax.minimum = tnb(i)
  Next i
End Function

exemple d'utilisation dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
tnb = Array(1, 3, 10, 4)
MsgBox minmax(tnb).maximum & vbCrLf & minmax(tnb).minimum

tout ceci à adapter.

[Delbeke]

Zoli

[devhafid]

mercii beaucoup.
vous avez bien répondu.
j'ai une autre question SVP concernant une fonction aussi, mais cette fois qui permet de vérifier si les champs saisis (pare exemple nb1.text et nb2.text) sont non vides et qu'ils sont de type double.
je ne sais pas comment faire pour cette fonction et surtout pour vérifier si un nombre est de type double..
je veux une solution ou bien indication .
mercii pour vos...

[Delbeke]

Tous les nombres sont de type double. C'est le type de variable qui admet le plus de type de nombres. On peut y stocker des valeur bolean, integer, long, single et currency. Vb se chargeant de façon implicite de la convertion
Donc tu as peut être un problème d'énoncé.