Choisir une valeur parmis 5 autres en 1 ligne
Contenu du snippet
Public Function Choose(Of T)(ByVal ParamArray Values() As T) As T
Return Choose(Of T)(New System.Random().Next(0, Values.Length - 1), Values)
End Function
Public Function Choose(Of T)(ByVal Index As Integer, ByVal ParamArray Values() As T) As T
Return Values(Index)
End Function
' Exemple d'utilisation :
Dim a1 As String = Choose(Of String)(2, "a", "b", "c", "d") ' a1 = "c"
Dim a2 As String = Choose(Of String)("a", "b", "c", "d") ' a2 = "a", "b", "c" ou "d"
Dim b1 As Integer = Choose(Of Integer)(1, 2, 3, 4) ' b1 = 3
Dim b2 As Integer = Choose(Of Integer)(New Integer() {1, 2, 3, 4}) ' b2 = 1, 2, 3 ou 4
' Provoque une des 4 exceptions
Throw Choose(Of System.Exception)(New System.IO.FileNotFoundException(), _
New System.Runtime.InteropServices.SEHException(), _
New System.Security.SecurityException(), _
New System.Exception("moa"))
Compatibilité : VB 2005, VB 2008
Disponible dans d'autres langages :
A voir également
- Choisir une valeur parmis 5 autres en 1 ligne
- Chronomètre en ligne - Forum Java
- Valeur absolue c# - Forum C# / .NET
- Dérivée en ligne - Forum Delphi / Pascal
- Schema electrique en ligne - Forum VB.NET
- Simplifier une fraction en ligne - Forum C / C++ / C++.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.