ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Programación De Objetos En Visual Fox Pro


Enviado por   •  13 de Febrero de 2013  •  1.017 Palabras (5 Páginas)  •  578 Visitas

Página 1 de 5

Programación de objetos en Visual Fox Pro

Introducción.

En este segmento veremos cómo aplicar la sentencia TIMER, y para qué sirve en la programación FOXPRO, así, también veremos cómo aplicar el COMBOBOX y su forma de agregado de datos y por supuesto su definición en pocas palabras, el CHECKBOX se definirá para qué es y un ejemplo para saber cómo aplicarlo; posteriormente veremos la definición de el objeto RADIOBUTTON y para qué sirve y un ejemplo de ello para verificar cual es su funcionamiento, y por último la definición y funcionamiento de la sentencia DATAGRID, su funcionamiento se definirá y un ejemplo básico de ello.

Desarrollo.

¿Cómo aplico la programación de un objeto TIMER?

La sentencia TIMER, es la expresión numérica que puede ser cualquier valor. La resolución máxima real es de aproximadamente 1/28 segundos. Utilizar SECONDS() para una mayor resolución.

Ejemplo.

Public oTimer declare integer Sleep in Win32API integer milliseconds

oTimer = create object (“ejemplo”)

Define Class ejemplo as timer

Interval = 500

Enabled = .t.

Procedure Timer()

? seconds()

Sleep (1000)

Doevents forcé

Endproc

Enddefine

¿Cómo aplico el uso de un objeto de tipo COMBOBOX o caja de lista, mencionado el uso de las propiedades para hacer referencia una opción de la lista, agregar elementos a la lista y eliminar elementos de la lista?

Es un cuadro donde aparecen varias opciones.

Ejemplo.

Public form1

Form1 = newobject (“form1”)

Form1.show

RETURN

Define class form1 AS form

Docreate = .t.

Caption = “form1”

Cprop = .null.

Name = “form1”

Add Object combo1 AS combobox Whit;

Rowsource = “thisform.cprop”, ;

Height = 24, ;

Left = 48, ;

Top = 48, ;

Width = 100, ;

Name = "Combo1"

PROCEDURE cprop_assign

LPARAMETERS vNewVal

*To do: Modify this routine for the Assign method

THIS.cprop = m.vNewVal

ENDPROC

PROCEDURE Init

this.cprop = .null.

DODEFAULT()

ENDPROC

PROCEDURE combo1.Init

this.List(1)='001'

this.List(2)='002'

this.List(3)='003'

ENDPROC

ENDDEFINE

¿Cómo utilizo o aplico una casilla de verificación o CHECK BOX y cuáles son sus propiedades más utilizadas?

Son objetos Seleccionables.

Ejemplo.

If CheckBox1.Checked = True Then

sum += LX

End If

If CheckBox2.Checked = True Then

sum += BN

End If

If CheckBox3.Checked = True Then

sum += SD

End If

If CheckBox4.Checked = True Then

sum += HD

End If

If CheckBox5.Checked = True Then

sum += HM

End If

If CheckBox6.Checked = True Then

sum += AM

End If

Label5.Text = sum.ToString("c")

Here is another example

Example 17.2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Const large As Integer = 10.0

Const medium As Integer = 8

Const small As Integer = 5

Dim sum As Integer

If CheckBox1.Checked = True Then

sum += large

End If

If CheckBox2.Checked = True Then

sum += medium

End If

If CheckBox3.Checked = True Then

sum += small

End If

Label5.Text = sum.ToString("c")

¿Cómo utilizar y aplicar un RADIOBUTTON?

Expresión de decisión.

Ejemplo.

do case

case d.season = 'winter'

radiobutton.value = 1

...

Descargar como (para miembros actualizados)  txt (6.8 Kb)  
Leer 4 páginas más »
Disponible sólo en Clubensayos.com