En 1991, Bill Gates presentaba una gran herramienta de desarrollo… no te lo pierdas!

VB Cumple 20 años!

Felicidades al equipo que ha continuado haciendo de este lenguaje, un lenguaje joven con 20 años experiencia :-).

Uno de los guiños de extensiones de Visual Studio como las Power Tools, son detalles como poder eliminar las referencias no utilizadas y al mismo tiempo ordenarlas.

No es que sea algo crucial, emocionante o imprescindible, pero lo cierto es que sobretodo en proyectos compartidos antes de entregar el ‘release’ final soy de esos que dedica un montón de horas en pulir todo aquello que aunque escrito no tiene ninguna utilidad.

Pienso sinceramente que la calidad del código, también pasa por entregar justo lo que interviene. Asi pues… con el “Remove and Sort Imports” de las power tools y aunque parezca mentira voy a ahorrarme mi tiempecillo J

Saludos,
Pep Lluis,

I have received a question asking for How I can compute a SHA1 hash.

You can use this function or similar to get 160bit hash.

Imports System.Security.Cryptography

    ' Computing Hash for SHA1
    Function SHA1(ByVal dataStream As String) As Byte()
        Dim Ascii As New ASCIIEncoding
        Dim tmpsource(dataStream.Length) As Byte
        tmpsource = Ascii.GetBytes(dataStream)
        Dim sha As New SHA1CryptoServiceProvider()
        Return sha.ComputeHash(tmpsource)
    End Function

PepLluis,

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