http://cid-47a3aa7d1178372e.skydrive.live.com/self.aspx/TI/2009-2/TI1/Ejecicio1GE1.txt
http://cid-47a3aa7d1178372e.skydrive.live.com/self.aspx/TI/2009-2/TI1/Ejercicio2GE1.mdb
http://cid-47a3aa7d1178372e.skydrive.live.com/self.aspx/TI/2009-2/TI1/Ejercicio1G2.mdb
http://cid-47a3aa7d1178372e.skydrive.live.com/self.aspx/TI/2009-2/TI1/Ejercicio2GE1.txt

Éxito mañana a todos.

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

Tecnologías de la Información 1 Sección 4

Tecnologías de la Información 2 Sección 2

Tecnologías de la Información 2 Sección 4

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.

A continuación, dejo el archivo de texto con el código fuente del archivo que hice yo para este programa. Lo hice con clases, para ahorrar trabajo en las subrutinas. Lo hice con funciones, para ayudar un poco a la aplicabilidad. (Advertencia: El código es largo. Si usted no desea revisar cómo se hace sino sólo probarlo, le recomiendo no proseguir. Código a prueba de cardíacos.)

Código fuente

Revisen y éxito mañana. Salud.

Tengo que pedirles mis más sinceras disculpas por no haber realizado la labor prometida de apoyo para el certamen. No tuve tiempo en todo el fin de semana para preparar siquiera un ejercicio para ayudarlos a ejercitar para el certamen. Además, no tengo disponible el certamen del semestre pasado para que ejerciten de ahí. Siento mucho todas las complicaciones que ello pueda generar, pero esto se verá compensado en el corto plazo.

Por lo demás, para el futuro, voy a liberar los post de ayudantías anteriores (TI1, fundamentalmente), para que puedan buscar allí lo que necesiten: bases de datos, Excel, macros, POO (sí, POO), libros, entre otras cosas.

Saludos.

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.

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.