Programación De Objetos En Visual Fox Pro
Enviado por jorgexd22 • 13 de Febrero de 2013 • 1.017 Palabras (5 Páginas) • 659 Visitas
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
...