Taller 05

FC-FISC-1-8-2020)
UNIVERSIDAD TECNOLÓGICA DE PANAMÁ

FACULTAD DE INGENIERÍA DE SISTEMAS COMPUTACIONALES
DEPARTAMENTO DE PROGRAMACIÓN DE COMPUTADORAS
GUÍA DE ACTIVIDAD N° 5 PROGRAMACION I 3015
PRÁCTICA
Facilitador(a): Ing. Emilio Batista Asignatura: PROGRAMACION I 3015 Estudiante: Luis Rolón
Fecha: 15/4/2023 Grupo: 1MI-701
A. TÍTULO DE LA EXPERIENCIA: Guía de Laboratorio, Uso de listBox y la instrucción IF y su respectivo

formato, Uso de la instrucción DO ... LOOP WHILE y sus formato de programación.
.
B. TEMAS:
Capítulo 2, 3, Uso de botones, listbox y Do ... Loop While y su llenado, textbox, y programar los botones de
cálculos, definir las variables usadas
OBJETIVO(S):
Conocer la forma de agregar botones, uso de textbox, dimensionar las variables usadas (Dim) y declara el tipo
de dato a usar es decir entera, flotante. Uso de los tipos de letras y tamaños en la salida.
Que el estudiante aprenda como codificar una ecuación del tipo parábola, raíz cuadrada o polinomio y que los
datos a evaluar entre por pantalla con el uso de Inputbox( “ mensaje·” & i ). Utilizar el control ListBox para
agregar datos de la función f(x), y sus valores respectivo-agregados al al listBox. Calcular los puntos de cada
función al variarar los valores de x. Incluir el nombre al reporte en pantalla utilizando la instrucción Me.Text = “
texto a escribir o nombre”
DO ... LOOP WHILE, y la condición de salida debe ser verificada.
C. METODOLOGÍA SUGERIDA:
1) Se trabajará de manera individual y talleres en grupo de trabajo
2) La actividad debe ser desarrollada durante la sesión de clases o en casa utilizando la herramienta de visual
estudio.
3) Presentar el análisis y diseño de los problemas. (uso de formularios y diseño de pantallas)
4) La solución de los problemas debe ser en formulario y sentencias de programación con respectivo IDE.
5) Anexar la prueba de las sentencias: codificación, captura de las pantallas, como evidencia de la corrida del
programa.
6) Para ejecutar la solución, utilizar el lenguaje y la programación requerida de visual estudio.
7) La entrega de la solución se hará mediante plataforma Moodle/Dropbox/OneDrive, Teams
D. ENUNCIADO: Crear 3 objetos tipo ListBox para agregar 2 funciones
 Requisitos del proyecto:

 Crear cuatro Label1, Label2, Label3, label4, para colocar los nombres de las funciones y N es la cantidad
de registros a calcular.
 Crear tres ListBox1, Listbox2, Listbox3 para agregar los valores calculados de la función parábola y la
función asíntota en los listBox luego agrupe los datos en un GroupBox.
 Seguir las pantallas adjuntas, las funciones son una parábola y una asíntota como se muestra.
 El trabajo debe llevar conclusiones de los dos integrantes del proyecto obligatorio.
 Subir trabajo a la plataforma de la UTP.
Referencia (APA): http://normasapa.net/referencias/
FC-FISC-1-8-2020)
PRÁCTICA
E. PROCEDIMIENTO:
Indicar todos los pasos necesarios para realizar la experiencia. Se pueden mostrar con esquemas, dibujos,
imágenes, fotos, entre otros.
a. Crear el o los programas o nombre del proyecto
b. Crear el formulario y/o proyectos.
c. Captura de las sentencias o programas de la codificación y o captura de las pantallas.
d. Prueba de la corrida (anexar las pantallas)
F. RECURSOS:
Guía de actividad, apuntes de clases, aplicación de Visual Estudio, consultar las filminas proporcionadas por el
docente.
G. RESULTADOS (OPCIONAL, DE ACUERDO CON LA ACTIVIDAD):

Sección donde se colocan los datos obtenidos con la experiencia. Se formatea de acuerdo con la salida
deseada: conjunto de preguntas, tablas, gráficos, preguntas abiertas, entre otros.
Análisis
Nombre de las variables Tipos de datos Comentarios de los campos
FC-FISC-1-8-2020)
PRÁCTICA
Dim x(0 To 200) Single, String, Integer REM índice 1 debe ser 0
Dim N1, N2, j REM valor inicial
Dim fx_parabola, fx_asintota REM cantidad de valores
Dim fx1, fx2 REM ciclo repetitivo
REM parábola
REM convertimos a cadena
REM (x+1)/(x-1)
REM infinito
Sentencias de programación para el formulario
Public Class Form1

'Declaramos el vector del 1 al 200 y definimos las variables
Dim x(0 To 200) As Integer REM indice 1 debe ser 0
Dim N1, N2, j As Integer
Dim fx_parabola, fx_asintota As String
Dim fx1, fx2 As Single
Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.Text = "Evaluar dos funciones"
Dim IpComputer As System.Net.IPHostEntry =
System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Dim IpAddr As Net.IPAddress() = IpComputer.AddressList
Label7.Text = Environ("COMPUTERNAME")
Label8.Text = Environ("USERNAME")
Label9.Text = IpAddr(0).ToString
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

N1 = Val(TextBox1.Text) REM valor inicial
N2 = Val(TextBox2.Text) REM cantidad de valores
j=1 REM ciclo repetitivo
Do
x(j) = N1
fx1 = -(x(j)) ^ 2 - 3 * x(j) + 3 REM parabola
fx_parabola = Convert.ToString(fx1) REM convertimos a cadena
ListBox1.Items.Add("f1(x)= " + fx_parabola)
If (x(j) - 1) = 0 Then REM (x+1)/(x-1)
fx_asintota = "inf=∞" REM infinito
ListBox2.Items.Add("f2(x)= " + fx_asintota)
Else
FC-FISC-1-8-2020)
PRÁCTICA
fx2 = (x(j) + 1) / (x(j) - 1)

fx_asintota = Convert.ToString(fx2)
ListBox2.Items.Add("f2(x)= " + fx_asintota)
End If
ListBox3.Items.Add("x(i) =" + Convert.ToString(x(j)))
N1 = N1 + 1
j=j+1
Loop While j <= N2
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox1.Text = ""
ListBox1.Items.Clear()
TextBox2.Text = ""
End Sub
End Class
En esta otra puede incluir los datos generados
Ejemplos: Parábola, asíntota, valor de X, Número Inicial (N1), cantidad de valores (N2), Nombre de PC, PC
Id, dirección IP.
FC-FISC-1-8-2020)
PRÁCTICA
En esta sección capture las pantallas de la corrida

FC-FISC-1-8-2020)
PRÁCTICA
FC-FISC-1-8-2020)
PRÁCTICA
H. BIBLIOGRAFIA:
Uso de Listbox:
https://www.aulafacil.com/cursos/programacion/visual-basic-paso-a-paso/control-listbox-l42146
Información de Listbox de Microsoft:
https://learn.microsoft.com/es-es/dotnet/api/system.windows.forms.listbox?view=windowsdesktop-
8.0
Aspectos a Evaluar Puntaje Máximo Puntaje

Obtenido
100%
Estilo de escritura sentencias SQL 5
Escritura 5
*Claridad en la Escritura 5
Breve documentación a través de 5

comentarios
Secuencia lógica (de las tablas) 35
Prueba de la corrida 40
*Puntualidad en la entrega 5
Total 100
I. RÚBRICAS:
Nota: * Queda a discreción del docente, de acuerdo con el tema, la utilización de este criterio
Anexo de otras pantallas.

-Cuando el denominador es 0. Valor Indefinido: ∞ (solo en la función x+1/x-1)
(
FC-FISC-1-8-2020)
PRÁCTICA
CONCLUSIÓN:
En conclusión, el uso de listbox con fórmulas de parábola y asíntota en Visual Basic
puede ser útil para mostrar gráficamente la relación entre variables y cómo cambian a medida
que se alteran los valores de entrada. Las parábolas y las asíntotas son importantes en
matemáticas y física, y al utilizar listbox, se puede presentar de manera clara y ordenada la
información para el usuario.
Anexes de pantallas para el taller No 5.
CONVERTIR NUMEROS DE LA PARABOLA A UNA CADENA PARA IMPRIMIR EN EL

LISTBOX:
fx1 = -(x(j)) ^ 2 - 3 * x(j) + 3 REM parábola
fx_parabola = Convert.ToString(fx1) REM convertimos a cadena.
CONVERTIR NUMEROS DE LA FUNCION ASINTOTA Y= (X+1)/(X-1) A UNA CADENA PARA
IMPRIMIR EN EL LISTBOX DE LA SEGUNDA FUNCION:
fx2 = (x(j) + 1) / (x(j) - 1) REM (x+1)/(x-1)
FC-FISC-1-8-2020)
PRÁCTICA
Option Explicit On
Public Class Form1
'Declaramos el vector del 1 al 200 y definimos las variables

Dim x(0 To 200) As Integer REM índice 1 debe ser desde 0hasta 200
Dim N, j, xx As Integer
Dim fx_parabola, fx_asintota As String
Dim fx1, fx2 As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
Me.Text = " Evaluar dos funciones "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
N = Val(TextBox1.Text)
xx = -6 REM valor inicial desde el eje x, empieza en -6
j=1 REM valor inicial para el recorrido
Do REM Do ciclo repetitivo
x(j) = xx
fx1 = -(x(j)) ^ 2 - 3 * x(j) + 3 REM parábola
fx_parabola = Convert.ToString(fx1) ‘ REM convertimos a cadena
If (x(j) - 1) = 0 Then REM (x+1)/(x-1)
fx_asintota = "inf= ∞" REM infinito
Else
fx2 = (x(j) + 1) / (x(j) - 1) REM (x+1)/(x-1)
End If
funcion1.Items.Add("f1 (x) = " + fx_parabola)
Funcion2.Items.Add("f2 (x) = " + fx_asintota)
ListBox1.Items.Add("x (i) = " + Convert.ToString(x(j)))
xx = xx + 1
j=j+1
Loop While j <= N REM fin del do While con la condición
End Sub
End Class

Taller 05

Cargado por

Copyright:

Formatos disponibles

Taller 05

Cargado por

Información del documento

Descripción original:

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Taller 05

Cargado por

Copyright:

Formatos disponibles

FC-FISC-1-8-2020)

UNIVERSIDAD TECNOLÓGICA DE PANAMÁ

A. TÍTULO DE LA EXPERIENCIA: Guía de Laboratorio, Uso de listBox y la instrucción IF y su respectivo

D. ENUNCIADO: Crear 3 objetos tipo ListBox para agregar 2 funciones

 Requisitos del proyecto:

G. RESULTADOS (OPCIONAL, DE ACUERDO CON LA ACTIVIDAD):

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

fx2 = (x(j) + 1) / (x(j) - 1)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

En esta otra puede incluir los datos generados

En esta sección capture las pantallas de la corrida

Aspectos a Evaluar Puntaje Máximo Puntaje

Estilo de escritura sentencias SQL 5

Breve documentación a través de 5

Secuencia lógica (de las tablas) 35

Anexo de otras pantallas.

CONVERTIR NUMEROS DE LA PARABOLA A UNA CADENA PARA IMPRIMIR EN EL

'Declaramos el vector del 1 al 200 y definimos las variables

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

También podría gustarte