Diseño de algoritmos

Universidad Panamericana Preparatoria 10 − dic− 2002 TRABAJO DE PERIODO Proyecto #1: Análisis: Se debe de tener una agenda capaz de registrarte en una etiqueta el nombre, la dirección, la ocupación, el teléfono y el e−mail del usuario. Para esto el usuario debe introducir todos estos datos en cajas de texto para cada uno y después presionar un botón, el cual realizará la función de almacenartodos los datos en la etiqueta, y debe de tener un botón para poder cerrar la aplicación. Diseño del Algoritmo: Pseudocódigo: En el botón de Registrar Se declaran las variables que se usarán para cada dato que se introduzca En la etiqueta ponemos los registros que se almacenaron en las variables declaradas anteriormente. En el botón de Salir Se declara la función para salir del programa Diagrama deflujo: Inicio a,b,c,d,e a,b,c,d,e Fin Codificación: Private Sub Command1_Click() 'Se declaran las variables nombre = Text1.Text direccion = Text2.Text ocupacion = Text3.Text 1

telefono = Text4.Text email = Text5.Text Label6.Caption = Label6.Caption & "Nombre: " & nombre & vbCrLf & "Dirección: " & direccion & vbCrLf & "Ocupacion: " & ocupacion & vbCrLf & "Teléfono: " & telefono & vbCrLf &"E−mail: " & email & vbCrLf & "_____________________________________" End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() 'Al comenzar el programa borra el contenido de las cajas de texto Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub Pantalla Corriendo: Documentación: Usuario: 1.Se deben introducir los datos correspondientes al nombre,dirección, ocupación, teléfono e e−mail. 2.−Se debe pulsar el botón de Registrar para que así registre los datos puestos en el paso anterior. 3.−Para salir se debe pulsar el botón de Salir. Administrador: 1.−Las variables no fueron dimensionadas ya que todas son usadas como String. 2.−Las variables fueron declaradas correspondiendo a la caja de texto. 3.−Después se realiza el registro en la etiqueta,añadiéndole, el nombre del dato del registro.

2

4.−Se agregó un botón para salida Proyecto #2: Análisis: Se pide una agenda que pueda registrar en una etiqueta el nombre, descompuesto en apellido paterno, materno y nombre, la dirección, descompuesta en calle, colonia, número y delegación, teléfonos, particular, de oficina y celular, ocupación y el e−mail del usuario. Todos estos datos deben serintroducidos por el usuario para después presionar un botón que realizará la función de almacenar todos los datos en la caja de texto, este conjunto de datos no sólo será uno así que añadiremos una barra de desplazamiento y un botón para cerrar la aplicación. Diseño del Algoritmo: Pseudocódigo: Dimensionamos las variables que serán usadas como valores alfanuméricos y otras que serán de valornumérico. En el botón de Registrar Se declaran las variables que se usarán, las variables de valor numérico, como los teléfonos, serán declaradas como valores. En la caja de texto se ponen los registros que se almacenaron en las variables declaradas anteriormente, pero ya bien organizadas conforme a su orden. En el botón de Salir Se sale del programa Diagrama de flujo: Inicio a,b,c,d,e,f,g,h,i,j,k,la,b,c,d,e,f,g,h,i,j,k,l Fin Codificación: Dim no, particular, oficina, celular As Double Dim nombre, apaterno, amaterno, calle, colonia, delegacion, ocupacion, mail As Integer Private Sub Command1_Click() nombre = Text1.Text

3

apaterno = Text2.Text amaterno = Text3.Text calle = Text4.Text no = Val(Text5.Text) colonia = Text6.Text delegacion = Text7.Text particular = Val(Text8.Text) oficina =Val(Text9.Text) celular = Val(Text10.Text) ocupacion = Text12.Text email = Text13.Text Text11.Text = Text11.Text & nombre & " " & apaterno & " " & amaterno & " " & vbCrLf & calle & " " & no & " " & colonia & " " & delegacion & " " & vbCrLf & particular & vbCrLf & oficina & vbCrLf & celular & vbCrLf & ocupacion & vbCrLf & email & vbCrLf & "________________________" & vbCrLf End Sub Private Sub...