jueves, 10 de abril de 2008

Cursos de la carrera de computación

Siguiendo con nuestro aprendizaje sobre el condicional SELECT CASE, les pongo un nuevo ejercicio. Se trata de un mostrador de cursos, según el Ciclo que hayan escogido. El diagrama representa el formulario.

Llenamos el comboBox cbociclo con el total de ciclos en la propiedad items.add(); y para mostrar la lista de los cursos utilizo el control ListBox lsbcurso, y para llenarlo tambien uso la propiedad items.add()





El código sería algo así:

Public Class ListaCursos

Private Sub ListaCursos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cbociclo.Items.Add("Primer Ciclo")
cbociclo.Items.Add("Segundo Ciclo")
cbociclo.Items.Add("Tercer Ciclo")
cbociclo.Items.Add("Cuarto Ciclo")
cbociclo.Items.Add("Quinto Ciclo")
cbociclo.Items.Add("Sexto Ciclo")
End Sub

Private Sub cbociclo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbociclo.SelectedIndexChanged
Select Case cbociclo.SelectedIndex
Case 0
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Matemática I")
lsbcurso.Items.Add("Ingles")
lsbcurso.Items.Add("Redacción Técnica")
lsbcurso.Items.Add("Office 2007")
Case 1
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Matematica II")
lsbcurso.Items.Add("Diseño de Base de datos")
lsbcurso.Items.Add("Algoritmos")
lsbcurso.Items.Add("Program. orientada a objetos")
Case 2
lsbcurso.Items.Clear()
lsbcurso.Items.Add("SGBD")
lsbcurso.Items.Add("Visual Basic.Net 2005")
lsbcurso.Items.Add("Estadistica")
lsbcurso.Items.Add("Macromedia FLASH")
lsbcurso.Items.Add("Administración")
Case 3
lsbcurso.Items.Clear()
lsbcurso.Items.Add("C#")
lsbcurso.Items.Add("Contabilidad y Costos")
lsbcurso.Items.Add("Macromedia Dreanweaver")
lsbcurso.Items.Add("Diseño gráfico")
Case 4
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Sistemas Operativos")
lsbcurso.Items.Add("Redes")
lsbcurso.Items.Add("php y Mysql")
lsbcurso.Items.Add("Marketing")
Case 5
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Aspnet")
lsbcurso.Items.Add("Desarrollo de Proyecto")
lsbcurso.Items.Add("Implementacion de redes")
lsbcurso.Items.Add("Ing. de Software")
End Select
End Sub
End Class

No hay comentarios: