Colegio de educación profesional técnica del estado de chihuahua
Programación con sistemas gestores de base de datos
PSP; Sergio González Pérez
Diana Raquel Torres Castillo
Practica#18
“Manejo de operadores aritméticos y estructuras de selección”
22 oct. 10
Lista de Cotejo
Práctica # 19 Manejo operadores aritméticos y estructuras de
selección.
Nombre de la Materia: Plantel: Conalep Juárez I
Programación Básica
Instructor: Ing. Sergio González Pérez Grupo: 5101
Alumno: Diana Raquel Torres Castillo Fecha de aplicación : 22/Oct./ 2010
INSTRUCCIONES DE APLICACIÓN.
Verifique que se encuentren los componentes señalados abajo y marque con una √ el registro
de cumplimiento correspondiente.
REGISTRO DE
No Características a verificar CUMPLIMIENTO OBSERVACIONES
SI NO
1 Inicia el Sistema Gestor de Base de Datos
2 Abre la Base de Datos que será utilizada
3 Realiza los pasos de la practica
4 Manipula correctamente el SGBD
5 Almacena en su carpeta las actividades planteadas
6 Realiza el reporte del resultado del programa.
DESARROLLO
REGISTRO DE
No Actividades a desarrollar CUMPLIMIENTO OBSERVACIONES
SI NO
1 Inicializa Lenguaje de Programación
2 Agrega Formulario
3 Diseña los Controles del Formulario
4 Realiza Código para Calculo de Promedio
Raquel
Firma del Alumnos Firma del Instructor
Practica 19
PublicClass Form1
Public fila AsInteger = 0
Dim dt AsNew DataTable
Dim cn AsNew [Link]("Provider=[Link].4.0;Data
Source=C:\Torres\[Link]")
Promedio
PrivateSub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link] = (Int([Link]) + ([Link]) + ([Link])) / 3
If (Int([Link]) >= 7) Then
[Link] = "Aprobado"
Else
[Link] = "Reprobado"
EndIf
EndSub
Limpiar
PrivateSub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
[Link] = " "
EndSub
Agregar
PrivateSub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
Dim GuardarDatos AsString = "Insert Into Prome(Matricula,Nombre,C1,C2,C3,Pro,Mensa)"&"Values
('"& [Link] &"','"& [Link] &"','"& [Link] &"','"& [Link] &"','"&
[Link] &"','"& [Link] &"','"& [Link] &"')"
Dim dataAdapter AsNew [Link](GuardarDatos, cn)
[Link](dt)
MsgBox("se agrego el registro correctamente", [Link], "mensaje")
[Link]()
[Link]()
EndSub
Consultar
PrivateSub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
[Link]()
Dim ConsultarDatos AsString = "Select *From Prome Where Matricula="& (CInt([Link]))
Dim dataAdapter AsNew [Link](ConsultarDatos, cn)
[Link](dt)
fila = 0
[Link] = CInt([Link](fila)("Matricula"))
[Link] = CStr([Link](fila)("Nombre"))
[Link] = CInt([Link](fila)("C1"))
[Link] = CInt([Link](fila)("C2"))
[Link] = CInt([Link](fila)("C3"))
[Link] = CInt([Link](fila)("Pro"))
[Link] = CStr([Link](fila)("Mensa"))
EndSub
EndClass
Prome
Matricula Nombre C1 C2 C3 Pro Mensa
45 d 5 5 4 5 Reprobado
46 Jesus 8 9 5 7 Aprobado
47 Miguel 8 6 7 7 Aprobado
125 Alma 7 8 6 7 Aprobado
