Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim orden As New OleDbCommand
Dim coneccion As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Database2.mbd”)
Dim q As String = “SELECT existencias FROM producto WHERE codigo = ” & TextBox1.Text
Dim stock As Integer
orden = New OleDbCommand(q, coneccion)
orden.Connection.Open()
stock = orden.ExecuteScalar()
orden.Connection.Close()
If stock – Val(TextBox2.Text) < 0 Then
MessageBox.Show(“Stock insuficiente”)
Else
Dim stock2 As Integer = stock – Val(TextBox2.Text)
q = “UODATE producto SET stock = ” + stock2 + ” WHERE codigo = @codigo”
orden.Parameters.Add(New OleDbParameter(“@codigo”, OleDbType.Integer))
orden.Parameters(“@codigo”).Value = TextBox2.Text
orden = New OleDbCommand(q, coneccion)
orden.Connection.Open()
orden.ExecuteNonQuery()
orden.Connection.Close()
End If
End Sub
Tuve un par de consultas respecto al siguiente ejercicio.
Una empresa nueva de taxis en Viña del Mar pretende seleccionar el modelo de autos que utilizará. La idea es evaluar los cuatro modelos que proponen cada una de las marcas Chevrolet y Samsung.
La evaluación consiste en aplicar a cada uno de los modelos Tres pruebas: Seguridad, Confort y Velocidad, Cada modelo obtiene una nota de 1 a 10. Además, se cuenta con una tabla de ponderaciones, la cual informa la importancia que cada prueba tiene.
Para tomar la decisión, se le pide completar los siguientes ítems:
Ítem 1. Primero, se desea saber el modelo con el mejor promedio en las tres pruebas por marca. Es decir, informar cuál fue el modelo que obtuvo la mejor nota promedio por cada marca. Ejemplo: El modelo con la mejor nota de la marca Chevrolet fue: xyz con una nota de xx. El modelo con la mejor nota de la marca Samsung fue: abc con una nota de yy. Recuerde las ponderaciones para cada prueba.
Ítem 2. Luego se desea saber la marca que obtuvo el mejor promedio, tomando en cuenta todos sus modelos.
Chevrolet
Modelo Seguridad Confort Velocidad
1 6 7 7
2 6 5 6
3 10 6 6
4 5 5 5
Samsung
Modelo Seguridad Confort Velocidad
1 6 6 6
2 7 8 6
3 6 9 10
4 6 6 6
Ponderaciones:
Seguridad: 40%
Confort: 40%
Velocidad. 20%
Requerimientos:
Debe permitir que el usuario ingrese los datos. Con console.readline()
No debe llenar los arreglos de forma manual. Debe hacerlo con ciclos.
Debe usar Select Case para el menú y un sub programa para cada uno de los dos ítems solicitados.
Leer más…
No se me había ocurrido antes, así que lo hago ahora. Estoy pasando el mismo ejercicio el día jueves, para la sección 4, y el día viernes, para la sección 2. Por lo mismo, les dejo aquí el archivo de texto .TXT que contiene el código de las líneas de auto, las pruebas y leseras (extraído de la clase del 301009, que está más completa que la del 2910).
Código fuente
Además, les aviso que hoy voy a dejar dos problemas de VB .NET para que resuelvan, y probablemente otro el lunes.
En un siguiente post el día de hoy, lo que sucederá con las asistencias, los controles y las ayudantías + ejercicios desafío.
Gente. Para los que les interese la programación (o para los que tienen problemas al instalar Visual Basic 2008 Express), están disponibles para descargas las Beta 2 de Visual Studio 2010. ¿Qué significa esto? Que la última versión de Visual Basic, Visual C#, Visual C++ y Visual Web Developer están ahí, para nosotros.
Para Visual Basic 2010 Express Beta 2, ir aquí.
Para Visual Studio 2010 Ultimate Beta 2, ir acá.
Sólo porque lo encontré increíble, una foto del IDE de VB2010Express.
En este post, hablemos un poco de las clases, y la POO (programación orientada a objetos), que es una de las materias difíciles de comprender en el ramo.
Leer más…
Jóvenes:
Es de mi consideración comentarles que esta semana NO se realizará el control previsto, a petición del profesor, tanto en TI1 como en TI2 (ambas secciones). Es por esto que procedo a entregarles los documentos que estudiamos esta semana.
Para TI1S4, el archivo Excel está en dos versiones: Formato Excel 2003 y Formato Excel 2007 habilitado para macros.
Para TI2S2, el módulo estudiado está en formato PDF, y se encuentra aquí.
Para TI2S4, el módulo estudiado está también en formato PDF, en este link.
Junto con lo anterior, es mi interés que repasen los conceptos estudiados hasta ahora, puesto que el control incluirá toda la materia vista hasta el momento.
Tecnologías de la Información 1
El control de la semana siguiente (viernes 9 de octubre) será para evaluar la materia de Inventario en VBA/XLS. Se permitirá ingresar código fuente.
Para preparar el control, esta clase será para responder dudas con respecto a la materia. Con este fin, les propongo dos ejercicios: ver aquí.
Tecnologías de la Información 2
El control de la semana del 5 de octubre (8 de octubre sección 4 y 9 de octubre sección 2) será de Consola en Visual Basic .NET. Entrará todo lo visto hasta esta semana en materia de consola. Para ello, les propongo unos ejercicios, y adjunto guía de código que el profesor me envió: revisar la guía de ejercicios y el código fuente.
Estudien. Para cualquier duda, en la sección de Contacto está mi información.
