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é.

[devhafid]

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é.

merci d'abord pour vous.
non c'est pas un problème d'annoncé.
est ce que je peux utiliser fonction de conversion CDbl.mais comment?
ou bien je vérifie seulement dans cette fonction qu'ils sont des nombres.
j'attends d'autres réponses ....

[ProgElecT]

Petite experience

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim MeVariable As Variant
MeVariable = 1.79769313486231E+308
MsgBox "MeVariable As Variant = 1.79769313486231E+308" & vbCrLf & TypeName(MeVariable)
MeVariable = 1
MsgBox "MeVariable As Variant = 1" & vbCrLf & TypeName(MeVariable)
MeVariable = CDbl(2)
MsgBox "MeVariable As Variant = CDbl(2)" & vbCrLf & TypeName(MeVariable)
MeVariable = "du littéral"
MsgBox "MeVariable As Variant = ""du littéral""" & vbCrLf & TypeName(MeVariable)
 
 
Dim VariableMe As Double
VariableMe = 10
MsgBox "VariableMe As Double = 10" & vbCrLf & TypeName(VariableMe)
VariableMe = CVar(123)
MsgBox "VariableMe As Double = CVar(123)" & vbCrLf & TypeName(VariableMe)

Ce qui confirme le dernier post de Delbeke (salut).
Pour une variable déclarée Variant ou non typé, VB va la considérer (TypeName(VariableMe)) du type le mieux adapté suivant la valeur quelle contient, pour autant, la place en mémoire sera de 16 octets pour un contenu numérique et de 22 octets + longueur de la chaîne pour un contenu littéral.
Par contre une variable typé conserve son type, même en employant une conversion.

[Delbeke]

Ce que je peut te proposer c'est utiliser la fonction IsNumeric(MaVar)

[devhafid]

merci pour vous.......