Discussion :

[3xplo]

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 !

[AlainTech]

Bonjour et bienvenue sur ce forum.

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

[3xplo]

Code :

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

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

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

[3xplo]

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

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

[Phifi]

Alors les matheux, c'est résolu ou pas ?

[3xplo]

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

[ThierryAIM]

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

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
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 :

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

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

[3xplo]

eeuuuuuhhhh ?
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 !