UNIVERSIDAD TECNOLGICA DE LA SELVAOrganismo Descentralizado de la Administracin Pblica del Estado de Chiapas
PROGRAMACIN VISUAL
VISUAL BASIC .NET 2003
ELABOR: L.S.C.A. OMA GUILLN GONZLEZ
MANUAL DE EJERCICIOS PARA LA MATERIA DE PROGRAMACIN VISUAL TEMA 1 ESTRUCTURAS DE CONTROLEJERCICIO 1.- EL SIGUIENTE EJERCICIO SACA EL PROMEDIO DE N NUMEROS POR MEDIO DE UN CICLO FOR, SE UTILIZA UN INPUTBOX PARA LA INSERCIN DE CADA UNO DE LOS DATOS QUE SE INSERTE POR CADA VUELTA DEL CICLO. ESTA ES LA INTERFAZ QUE UTILIZAMOS PARA ESTE PROGRAMA.
A CONTINUACIN SE ESCRIBE EL CDIGO NECESARIO PARA REALIZAR ESTA OPERACIN, EL CDIGO VA EN EL BOTON CALCULAR.Try Dim i, cont As Integer Dim sum As Double Dim prom As Double Dim numero As Double Dim valor As String cont = Convert.ToInt32(TextBox1.Text) sum = 0.0 valor = "" For i = 1 To cont numero = Convert.ToDouble(InputBox("Dame la calificacin:", "Calificaciones", valor, 45, 120)) sum = sum + numero Next prom = sum / cont TextBox3.Text = prom Catch ex As Exception MessageBox.Show("EXCEPCION: " + ex.ToString()) End Try
EL SIGUIETE CDIGO LO PONEMOS EN EL FORMULARIO PARA QUE AL MOMENTO DE LA EJECUCIN SALGA EL SIGUIENTE MENSAJE.
MessageBox.Show("Menciona cuantas calificaciones deseas promediar..")
EJERCICIO 2.- EL SIGUIENTE EJERCICIO SE ELABOR CON UN CICLO DO WHILE Y LO QUE HACE ES QUE EN UN LIST VIEW ESCRIBA UNA LISTA DE 10 NOMBRES REPETITIVOS. ESTA ES LA INTERFAZ QUE UTILIZAMOS PARA ESTE PROGRAMA.
A CONTINUACIN SE ESCRIBE EL CDIGO NECESARIO PARA REALIZAR ESTA OPERACIN, EL CDIGO VA EN EL BOTON GENERAR LISTA.Dim X As Integer Dim nombre As String X = 1 nombre = "omar" Lista.Items.Clear() Do While X 0 ThenESTO ES UNA SOLO LINEA DE CDIGO, SE HICIERON VARIAS POR EL TAMAO DE LA HOJA DE WORD
MessageBox.Show("Actualizacion Exitosa", "Tarea Realizada", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)FIN DE LA LINEA
ElseESTO ES UNA SOLO LINEA DE CDIGO, SE HICIERON VARIAS POR EL TAMAO DE LA HOJA DE WORD
MessageBox.Show("Eror en la Actualizacion", "Tarea No Realizada", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)FIN DE LA LINEA
End If
Botn de Eliminaciones
Try
'Establecemos la conexion a la BD cnn1 = New ADODB.Connection() cnn1.ConnectionString = "DSN=dsn_prueba;UID=root;" 'Abrimos la conexion cnn1.Open() 'Creo la bandera para definir si se realizo el borrado 'Creamos la cadena SQL Dim bandera As Object Dim a, r As Integer
ESTO ES UNA SOLO LINEA DE CDIGO, SE HICIERON VARIAS POR EL TAMAO DE LA HOJA DE WORD
Dim str As String = "DELETE FROM alumnos WHERE matricula = '" & TextBox1.Text & "'"FIN DE LA LINEA
cnn1.Execute(str, bandera) cnn1.Close() If CInt(bandera) = 1 ThenESTO ES UNA SOLO LINEA DE CDIGO, SE HICIERON VARIAS POR EL TAMAO DE LA HOJA DE WORD
MessageBox.Show("Eliminacion exitosa", "Transaccion Exitosa", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)FIN DE LA LINEA
TextBox1.Text TextBox2.Text TextBox3.Text TextBox4.Text TextBox5.Text Else
= = = = =
"" "" "" "" ""
r = a / bandera End If Catch ex As ExceptionESTO ES UNA SOLO LINEA DE CDIGO, SE HICIERON VARIAS POR EL TAMAO DE LA HOJA DE WORD
MessageBox.Show("Error en la eliminacion", "Alerta, Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)FIN DE LA LINEA
End Try
TEMA PROYECTO IMPLEMENTACIN
DE
INSTALACIN
E
A CONTINUACIN SE ESPECIFICA COMO CREAR UN PROYECTO DE INSTALACIN PARA NUESTROS PROYECTOS DE VISUAL BASIC .NET PASO 1.- ESTAR DENTRO DEL PROYECTO DESTINADO A SER CREADO COMO INSTALADOR. PASO 2.- SELECCIONAR MEN ARCHIVO AGREGAR PROYECTO NUEVO PROYECTO PASO 3.- SELECCIONAR DEL LADO IZQUIERDO LA CARPETA LLAMADA PROYECTOS DE INSTALACIN E IMPLEMENTACIN Y DEL LADO DERECHO LA PLANTILLA LLAMADA ASISTENTE PARA PROYECTOS DE INSTALACIN, PONGALE UN NOMBRE AL PROYECTO, POR DEFAULT APARECE EL NOMBRE DE SETUP1, ESPECIFIQUE LA DIRECCIN DONDE SE CREAR EL INSTALADOR. PASO 4.- APARECER UNA VENTANA DEL ASISTENTE PARA EL PROYECTO DE INSTALACIN, PRESIONE SIGUIENTE. PASO 5.- SALDRN DOS OPCIONES PARA ELEGIR EL TIPO DE PROYECTO, SELECCIONEMOS LA PRIMERA, PROGRAMA DE INSTALACIN PARA INSTALAR UNA APLICACIN PARA WINDOWS, PRESIONES SIGUIENTE. PASO 6.- EL SIGUIENTE PASO CONSISTE EN INCLUIR QUE GRUPOS DE RESULTADOS DEL PROYECTO DESEAMOS INCLUIR, INCLUYA LOS SIGUIENTES: * RESULTADO PRINCIPAL * RECURSOS ADAPTADOS * ARCHIVOS DE CONTENIDO, PULSE SIGUIENTE. PASO 7.- EL SIGUIENTE PASO INDICA SI QUEREMOS INCLUIR ALGUN ARCHIVO README O HTML PARA DOCUMENTACION O COMPLEMENTO DEL PROYECTO, USTED DECIDE SI LO DOCUMENTA O NO, PULSE SIGUIENTE. PASO 8.- PULSE FINALIZAR. PASO 9.- MENU GENERAR GENERAR (NOMBRE DEL PROYECTO) PASO 10.- AHORA VAYA A LA RUTA DONDE SE CREO EL INSTALADOR, BUSQUE LA CARPETA CON EL NOMBRE QUE SE LE ASIGNO AL PROYECTO, EJEM: SETUP1 Y DENTRO DE ELLA HAY OTRA CARPETA LLAMADA DEBUG, DENTRO DE ESTA CARPETA HAY UN ARCHIVO LLAMADO COMO EL
PROYECTO CON EXTENSION .msi , EJEM: SETUP1.msi DELE DOBLE CLIC Y COMENZAR EL PROCESO DE INSTALACIN, PULSE SIGUIENTE. PASO 11.- SELECCIONE LA CARPETA DE INSTALACION, APARECE LA RUTA SIGUIENTE: C:\ARCHIVOS DE PROGRAMA\NOMBRE DE LA EMPRESA\SETUP1 CAMBIELA POR EL NOMBRE DE UNA CARPETA QUE GUSTE, POR EJEMPLO EL NOMBRE DE LA EMPRESA A LA QUE LE ESTA DESARROLLANDO EL SISTEMA. TAMBIEN LE PREGUNTAR SI DESEA INSTALAR PARA EL USUARIO QUE ESTA ACTUALMENTE EN LA SESION DE WINDOWS O PARA TODOS LOS USUARIOS, DETERMINE QUE OPCION LE CONVIENE, PULSE SIGUIENTE , PULSE SIGUIENTE. PASO 12.- SE INICIARA LA INSTALACION, PULSE AL FINAL CERRAR. PASO 13.- BUSQUE EN LA RUTA DONDE SE INSTALO EL PROYECTO EL ARCHIVO SETUP1.EXE Y EJECUTELO.
