Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 39 vistas

    Aplicación de Formularios en Fox

    Cargado por

    Axel Sequeda
    El documento presenta 3 aplicaciones desarrolladas en Visual FoxPro. La primera permite ingresar un número real y determinar el mayor valor entre su parte entera y decimal. La segunda calcula la edad de una persona a partir de su fecha de nacimiento. La tercera simula un reloj despertador digital que permite establecer una hora para una alerta. Cada aplicación describe los pasos para crear el formulario, establecer propiedades de los controles y agregar código para su funcionamiento.

    Copyright:

    © All Rights Reserved
    Descargue como DOC, PDF, TXT o lea en línea desde Scribd

    Aplicación de Formularios en Fox

    Cargado por

    Axel Sequeda
    39 vistas10 páginas
    El documento presenta 3 aplicaciones desarrolladas en Visual FoxPro. La primera permite ingresar un número real y determinar el mayor valor entre su parte entera y decimal. La segunda calcula la edad de una persona a partir de su fecha de nacimiento. La tercera simula un reloj despertador digital que permite establecer una hora para una alerta. Cada aplicación describe los pasos para crear el formulario, establecer propiedades de los controles y agregar código para su funcionamiento.

    Descripción original:

    Aplicación de formularios en fox

    Título original

    Aplicación de formularios en fox

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOC, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    El documento presenta 3 aplicaciones desarrolladas en Visual FoxPro. La primera permite ingresar un número real y determinar el mayor valor entre su parte entera y decimal. La segunda calcula la edad de una persona a partir de su fecha de nacimiento. La tercera simula un reloj despertador digital que permite establecer una hora para una alerta. Cada aplicación describe los pasos para crear el formulario, establecer propiedades de los controles y agregar código para su funcionamiento.

    Copyright:

    © All Rights Reserved
    Descargue como DOC, PDF, TXT o lea en línea desde Scribd
    Descargar como doc, pdf o txt
    39 vistas10 páginas

    Aplicación de Formularios en Fox

    Cargado por

    Axel Sequeda
    El documento presenta 3 aplicaciones desarrolladas en Visual FoxPro. La primera permite ingresar un número real y determinar el mayor valor entre su parte entera y decimal. La segunda calcula la edad de una persona a partir de su fecha de nacimiento. La tercera simula un reloj despertador digital que permite establecer una hora para una alerta. Cada aplicación describe los pasos para crear el formulario, establecer propiedades de los controles y agregar código para su funcionamiento.

    Copyright:

    © All Rights Reserved
    Descargue como DOC, PDF, TXT o lea en línea desde Scribd
    Descargar como doc, pdf o txt
    de 10

    Aplicación Nº 1

    El ejercicio consiste en elaborar una aplicación que permita leer un número real de la
    forma "eee.ddd" e imprima el mayor valor entre la parte entera y la parte decimal.

    Para el desarrollo de esta aplicación, en primer lugar debe crear un nuevo formulario.
    Para ello digite lo siguiente en la Ventana de Comandos:

    Create Form

    A continuación seleccione del Menú Ver, la opción Barra de herramientas Controles de


    Formularios. Se presentará una ventana similar a la siguiente figura:

    En seguida de la barra de herramientas mostrada ubicar los siguientes controles al


    formulario:

    2 etiquetas

    2 cajas de texto

    3 botones de comando

    Para ubicar un control en el formulario, simplemente dar click en el control deseado y


    luego dar click en el formulario en la posición que se le desea ubicar. Adicionalmente
    puede utilizar la barra de herramientas Diseño para obtener una mejor presentación.

    A continuación proceda a establecer las propiedades de los objetos según se indica, para
    ello dar click derecho sobre el control y del menú emergente que se presenta elegir la
    opción Propiedades.
    Form1

      Name FrmAplica01
      Caption Mayor valor de un n�mero real
      MaxButton .F.-Falso
      MinButton .F.-Falso

    Label1

      Name LblX
      Caption Ingrese un real de la forma eee.ddd?

    Label2

      Name LblMay
      Caption Mayor:

    Text1

      Name TxtX
      InputMask 999.999
      Value 0

    Text2

      Name TxtMay
      InputMask 999
      Value 0

    Command1

      Name CmdAceptar
      Caption \<Aceptar
      Default .T.-Verdadero

    Command2
      Name CmdLimpiar
      Caption \<Limpiar

    Command3

      Name CmdSalir
      Cancel .T.-Verdadero
      Caption \<Salir

    A continuaci�n dar doble click sobre el control CmdAceptar y proceda a ingresar el


    c�digo que se muestra:

    Objeto: CmdAceptar Procedimiento: Click

    nX = Thisform.TxtX.Value

    nA = Int(Thisform.TxtX.Value)

    nX = nX - nA

    nB = 1000 * nX

    If nA > nB Then

    nMay = nA

    Else

    nMay = nB

    EndIf

    Thisform.TxtMay.Value = nMay

    Thisform.Refresh

    De manera an�loga ingresar el siguiente c�digo para el control CmdLimpiar:

    Objeto: CmdLimpiar Procedimiento: Click

    Thisform.TxtX.Value = 0

    Thisform.TxtMay.Value = 0

    Thisform.TxtX.Setfocus
    Thisform.Refresh

    Finalmente proceder a ingresar el siguiente código para el control CmdSalir:

    Objeto: CmdSalir Procedimiento: Click

    Release Thisform

    A continuación guarde su aplicación como FrmAplica01, luego proceda a ejecutarla.


    Para ello ingrese lo siguiente en la Ventana de Comandos:

    Do Form FrmAplica01

    Debe funcionar sin problemas. Pruebe ingresando diferentes valores. En caso que falle
    revise y corrija.

    Aplicación Nº 2

    En este ejercicio vamos a crear un formulario para calcular la edad de una persona a
    partir de su fecha de nacimiento.

    Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el


    formulario:

    2 etiquetas

    2 cajas de texto

    3 botones de comando

    Luego, proceda a establecer las propiedades según se indica a continuación:

    Form1

      Name FrmEdad
      Caption  
      MaxButton .F.-Falso
      MinButton .F.-Falso

    Label1

      Name LblFecNac
      Caption Fecha de nacimiento:

    Label2

      Name LblEdad
      Caption Su edad es:

    Text1

      Name TxtFecNac
      Enabled .T.-Verdadero

    Text2

      Name TxtEdad
      Enabled .F.-Falso

    Command1

      Name CmdAceptar
      Caption \<Aceptar

    Command2

      Name CmdLimpiar
      Caption \<Limpiar

    Command3

      Name CmdSalir
      Caption \<Salir
    Luego de establecidas las propiedades de los controles, proceda a ingresar el siguiente
    código:

    Objeto: FrmEdad Procedimiento: Load

    Set Date French

    Set Century On

    Objeto: FrmEdad Procedimiento: Init

    cNomDia = Cdow(Date())

    cDia = Str(Day(Date()), 2)

    cMes = Cmonth(Date())

    cAnno = Str(Year(Date()), 4)

    cFecha = cNomDia + " " + cDia + " de " + cMes + " del " + cAnno

    Thisform.Caption = cFecha

    Thisform.TxtFecNac.Setfocus

    Thisform.Refresh

    Objeto: CmdAceptar Procedimiento: Click

    dFecNac = Ctod(Thisform.TxtFecNac.Value)

    nEdad = Int ((Date() - dFecNac) / 365)

    Thisform.TxtEdad.Value = Str(nEdad) + " a�os"

    Thisform.Refresh

    Objeto: CmdLimpiar Procedimiento: Click

    Thisform.TxtFecNac.Value = ""

    Thisform.TxtEdad.Value = ""

    Thisform.TxtFecNac.Setfocus

    Thisform.Refresh
    Objeto: CmdSalir Procedimiento: Click

    Release Thisform

    Aplicación Nº 3

    Este ejercicio consiste en elaborar un formulario que simule el funcionamiento de un


    reloj despertador digital. La aplicación debe permitir al usuario ingresar la hora a la que
    desea ser avisado. El diseño de la interfaz debe ser similar a la figura siguiente:

    Para el desarrollo de esta aplicación proceder a ubicar los siguientes controles en el


    formulario:

    2 etiquetas

    2 cajas de texto

    1 cron�metro

    2 botones de comandos

    En seguida establezca las propiedades según se indica a continuación:

    Form1

      Name FrmReloj
      Caption Reloj despertador digital
      MaxButton .F.-Falso
      MinButton .F.-Falso

    Label1
      Name LblHora
      Caption Hora

    Label2

      Name LblDespertador
      Caption Despertador

    Text1

      Name TxtHora
      FontBold .T.-Verdadero
      FontSize 24

    Text2

      Name TxtDespertador
      FontBold .T.-Verdadero
      FontSize 24

    Timer1

      Name Timer1
      Enabled .T.-Verdadero
      Interval 500

    Command1

      Name CmdOnOff
      Caption \<Desactivar
      Default .T.-Verdadero

    Command2

      Name CmdTerminar
      Cancel .T.-Verdadero
      Caption \<Terminar

    Una vez establecidas las propiedades, proceda a ingresar el código que se muestra:

    Objeto: FrmReloj Procedimiento: Load

    Public lOnOff

    Objeto: FrmReloj Procedimiento: Init

    lOnOff = .F.

    Thisform.TxtDespertador.Value = "00:00:00"

    Thisform.Refresh

    Objeto: Timer1 Procedimiento: Timer

    If Thisform.TxtHora.Value != Time() Then

    Thisform.TxtHora.Value = Time()

    EndIf

    If (Thisform.TxtDespertador.Value < Time()) And lOnOff Then

    * Sonido ac�stico

    ?Chr(7)

    EndIf

    Thisform.Refresh

    Objeto: CmdOnOff Procedimiento: Click

    If lOnOff Then

    lOnOff = .F.

    Thisform.CmdOnOff.Caption = "\<Activar"

    Else

    lOnOff = .T.
    Thisform.CmdOnOff.Caption = "\<Desactivar"

    EndIf

    Thisform.Refresh

    Objeto: CmdTerminar Procedimiento: Click

    Release Thisform

    También podría gustarte