la hoja

Páginas: 5 (1171 palabras) Publicado: 7 de mayo de 2013
PRACTICA
NOMBRE: Wilcarani Villca Aldomar C.I.: 7265791
PARALELO: SIS 2420 “A” FECHA: 06/05/13
ING. ROLY FERNANDEZ GUTIERREZ

RESOLUCION DEL PRIMER PARCIAL

1.- Ingresar nombre, apellido y fecha la información debe estar validada para edades de universitarios mayor a 1989 y además con los primeros caracteres del nombre del apellido y el año de la fecha generar un código.Primeramente verificamos los que son menores de edad y nos lanza un mensaje que dice: ERES MENOR DE EDAD además que al aceptar el mensaje pues nos pone los campos en blanco, así podemos ingresar nueva información:







Una vez que hayamos puesto otra información que sea válida a lo que estamos queriendo pues nos genera el CODIGO con las iniciales de su nombre y apellido seguido de su año denacimiento, véase también que el botón GENERAR se bloquea así para que no se pueda generar otro código con los mismos datos. Al darle click en el botón NUEVO el botón GENERAR se restaura además que todos los campos se vacían además que el puntero se va al campo NOMBRE para empezar con otros datos:













CODIGO://---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}//---------------------------------------------------------------------------
void __fastcall TForm1::NOMBREKeyPress(TObject *Sender, char &Key)
{
if ((Key'Z')&& (Key'z') && (Key!=8 && Key!=' ' && Key!='ñ' && Key!= 'Ñ' && Key!='.'))
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::APELLIDOKeyPress(TObject *Sender, char &Key)
{
if ((Key'Z')&& (Key'z') &&(Key!=8 && Key!=' ' && Key!='ñ' && Key!= 'Ñ' && Key!='.'))
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DIAKeyPress(TObject *Sender, char &Key)
{
if ((Key'9') && (Key!=8 && Key!='/'))
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MESKeyPress(TObject*Sender, char &Key)
{
if ((Key'9') && (Key!=8 && Key!='/'))
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ANIOKeyPress(TObject *Sender, char &Key)
{
if ((Key'9') && (Key!=8 && Key!='/'))
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SALIRClick(TObject *Sender)
{Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GENERARClick(TObject *Sender)
{
char n[20];
char a[20];
charfanio[4];
strcpy(n,NOMBRE->Text.c_str());
strcpy(a,APELLIDO->Text.c_str());
strcpy(fanio,ANIO->Text.c_str());
if (ANIO->Text < 1996)
{
COD->Text=n[0];
COD->Text=COD->Text+a[0];COD->Text=COD->Text+"-"+fanio[0];
COD->Text=COD->Text+fanio[1];
COD->Text=COD->Text+fanio[2];
COD->Text=COD->Text+fanio[3];
NUEVO->Enabled=true;
GENERAR->Enabled=false;
}
else
{
ShowMessage("ERES MENOR DE EDAD");
NOMBRE->Text ="";
APELLIDO->Text ="";
DIA->Text ="";
MES->Text ="";
ANIO->Text ="";
NOMBRE->SetFocus();
}
}//---------------------------------------------------------------------------
void __fastcall TForm1::NUEVOClick(TObject *Sender)
{
NOMBRE->Text ="";
APELLIDO->Text ="";
DIA->Text ="";
MES->Text ="";
ANIO->Text ="";
COD->Text ="";
GENERAR->Enabled=true;
NUEVO->Enabled=false;
}
//---------------------------------------------------------------------------




2.- Dada una matriz n por m elementos mostrar...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Hoja
  • Hoja
  • hoja
  • hoja
  • las hojas
  • Hojas
  • La hoja
  • Hojas

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS