Fonction, condition Help

Version imprimable

02/11/2006, 13h13
3xplo

Fonction, condition Help

Bonjour,
Bon voilà, je débute sur VB et là je me retrouve bloqué.
Je dois ecrire une fonction qui reçoit en paramètres 3 nombres entiers, et elle doit renvoyer le minimum de ces 3 nombres. Il faut créer le programme principal qui permet de tester cette fonction.
Mon problème c'est les 3 nombres en paramètres, je sais faire avec 2 nombres mais pas avec 3, merci de bien vouloir m'aider ! :D
02/11/2006, 13h46
AlainTech

Bonjour et bienvenue sur ce forum.

Montre-nous le code que tu as écrit pour 2 nombres...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Minimum(nb1 As Integer, nb2 As Integer) As Integer
If nb1 < nb2 Then
Minimum = nb1
Else
Minimum = nb2
End If
End Function
 
Sub main()
Dim a As Integer, b As Integer
a = InputBox("1ere valeur ?")
b = InputBox("2eme valeur ?")
MsgBox "Le minimum est " & Minimum(a, b)
End Sub

02/11/2006, 14h17
AlainTech

Ben, quand tu as le minimum de 2, tu n'as plus qu'à comparer ce minimum avec le troisième. Ce qui revient à faire une autre comparaison de 2.

ok, merci pour la réponse, au final ça donne ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Function Minimum(nb1 As Integer, nb2 As Integer, nb3 As Integer) As Integer If nb1 < nb2 Then Minimum = nb1 Else Minimum = nb2 End If If nb3 < Minimum Then Minimum = nb3 End If End Function Sub main() Dim a As Integer, b As Integer, c As Integer a = InputBox("1ere valeur ?") b = InputBox("2eme valeur ?") c = InputBox("3eme valeur ?") MsgBox "Le minimum est " & Minimum(a, b, c) End Sub
Encore merci, je risque de revenir vous embetter un peu. ;)
Peux-tu me confirmer que mon code est correct stp, pour que je puisse mettre "resolu" à mon problème.

02/11/2006, 15h37
Phifi

Alors les matheux, c'est résolu ou pas ? :mouarf:
02/11/2006, 15h50
3xplo

Je pense que oui, mais je préfererais avoir une confirmation avant de mettre "résolu" ! ;)

Comme tu as fais l'effort, petit cadeau pour ta culture VB ;)
Ecrites il y a longtemps :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function MAX(t)
Dim i As Integer
    MAX = t(0)
    For i = 1 To UBound(t)
        If t(i) > MAX Then MAX = t(i)
    Next
End Function
 
Function Min(t)
Dim i As Integer
    Min = t(0)
    For i = 1 To UBound(t)
        If t(i) < Min Then Min = t(i)
    Next
End Function

ca s'utilise comme ça :

Code:

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Dim nbr(2) As Long
    nbr(0) = 1
    nbr(1) = 4
    nbr(2) = 2
 
    MsgBox MAX(nbr)
End Sub

03/11/2006, 13h19
3xplo

eeuuuuuhhhh ? :roll:
Merci grand chef VB, mais en fait j'apprend et là ton code, bah ya trop de chose que je ne connais pas.
Je pense avoir compris le principe, tu te sers d'un tableau et de la boucle for pour trouver le MIN et le MAX.
Je met résolu et merci à vous !