PepLluis

El Llenguatge dels ordinadors

Dijous de 11 de Febrer del 2010 a les 20h (Durada aproximada 1:30min)

1ra Part - Introducció

Informació general
Dedicarem aquesta primera sessió a fer un recorregut entorn a l’evolució dels sistemes operatius i els llenguatges de programació tot posant especial èmfasis en la part mes filosòfica del desenvolupament d’aplicacions.

Entorn: Sistemes Operatius i Llenguatges
Audiència : Públic en General 
Lloc

Conduit :

Me complace poner a vuestra disposición la ultima charla realizada en Tarragona, compartiendo cancha con los profesionales más significativos en Visual Basic de nuestro país... espero sea de vuestro agrado.

http://www.blip.tv/file/3062134

Saludos,
Pep Lluis,

Son muchas las cuestiones que recibo acerca de cómo enviar un correo electrónico utilizando código y en concreto con .NET y VB.

Este tipo de facilidades acostumbran a ser muy utilices sobre todo en aplicaciones que puntualmente deben enviar alertas reportando situaciones en las que se requiere llamar la atención o notificar acontecimientos a personas distantes del lugar donde se producen.

Os dejo este corto, como siempre con la estructura más básica, pero practica de como enviar un correo, eso si no dudéis en continuar esta conversación si queréis ampliar el tema.

No olvidéis que necesitáis incluir los espacios de nombres : System.Net / System.Net.Mail, con los imports al inicio del proyecto.

    Sub EnviarMail_Demo()

        Dim Correo As New MailMessage

        Correo.From = New MailAddress("MiCorreo@Proveedor.com")

        Correo.To.Add(New MailAddress("TuCorreo@Proveedor.com"))

        Correo.Subject = "Motivo del correo"

        Correo.Body = "Detalle y texto que vas ha recibir en Tu Correo"

        Dim Cartero As New SmtpClient("smtp.TuServidor.com")

        Cartero.Credentials = New NetworkCredential("miCuenta@DeCorreo.com", "ClaveDeAcceso")

        Cartero.Send(Correo)

    End Sub

Espero que esto os ayude como punto de inicio de este espacio de nombres.

Saludos,
Pep Lluis,

These days Santa comes home with some presents. A lot of people stay with family and share the best drinks and good dinners to celebrate.

 Searching my Santa present in garage, I found an incredible surprise… my first business personal computer.

Is amazing press power On and comeback to time of CP/M systems, working again with my first Disk Basic Compiler.

Enjoy of this screenshot

Que ganas tenía de volver a poner este clásico... así que una vez más:

Feliz Navidad y Prospero año nuevo!

Merry Christmas to you and your family as well

The best whishes to make this 2010, the Year!

Catalonian Claus.

Pep Lluis,

Puedes descargarte el ejecutable haciendo clic en : FTPClient

Advertencia y Aclaración.
Está claro que os facilito este articulo por vuestra insistencia, esta aplicación solo utiliza dos librerías :  System.Net, System.IO y no almacena ningún tipo de información introducida por nombres o credenciales intercambiadas por el usuario,  debo rechazar categóricamente cualquier responsabilidad por el uso de la información así como la aplicación aquí contenida, cualquier uso de la misma o de la información de este artículo y su alcance es estrictamente responsabilidad del lector, aunque como siempre estaré encantado de recibir vuestros comentarios.

Warning:  It is clear that this article is delivered for the insistence of some readers, this application uses only two libraries: System.NET, System.IO, does not store any information introduced by names or exchanged by the user credentials, I categorically reject any responsibility for the use of information as well as the application contained here, any use of it or the information in this article and its scope is strictly responsibility of the reader, although as I am always happy to receive your comments.

Algunos de vosotros estáis preguntando como es posible totalizar ciertos valores ya sea de estadística o control en una de las tablas de nuestra aplicación.

Aquí os propongo una de las formas de implementarlo :
(Aunque no olvideis que existen otras formas de realizarlo, eso si quizas no tan accesibles :-))

En el lado de SQL podéis ejecutar este ‘script’ para generar la tabla…

CREATE TABLE [dbo].[Contadores](

      [Peras] [int] NOT NULL DEFAULT ((0)),

      [Naranjas] [int] NOT NULL DEFAULT ((0)),

      [Manzanas] [int] NOT NULL DEFAULT ((0))

) ON [PRIMARY]

Ahora solo tendréis que realizar el correspondiente ‘Update’ desde vuestra aplicación incrementando la columna que deseáis contabilizar. Esta pregunta es frecuente cuando se realizan aplicaciones tipo albaranes/facturas u otro tipo, en la que se requiere seguir o registrar una numeración aunque en ese caso no debéis olvidar bloquear el registro y más a lo sumo en aplicaciones que varios usuarios estén utilizando esa numeración.

    Private cn As New SqlClient.SqlConnection( _

          "Data Source=MiSrv\SQLEXPRESS;" + _

          "Initial Catalog=MiBd;" + _

          "Integrated Security=True")

    Private da As New SqlClient.SqlDataAdapter( _

          "Select * from Contadores", cn)

    Private Sub Button1_Click() Handles Button1.Click

        'En este caso simulamos incrementar el contador de Manzanas

        da.UpdateCommand = New SqlClient.SqlCommand( _

          "Update Contadores SET Manzanas = Manzanas + 1", cn)

        cn.Open()

        da.UpdateCommand.ExecuteNonQuery()

        cn.Close()

    End Sub

Espero que os sea útil,
Buen fin de semana.
Pep Lluis,

Fifteen or may be seventeen?, New technologies waves with NT, in any way, what’s memories, What’s memories!

In 1993 after long time installing 16Bits Operating System with floppy disk, the new era start with Compact Disk and 32Bits OS.

Probably this is my first 32Bits OS and my first Cd Support to develop 32Bits apps.
Just fifteen... Or seventeen years ago J

Menudas memorias!

En 1993 después de inacabables pilas de diskettes para instalar los sistemas operativos de 16 bits, nos llega una nueva era con Sistemas de 32Bits a caballo del novedoso soporte plástico llamado ‘Compact Disk’.

Probablemente este fue mi primer sistema de desarrollo en 32bits y casi seguro mi primer CD!

Que lo Disfrutéis!

'Respondiendo a la pregunta :

' ¿Cómo puedo establecer comunicación con una bascula que tiene un RS232?

'

'En este ejemplo podremos ver diferentes formas de enviar una petición

' a una bascula, simulando que nos responde al enviar el carácter 'P'

' y visualizar su respuesta en una etiqueta llamada 'Recibidos'

Public Class Form1

    'Constructores

    Private BasculaCom As New System.IO.Ports.SerialPort        'Puerto conectado a la báscula

    Private Recibidos As New Label                              'Etiqueta para visualizar la recepción

    Private Peticion As New Button                              'Botón para disparar el envío

    Delegate Sub MostrarRecepcion(ByVal Texto As String)        'Delegado para asignar el valor recibido

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Ajustar los parámetros de comunicaciones

        ' adaptándolos a las especificaciones o configuración

        ' de la bascula en concreto.

        BasculaCom.PortName = "COM1"                            'Conectaremos la bascula al puerto COM1

        BasculaCom.BaudRate = 9600                              'La velocidad de intercambio será de 9600

        BasculaCom.Parity = IO.Ports.Parity.None                'No verificaremos la paridad

        BasculaCom.StopBits = 1                                 'Final de Byte con 1 bit de Stop

        BasculaCom.Open()                                       'Abrir las comunicaciones con la bascula

        '

        ' marco

        Dim marcoDGV = New FlowLayoutPanel                      'Conformar los controles del form

        marcoDGV.BorderStyle = BorderStyle.Fixed3D

        marcoDGV.Width = Me.Width

        marcoDGV.Height = Me.Height

        ' Añadir el marco con el Label y el Buton

        Recibidos.Text = "-"

        Peticion.Text = "Enviar p"

        marcoDGV.Controls.AddRange(New Control() {Peticion, Recibidos})

        Me.Controls.Add(marcoDGV)

        'Dirigir los eventos a las funciones para procesarlos

        AddHandler Peticion.Click, AddressOf EnviarUnaP         'Ejecución de 'EnviarUnaP' al pulsar el boton

        AddHandler BasculaCom.DataReceived, AddressOf Recibir   'Ejecución de 'Recibir' al recibir respuesta de la bascula

    End Sub

    '

    ' Enviar una solicitud a la bascula

    Sub EnviarUnaP()

        'enviar una p

        BasculaCom.Write("P")

        'tambien puede ver/probar...

        BasculaCom.WriteLine("P")

        BasculaCom.Write(Chr(80))

        '... etc

    End Sub

    'al recibir de la bascula los bytesToRead indicara

    'un valor superior a 0, indicando el numero de caracteres

    Sub Recibir()

        'Dim NumeroDeBytesEnBuffer As Integer = BasculaCom.BytesToRead

        MostrarRececibidos(BasculaCom.ReadExisting)

    End Sub

    '

    ' Mostrar los bytes recibidos en el Label recibidos

    Private Sub MostrarRececibidos(ByVal [texto] As String)

        If Recibidos.InvokeRequired Then

            Dim delegado As New MostrarRecepcion(AddressOf MostrarRececibidos)

            Me.Invoke(delegado, New Object() {[texto]})

        Else

            Me.Recibidos.Text = [texto]

        End If

    End Sub

End Class

Es otra de las preguntas que se repite :

“En mis aplicaciones de VB6 utilizaba MS Chart para poder incrustar sencillos graficos a mi aplicación… he estado buscando en los ‘ocx’ y los componentes .NET en Visual Studio 2008 y no doy en encontrar si existe MS Chart para .NET”
Javier.

Bueno… la respuesta es muy fácil, solo tienes que descargar / instalar el Add-on de MS Chart para Visual Studio 2008. Creo recordar que necesitas tener instalado el SP1, después de instalarlo en la pestaña ‘Data’ del ‘toolbox’ te aparecerá ‘Chart’ y ya sabes… solo tienes que arrastrar y soltar J

MSChart_VisualStudioAddOn.exe

Espero que te sea de utilidad.

' Repondiendo a la pregunta sobre si
' Se puede cambiar la velocidad de Transmsion/Recepcion dinamicamente
'
'..     Dim MiPuerto As New System.IO.Ports.SerialPort
'..     MiPuerto = My.Computer.Ports.OpenSerialPort("COM1")
'
'En este ejemplo enviamos una trama “Hola” a una velocidad diferente
'cada vez que invoquemos el procedimiento EnviarTrama
'
'Evidentemente podeis asociarlo a un combo, de manera que utilice la
'velocidad asociada a la selección del mismo

… Sub EnviarTrama …
        Select Case MiPuerto.BaudRate
            Case 19200
                MiPuerto.BaudRate = 9600
            Case 9600
                MiPuerto.BaudRate = 4800
            Case 9600
                MiPuerto.BaudRate = 2400
            Case Else
                MiPuerto.BaudRate = 19200
        End Select
        MiPuerto.WriteLine("Hola... enviando a :" + MiPuerto.BaudRate.ToString)

Saludos;
Pep Lluis,

Y aqui el Codigo...

'Define input channel
<FlagsAttribute()> Public Enum InputChannel
    PowerAlarm = 1
    LowVoltage = 2
    HighVoltage = 4
    OverCurrent = 8
    PowerGood = 16
    ShortCircuit = 32
    WithoutLoad = 64
    OutOfService = 128
End Enum

'' Define output channel
<FlagsAttribute()> Public Enum OutputChannel
    Engine_Axis1 = 1
    Engine_Axis2 = 2
    Engine_Axis3 = 4
    Smoke_Vent = 8
    Refrigerator = 16
    Blast_Furnace = 32
    TransPort_Belt = 64
    Emergency_Stop = 128
End Enum

'// You can add dynamically items to enum and no changes are needed inside code... just rebuild
'

Public Class FlagsEnumerationSample
    Private Sub When_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Title
        Me.Text = "Playing with Flag's Enum's"
        'Add all labels and textbox in one shot
        Me.Controls.AddRange({New Label With {.Name = "lblHexcaptn",
                                              .AutoSize = True,
                                              .Location = New Point(5, 10),
                                              .Text = "Output Value:"},
                              New Label With {.Name = "lblHexValue",
                                              .AutoSize = True,
                                              .Location = New Point(75, 10),
                                              .Text = "0x00", .Height = 20},
                              New Label With {.Name = "lblInputVal",
                                              .AutoSize = True,
                                              .Location = New Point(140, 10),
                                              .Text = "Input Value : 0x"},
                              New TextBox With {.Name = "txtInputVal",
                                                .MaxLength = 2,
                                                .Width = 20,
                                                .Location = New Point(220, 8),
                                                .Text = "00"}
                            })

        'Add one customized button for every item in enumeration
        Dim NextPos As Integer = 30                                             'Point for this button (30=initial top pos)
        For Each elem In [Enum].GetValues(GetType(OutputChannel))               'iterate output enum
            Me.Controls.Add(New CustomButton(New Point(20, NextPos), elem))     'add new button with new point position for elem
            AddHandler Me.Controls(elem.ToString).Click, AddressOf OutPutOnOff  'When button is click put output on/off
            NextPos += Me.Controls(elem.ToString).Height                        'Calculate next point location for next elem
        Next

        NextPos = 30                                                            'Initial top pos for first element
        For Each elem In [Enum].GetValues(GetType(InputChannel))                'Iterate input enum
            Me.Controls.Add(New CustomLabel(New Point(160, NextPos), elem))     'Add customized label for any bit input in enum
            NextPos += Me.Controls(elem.ToString).Height                        'Calculate location for next label
        Next
        'Simulate input value... refresh labels when textbox value change
        AddHandler Me.Controls("txtInputVal").TextChanged, AddressOf InputsOnOff

        Me.Height = NextPos + 50                                                'Fix form height, after last control + 50
    End Sub

    Private Outputs As Byte = 0                                                 'Output channel (Byte)
    '
    'Change On/Off output bit status of sender
    'remark : TAG property of button is used as bit weight
    Sub OutPutOnOff(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Outputs And CType(sender, Button).Tag Then                           'Flic /Flac output bit
            Outputs = Outputs Xor CType(sender, Button).Tag                     'Set Off if On
            sender.BackColor = Color.GreenYellow                                'GreenYellow if Off
        Else
            Outputs = Outputs Or CType(sender, Button).Tag                      'Set On if Off
            sender.BackColor = Color.Red                                        'Reed if On
        End If
        Me.Controls("lblHexValue").Text = "0x" + Hex(Outputs)
    End Sub

    Private Inputs As Byte? = 0                                                 'Input channel (Byte)
    'Change color of label when bit is On or Off
    'remark : TAG property of label is used as bit weight
    Sub InputsOnOff()
        Try
            Inputs = "&h0" + Me.Controls("txtInputVal").Text                    'Read & convert text as Hex value
        Catch ex As Exception
            Me.Controls("txtInputVal").Text = ""                                'Wrong format... clear textbox
        End Try

        For Each Elem In [Enum].GetNames(GetType(InputChannel))                 'for each item in enum
            If Inputs And CType(Me.Controls(Elem), Label).Tag Then              'Red Color if bit is On, Green if off
                Me.Controls(Elem).BackColor = Color.Red
            Else
                Me.Controls(Elem).BackColor = Color.GreenYellow
            End If
        Next
    End Sub
End Class

'
' Just My customizes Button to select and display outputs
Class CustomButton
    Inherits Button
    '
    ' Create using
    '   _location inside form
    '   _elem     particular item of enumeration
    Sub New(ByVal _location As Point, ByVal _elem As [Enum])
        Me.Tag = CType(_elem, OutputChannel)                    'My Bit weight
        Me.Name = _elem.ToString                                'My Name
        Me.Text = Me.Name                                       'Name to Show
        Me.Width = 100                                          'Wide
        Me.Location = _location                                 'Set Position
        Me.BackColor = Color.GreenYellow                        'Initial Color
    End Sub
End Class

'
' Just My customized Label to display Inputs
Class CustomLabel
    Inherits Label
    '
    ' Create using
    '   _location pos inside form
    '   _elem     particular item of enumeration
    Sub New(ByVal _location As Point, ByVal _elem As [Enum])
        Me.Tag = CType(_elem, InputChannel)                     'My Bit weight
        Me.Name = _elem.ToString                                'My Name
        Me.Text = Me.Name                                       'Name to Show
        Me.Width = 100                                          'Wide
        Me.Location = _location                                 'Position
        Me.TextAlign = ContentAlignment.MiddleCenter            'Align
        Me.BackColor = Color.GreenYellow                        'Initial color
        Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle  'Set Border
    End Sub
End Class

Salud,
Pep Lluis,

A la Cargaaaa!!!

o bien pensado..... a la Descargaaaaaa!!!

http://msdn.microsoft.com/en-us/vstudio/dd582936.aspx

Este video quizas pueda ayudarte si quieres alguna pista, para que la descarga y la instalación sea mas asequible.

http://channel9.msdn.com/shows/10-4/10-4-Episode-33-Downloading-and-Installing-Visual-Studio-2010-Beta-2/

Que lo disfruteis y espero vuestros comentarios.
Pep Lluis,

' A menudo dejamos de utilizar las enumeraciones por falta de comprensión.
'
' Recibo algunas preguntas en tanto a cómo utilizarlas, el presente ejemplo intenta
' clarificar su uso, así como dar algunas perspectivas nuevas, dando a conocer
' algunas características poco conocidas.

' Por definición, una enumeración corresponde a una integral asociada a un contenido como constante

' En la Sub New, destacar...
'   .destacar como en 'Nombres' obtenemos el tipo de la enumeración 'Electrodomésticos'
'   .el uso de [enum].GetNames en forma de array para añadir todos los ítems sin necesidad de iteraciones
'   .Para hacer mas legible el código utilizando una expresión declarativa de la misma
'   .Identificar su correspondencia

' Si mañana tengo una escapada hablaremos del atributo para uso como flag : <FlagsAttribute>
'

Class EnumeracionSimple
    Inherits Form

    Enum Electrodomesticos
        Horno
        Nevera
        Encimera
        Campana
        Batidora
        Plancha
        Secadora
        Balanza
    End Enum

    Sub New()
        AñadirComboConEnumeracion() 'Un combo con los ítems de la enumeración
        CodigoMasLeible(7)
        Identificando(2)

    End Sub

    'Un combo con los ítems de la enumeración
    Sub AñadirComboConEnumeracion()
        'Al crear la clase
        Dim MiCombo As New ComboBox               'Crear ComboBox
        Dim Nombres = GetType(Electrodomesticos)  'Obtener el tipo de la enum
        'Un combobox con toda la enumeración
        MiCombo.Items.AddRange([Enum].GetNames(Nombres).ToArray)    'Añadir todos sus nombres
        MiCombo.Dock = DockStyle.Fill                               'Dock
        Me.Controls.Add(MiCombo)                                    'Añadir el Combo al Form
    End Sub

    'Clarificando cada caso en la selección
    Sub CodigoMasLeible(ByVal Seleccion As Integer)
        Select Case Seleccion
            Case Electrodomesticos.Balanza
                MsgBox("Hola desde Balanza")
            Case Electrodomesticos.Batidora
                MsgBox("Hola desde Batidora")
            Case Electrodomesticos.Encimera
                MsgBox("Hola desde Encimera")
        End Select
    End Sub

    'Identificando la selección
    Sub Identificando(ByVal Electodomestico As Integer)
        MessageBox.Show("Su nombre es  : " + CType(Electodomestico, Electrodomesticos).ToString)
    End Sub
End Class

Come learn about what’s coming in the next release of Visual Basic. Code faster with language features like implicit line continuation, auto-implemented properties, statement lambdas, interoperability with dynamic languages, simplified Office application deployment, and more! Understand, navigate, and test code more easily than ever with the latest code-focused tools. Take advantage of multi-monitor support, zoom, and rich extensibility in the newly designed IDE. In this demo-packed session, we’ll show how to use all of these new capabilities to boost your development experience with Visual Studio 2010!

Bio:
Lisa Feigenbaum is a Community Program Manager for Visual Studio Managed Languages. She has been a member of the Visual Basic team since 2004. Before her current role, Lisa was the Program Manager for the Visual Basic Editor and Debugger. You can find Lisa on Channel9 or read her posts on the VB team blog http://blogs.msdn.com/vbteam. Before joining Microsoft, Lisa earned an M.Sc. and B.A. in Applied Mathematics from Harvard University.

NOTA: Para los que no podais asistir al CodeCamp aclarar que esta sesión será un comunicación online con Redmond y se hará en inglés.
Nivel: 200

On : 18th October 2009, 17:15PM (GMT+1)
Toll free: +1 (866) 500-6738
Toll: +1 (203) 480-8000
Participant code: 3116969
Attendee URL:  https://www.livemeeting.com/cc/microsoft/join?id=MeetLisa&role=attend&pw=Attend

 World Wide Access Telephone Numbers
Spain, Madrid Microsoft IT 91 391 98 00 

Click : Interview on Visual Basic and C# in Visual Studio with DotNetMania

Que lo disfruteis!
Pep Lluis,

Muchos de los que nos acostumbramos al uso de ‘Printer.Print’ en visual Basic 6, padecemos de ciertas dificultades para adaptarnos al nuevo uso de ‘PrintDocument’.

Con la intención de responder a numerosas preguntas sobre el tema y facilitar esas transiciones que finalmente nos aportan un montón de beneficios, me complace compartir con vosotros este pequeño ejemplo de cómo generar un listado usando el ‘moderno’ PrintDocument, dandole un estilo muy chapado a la antigua J.

Espero que os sea útil!

©Pep Lluis

‘Este ejemplo se ha compilado con la versión Beta 1 del compilador FW 4.0, aunque no tendréis dificultad alguna en adaptar el concepto a cualquier versión anterior del framework.

Imports System.Drawing.Printing

Public Class Form1
    'Crear el PrintDocument
    Private ListadoDeArticulos As New PrintDocument
    'Simulación tabla de Artículos
    Private Articulos As New DataTable("Articulos")

    Private Sub Form1_Load() Handles MyBase.Load

        'Función de imprimir paginas
        AddHandler ListadoDeArticulos.PrintPage, AddressOf Me.ImprimirListado

        '
        ' Simular tabla Artículos
        '
        Articulos.Columns.Add("Codigo")
        Articulos.Columns.Add("Descripcion")
        Articulos.Columns.Add("Precio")
        Articulos.Rows.Add("001", "Resistencia 100ohms", "0,15")
        Articulos.Rows.Add("002", "Transistor 2n2234", "1,00")
        Articulos.Rows.Add("003", "Microprocesador Z80", "5,40")
        Articulos.Rows.Add("004", "UART 16C450", "3,45")
        Articulos.Rows.Add("005", "Resistencia 200ohms", "0,12")
        Articulos.Rows.Add("006", "Transistor 2n2222", "1,22")
        

       ' Lanzar la ejecución del listado
        ListadoDeArticulos.Print()

    End Sub

    'Seleccionar la fuente para el listado
    Dim Fuente_Pagina As New Font("Lucida Console", 10)
    'Fijar los márgenes Derecho / Izquierdo
    Dim Margen_Izquierdo As Single = 0
    Dim Margen_Superior As Single = 0
    'Controlar la posición Vertical/NºPagina
    Dim PosicionLinea As Single = 0
    Dim ContadorLinea As Single = 0
    Dim Numero_Pagina As Single = 1
    'Memorizar la posición en curso dentro del Dataset
    Dim Puntero As Single = 0

    '
    ' Imprimir el Listado de Artículos
    '
    Sub ImprimirListado(ByVal sender As Object, ByVal Pagina As PrintPageEventArgs)

        'Ajustes para el Control de Pagina
        Dim Lineas_Pagina As Single = Pagina.MarginBounds.Height / Fuente_Pagina.GetHeight(Pagina.Graphics)
        ContadorLinea = 0
        Margen_Izquierdo = Pagina.MarginBounds.Left
        Margen_Superior = Pagina.MarginBounds.Top

        'Cabecera del Listado
        ImprimirUnaLinea(Pagina, "Electronica NAVI")
        ImprimirUnaLinea(Pagina, "Listado de Artículos sin ningún orden ni concierto")
        ImprimirUnaLinea(Pagina, "Vic (Barcelona) a fecha : " + DateTime.Now + " ,Pagina : " + Numero_Pagina.ToString)
        ImprimirUnaLinea(Pagina, "")
        ImprimirUnaLinea(Pagina, "Código Descripción                                               Precio")
        ImprimirUnaLinea(Pagina, "------ --------------------------------------------------------- --------")
        Dim Articulo As DataRow
        Dim Linea As String = Space(80)
        '
        'Recorrer la tabla de artículos / imprimir una línea por fila
        For Indice As Single = Puntero To Articulos.Rows.Count - 1
            Articulo = Articulos.Rows(Indice)
            If ContadorLinea < Lineas_Pagina Then
                'posicionar la columna según item/articulo
                Mid(Linea, 2) = Articulo.Item("Codigo")
                Mid(Linea, 8) = Articulo.Item("Descripcion")
                Mid(Linea, 66) = Articulo.Item("Precio")
                'imprimir la linea
                ImprimirUnaLinea(Pagina, Linea)
            Else
                Exit For
            End If
        Next
        'Memorizar la posicion del primer artículo/siguiente Pagina
        Puntero = Articulos.Rows.IndexOf(Articulo)
        '
        'Comprobar si existen artículos para listar
        If Puntero < Articulos.Rows.Count - 1 Then
            Numero_Pagina += 1          'Incrementar numero de página
            Pagina.HasMorePages = True  'SI tengo más paginas a imprimir
        Else
            ImprimirUnaLinea(Pagina, "------ --------------------------------------------------------- --------")
            Numero_Pagina = 1           'Numero de pagina a 1 (Para el proximo listado)
            Pagina.HasMorePages = False 'No Tengo mas paginas para imprimir
        End If
    End Sub
    '
    ' Imprimir una linea
    '

   'Lambda para con el cálculo de la posición de la línea
    Dim Pos = Function() As Single
                Return Margen_Superior + ContadorLinea * Fuente_Pagina.GetHeight(Pagina.Graphics)
              End Function

    Sub ImprimirUnaLinea(ByVal Pagina As PrintPageEventArgs, ByVal Linea As String)
        'Imprimir la línea con la fuente seleccionada y en Negro
        Pagina.Graphics.DrawString(Linea, Fuente_Pagina, Brushes.Black, Margen_Izquierdo, Pos())
        'Incrementar el contador de líneas
        ContadorLinea += 1
    End Sub

End Class

PD. Me gustara recibir vuestros comentarios, opiniones y aportaciones.

Me complace compartir con vosotros un gran evento para la comunidad de desarrolladores, se trata de una nueva edición del CodeCamp esta vez en Tarragona. Dos días completos dedicados a reunir al mayor número de profesionales, estudiantes y entusiastas entono charlas, mesas redondas y lo más importante un punto de reunión para contactar de tu a tu, con los profesionales más reconocidos de nuestro sector.

Ahora ya no tienes excusa, sin duda el evento más importante de este año, de la comunidad para la comunidad.

No tardes en registrarte : www.codecamp.es

Nos vemos el 17/18 de octubre en Tarragona.
Pep Lluis,

Para los que tengáis eReader, tiempo que perder y aun no dispongáis del libro “Robot Dispensador para MSDN Video” (año 2005), ahora lo tenéis disponible en formato electrónico. Os lo podéis descargar de :

https://www.luarna.com/Paginas%20comunes/DispFormAutor.aspx?idautor=44

Espero que un recurso más J
Saludos,
Pep Lluis,