2do Codigo de Visual Basic TV (Por Abi)

Private Sub CATV_Click()
TVCATV.Caption = "CATV"
End Sub

Private Sub cero_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub cinco_Click()
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub ENTER_Click()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub MAS_Click()
If TVCATV.Caption = "TV" Then
If NroCANAL.Caption < 13 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 0
End If
Else
If NroCANAL.Caption < 130 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 0
End If
End If
End Sub

Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub

Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub

Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption < 1 Then
If TVCATV.Caption = "TV" Then
NroCANAL.Caption = 13
Else
NroCANAL.Caption = NroCANAL.Caption - 1
End If
If NroCANAL.Caption < 1 Then
If TVCATV.Caption = "CATV" Then
NroCANAL.Caption = 120
End If
End Sub

Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.Left - 100
End Sub

Private Sub nueve_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub

Private Sub ocho_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub

Private Sub OFF_Click()
NroCANAL.Caption = ""
TVCATV.Caption = ""
auxiliar.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub

Private Sub ON_Click()
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End Sub

Private Sub onoff_Click()
If uno.Enabled = True Then
NroCANAL.Caption = ""
TVCATV.Caption = ""
auxiliar.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
Else
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End If
End Sub

Private Sub seis_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub siete_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub tres_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
TVCATV.Caption = "TV"
End Sub

Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Codigos de Visual Basic, TV (Por Javier y Abi)

Private Sub cero_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub cinco_Click()
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub ENTER_Click()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub MAS_Click()
If NroCANAL.Caption > 120 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 1
End If
End Sub

Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub

Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub

Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption > 1 Then
NroCANAL.Caption = NroCANAL.Caption - 1
Else
NroCANAL.Caption = 120
End If
End Sub

Private Sub MENOS2_Click()
tvv.Top = tvv.Top - 100
End Sub

Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.Left - 100
End Sub

Private Sub nueve_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub

Private Sub ocho_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub

Private Sub OFF_Click()
NroCANAL.Caption = ""
TVCATV.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub

Private Sub ON_Click()
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End Sub

Private Sub seis_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub siete_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub tres_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Codigo del Visual Basic (Por Kevin H.)

Private Sub Apagar_Click()
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
Televisión.Left 240
End Sub


Private Sub Brillomas_Click()
Televisión.Left = Televisión.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
Base.Left = Base.Left + 100
Ncanal.Left = Ncanal.Left + 100
Nrocanal.Left = Nrocanal.Left + 100
onoff.Left = onoff.Left + 100
TVcanal.Left = TVcanal.Left + 100
Kevson.Left = Kevson.Left + 100
End Sub

Private Sub Brillomenos_Click()
Televisión.Left = Televisión.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Base.Left = Base.Left - 100
Ncanal.Left = Ncanal.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
onoff.Left = onoff.Left - 100
TVcanal.Left = TVcanal.Left - 100
Kevson.Left = Kevson.Left - 100
End Sub

Private Sub Canalmas_Click()
If Ncanal.Caption < 100 Then
Ncanal.Caption = Ncanal.Caption + 1
Else: Ncanal.Caption = 1
End If
End Sub

Private Sub Canalmenos_Click()
If Ncanal.Caption > 1 Then
Ncanal.Caption = Ncanal.Caption - 1
Else: Ncanal.Caption = 100
End If
End Sub

Private Sub CATV_Click()
TVcanal.Caption = "CATV Canal"
End Sub

Private Sub cero_Click()
Auxiliar.Caption = Auxiliar.Caption + "0"
End Sub

Private Sub cinco_Click()

Auxiliar.Caption = Auxiliar.Caption + "5"

End Sub

Private Sub cuatro_Click()

Auxiliar.Caption = Auxiliar.Caption + "4"


End Sub

Private Sub dos_Click()

Auxiliar.Caption = Auxiliar.Caption + "2"

End Sub

Private Sub Encender_Click()
Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
End Sub

Private Sub Enter_Click()
Ncanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Nrocanal.Caption = "Numero de Canal:"
End Sub

Private Sub nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub

Private Sub ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub

Private Sub offon_Click()
If uno.Enabled = True Then
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
TVCATV.Enabled = False
Else: Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
TVCATV.Enabled = True
End If
End Sub

Private Sub seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub

Private Sub siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub

Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
TVcanal.Caption = "TV Canal"
End Sub

Private Sub TVCATV_Click()
If TVcanal.Caption = "TV Canal" Then
TVcanal.Caption = "CATV Canal"
Else: TVcanal.Caption = "TV Canal"
End If
End Sub

Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Private Sub Volmas_Click()
Televisión.Top = Televisión.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Base.Top = Base.Top + 100
Ncanal.Top = Ncanal.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
onoff.Top = onoff.Top + 100
TVcanal.Top = TVcanal.Top + 100
Kevson.Top = Kevson.Top + 100
End Sub

Private Sub Volmenos_Click()
Televisión.Top = Televisión.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
Base.Top = Base.Top - 100
Ncanal.Top = Ncanal.Top - 100
Nrocanal.Top = Nrocanal.Top - 100
onoff.Top = onoff.Top - 100
TVcanal.Top = TVcanal.Top - 100
Kevson.Top = Kevson.Top - 100
End Sub

Captura de Visual Basic (por Leandro y Lucas)

Visual basic, (por Teo)

Trabajo del Visual Basic (Por Javier)

Visual Basic (Por Vicky)

Este es el control remoto de mi Visual Basic.

Visual Basic (Por Denu)

Asi quedo nuestro proyecto.

Visual Basic captura de pantalla (por Bruno)

Avance de la clase del 22/11(Por Jazmín)

En esta clase no trabajé con visual basic ya que como había terminado todo un ascensor no me quería complicar con otro para equivocarme y que el otro no funcione.Por eso es que decidí trabajar con la 9°semana del blog.

Avance en clase 22/11 por Guillermo Mosse

En esta clase hice algo que Guille me indicó: hacer un label en el que aparezca el piso más llamado y usar un contador general para cada ascensor. Ya tengo todo hecho.

Avance de la clase 22/11/07 , por Emilia Esper

Yo y mi compañera Denise, ya terminamos de diseñar y programar todo lo pedio para los dos ascensores, exepto por la consigna de que al llamar los ascensores se acerque el que mas cerca este.

Avance de la clase 22/11 por Juan Ignacio

En la clase terminamos de programar todos los botones menos programar que de los 2 asensores llegue primero a determinado piso el q esta mas cerca.

Avance en ascensor (fuera de clase) por Guillermo Mosse

Aunque no avancé en clase, terminé el ascensor, corrigiendo todos los errores.
Además, programé (no sé si se debía hacer) que en los contadores de cada piso se cuente si el ascensor no estaba ahí previamente (si llaman del 4 y un ascensor se encontraba previamente allí, no se modificaba ningún contador, ni el general ni el del piso correspondiente). Hay dos asensores, va el que esté más cerca, y modifiqué la clave del piso 4 (antes en el textbox decía "Ingrese clave aquí" y cuando clickeabas se borraba y escribías en ****. Ahora está en otro label).

Avance de la clase del 15/11(Por Jazmín)

En esta clase llegué a programar el contador general en su totalidad.Con esta modificación logré terminar un solo ascensor del proyecto.

Avance de la clase 15/11/07, por Emilia Esper

Con mi compañera Denise ya terminamos de diseñar y programar todo lo pedido para los dos ascensores, exepto por:
Que el que este mas cerca, de los ascensores, del piso llamado vaya.

Avance de la clase del 15/11 por Guillermo Mosse

Hoy 15/11 corregí algunas cosas de que el ascensor que esté más cerca vaya al piso. Lo único que me falta es que se vea la animación del ascensor y el piso 4, que en la programación me falta o sobra un "if".

Avance de la clase 15/11, (por Juan Ignacio)

En la clase corregi la mayoria de los botones por que tenian algunos errores.
Tambien diseñe el segundo asensor que no lo habia empesado a hacer.
Y programe el boton "parar" que me faltaba.

Avance de la clase del 8 del 11(por Brian)

Hasta ahora lo ultimo que hice fue el label que cuenta todos los pisos no importa si saltea alguno, pero todavia tiene algunas fallas y lo tengo que mejorar.

Avance de la clase del 8/11(Por Jazmín)

En esta clase programé y diseñé solamente el contador de pisos(el que cunta todos los pisos).Tuve unos inconvenientes con las sumas pero lo arreglaré la próxima clase.