Digito 7 Segmentos con FoxPro: [SOLUCIONADO]

Construyendo un Dígito de 7 Segmentos

En programación, una de las ventajas de Visual FoxPro es su capacidad para construir programas con requisitos gráficos simples, como un dígito de 7 segmentos.

Comprendiendo el Dígito de 7 Segmentos

En primer lugar, es importante entender qué es exactamente un dígito de 7 segmentos. Un dígito de 7 segmentos es un tipo de pantalla usada para mostrar dígitos decimales y algunas letras. Como su nombre indica, consta de siete segmentos donde cada segmento es un LED individual o una tira de luces LED.

Primeros pasos con Visual FoxPro

Antes de comenzar a trabajar con el código, asegúrate de tener instalado Visual FoxPro en tu computadora. Visual FoxPro es un lenguaje de programación orientado a objetos con una potente capacidad dbase.

Código para crear el dígito de 7 segmentos

A continuación, se presenta el proceso de creación de un dígito de 7 segmentos utilizando Visual FoxPro:

    _screen.AddObject('oDigit','cDigit')
    _screen.oDigit.Display(8)
    _screen.AddObject('oDigit2','cDigit')
    _screen.oDigit2.Display(3)
    _screen.oDigit2.Top = _screen.oDigit.Height
    

Explicación del código

En las primeras tres líneas, se crea y se visualiza un dígito de 7 segmentos en la pantalla principal. La última línea establece el segundo dígito debajo del primer dígito.

Detalle de la Display Function

La función ‘Display’ definida en el objeto ‘cDigit’ recibe un argumento que indica el dígito que se va a mostrar en el dígito de 7 segmentos.

    DEFINE CLASS cDigit AS Container
    Height = 200
    Width = 100
    Top = 0
    PROCEDURE Display
    LPARAMETERS nValue
    LOCAL nPenSize, nWidth, nHeight
    THIS.Clear()
    

El código anterior define el contenedor, establece la altura y la anchura del contenedor, y luego limpia el contenido del contenedor.

Convinciones de Diseño

Es muy útil mantener las convenciones de diseño cuando trabajamos con un dígito de 7 segmentos. La numeración de los segmentos se hace normalmente desde el segmento superior, en el sentido de las agujas del reloj, con el segmento central como el último número.

En la próxima porción de código, podrás ver cómo se establecen las convenciones de diseño.

    SELECT CASE nValue
    CASE 0   && Zero
    THIS.DrawLine(0,100,0,50,RED)
    THIS.DrawLine(0,50,100,50,RED)
    THIS.DrawLine(100,50,100,100,RED)
    THIS.DrawLine(100,100,0,100,RED)
    THIS.DrawLine(0,100,0,50,RED)
    

El código anterior construye el número cero, utilizando la convención de diseño descrita anteriormente.

Esta web utiliza cookies propias y de terceros para su correcto funcionamiento y para fines analíticos y para mostrarte publicidad relacionada con sus preferencias en base a un perfil elaborado a partir de tus hábitos de navegación. Al hacer clic en el botón Aceptar, acepta el uso de estas tecnologías y el procesamiento de tus datos para estos propósitos. Más información
Privacidad