Many of you are asking how to perform searches on lists as detailed in the previous post using C# syntax. Well in a summary form this would be the equivalent expression:

Muchos de vosotros me estáis pidiendo como realizar búsquedas en listas como la detallada en el post anterior y en C#. Bien de una forma resumida esta sería la expresión equivalente :

public static List<Person> People = new List<Person> … // to do: Populate list

// Find name function
public static Person FindField(string toFind)
{
  Person result = People.Find(delegate(Person fl) {return fl.Name == toFind;});
  return result;
}

// ..
// ..
// ..
// Class Person
        public class Person
        {
            public string Name { get; set; }
            public string surname { get; set; }
            public int Age { get; set; }
        } 

I hope this will be useful,
Pep Lluis,

Dim Personas As New List(Of Persona)
Dim BuscarA = "Yuis"
    Sub Prueba()
        Personas.AddRange(
            {New Persona With {.Nombre = "Pep", .Apellido = "Lluis"},
             New Persona With {.Nombre = "Yuis", .Apellido = "Franco"},
             New Persona With {.Nombre = "Juansa", .Apellido = "Yopis"},
             New Persona With {.Nombre = "Marc", .Apellido = "Rubiño"}
            })
        Dim ficha As Persona = Personas.Find(AddressOf Buscar)
        If ficha IsNot Nothing Then
            MessageBox.Show(String.Format("Ficha de : {0} {1}", ficha.Nombre, ficha.Apellido))
        Else
            MessageBox.Show("Ficha: " & BuscarA & "Inexistente: ")
        End If
    End Sub

    Function Buscar(ByVal p As Persona) As Boolean
       If p.Nombre = BuscarA Then
           Return True
       Else
           Return False
       End If
    End Function
.....
.....

Public Class Persona
    Property Nombre As String
    Property Apellido As String
    Property Edad As Integer
End Class

;-)
Pep Lluis,

Disponer de un Sistema operativo compatible: Windows 7 o Windows Vista

• Visual Studio 2010 Professional, Premium o Ultimate
• Windows Phone Developer Tools RTW

Y además

• Visual Basic para Windows Phone Developer Tools RTW

Puedes seguir toda la evolución leyendo de sus principales fuentes :

• Visual Basic Team
• Blog de Visual Studio
• Blog de los desarrolladores para Windows Phone

Creo que con esto tendréis suficiente material para leer un rato
Saludos,
Pep Lluis,

Respondiendo a una consulta sobre el anterior post de como sacar promedios de cadenas representando valores numéricos y provenientes de una lista, ‘combobox’ o cualquier otro origen en texto :

Dim Consumo As Integer = 0
Dim Consumos = {«10», «11», «21», «31», «41»}
Console.WriteLine((Array.ConvertAll(Consumos,
                                    Function(s) If(Integer.TryParse(s, Consumo), Consumo,
                                                   New Integer))).Average)

Espero que os sea practico,
Pep Lluis,

‘ Repasando codigo, aun suelo encontrar las eternas expresiones de formateo de cadenas
‘ heredadas del mas puro estilo 6.0, entre otras estoy hablando de mid, left, right
‘ y como no de format(a,»##,##») y un largo etc.

‘ Nada que objetar! solo recordaros que en .NET podemos salvar la gran mayoria de expresiones
‘ que requieren formato con el uso de los conocidos parametros de substitucion ‘{x}’
‘ :-))

Module Module1
‘
‘ formateando strings 
  Sub Main()
             Dim Cadena As String = «Consumo en Kw : {0}, precio : {1}, total : {2}»
             Dim Consumos = {10, 11, 21, 31, 41}
             Dim Tarifa = Function(n) 
                                     Select Case n 
                                            Case Is > 40 : Return 4.6 
                                            Case Is > 30 : Return 6.3 
                                            Case Is > 20 : Return 8.2 
                                            Case Is > 10 : Return 10.5 
                                            Case Else : Return 12.4 
                                     End Select
                          End Function 

        For Each kw In Consumos
              Console.WriteLine(String.Format(Cadena, kw.ToString, Tarifa(kw).ToString, (kw * Tarifa(kw)).ToString))  
        Next
        Console.ReadLine()
  End Sub
End Module

No pierdas la oportunidad de concer el futuro, explicado directamente por Anders Hejlsberg!
Si quieres conocer las nuevas caracteristicas como «Async» y como el futuro rompera la caja negra del compilador convirtiendola en un servicio mas… eso si, necesitaras disponer de al menos 1 hora para prestar la atención que se merece.

Haz clic en : The future of C# and Visual Basic

Que lo disfruteis!,
Pep Lluis,