jueves, 1 de octubre de 2020

Patrones de diseño: Prototipo

Para generar objetos a partir de otros sin tener que crearlos de cero se puede usar el patrón prototipo. Para ello se genera un clon de un objeto (en C# se hace utilizando la interfaz ICloneable).
Debemos distinguir dos tipos de clonación: shallow copy y deep copy. El primero clona un objeto y copia el valor de todas las propiedades del mismo. Sin embargo, en el caso de los tipos por referencia se copia la referencia. En el segundo caso, las propiedades se copian como en el primer caso aunque la diferencia se encuentra para los tipos por referencia que se clonan también.
A continuación se puede ver un ejemplo sencillo de su utilización.

using System;
public class Program
{
public static void Main()
{
Person p = new Person();
p.name = "Edward";
p.surname = "Reddington";
p.age = 48;
p.addr = new Address("Main Street, 16");
Console.WriteLine("Person 1 - " + p.name + " " + p.surname + ", " + p.age + ", " + p.addr.street);
Person p2 = (Person)p.Clone();
Console.WriteLine("Person 2 - " + p2.name + " " + p2.surname + ", " + p2.age + ", " + p2.addr.street);
p2.name = "Peter";
p2.surname = "Baltimore";
p2.addr = new Address("Eight Av. 132");
Console.WriteLine("Person 2 - " + p2.name + " " + p2.surname + ", " + p2.age + ", " + p2.addr.street);
}
}

public class Address:ICloneable {
public String street;
public Address(String street) {
this.street = street;
}
public object Clone() {
return this.MemberwiseClone();
}
}

public class Person:ICloneable {
public String name;
public String surname;
public int age;
public Address addr;
public object Clone() {
return this.MemberwiseClone();
}
}

jueves, 2 de julio de 2020

Listbox con elementos de apariencia diferente

El control Listbox de Windows Forms es bastante útil en determinadas situaciones y muy utilizado también. Una característica que puede ser poco conocida para algunos desarrolladores es la posibilidad de definir las características de cada línea (elemento) mostrada en este control de forma independiente.
Este resultado se puede lograr de un modo bastante sencillo realizando 3 simples pasos:
  - En primer lugar debemos establecer la propiedad DrawMode al valor OwnerDrawFixed o el valor OwnerDrawVariable.
  - En segundo lugar, hay que definir el manejador del evento DrawItem. Aquí podremos dibujar lo que queremos mostrar en cada línea del Listbox de forma individual para cada elemento. Es posible definir el color, tamaño y familia de la fuente, por ejemplo.
  - En último lugar, y sólo en caso de haber seleccionado la opción DrawMode = OwnerDrawVariable, debemos definir el manejador del evento MeasureItem que nos permitirá variar las dimensiones de la línea que ocupa cada elemento de la fuente de datos del ListBox.

A continuación se muestra un poco de código con un ejemplo de lo arriba descrito. En el código se puede ver una clase auxiliar que se utiliza para definir cada uno de los elementos que muestra el control Listbox. En esta clase se incluye la propiedad Fuente que nos permite definir la fuente del texto mostrado en cada línea del control de forma independiente.

Public Class frmFuentes
    Private Const FUENTE_MIN As Integer = 8
    Private Const FUENTE_MAX As Integer = 14
    Dim listaFuentes As List(Of ItemCboFuentes)

    Private Sub frmFuentes_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fuentesInstaladas As New InstalledFontCollection
        Dim strFamiliasFuentes As New StringBuilder("")
        Dim itemCombo As ItemCboFuentes
        listaFuentes = New List(Of ItemCboFuentes)
        Dim valor As Integer = 0
        For Each familia In fuentesInstaladas.Families
            If valor Mod 2 = 0 Then
                itemCombo = New ItemCboFuentes(familia.Name, valor.ToString())
            Else
                itemCombo = New ItemCboFuentes(familia.Name, valor.ToString(), FUENTE_MAX)
            End If
            listaFuentes.Add(itemCombo)
            valor = valor + 1
        Next
        cboFuente.ValueMember = "Valor"
        cboFuente.DisplayMember = "Texto"
        cboFuente.DataSource = listaFuentes
        lstFuentes.DrawMode = DrawMode.OwnerDrawVariable
        lstFuentes.ValueMember = "Valor"
        lstFuentes.DisplayMember = "Texto"
        lstFuentes.DataSource = listaFuentes
    End Sub

    Private Sub cboFuente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFuente.SelectedIndexChanged
        MessageBox.Show("Text: " & cboFuente.SelectedItem.ToString() & " -- " & cboFuente.SelectedValue)
    End Sub

    Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lstFuentes.DrawItem
        Dim indice As Integer = e.Index
        Dim rectF As RectangleF
        rectF = RectangleF.op_Implicit(e.Bounds)
        e.DrawBackground()
        e.Graphics.DrawString(listaFuentes.Item(indice).Texto, listaFuentes.Item(indice).Fuente, Brushes.Black, RectangleF.op_Implicit(e.Bounds))
        e.DrawFocusRectangle()
    End Sub

    Private Sub lstFuentes_MeasureItem(sender As Object, e As MeasureItemEventArgs) Handles lstFuentes.MeasureItem
        If e.Index Mod 2 <> 0 Then
            e.ItemHeight = e.ItemHeight * 2
        End If
    End Sub

    'Clase auxiliar para definir los elementos que vamos a mostrar en el control Listbox.
    'Esta clase incluye una propiedad Fuente que nos permite definir la fuente de cada br/>     'elemento de forma independiente.
    Private Class ItemCboFuentes
        Private _texto As String
        Public Property Texto() As String
            Get
                Return _texto
            End Get
            Set(ByVal value As String)
                _texto = value
            End Set
        End Property
        Private _valor As String
        Public Property Valor() As String
            Get
                Return _valor
            End Get
            Set(ByVal value As String)
                _valor = value
            End Set
        End Property
        Private _fuente As Font
        Public Property Fuente() As Font
            Get
                Return _fuente
            End Get
            Set(ByVal value As Font)
                _fuente = value
            End Set
        End Property
        Sub New()
            Texto = ""
            Valor = ""
            Fuente = New Font(FontFamily.GenericSansSerif, FUENTE_MIN)
        End Sub

        Sub New(ByVal texto As String, ByVal value As String)
            _texto = texto
            _valor = value
            _fuente = New Font(texto, FUENTE_MIN)
        End Sub

        Sub New(ByVal texto As String, ByVal value As String, ByVal tam As Integer)
            _texto = texto
            _valor = value
            _fuente = New Font(texto, tam)
        End Sub
    End Class

End Class

El código mostrado permite obtener el resultado que se observa en la siguiente imagen.


miércoles, 1 de julio de 2020

Captura de eventos de teclado

Es habitual el desarrollo de aplicaciones que, en algún momento, tengamos que controlar los eventos de teclado. Lo más habitual es tener que controlar la pulsación de alguna tecla para realizar alguna tarea, o simplemente para actuar como atajos de teclado para poder realizar acciones comunes de un modo más ágil.
Para detectar las pulsaciones realizadas dentro de un determinado control debemos definir las operaciones a realizar dentro del manejador del evento correspondiente (keydown, keyup, keypress, etc.) para ese control.

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar >= ChrW(48) And e.KeyChar <= ChrW(57) Then
            MessageBox.Show(("TextBox.KeyPress: '" +
                e.KeyChar.ToString() + "' pulsado."))
            Select Case e.KeyChar
                Case ChrW(49), ChrW(57)
                    MessageBox.Show(("TextBox.KeyPress: '" +
                        e.KeyChar.ToString() + "' absorbido."))
                    e.Handled = True
            End Select
        End If
    End Sub

Sin embargo, si queremos detectar la pulsación de las teclas en el formulario debemos hacer algunas modificaciones. En primer lugar, debemos poner a True la propiedad KeyPreview del formulario. Además, debemos definir el código de las acciones a realizar en el manejador de eventos del formulario. De este modo, las teclas pulsadas serán detectadas primero por el formulario y después se pasarán a los distintos controles, salvo que dentro del manejador del evento correspondiente se defina la propiedad e.Handled = true.

Sub Form1_KeyPress(ByVal sender As Object,  ByVal e As KeyPressEventArgs) Handles Me.KeyPress
...
End Sub

Incluso haciendo estos ajustes existen casos en los que las teclas no alfanuméricas pueden no ser detectadas. Para estos casos es recomendable sobreescribir la función ProcessCmdKey. En este caso no es necesario establecer la propiedad del formulario KeyPreview a True. Si esta función devuelve True el evento detectado será consumido por esta función y no será recibido por el control que tenga el foco en ese momento.

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
    If keyData = Keys.Up Then
        MessageBox.Show("Flecha arriba pulsada")
        Return True
    End If
    If keyData = Keys.Down Then
        MessageBox.Show("Flecha abajo pulsada")
        Return True
    End If

    Return MyBase.ProcessCmdKey(msg, keyData)
End Function

lunes, 1 de junio de 2020

Empezando con Git

Git es una herramienta de control de versiones que facilita la colaboración entre equipos de desarrollo de software. Esta herramienta ha sido desarrollada por Linus Torvalds (inició y mantiene actualmente el desarrollo del núcleo del sistema operativo Linux).
Para utilizar Git lo primero que tenemos que hacer es descargar la aplicación desde aquí. En este artículo vamos a ver los comandos utilizados en la interfaz de texto pero también podemos utilizar una interfaz visual que se puede descargar desde el enlace anterior también.
A continuación comentaré los comandos más útiles de esta herramienta y para qué se usan.
> git init
   Crea un repositorio vacío o reinicia uno existente en el directorio actual.

> git init [repository]
   Crea un subdirectorio dentro del directorio actual e inicia un repositorio para ese subdirectorio.

> git clone
   Permite clonar un repositorio dentro del directorio actual

> git status
   Muestra información sobre el estado del árbol de trabajo. Muestra la rama actual, los ficheros que no están controlados.

> git config --global user.name "Nombre Apellido"
   Permite definir la identidad del usuario como un modo de hacer seguimiento de quién realiza los cambios.

> git config --global user.email "myemail@email.com"
   Permite definir como parte de la identidad del usuario su dirección de correo electrónico.

> git add [file_name]
> git add .
   Añade un fichero o todos los ficheros del directorio al índice del repositorio.

> git add --all
   Añade también los ficheros borrados.

> git commit
   Graba los cambios pendientes en el repositorio.

> git commit -m "[commit message]"
   Graba los cambios pendientes en el repositorio y se le asocia un mensaje.

> git branch
   Lista las ramas existentes e indica la actual.

> git branch [branch_name]
   Crea una nueva rama con el nombre [branch_name].

> git branch -d [branch_name]
   Intenta eliminar una rama.

> git branch -D [branch_name]
   Elimina una rama sin avisos.

> git checkout [branch_name]
   Cambia de la rama actual a otra llamada [branch_name].

> git checkout -b [branch_name]
   Cambia de una rama a otra. Si esta última no existe, la crea primero.

> git merge [branch_name]
   Añade los cambios a mayores de la rama [branch_name] a la actual.

> git remote add origin https://e*****o@bitbucket.org/e*****o/git_test.git
   Conecta el repositorio local origin con el remoto definido por la url. En este caso el repositorio remoto está alojado en Bitbucket, pero podría utilizarse otro como GitHub, por ejemplo.

> git remote
   Obtiene la lista de repositorios remotos.

> git push -u origin master (-u sólo la primera vez)
   Envía el contenido de la rama master del repositorio local al remoto.

> git fetch
   Obtiene todos los datos del repositorio remoto origin.

> git pull [remote] [alias]  (git pull origin master) o git pull
   Obtiene la rama que estamos solicitando y hace un merge con la rama actual.

> git merge [branch_name]
   Mezclamos los datos de [branch_name] con la rama actual.

> git push origin master
   Actualiza el repositorio remoto con los cambios de la rama master, en este caso.

En cualquier caso, para obtener información más detallada y actualizada se puede visitar la documentación oficial en este enlace.
También existen otras fuentes de información útiles que se pueden consultar para aprender más sobre Git como, por ejemplo:
   - Git HandBook
   - Aprende a usar Git con BitBucket Cloud
   - Pro Git

Por otro lado, es posible utilizar un cliente GUI para evitar la línea de comandos. De este modo se realizarían las operaciones en un entorno totalmente visual. Una de las aplicaciones de este tipo gratuitas mejor valoradas es Sourcetree que se puede descargar en el siguiente enlace

jueves, 2 de abril de 2020

Winforms TextBox personalizado

A todos los que nos dedicamos a esto de la programación nos ha pasado en alguna o muchas ocasiones que necesitemos de un determinado control ofrecido por el framework algo adicional. A veces, son pequeños detalles que nos facilitarían la tarea a realizar y otras veces son simplemente efectos visuales que consideramos atractivos. Sea cual sea la situación, voy a mostrar un ejemplo de como personalizar el control TextBox en .NET WinForms.
En este ejemplo se optimiza el control TextBox para actuar comprobando la fortaleza de las contraseñas introducidas en el mismo. Para ello se añaden varias propiedades: Validate (permite establecer si queremos o no esta funcionalidad adicional), MinChars (en la versión inicial permite definir el número mínimo de caracteres para considerar una contraseña mínimamente fuerte), Valid (indica la validez o no de la contraseña introducida en el control), Fortaleza (devuelve un valor indicativo de la fortaleza de la contraseña con respecto a los criterios establecidos).
En la primera versión del control (se encuentra comentada en el código) se utilizaba la propiedad MinChars y cuando la longitud de la cadena introducida es mayor que MinChars + 3 y cumple el patrón, esta es considera válida y el fondo del control se pone en color verde. Para valores menores no válidos el color de fondo va variando desde el rojo hasta el verde correspondiente a una contraseña fuerte y por tanto válida.
En la segunda versión, se utiliza una función que nos da un número indicativo de la fortaleza de la cadena de caracteres que se le pasa como parámetro para su uso como contraseña.
La función que calcula el nivel de dificultad de adivinar una contraseña comprueba primero la longitud de la misma y después la pondera comprobando también los distintos tipos de caracteres empleados en la misma.



Public Class EBSTextBox
    Inherits TextBox
    Private _validate As Boolean
    Private patron As String = "^[a-zA-Z0-9.,?_-]+$"
    <Description("Define si se realiza validación o no")>
    <Category("Seguridad")>
    <DefaultValue(False)>
    <Browsable(True)>
    Public Property Validate() As Boolean
        Get
            Return _validate
        End Get
        Set(ByVal value As Boolean)
            _validate = value
        End Set
    End Property
    Private _minChars As Integer
    <Description("Define el mínimo número de caracteres para una contraseña")>
    <Category("Seguridad")>
    <Browsable(True)>
    Public Property MinChars() As Integer
        Get
            Return _minChars
        End Get
        Set(ByVal value As Integer)
            _minChars = value
        End Set
    End Property
    Private _valid As Boolean
    Public ReadOnly Property Valid() As Boolean
        Get
            Return _valid
        End Get
    End Property
    Private _fortaleza As Integer
    Public ReadOnly Property Fortaleza() As Integer
        Get
            Return _fortaleza
        End Get
    End Property
    Protected Overrides Sub OnTextChanged(ByVal e As EventArgs)
        _valid = False
        If _validate = True Then
            ''Validaciones básicas
            'If Me.Text.Length < MinChars Then
            '    Me.BackColor = Color.Red
            'ElseIf Me.Text.Length < MinChars + 3 Then
            '    Me.BackColor = Color.OrangeRed
            'Else
            '    'Comprobamos si se cumplen los requisitos de complejidad
            '    If Not System.Text.RegularExpressions.Regex.IsMatch(Me.Text, patron) Then
            '        Me.BackColor = Color.Yellow
            '        _valid = False
            '    Else
            '        Me.BackColor = Color.Green
            '        _valid = True
            '    End If
            '    Me.BackColor = Color.Green
            '    _valid = True
            ''Validaciones mediante función ObtenerFortalezaClave
            _fortaleza = ObtenerFortalezaClave(Me.Text)
            If _fortaleza <= 4 Then
                _valid = False
                Me.BackColor = Color.Red
            ElseIf _fortaleza < 10 Then
                _valid = False
                Me.BackColor = Color.Orange
            ElseIf _fortaleza < 20 Then
                _valid = True
                Me.BackColor = Color.LightGreen
            Else
                _valid = True
                Me.BackColor = Color.Green
            End If
        End If
        MyBase.OnTextChanged(e)
    End Sub
    Private Function ObtenerFortalezaClave(ByVal clave As String)
        Dim fortaleza As Integer = 0
        If clave.Length < 4 Then
            fortaleza = 0
        ElseIf clave.Length < 6 Then
            fortaleza = 2
        ElseIf clave.Length < 10 Then
            fortaleza = 5
        Else
            fortaleza = 10
        End If
        If Not System.Text.RegularExpressions.Regex.IsMatch(clave, "^[a-z]+$") Then
            If System.Text.RegularExpressions.Regex.IsMatch(clave, "^[a-zñ0-9]+$") Then
                fortaleza = fortaleza * 2
            ElseIf System.Text.RegularExpressions.Regex.IsMatch(clave, "^[a-zñ0-9A-ZÑ]+$") Then
                fortaleza = fortaleza * 4
            ElseIf System.Text.RegularExpressions.Regex.IsMatch(clave, "^[a-zñA-ZÑ0-9\W]+$") Then
                fortaleza = fortaleza * 5
            End If
        End If
        Return fortaleza
    End Function
End Class


En la imagen siguiente se puede observar el efecto de los cambios introducidos en el control TextBox. Como se puede ver en el ejemplo de uso del control, se utiliza la propiedad Valid para decidir si se habilita/deshabilita el botón que lo acompaña.


En este caso, la función de comprobación de la fortaleza da más importancia al uso de mayúsculas o signos de puntuación que a la longitud de la cadena (sobre todo si esta es pequeña). Este es un criterio más o menos acertado que se puede adaptar a las necesidades en cada momento. Lo importante del ejemplo son las posibilidades de personalización que ofrecen los controles en .NET.

El código del formulario de prueba del control es el siguiente:

Public Class frmTestInheritedControl
    Private Sub EbsTextBox1_TextChanged(sender As Object, e As EventArgs) Handles EbsTextBox1.TextChanged
        If CType(sender, EBSTextBox).Valid Then
            btnEntrar.Enabled = True
        Else
            btnEntrar.Enabled = False
        End If
        lblFortaleza.Text = CType(sender, EBSTextBox).Fortaleza.ToString()
    End Sub
    Private Sub btnEntrar_Click(sender As Object, e As EventArgs) Handles btnEntrar.Click
        If EbsTextBox1.Valid Then
            lblPassword.Text = EbsTextBox1.Text
        Else
            lblPassword.Text = ""
        End If
    End Sub
End Class