A voir également:
- Variables plus petite
- Variable delphi - Conseils pratiques - Delphi
- Vb6 variables - Conseils pratiques - Visual Basic / VB.NET
- Fonction a nombre variable d'argument en c - Conseils pratiques - C / C++ / C++.NET
- Utilisation d'une variable locale non assignée ✓ - Forum - C# / .NET
- C# variable globale ✓ - Forum - C# / .NET
8 réponses
cs_Sator
- Messages postés
- 351
- Date d'inscription
- samedi 7 février 2004
- Statut
- Membre
- Dernière intervention
- 6 octobre 2010
En fait j'ai fait comme ça:
dim mini as integer
mini=val(label(1))
for i = 1 to 5
if mini > val(label(i)) then mini= val(label(i))
next
Merci pour votre attention. Bonne semaine
:)Sator :)
dim mini as integer
mini=val(label(1))
for i = 1 to 5
if mini > val(label(i)) then mini= val(label(i))
next
Merci pour votre attention. Bonne semaine
:)Sator :)
jmfmarques
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
Bonsoir,
Des indications uniquement (car je sais qu'il s'agit là d'un exercice.... je l'ai traité récemment sur un autre forum...)
1) éclate le contenu de ton label (fonction Split)
2) travaille en boucle en substituant à chaque tour le plus petit et le plus grand au plus petit et au plus grand trouvés jusqu'alors.
Bon travail.
Des indications uniquement (car je sais qu'il s'agit là d'un exercice.... je l'ai traité récemment sur un autre forum...)
1) éclate le contenu de ton label (fonction Split)
2) travaille en boucle en substituant à chaque tour le plus petit et le plus grand au plus petit et au plus grand trouvés jusqu'alors.
Bon travail.
jmfmarques
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
Ah pardon ... 5 labels, je vois...
Encore plus simple (puisque l'éclatement n'est plus nécessaire).
Un groupe de labels indexés fait l'affaire ...
Encore plus simple (puisque l'éclatement n'est plus nécessaire).
Un groupe de labels indexés fait l'affaire ...
us_30
- Messages postés
- 2065
- Date d'inscription
- lundi 11 avril 2005
- Statut
- Membre
- Dernière intervention
- 14 mars 2016
euh... moi si j'ai 5 valeurs, j'ai pas de bessoin d'un programme pour trouver le mini et le maxi...
Amicalement,
Us.
Amicalement,
Us.
cs_Sator
- Messages postés
- 351
- Date d'inscription
- samedi 7 février 2004
- Statut
- Membre
- Dernière intervention
- 6 octobre 2010
Petite réponse à Us....
Ne t'en fais pas pour moi je sais encore compter, et ce n'est pas 5 chiffres qui vont me faire ch...... en fait je fais un logiciel de statistique prévisionnel, et c'est un contrôle qui vient confirmer ou infirmé ce que j'ai choisi la semaine précèdente.
Amicalement ....
Petite réponse à jmfmarques, je te remercie pour ta réponse, j'y avais bien pensé mais je me disais qu'il y avait peut-être une fonction pour du genre mini(8-1-10-8-7)... voilà merci tout de même
:)Sator :)
Ne t'en fais pas pour moi je sais encore compter, et ce n'est pas 5 chiffres qui vont me faire ch...... en fait je fais un logiciel de statistique prévisionnel, et c'est un contrôle qui vient confirmer ou infirmé ce que j'ai choisi la semaine précèdente.
Amicalement ....
Petite réponse à jmfmarques, je te remercie pour ta réponse, j'y avais bien pensé mais je me disais qu'il y avait peut-être une fonction pour du genre mini(8-1-10-8-7)... voilà merci tout de même
:)Sator :)
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
tu peux faire :
Public Function Min(ParamArray vxzValues() As Variant) As Variant
Dim i As Long
For i = 0 To UBound(vxzValues)
If i = 0 Or Min > vxzValues(i) Then
Min = vxzValues(i)
End If
Next i
End Function
Public Function Min(ParamArray vxzValues() As Variant) As Variant
Dim i As Long
For i = 0 To UBound(vxzValues)
If i = 0 Or Min > vxzValues(i) Then
Min = vxzValues(i)
End If
Next i
End Function