EJERCICIOS
1)
Aplicación que determine si dos números son iguales o
diferentes
Este Blog de de Visual Delphi Elemental, tiene como finalidad desarrollar la lógica de programación de los estudiantes de 3ro informática del Politécnico Max Henríquez Ureña, para poder lograr una muy buena comunicación cuando no estamos en clase.
Var edad1,edad2,edad3:Integer;
promedio:Real;
// Validando la captura de datos.
begin
If trim(edtEdad1.Text) = ''
then
begin
showMessage('Falta la 1ra Edad');
edtEdad1.SetFocus;
exit;
end;
If trim(edtEdad2.Text) =
'' then
begin
showMessage('Falta la 2da
Edad');
edtEdad2.SetFocus;
exit;
end;
If trim(edtEdad3.Text) = ''
then
begin
showMessage('Falta la 3ra
Edad');
edtEdad3.SetFocus;
exit;
end;
// Fin
Validación captura de datos
// Convirtiendo variable
edad1:=StrToInt(edtEdad1.Text);
edad2:= StrToInt (edtEdad2.Text);
edad3:= StrToInt (edtEdad3.Text);
// Calculando el promedio
promedio:=(edad1+edad2+edad3)/3;
// Mostrando el Resultado
edtResultado.Text:= FloatToStr(promedio);
end;
|
Var Num:Integer;
condicion:String[10];
// Validando la captura de datos.
Begin
If trim(edtNumero.Text) = ''
Then
Begin
Showmessage('Falta el Número');
edtNumero.SetFocus;
Exit;
End;
// Fin Validación la captura
de datos.
// Convirtiendo Variable.
Num:=StrToInt(edtNumero.Text);
// Haciendo comparación
If Num < 0 Then
Begin
condicion:='Negativo';
End
Else
Begin
Condicion:='Positivo';
End;
// Mostrando Resultado
Resultado.Caption:= 'El Número es
'+condicion;
// Resultado, es el Name de un Label, donde se muestra el resultado
end;
|
Control
|
Nombre
|
Descripción
|
Main Menu
|
Menú Principal
|
Permite insertar menús
dentro de la aplicación.
|
Label
|
Etiqueta de Texto
|
Permite colocar texto en los
formularios.
|
Edit
|
Caja de Texto
|
Permite al usuario
introducir datos para ser tratados.
|
Memo
|
Cuadro de líneas
|
Permite al usuario introducir
grandes cantidades de texto en múltiples líneas.
|
Button
|
Botón de orden
|
Son los que permiten el
control del programa.
|
CheckBox
|
Casilla de Verificación
|
Estas permiten seleccionar
varios elementos de un listado,
|
RadioButton
|
Casilla de Opción
|
Permite seleccionar uno solo
de los elementos de una lista.
|
ListBox
|
Cuadro de lista
|
Muestra una lista con
elementos que se pueden seleccionar.
|
ComboBox
|
Cuadro Combinado
|
Muestra el objeto
seleccionado de una lista.
|
ScrollBar
|
Barra de Desplazamiento
|
Es la representación visual
del valor actual de una variable.
|
GroupBox
|
Marco
|
Permite agrupar opciones o
botones.
|
RadioGroup
|
Marco de selección
|
Permite agrupar botones de
opción de un modo lógico en el formulario.
|
Panel
|
Panel
|
Es un subformulario dentro
del formulario.
|
BitBtn
|
Botón Gráfico
|
Son botones normales, a
diferencia que permiten la introducción de un pequeño gráfico.
|
SpeedButton
|
Botón rápido
|
Son los que se localizan
debajo del menú principal y realizan instrucciones comunes.
|
Image
|
Imagen
|
Permite insertar imágenes en
el formulario.
|
StaticText
|
Texto estático
|
Es similar a una caja de
texto, a diferencia que si el texto no cabe en la caja, se pasa a la siguiente
línea.
|
Shape
|
Forma
|
Dibuja una figura en el
formulario.
|
Propiedad
|
Descripción
|
Caption
|
Especifica
el título del objeto o el texto que contendrá
|
Font
|
Especifica la Fuente (tipo de letra, tamaño color etc.)
que tendrá el objeto.
|
Name
|
Especifica el nombre (variable) del objeto
|
Enabled
|
Permite
un valor de True o False para indicar si el objeto está o no
habilitado.
|
Text
|
Es el valor que se introduce en un Edit
|
Color
|
Especifica
el color de fondo de un Objeto.
|
ReadOnly
|
Permite un valor de True o False
para indicar si se puede escribir o no en el objeto (Text,
DBGrid etc.)
|
TIPO
|
DETALLE
|
Integer
|
Maneja
datos enteros
|
Real
|
Maneja
datos Reales
|
Boolean
|
Maneja
Valores lógicos (True o False)
|
Char
|
Maneja
1 Carácter
|
String
|
Maneja
una cadena de caracteres (Textos)
|
FUNCIÓN
|
CONVERSIÓN
|
DETALLE
|
IntToStr
|
Entero a String
|
De Números Enteros a Texto
|
StrToInt
|
String a Entero
|
De Texto a Números Entero.
|
StrToFloat
|
String a Real
|
De Texto a Números Reales
|
FloatToStr
|
Real a String
|
Números Reales a Texto
|
EXPRESIÓN
|
FUNCIÓN
|
Trim
|
Quita los espacios al
principio y/o al final de la cadena de caracteres.
|
ShowMessage
|
Se utiliza para mostrar un
mensaje
|
Close
|
Cierra un formulario
|
Show
|
Muestra un formulario
|
ShowModal
|
Muestra un formulario y le
da el control de la aplicación. Mientras el usuario no cierre este
formulario, no puede seguir con la aplicación.
|
SetFocus
|
Asigna el enfoque a un
control.
|
Clear
|
Borra el contenido de un
control ComboBox o Edit, ect.
|
Application.Terminate
|
Hace que la aplicación
finalice
|
Mrok
|
El usuario pulsó el botón Ok.
|