Proyectos de Electrónica Creativa (by Joe & Alex's Daddy) (Rubén García Coronado): Control Display 7 Segmentos con Visual Basic .NET

"Control "Display 7 Segmentos" con "Visual Basic .NET" "Crea tu propio control con VB .NET"

Necesitáis un display de 7 segmentos para vuestra aplicación de Visual Basic .NET o cualquier otro lenguaje gráfico y no sabes hacerlo. Pues bien, aquí os paso un ejemplo de un control de este tipo realizado por medio de un librería .dll y un ejemplo de aplicación que lo maneja.

También, al final de esta página encontrareis los códigos fuente tanto del control del Display como de la aplicación que he realizado para mostraros el ejemplo completo.

Ahí va el ejemplo de la aplicación que hace uso del control Display de 7 segmentos...

https://drive.google.com/file/d/0By2_W81NKkeAcGpyMGRISWIzQlk/edit?usp=sharing

Y en este otro esta la librería .dll que define el control.

Librería .dll del Control Display 7 Segmentos

https://drive.google.com/file/d/0By2_W81NKkeAN0VDdkhkbFZCWnc/edit?usp=sharing

Si solamente necesitáis el control basta con importarlo como complemento dentro del IDE de Visual Studio y a continuación lo veréis como un control más en el panel de controles.

Tras insértalo solo falta usarlo como cualquier otro control, pero este exactamente dispone de unas propiedades determinadas y que son configurables como son el color, tipo (que puede ser de entrada o salida, es decir que vale para leer o escribir los dígitos que se muestran). Los caracteres que acepta son solo los hexadecimales (desde el 0 hasta la F), otros valores distintos a estos el control de display no muestra nada, ningún segmento se encenderá.

Código Fuente del User Control Display 7 Segmentos

https://drive.google.com/file/d/0By2_W81NKkeAWE1xazZEcjNrRzA/edit?usp=sharing

Pulsar en este enlace para descargaros el código fuente del display de 7 segmentos. Debajo del mismo también lo podéis encontrar para hacer un simple corta y pega, así como todo el código fuente de la aplicación ejemplo.

'*****************************************************************************************

' LICENSE INFORMATION

'*****************************************************************************************

' Control_Display_7Segments Version 1.0.0.0

' User control for Visual Basic .NET

' Rubén García Coronado

' Email: rubengaco13@gmail.com

' Created: Jan 2011

' This program is free software: you can redistribute it and/or modify

' it under the terms of the GNU General Public License as published by

' the Free Software Foundation, either version 3 of the License, or

' (at your option) any later version.

' This program is distributed in the hope that it will be useful,

' but WITHOUT ANY WARRANTY; without even the implied warranty of

' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

' GNU General Public License for more details.

' You should have received a copy of the GNU General Public License

' along with this program. If not, see <http://www.gnu.org/licenses/>.

'*****************************************************************************************

Public Class Control_5

Inherits System.Windows.Forms.UserControl

#Region " Código generado por el Diseñador de Windows Forms "

Public Sub New()

MyBase.New()

'El Diseñador de Windows Forms requiere esta llamada.

InitializeComponent()

'Agregar cualquier inicialización después de la llamada a InitializeComponent()

End Sub

'UserControl reemplaza a Dispose para limpiar la lista de componentes.

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

'Requerido por el Diseñador de Windows Forms

Private components As System.ComponentModel.IContainer

'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento

    'Puede modificarse utilizando el Diseñador de Windows Forms.
    'No lo modifique con el editor de código.
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents RadioButton_In As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton_Out As System.Windows.Forms.RadioButton
    Friend WithEvents PictureBox_R_9 As System.Windows.Forms.PictureBox
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents PictureBox_R_8 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_7 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_6 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_1 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_0 As System.Windows.Forms.PictureBox
    Friend WithEvents HScrollBar_0 As System.Windows.Forms.HScrollBar
    Friend WithEvents PictureBox_R_OFF As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_F As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_E As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_D As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_C As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_B As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_R_A As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_F As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_E As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_D As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_C As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_B As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_A As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_0 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_1 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_6 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_7 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_8 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_9 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_F As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_E As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_D As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_C As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_B As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_A As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_0 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_1 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_6 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_7 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_8 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_9 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_F As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_E As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_D As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_C As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_B As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_A As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_0 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_1 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_6 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_7 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_8 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_9 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_Y_OFF As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_G_OFF As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox_B_OFF As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Control_5))
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.RadioButton_Out = New System.Windows.Forms.RadioButton
        Me.RadioButton_In = New System.Windows.Forms.RadioButton
        Me.HScrollBar_0 = New System.Windows.Forms.HScrollBar
        Me.PictureBox_R_9 = New System.Windows.Forms.PictureBox
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.PictureBox_R_8 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_7 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_6 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_5 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_1 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_2 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_3 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_4 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_0 = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_OFF = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_F = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_E = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_D = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_C = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_B = New System.Windows.Forms.PictureBox
        Me.PictureBox_R_A = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_F = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_E = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_D = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_C = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_B = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_A = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_0 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_1 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_2 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_3 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_4 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_5 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_6 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_7 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_8 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_9 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_F = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_E = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_D = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_C = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_B = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_A = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_0 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_1 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_2 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_3 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_4 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_5 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_6 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_7 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_8 = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_9 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_F = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_E = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_D = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_C = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_B = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_A = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_0 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_1 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_2 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_3 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_4 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_5 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_6 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_7 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_8 = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_9 = New System.Windows.Forms.PictureBox
        Me.PictureBox_Y_OFF = New System.Windows.Forms.PictureBox
        Me.PictureBox_G_OFF = New System.Windows.Forms.PictureBox
        Me.PictureBox_B_OFF = New System.Windows.Forms.PictureBox
        Me.GroupBox2.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.RadioButton_Out)
        Me.GroupBox2.Controls.Add(Me.RadioButton_In)
        Me.GroupBox2.Location = New System.Drawing.Point(0, -4)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(32, 24)
        Me.GroupBox2.TabIndex = 42
        Me.GroupBox2.TabStop = False
        '
        'RadioButton_Out
        '
        Me.RadioButton_Out.Cursor = System.Windows.Forms.Cursors.Hand
        Me.RadioButton_Out.Location = New System.Drawing.Point(16, 8)
        Me.RadioButton_Out.Name = "RadioButton_Out"
        Me.RadioButton_Out.Size = New System.Drawing.Size(12, 12)
        Me.RadioButton_Out.TabIndex = 1
        Me.RadioButton_Out.Text = "RadioButton2"
        Me.ToolTip1.SetToolTip(Me.RadioButton_Out, "Output")
        '
        'RadioButton_In
        '
        Me.RadioButton_In.Checked = True
        Me.RadioButton_In.Cursor = System.Windows.Forms.Cursors.Hand
        Me.RadioButton_In.Location = New System.Drawing.Point(4, 8)
        Me.RadioButton_In.Name = "RadioButton_In"
        Me.RadioButton_In.Size = New System.Drawing.Size(12, 12)
        Me.RadioButton_In.TabIndex = 0
        Me.RadioButton_In.TabStop = True
        Me.ToolTip1.SetToolTip(Me.RadioButton_In, "Input")
        '
        'HScrollBar_0
        '
        Me.HScrollBar_0.LargeChange = 1
        Me.HScrollBar_0.Location = New System.Drawing.Point(0, 60)
        Me.HScrollBar_0.Maximum = 16
        Me.HScrollBar_0.Name = "HScrollBar_0"
        Me.HScrollBar_0.Size = New System.Drawing.Size(32, 12)
        Me.HScrollBar_0.TabIndex = 44
        Me.ToolTip1.SetToolTip(Me.HScrollBar_0, "- +")
        '
        'PictureBox_R_9
        '
        Me.PictureBox_R_9.Image = CType(resources.GetObject("PictureBox_R_9.Image"), System.Drawing.Image)
        Me.PictureBox_R_9.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_9.Name = "PictureBox_R_9"
        Me.PictureBox_R_9.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_9.TabIndex = 43
        Me.PictureBox_R_9.TabStop = False
        '
        'ToolTip1
        '
        Me.ToolTip1.AutomaticDelay = 100
        '
        'PictureBox_R_8
        '
        Me.PictureBox_R_8.Image = CType(resources.GetObject("PictureBox_R_8.Image"), System.Drawing.Image)
        Me.PictureBox_R_8.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_8.Name = "PictureBox_R_8"
        Me.PictureBox_R_8.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_8.TabIndex = 45
        Me.PictureBox_R_8.TabStop = False
        '
        'PictureBox_R_7
        '
        Me.PictureBox_R_7.Image = CType(resources.GetObject("PictureBox_R_7.Image"), System.Drawing.Image)
        Me.PictureBox_R_7.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_7.Name = "PictureBox_R_7"
        Me.PictureBox_R_7.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_7.TabIndex = 46
        Me.PictureBox_R_7.TabStop = False
        '
        'PictureBox_R_6
        '
        Me.PictureBox_R_6.Image = CType(resources.GetObject("PictureBox_R_6.Image"), System.Drawing.Image)
        Me.PictureBox_R_6.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_6.Name = "PictureBox_R_6"
        Me.PictureBox_R_6.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_6.TabIndex = 47
        Me.PictureBox_R_6.TabStop = False
        '
        'PictureBox_R_5
        '
        Me.PictureBox_R_5.Image = CType(resources.GetObject("PictureBox_R_5.Image"), System.Drawing.Image)
        Me.PictureBox_R_5.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_5.Name = "PictureBox_R_5"
        Me.PictureBox_R_5.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_5.TabIndex = 48
        Me.PictureBox_R_5.TabStop = False
        '
        'PictureBox_R_1
        '
        Me.PictureBox_R_1.Image = CType(resources.GetObject("PictureBox_R_1.Image"), System.Drawing.Image)
        Me.PictureBox_R_1.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_1.Name = "PictureBox_R_1"
        Me.PictureBox_R_1.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_1.TabIndex = 52
        Me.PictureBox_R_1.TabStop = False
        '
        'PictureBox_R_2
        '
        Me.PictureBox_R_2.Image = CType(resources.GetObject("PictureBox_R_2.Image"), System.Drawing.Image)
        Me.PictureBox_R_2.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_2.Name = "PictureBox_R_2"
        Me.PictureBox_R_2.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_2.TabIndex = 51
        Me.PictureBox_R_2.TabStop = False
        '
        'PictureBox_R_3
        '
        Me.PictureBox_R_3.Image = CType(resources.GetObject("PictureBox_R_3.Image"), System.Drawing.Image)
        Me.PictureBox_R_3.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_3.Name = "PictureBox_R_3"
        Me.PictureBox_R_3.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_3.TabIndex = 50
        Me.PictureBox_R_3.TabStop = False
        '
        'PictureBox_R_4
        '
        Me.PictureBox_R_4.Image = CType(resources.GetObject("PictureBox_R_4.Image"), System.Drawing.Image)
        Me.PictureBox_R_4.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_4.Name = "PictureBox_R_4"
        Me.PictureBox_R_4.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_4.TabIndex = 49
        Me.PictureBox_R_4.TabStop = False
        '
        'PictureBox_R_0
        '
        Me.PictureBox_R_0.Image = CType(resources.GetObject("PictureBox_R_0.Image"), System.Drawing.Image)
        Me.PictureBox_R_0.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_0.Name = "PictureBox_R_0"
        Me.PictureBox_R_0.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_0.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_0.TabIndex = 53
        Me.PictureBox_R_0.TabStop = False
        '
        'PictureBox_R_OFF
        '
        Me.PictureBox_R_OFF.Image = CType(resources.GetObject("PictureBox_R_OFF.Image"), System.Drawing.Image)
        Me.PictureBox_R_OFF.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_OFF.Name = "PictureBox_R_OFF"
        Me.PictureBox_R_OFF.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_OFF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_OFF.TabIndex = 54
        Me.PictureBox_R_OFF.TabStop = False
        '
        'PictureBox_R_F
        '
        Me.PictureBox_R_F.Image = CType(resources.GetObject("PictureBox_R_F.Image"), System.Drawing.Image)
        Me.PictureBox_R_F.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_F.Name = "PictureBox_R_F"
        Me.PictureBox_R_F.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_F.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_F.TabIndex = 60
        Me.PictureBox_R_F.TabStop = False
        '
        'PictureBox_R_E
        '
        Me.PictureBox_R_E.Image = CType(resources.GetObject("PictureBox_R_E.Image"), System.Drawing.Image)
        Me.PictureBox_R_E.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_E.Name = "PictureBox_R_E"
        Me.PictureBox_R_E.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_E.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_E.TabIndex = 59
        Me.PictureBox_R_E.TabStop = False
        '
        'PictureBox_R_D
        '
        Me.PictureBox_R_D.Image = CType(resources.GetObject("PictureBox_R_D.Image"), System.Drawing.Image)
        Me.PictureBox_R_D.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_D.Name = "PictureBox_R_D"
        Me.PictureBox_R_D.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_D.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_D.TabIndex = 58
        Me.PictureBox_R_D.TabStop = False
        '
        'PictureBox_R_C
        '
        Me.PictureBox_R_C.Image = CType(resources.GetObject("PictureBox_R_C.Image"), System.Drawing.Image)
        Me.PictureBox_R_C.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_C.Name = "PictureBox_R_C"
        Me.PictureBox_R_C.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_C.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_C.TabIndex = 57
        Me.PictureBox_R_C.TabStop = False
        '
        'PictureBox_R_B
        '
        Me.PictureBox_R_B.Image = CType(resources.GetObject("PictureBox_R_B.Image"), System.Drawing.Image)
        Me.PictureBox_R_B.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_B.Name = "PictureBox_R_B"
        Me.PictureBox_R_B.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_B.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_B.TabIndex = 56
        Me.PictureBox_R_B.TabStop = False
        '
        'PictureBox_R_A
        '
        Me.PictureBox_R_A.Image = CType(resources.GetObject("PictureBox_R_A.Image"), System.Drawing.Image)
        Me.PictureBox_R_A.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_R_A.Name = "PictureBox_R_A"
        Me.PictureBox_R_A.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_R_A.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_R_A.TabIndex = 55
        Me.PictureBox_R_A.TabStop = False
        '
        'PictureBox_Y_F
        '
        Me.PictureBox_Y_F.Image = CType(resources.GetObject("PictureBox_Y_F.Image"), System.Drawing.Image)
        Me.PictureBox_Y_F.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_F.Name = "PictureBox_Y_F"
        Me.PictureBox_Y_F.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_F.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_F.TabIndex = 79
        Me.PictureBox_Y_F.TabStop = False
        '
        'PictureBox_Y_E
        '
        Me.PictureBox_Y_E.Image = CType(resources.GetObject("PictureBox_Y_E.Image"), System.Drawing.Image)
        Me.PictureBox_Y_E.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_E.Name = "PictureBox_Y_E"
        Me.PictureBox_Y_E.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_E.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_E.TabIndex = 78
        Me.PictureBox_Y_E.TabStop = False
        '
        'PictureBox_Y_D
        '
        Me.PictureBox_Y_D.Image = CType(resources.GetObject("PictureBox_Y_D.Image"), System.Drawing.Image)
        Me.PictureBox_Y_D.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_D.Name = "PictureBox_Y_D"
        Me.PictureBox_Y_D.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_D.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_D.TabIndex = 77
        Me.PictureBox_Y_D.TabStop = False
        '
        'PictureBox_Y_C
        '
        Me.PictureBox_Y_C.Image = CType(resources.GetObject("PictureBox_Y_C.Image"), System.Drawing.Image)
        Me.PictureBox_Y_C.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_C.Name = "PictureBox_Y_C"
        Me.PictureBox_Y_C.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_C.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_C.TabIndex = 76
        Me.PictureBox_Y_C.TabStop = False
        '
        'PictureBox_Y_B
        '
        Me.PictureBox_Y_B.Image = CType(resources.GetObject("PictureBox_Y_B.Image"), System.Drawing.Image)
        Me.PictureBox_Y_B.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_B.Name = "PictureBox_Y_B"
        Me.PictureBox_Y_B.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_B.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_B.TabIndex = 75
        Me.PictureBox_Y_B.TabStop = False
        '
        'PictureBox_Y_A
        '
        Me.PictureBox_Y_A.Image = CType(resources.GetObject("PictureBox_Y_A.Image"), System.Drawing.Image)
        Me.PictureBox_Y_A.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_A.Name = "PictureBox_Y_A"
        Me.PictureBox_Y_A.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_A.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_A.TabIndex = 74
        Me.PictureBox_Y_A.TabStop = False
        '
        'PictureBox_Y_0
        '
        Me.PictureBox_Y_0.Image = CType(resources.GetObject("PictureBox_Y_0.Image"), System.Drawing.Image)
        Me.PictureBox_Y_0.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_0.Name = "PictureBox_Y_0"
        Me.PictureBox_Y_0.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_0.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_0.TabIndex = 72
        Me.PictureBox_Y_0.TabStop = False
        '
        'PictureBox_Y_1
        '
        Me.PictureBox_Y_1.Image = CType(resources.GetObject("PictureBox_Y_1.Image"), System.Drawing.Image)
        Me.PictureBox_Y_1.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_1.Name = "PictureBox_Y_1"
        Me.PictureBox_Y_1.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_1.TabIndex = 71
        Me.PictureBox_Y_1.TabStop = False
        '
        'PictureBox_Y_2
        '
        Me.PictureBox_Y_2.Image = CType(resources.GetObject("PictureBox_Y_2.Image"), System.Drawing.Image)
        Me.PictureBox_Y_2.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_2.Name = "PictureBox_Y_2"
        Me.PictureBox_Y_2.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_2.TabIndex = 70
        Me.PictureBox_Y_2.TabStop = False
        '
        'PictureBox_Y_3
        '
        Me.PictureBox_Y_3.Image = CType(resources.GetObject("PictureBox_Y_3.Image"), System.Drawing.Image)
        Me.PictureBox_Y_3.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_3.Name = "PictureBox_Y_3"
        Me.PictureBox_Y_3.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_3.TabIndex = 69
        Me.PictureBox_Y_3.TabStop = False
        '
        'PictureBox_Y_4
        '
        Me.PictureBox_Y_4.Image = CType(resources.GetObject("PictureBox_Y_4.Image"), System.Drawing.Image)
        Me.PictureBox_Y_4.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_4.Name = "PictureBox_Y_4"
        Me.PictureBox_Y_4.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_4.TabIndex = 68
        Me.PictureBox_Y_4.TabStop = False
        '
        'PictureBox_Y_5
        '
        Me.PictureBox_Y_5.Image = CType(resources.GetObject("PictureBox_Y_5.Image"), System.Drawing.Image)
        Me.PictureBox_Y_5.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_5.Name = "PictureBox_Y_5"
        Me.PictureBox_Y_5.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_5.TabIndex = 67
        Me.PictureBox_Y_5.TabStop = False
        '
        'PictureBox_Y_6
        '
        Me.PictureBox_Y_6.Image = CType(resources.GetObject("PictureBox_Y_6.Image"), System.Drawing.Image)
        Me.PictureBox_Y_6.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_6.Name = "PictureBox_Y_6"
        Me.PictureBox_Y_6.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_6.TabIndex = 66
        Me.PictureBox_Y_6.TabStop = False
        '
        'PictureBox_Y_7
        '
        Me.PictureBox_Y_7.Image = CType(resources.GetObject("PictureBox_Y_7.Image"), System.Drawing.Image)
        Me.PictureBox_Y_7.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_7.Name = "PictureBox_Y_7"
        Me.PictureBox_Y_7.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_7.TabIndex = 65
        Me.PictureBox_Y_7.TabStop = False
        '
        'PictureBox_Y_8
        '
        Me.PictureBox_Y_8.Image = CType(resources.GetObject("PictureBox_Y_8.Image"), System.Drawing.Image)
        Me.PictureBox_Y_8.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_8.Name = "PictureBox_Y_8"
        Me.PictureBox_Y_8.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_8.TabIndex = 64
        Me.PictureBox_Y_8.TabStop = False
        '
        'PictureBox_Y_9
        '
        Me.PictureBox_Y_9.Image = CType(resources.GetObject("PictureBox_Y_9.Image"), System.Drawing.Image)
        Me.PictureBox_Y_9.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_9.Name = "PictureBox_Y_9"
        Me.PictureBox_Y_9.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_9.TabIndex = 62
        Me.PictureBox_Y_9.TabStop = False
        '
        'PictureBox_G_F
        '
        Me.PictureBox_G_F.Image = CType(resources.GetObject("PictureBox_G_F.Image"), System.Drawing.Image)
        Me.PictureBox_G_F.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_F.Name = "PictureBox_G_F"
        Me.PictureBox_G_F.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_F.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_F.TabIndex = 95
        Me.PictureBox_G_F.TabStop = False
        '
        'PictureBox_G_E
        '
        Me.PictureBox_G_E.Image = CType(resources.GetObject("PictureBox_G_E.Image"), System.Drawing.Image)
        Me.PictureBox_G_E.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_E.Name = "PictureBox_G_E"
        Me.PictureBox_G_E.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_E.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_E.TabIndex = 94
        Me.PictureBox_G_E.TabStop = False
        '
        'PictureBox_G_D
        '
        Me.PictureBox_G_D.Image = CType(resources.GetObject("PictureBox_G_D.Image"), System.Drawing.Image)
        Me.PictureBox_G_D.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_D.Name = "PictureBox_G_D"
        Me.PictureBox_G_D.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_D.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_D.TabIndex = 93
        Me.PictureBox_G_D.TabStop = False
        '
        'PictureBox_G_C
        '
        Me.PictureBox_G_C.Image = CType(resources.GetObject("PictureBox_G_C.Image"), System.Drawing.Image)
        Me.PictureBox_G_C.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_C.Name = "PictureBox_G_C"
        Me.PictureBox_G_C.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_C.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_C.TabIndex = 92
        Me.PictureBox_G_C.TabStop = False
        '
        'PictureBox_G_B
        '
        Me.PictureBox_G_B.Image = CType(resources.GetObject("PictureBox_G_B.Image"), System.Drawing.Image)
        Me.PictureBox_G_B.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_B.Name = "PictureBox_G_B"
        Me.PictureBox_G_B.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_B.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_B.TabIndex = 91
        Me.PictureBox_G_B.TabStop = False
        '
        'PictureBox_G_A
        '
        Me.PictureBox_G_A.Image = CType(resources.GetObject("PictureBox_G_A.Image"), System.Drawing.Image)
        Me.PictureBox_G_A.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_A.Name = "PictureBox_G_A"
        Me.PictureBox_G_A.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_A.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_A.TabIndex = 90
        Me.PictureBox_G_A.TabStop = False
        '
        'PictureBox_G_0
        '
        Me.PictureBox_G_0.Image = CType(resources.GetObject("PictureBox_G_0.Image"), System.Drawing.Image)
        Me.PictureBox_G_0.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_0.Name = "PictureBox_G_0"
        Me.PictureBox_G_0.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_0.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_0.TabIndex = 89
        Me.PictureBox_G_0.TabStop = False
        '
        'PictureBox_G_1
        '
        Me.PictureBox_G_1.Image = CType(resources.GetObject("PictureBox_G_1.Image"), System.Drawing.Image)
        Me.PictureBox_G_1.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_1.Name = "PictureBox_G_1"
        Me.PictureBox_G_1.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_1.TabIndex = 88
        Me.PictureBox_G_1.TabStop = False
        '
        'PictureBox_G_2
        '
        Me.PictureBox_G_2.Image = CType(resources.GetObject("PictureBox_G_2.Image"), System.Drawing.Image)
        Me.PictureBox_G_2.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_2.Name = "PictureBox_G_2"
        Me.PictureBox_G_2.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_2.TabIndex = 87
        Me.PictureBox_G_2.TabStop = False
        '
        'PictureBox_G_3
        '
        Me.PictureBox_G_3.Image = CType(resources.GetObject("PictureBox_G_3.Image"), System.Drawing.Image)
        Me.PictureBox_G_3.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_3.Name = "PictureBox_G_3"
        Me.PictureBox_G_3.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_3.TabIndex = 86
        Me.PictureBox_G_3.TabStop = False
        '
        'PictureBox_G_4
        '
        Me.PictureBox_G_4.Image = CType(resources.GetObject("PictureBox_G_4.Image"), System.Drawing.Image)
        Me.PictureBox_G_4.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_4.Name = "PictureBox_G_4"
        Me.PictureBox_G_4.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_4.TabIndex = 85
        Me.PictureBox_G_4.TabStop = False
        '
        'PictureBox_G_5
        '
        Me.PictureBox_G_5.Image = CType(resources.GetObject("PictureBox_G_5.Image"), System.Drawing.Image)
        Me.PictureBox_G_5.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_5.Name = "PictureBox_G_5"
        Me.PictureBox_G_5.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_5.TabIndex = 84
        Me.PictureBox_G_5.TabStop = False
        '
        'PictureBox_G_6
        '
        Me.PictureBox_G_6.Image = CType(resources.GetObject("PictureBox_G_6.Image"), System.Drawing.Image)
        Me.PictureBox_G_6.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_6.Name = "PictureBox_G_6"
        Me.PictureBox_G_6.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_6.TabIndex = 83
        Me.PictureBox_G_6.TabStop = False
        '
        'PictureBox_G_7
        '
        Me.PictureBox_G_7.Image = CType(resources.GetObject("PictureBox_G_7.Image"), System.Drawing.Image)
        Me.PictureBox_G_7.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_7.Name = "PictureBox_G_7"
        Me.PictureBox_G_7.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_7.TabIndex = 82
        Me.PictureBox_G_7.TabStop = False
        '
        'PictureBox_G_8
        '
        Me.PictureBox_G_8.Image = CType(resources.GetObject("PictureBox_G_8.Image"), System.Drawing.Image)
        Me.PictureBox_G_8.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_8.Name = "PictureBox_G_8"
        Me.PictureBox_G_8.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_8.TabIndex = 81
        Me.PictureBox_G_8.TabStop = False
        '
        'PictureBox_G_9
        '
        Me.PictureBox_G_9.Image = CType(resources.GetObject("PictureBox_G_9.Image"), System.Drawing.Image)
        Me.PictureBox_G_9.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_9.Name = "PictureBox_G_9"
        Me.PictureBox_G_9.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_9.TabIndex = 80
        Me.PictureBox_G_9.TabStop = False
        '
        'PictureBox_B_F
        '
        Me.PictureBox_B_F.Image = CType(resources.GetObject("PictureBox_B_F.Image"), System.Drawing.Image)
        Me.PictureBox_B_F.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_F.Name = "PictureBox_B_F"
        Me.PictureBox_B_F.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_F.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_F.TabIndex = 111
        Me.PictureBox_B_F.TabStop = False
        '
        'PictureBox_B_E
        '
        Me.PictureBox_B_E.Image = CType(resources.GetObject("PictureBox_B_E.Image"), System.Drawing.Image)
        Me.PictureBox_B_E.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_E.Name = "PictureBox_B_E"
        Me.PictureBox_B_E.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_E.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_E.TabIndex = 110
        Me.PictureBox_B_E.TabStop = False
        '
        'PictureBox_B_D
        '
        Me.PictureBox_B_D.Image = CType(resources.GetObject("PictureBox_B_D.Image"), System.Drawing.Image)
        Me.PictureBox_B_D.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_D.Name = "PictureBox_B_D"
        Me.PictureBox_B_D.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_D.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_D.TabIndex = 109
        Me.PictureBox_B_D.TabStop = False
        '
        'PictureBox_B_C
        '
        Me.PictureBox_B_C.Image = CType(resources.GetObject("PictureBox_B_C.Image"), System.Drawing.Image)
        Me.PictureBox_B_C.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_C.Name = "PictureBox_B_C"
        Me.PictureBox_B_C.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_C.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_C.TabIndex = 108
        Me.PictureBox_B_C.TabStop = False
        '
        'PictureBox_B_B
        '
        Me.PictureBox_B_B.Image = CType(resources.GetObject("PictureBox_B_B.Image"), System.Drawing.Image)
        Me.PictureBox_B_B.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_B.Name = "PictureBox_B_B"
        Me.PictureBox_B_B.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_B.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_B.TabIndex = 107
        Me.PictureBox_B_B.TabStop = False
        '
        'PictureBox_B_A
        '
        Me.PictureBox_B_A.Image = CType(resources.GetObject("PictureBox_B_A.Image"), System.Drawing.Image)
        Me.PictureBox_B_A.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_A.Name = "PictureBox_B_A"
        Me.PictureBox_B_A.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_A.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_A.TabIndex = 106
        Me.PictureBox_B_A.TabStop = False
        '
        'PictureBox_B_0
        '
        Me.PictureBox_B_0.Image = CType(resources.GetObject("PictureBox_B_0.Image"), System.Drawing.Image)
        Me.PictureBox_B_0.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_0.Name = "PictureBox_B_0"
        Me.PictureBox_B_0.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_0.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_0.TabIndex = 105
        Me.PictureBox_B_0.TabStop = False
        '
        'PictureBox_B_1
        '
        Me.PictureBox_B_1.Image = CType(resources.GetObject("PictureBox_B_1.Image"), System.Drawing.Image)
        Me.PictureBox_B_1.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_1.Name = "PictureBox_B_1"
        Me.PictureBox_B_1.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_1.TabIndex = 104
        Me.PictureBox_B_1.TabStop = False
        '
        'PictureBox_B_2
        '
        Me.PictureBox_B_2.Image = CType(resources.GetObject("PictureBox_B_2.Image"), System.Drawing.Image)
        Me.PictureBox_B_2.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_2.Name = "PictureBox_B_2"
        Me.PictureBox_B_2.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_2.TabIndex = 103
        Me.PictureBox_B_2.TabStop = False
        '
        'PictureBox_B_3
        '
        Me.PictureBox_B_3.Image = CType(resources.GetObject("PictureBox_B_3.Image"), System.Drawing.Image)
        Me.PictureBox_B_3.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_3.Name = "PictureBox_B_3"
        Me.PictureBox_B_3.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_3.TabIndex = 102
        Me.PictureBox_B_3.TabStop = False
        '
        'PictureBox_B_4
        '
        Me.PictureBox_B_4.Image = CType(resources.GetObject("PictureBox_B_4.Image"), System.Drawing.Image)
        Me.PictureBox_B_4.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_4.Name = "PictureBox_B_4"
        Me.PictureBox_B_4.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_4.TabIndex = 101
        Me.PictureBox_B_4.TabStop = False
        '
        'PictureBox_B_5
        '
        Me.PictureBox_B_5.Image = CType(resources.GetObject("PictureBox_B_5.Image"), System.Drawing.Image)
        Me.PictureBox_B_5.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_5.Name = "PictureBox_B_5"
        Me.PictureBox_B_5.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_5.TabIndex = 100
        Me.PictureBox_B_5.TabStop = False
        '
        'PictureBox_B_6
        '
        Me.PictureBox_B_6.Image = CType(resources.GetObject("PictureBox_B_6.Image"), System.Drawing.Image)
        Me.PictureBox_B_6.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_6.Name = "PictureBox_B_6"
        Me.PictureBox_B_6.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_6.TabIndex = 99
        Me.PictureBox_B_6.TabStop = False
        '
        'PictureBox_B_7
        '
        Me.PictureBox_B_7.Image = CType(resources.GetObject("PictureBox_B_7.Image"), System.Drawing.Image)
        Me.PictureBox_B_7.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_7.Name = "PictureBox_B_7"
        Me.PictureBox_B_7.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_7.TabIndex = 98
        Me.PictureBox_B_7.TabStop = False
        '
        'PictureBox_B_8
        '
        Me.PictureBox_B_8.Image = CType(resources.GetObject("PictureBox_B_8.Image"), System.Drawing.Image)
        Me.PictureBox_B_8.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_8.Name = "PictureBox_B_8"
        Me.PictureBox_B_8.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_8.TabIndex = 97
        Me.PictureBox_B_8.TabStop = False
        '
        'PictureBox_B_9
        '
        Me.PictureBox_B_9.Image = CType(resources.GetObject("PictureBox_B_9.Image"), System.Drawing.Image)
        Me.PictureBox_B_9.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_9.Name = "PictureBox_B_9"
        Me.PictureBox_B_9.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_9.TabIndex = 96
        Me.PictureBox_B_9.TabStop = False
        '
        'PictureBox_Y_OFF
        '
        Me.PictureBox_Y_OFF.Image = CType(resources.GetObject("PictureBox_Y_OFF.Image"), System.Drawing.Image)
        Me.PictureBox_Y_OFF.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_Y_OFF.Name = "PictureBox_Y_OFF"
        Me.PictureBox_Y_OFF.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_Y_OFF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_Y_OFF.TabIndex = 112
        Me.PictureBox_Y_OFF.TabStop = False
        '
        'PictureBox_G_OFF
        '
        Me.PictureBox_G_OFF.Image = CType(resources.GetObject("PictureBox_G_OFF.Image"), System.Drawing.Image)
        Me.PictureBox_G_OFF.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_G_OFF.Name = "PictureBox_G_OFF"
        Me.PictureBox_G_OFF.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_G_OFF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_G_OFF.TabIndex = 113
        Me.PictureBox_G_OFF.TabStop = False
        '
        'PictureBox_B_OFF
        '
        Me.PictureBox_B_OFF.Image = CType(resources.GetObject("PictureBox_B_OFF.Image"), System.Drawing.Image)
        Me.PictureBox_B_OFF.Location = New System.Drawing.Point(0, 20)
        Me.PictureBox_B_OFF.Name = "PictureBox_B_OFF"
        Me.PictureBox_B_OFF.Size = New System.Drawing.Size(32, 40)
        Me.PictureBox_B_OFF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox_B_OFF.TabIndex = 114
        Me.PictureBox_B_OFF.TabStop = False
        '
        'Control_5
        '
        Me.Controls.Add(Me.PictureBox_B_OFF)
        Me.Controls.Add(Me.PictureBox_G_OFF)
        Me.Controls.Add(Me.PictureBox_Y_OFF)
        Me.Controls.Add(Me.PictureBox_R_OFF)
        Me.Controls.Add(Me.PictureBox_R_8)
        Me.Controls.Add(Me.HScrollBar_0)
        Me.Controls.Add(Me.PictureBox_R_9)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.PictureBox_R_F)
        Me.Controls.Add(Me.PictureBox_R_E)
        Me.Controls.Add(Me.PictureBox_R_D)
        Me.Controls.Add(Me.PictureBox_R_C)
        Me.Controls.Add(Me.PictureBox_R_B)
        Me.Controls.Add(Me.PictureBox_R_0)
        Me.Controls.Add(Me.PictureBox_R_1)
        Me.Controls.Add(Me.PictureBox_R_2)
        Me.Controls.Add(Me.PictureBox_R_3)
        Me.Controls.Add(Me.PictureBox_R_4)
        Me.Controls.Add(Me.PictureBox_R_A)
        Me.Controls.Add(Me.PictureBox_R_5)
        Me.Controls.Add(Me.PictureBox_R_6)
        Me.Controls.Add(Me.PictureBox_B_F)
        Me.Controls.Add(Me.PictureBox_B_E)
        Me.Controls.Add(Me.PictureBox_B_D)
        Me.Controls.Add(Me.PictureBox_B_C)
        Me.Controls.Add(Me.PictureBox_B_B)
        Me.Controls.Add(Me.PictureBox_B_A)
        Me.Controls.Add(Me.PictureBox_B_0)
        Me.Controls.Add(Me.PictureBox_B_1)
        Me.Controls.Add(Me.PictureBox_B_2)
        Me.Controls.Add(Me.PictureBox_B_3)
        Me.Controls.Add(Me.PictureBox_B_4)
        Me.Controls.Add(Me.PictureBox_B_5)
        Me.Controls.Add(Me.PictureBox_B_6)
        Me.Controls.Add(Me.PictureBox_B_7)
        Me.Controls.Add(Me.PictureBox_B_8)
        Me.Controls.Add(Me.PictureBox_B_9)
        Me.Controls.Add(Me.PictureBox_G_F)
        Me.Controls.Add(Me.PictureBox_G_E)
        Me.Controls.Add(Me.PictureBox_G_D)
        Me.Controls.Add(Me.PictureBox_G_C)
        Me.Controls.Add(Me.PictureBox_G_B)
        Me.Controls.Add(Me.PictureBox_G_A)
        Me.Controls.Add(Me.PictureBox_G_0)
        Me.Controls.Add(Me.PictureBox_G_1)
        Me.Controls.Add(Me.PictureBox_G_2)
        Me.Controls.Add(Me.PictureBox_G_3)
        Me.Controls.Add(Me.PictureBox_G_4)
        Me.Controls.Add(Me.PictureBox_G_5)
        Me.Controls.Add(Me.PictureBox_G_6)
        Me.Controls.Add(Me.PictureBox_G_7)
        Me.Controls.Add(Me.PictureBox_G_8)
        Me.Controls.Add(Me.PictureBox_G_9)
        Me.Controls.Add(Me.PictureBox_Y_F)
        Me.Controls.Add(Me.PictureBox_Y_E)
        Me.Controls.Add(Me.PictureBox_Y_D)
        Me.Controls.Add(Me.PictureBox_Y_C)
        Me.Controls.Add(Me.PictureBox_Y_B)
        Me.Controls.Add(Me.PictureBox_Y_A)
        Me.Controls.Add(Me.PictureBox_Y_0)
        Me.Controls.Add(Me.PictureBox_Y_1)
        Me.Controls.Add(Me.PictureBox_Y_2)
        Me.Controls.Add(Me.PictureBox_Y_3)
        Me.Controls.Add(Me.PictureBox_Y_4)
        Me.Controls.Add(Me.PictureBox_Y_5)
        Me.Controls.Add(Me.PictureBox_Y_6)
        Me.Controls.Add(Me.PictureBox_Y_7)
        Me.Controls.Add(Me.PictureBox_Y_8)
        Me.Controls.Add(Me.PictureBox_Y_9)
        Me.Controls.Add(Me.PictureBox_R_7)
        Me.Name = "Control_5"
        Me.Size = New System.Drawing.Size(32, 72)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

End Sub

#End Region

Dim Digito As String = "0"

    Dim Input_Display_0 As String
    Dim Output_Display As String
    Dim Color_Display As String

Const Red As String = "RED"

    Const Yellow As String = "YELLOW"
    Const Blue As String = "BLUE"
    Const Green As String = "GREEN"

    Public Property Ruben_Input_Display() As String
        Get
            Return Ruben_Input_Display
        End Get
        Set(ByVal Value As String)
            Input_Display_0 = Value
            Muestra_Digito()
        End Set
    End Property
    Public ReadOnly Property Ruben_Output_Display() As String
        Get
            Ruben_Output_Display = Output_Display
            Return Ruben_Output_Display
        End Get
    End Property
    Public Property Ruben_Color_Display() As String
        Get
            Return Ruben_Color_Display
        End Get
        Set(ByVal Value As String)
            Color_Display = Value
            Muestra_Digito()
        End Set
    End Property

Private Sub HScrollBar_0_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar_0.Scroll

        Muestra_Digito()
    End Sub
    Sub Muestra_Digito()

If Me.RadioButton_In.Checked = True Then

Digito = Input_Display_0

            If UCase(Input_Display_0) = "A" Or Input_Display_0 = "a" Then
                Digito = "10"
            ElseIf UCase(Input_Display_0) = "B" Or Input_Display_0 = "b" Then
                Digito = "11"
            ElseIf UCase(Input_Display_0) = "C" Or Input_Display_0 = "c" Then
                Digito = "12"
            ElseIf UCase(Input_Display_0) = "D" Or Input_Display_0 = "d" Then
                Digito = "13"
            ElseIf UCase(Input_Display_0) = "E" Or Input_Display_0 = "e" Then
                Digito = "14"
            ElseIf UCase(Input_Display_0) = "F" Or Input_Display_0 = "f" Then
                Digito = "15"
            ElseIf UCase(Input_Display_0) = "OFF" Or Input_Display_0 = "off" Then
                Digito = "16"
            End If

        ElseIf Me.RadioButton_Out.Checked = True Then
            Digito = CStr(Me.HScrollBar_0.Value)
        End If

Select Case Digito

Case "0"

If UCase(Color_Display) = Yellow Then

                    Me.PictureBox_Y_0.Visible = True
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_0.BringToFront()
                    Output_Display = "0"

ElseIf UCase(Color_Display) = Blue Then

                    Me.PictureBox_B_0.Visible = True
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_0.BringToFront()
                    Output_Display = "0"

ElseIf UCase(Color_Display) = Green Then

                    Me.PictureBox_G_0.Visible = True
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_0.BringToFront()
                    Output_Display = "0"

ElseIf UCase(Color_Display) = Red Then

                    Me.PictureBox_R_0.Visible = True
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_0.BringToFront()
                    Output_Display = "0"
                Else
                    Me.PictureBox_R_0.Visible = True
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_0.BringToFront()
                    Output_Display = "0"
                End If

Case "1"

If UCase(Color_Display) = Yellow Then

                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = True
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_1.BringToFront()
                    Output_Display = "1"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = True
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_1.BringToFront()
                    Output_Display = "1"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = True
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_1.BringToFront()
                    Output_Display = "1"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = True
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_1.BringToFront()
                    Output_Display = "1"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = True
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_1.BringToFront()
                    Output_Display = "1"
                End If

Case "2"

If UCase(Color_Display) = Yellow Then

                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = True
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_2.BringToFront()
                    Output_Display = "2"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = True
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_2.BringToFront()
                    Output_Display = "2"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = True
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_2.BringToFront()
                    Output_Display = "2"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = True
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_2.BringToFront()
                    Output_Display = "2"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = True
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_2.BringToFront()
                    Output_Display = "2"
                End If

Case "3"

If UCase(Color_Display) = Yellow Then

                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = True
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_3.BringToFront()
                    Output_Display = "3"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = True
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_3.BringToFront()
                    Output_Display = "3"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = True
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_3.BringToFront()
                    Output_Display = "3"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = True
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_3.BringToFront()
                    Output_Display = "3"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = True
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_3.BringToFront()
                    Output_Display = "3"
                End If

Case "4"

Case "5"

If UCase(Color_Display) = Yellow Then

                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = True
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_6.BringToFront()
                    Output_Display = "6"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = True
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_6.BringToFront()
                    Output_Display = "6"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = True
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_6.BringToFront()
                    Output_Display = "6"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = True
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_6.BringToFront()
                    Output_Display = "6"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = True
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_6.BringToFront()
                    Output_Display = "6"
                End If

Case "7"

                If UCase(Color_Display) = Yellow Then
                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = True
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_7.BringToFront()
                    Output_Display = "7"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = True
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_7.BringToFront()
                    Output_Display = "7"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = True
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_7.BringToFront()
                    Output_Display = "7"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = True
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_7.BringToFront()
                    Output_Display = "7"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = True
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_7.BringToFront()
                    Output_Display = "7"
                End If
            Case "8"
                If UCase(Color_Display) = Yellow Then
                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = True
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_8.BringToFront()
                    Output_Display = "8"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = True
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_8.BringToFront()
                    Output_Display = "8"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = True
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_8.BringToFront()
                    Output_Display = "8"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = True
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_8.BringToFront()
                    Output_Display = "8"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = True
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_8.BringToFront()
                    Output_Display = "8"
                End If
            Case "9"
                If UCase(Color_Display) = Yellow Then
                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = True
                    Me.PictureBox_Y_A.Visible = False
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_9.BringToFront()
                    Output_Display = "9"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = True
                    Me.PictureBox_B_A.Visible = False
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_9.BringToFront()
                    Output_Display = "9"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = True
                    Me.PictureBox_G_A.Visible = False
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_9.BringToFront()
                    Output_Display = "9"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = True
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_9.BringToFront()
                    Output_Display = "9"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = True
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_9.BringToFront()
                    Output_Display = "9"
                End If
            Case "10"
                If UCase(Color_Display) = Yellow Then
                    Me.PictureBox_Y_0.Visible = False
                    Me.PictureBox_Y_1.Visible = False
                    Me.PictureBox_Y_2.Visible = False
                    Me.PictureBox_Y_3.Visible = False
                    Me.PictureBox_Y_4.Visible = False
                    Me.PictureBox_Y_5.Visible = False
                    Me.PictureBox_Y_6.Visible = False
                    Me.PictureBox_Y_7.Visible = False
                    Me.PictureBox_Y_8.Visible = False
                    Me.PictureBox_Y_9.Visible = False
                    Me.PictureBox_Y_A.Visible = True
                    Me.PictureBox_Y_B.Visible = False
                    Me.PictureBox_Y_C.Visible = False
                    Me.PictureBox_Y_D.Visible = False
                    Me.PictureBox_Y_E.Visible = False
                    Me.PictureBox_Y_F.Visible = False
                    Me.PictureBox_Y_OFF.Visible = False
                    Me.PictureBox_Y_A.BringToFront()
                    Output_Display = "A"
                ElseIf UCase(Color_Display) = Blue Then
                    Me.PictureBox_B_0.Visible = False
                    Me.PictureBox_B_1.Visible = False
                    Me.PictureBox_B_2.Visible = False
                    Me.PictureBox_B_3.Visible = False
                    Me.PictureBox_B_4.Visible = False
                    Me.PictureBox_B_5.Visible = False
                    Me.PictureBox_B_6.Visible = False
                    Me.PictureBox_B_7.Visible = False
                    Me.PictureBox_B_8.Visible = False
                    Me.PictureBox_B_9.Visible = False
                    Me.PictureBox_B_A.Visible = True
                    Me.PictureBox_B_B.Visible = False
                    Me.PictureBox_B_C.Visible = False
                    Me.PictureBox_B_D.Visible = False
                    Me.PictureBox_B_E.Visible = False
                    Me.PictureBox_B_F.Visible = False
                    Me.PictureBox_B_OFF.Visible = False
                    Me.PictureBox_B_A.BringToFront()
                    Output_Display = "A"
                ElseIf UCase(Color_Display) = Green Then
                    Me.PictureBox_G_0.Visible = False
                    Me.PictureBox_G_1.Visible = False
                    Me.PictureBox_G_2.Visible = False
                    Me.PictureBox_G_3.Visible = False
                    Me.PictureBox_G_4.Visible = False
                    Me.PictureBox_G_5.Visible = False
                    Me.PictureBox_G_6.Visible = False
                    Me.PictureBox_G_7.Visible = False
                    Me.PictureBox_G_8.Visible = False
                    Me.PictureBox_G_9.Visible = False
                    Me.PictureBox_G_A.Visible = True
                    Me.PictureBox_G_B.Visible = False
                    Me.PictureBox_G_C.Visible = False
                    Me.PictureBox_G_D.Visible = False
                    Me.PictureBox_G_E.Visible = False
                    Me.PictureBox_G_F.Visible = False
                    Me.PictureBox_G_OFF.Visible = False
                    Me.PictureBox_G_A.BringToFront()
                    Output_Display = "A"
                ElseIf UCase(Color_Display) = Red Then
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = True
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_A.BringToFront()
                    Output_Display = "A"
                Else
                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = True
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = False
                    Me.PictureBox_R_A.BringToFront()
                    Output_Display = "A"
                End If

Case "11"

Case "12"

Case "14"

Case "15"

Case "16"

Case Else

                    Me.PictureBox_R_0.Visible = False
                    Me.PictureBox_R_1.Visible = False
                    Me.PictureBox_R_2.Visible = False
                    Me.PictureBox_R_3.Visible = False
                    Me.PictureBox_R_4.Visible = False
                    Me.PictureBox_R_5.Visible = False
                    Me.PictureBox_R_6.Visible = False
                    Me.PictureBox_R_7.Visible = False
                    Me.PictureBox_R_8.Visible = False
                    Me.PictureBox_R_9.Visible = False
                    Me.PictureBox_R_A.Visible = False
                    Me.PictureBox_R_B.Visible = False
                    Me.PictureBox_R_C.Visible = False
                    Me.PictureBox_R_D.Visible = False
                    Me.PictureBox_R_E.Visible = False
                    Me.PictureBox_R_F.Visible = False
                    Me.PictureBox_R_OFF.Visible = True
                    Me.PictureBox_R_OFF.BringToFront()
                    Output_Display = "Off"
        End Select

End Sub

    Private Sub RadioButton_In_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton_In.CheckedChanged
        If Me.RadioButton_In.Checked = True Then
            Me.HScrollBar_0.Enabled = False
        End If
    End Sub
    Private Sub RadioButton_Out_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton_Out.CheckedChanged
        If Me.RadioButton_Out.Checked = True Then
            Me.HScrollBar_0.Enabled = True
        End If
    End Sub
End Class

Código Fuente de toda la aplicación

(Incluye el control del Display de 7 segmentos)

https://drive.google.com/file/d/0By2_W81NKkeAZ3FzbThDaENaRXc/edit?usp=sharing

Espero que os guste y que a partir de este ejemplo podáis hacer vosotros vuestros controles

personalizados para vuestras aplicaciones. ....¡Ánimo!...

Un saludo.

----------------------------------------------------------------------------------------------------------------------------------------------------------------

Por favor, si te ha gustado el blog, te ha ayudado o has visto algún proyecto interesante del que te has podido descargar alguna documentación por favor deja algún comentario. Gracias.

----------------------------------------------------------------------------------------------------------------------------------------------------------------

Proyectos de Electrónica Creativa (by Joe & Alex's Daddy) (Rubén García Coronado)

Páginas

miércoles, 13 de noviembre de 2013

Control Display 7 Segmentos con Visual Basic .NET

No hay comentarios:

Publicar un comentario