apuntes del 8/11

¿Qué estuvo bueno y qué faltó?


1- Nombrar tres contenidos o actividades que me sorprendió haber aprendido este año. ¿Por qué?
2- Nombrar tres contenidos o actividades que me sorprendió haber aprendido este año en tic. ¿Por qué?
4- Nombrar dos contenidos o actividades que me hubiese gustado tener este año . ¿Por qué?
3- Nombrar dos contenidos o actividades que me hubiese gustado tener este año en tic. ¿Por qué?

avance de la clase 20/9

con mi compañera veronica prgramamos
- mas- menos- por- dividir- todos los numeros: 1,2,3, 4, 5, 6, 7, 8, 9, 0- MR( boton borrar)- of-on-onoff- igual.

avance por daiana

con mi compañera veronica,
llegamos a diseñar,
la calculadora con la programacion de:
- mas
- menos
- por
- dividir
- todos los numeros: 1,2,3, 4, 5, 6, 7, 8, 9, 0
- MR( boton borrar)
- of
-on
-onoff.

mapa.

apuntes.

Private Sub botanterior_Click()
auxcanal.Caption = canalant.Caption
canalant.Caption = numerocanal.Caption
numerocanal.capion = auxcanal.Caption
auxcanal.Caption = ""End Sub
Private Sub botanterior_Click()auxcanal.Caption = canalant.Captioncanalant.Caption = numerocanal.Captionnumerocanal.capion = auxcanal.Captionauxcanal.Caption = ""End Sub
Private Sub brillomas_Click()pantalla.Top = pantalla.Top - 100tvcatv.Top = tvcatv.Top - 100onoff.Top = onoff.Top - 100nrocanal.Top = nrocanal.Top - 100 End Sub
Private Sub brillomenos_Click()pantalla.Top = pantalla.Top + 100tvcatv.Top = tvcatv.Top + 100onoff.Top = onoff.Top + 100nrocanal.Top = nrocanal.Top + 100End Sub
Private Sub canalmas_Click()If tvcatv.Caption = "tv" ThenIf nrocanal.Caption < "13" Thennrocanal.Caption = Val(nrocanal.Caption) + 1Elsenrocanal.Caption = "1"End IfElseIf nrocanal.Caption > "121" Thennrocanal.Caption = Val(nrocanal.Caption) + 1End IfEnd IfEnd Sub
Private Sub canalmenos_Click()If nrocanal.Caption = "1" Thennrocanal.Caption = "13"nrocanal.Caption = 12Elsenrocanal.Caption = nrocanal.Caption - 1End IfIf tvcatv.Caption = "tv" ThenIf nrocanal.Caption = 13 Thennrocanal.Caption = nrocanal.Caption - 1Elsenrocanal.Caption = "1"End IfElseIf nrocanal.Caption > "1" Thennrocanal.Caption = Val(nrocanal.Caption) - 1End IfEnd IfEnd Sub
Private Sub cero_Click()auxcanal.Caption = auxcanal.Caption + "0"End Sub
Private Sub cinco_Click()auxcanal.Caption = auxcanal.Caption + "5"End Sub
Private Sub contrastemas_Click()pantalla.Left = pantalla.Left + 100tvcatv.Left = tvcatv.Left + 100onoff.Left = onoff.Left + 100nrocanal.Left = nrocanal.Left + 100End Sub
Private Sub contrastemenos_Click()pantalla.Left = pantalla.Left - 100tvcatv.Left = tvcatv.Left - 100onoff.Left = onoff.Left - 100nrocanal.Left = nrocanal.Left - 100End Sub
Private Sub cuatro_Click()auxcanal.Caption = auxcanal.Caption + "4"End Sub
Private Sub dos_Click()auxcanal.Caption = auxcanal.Caption + "2"End Sub
Private Sub enter_Click()If tvcatv.Caption = "tv" ThenIf auxcanal.Caption < 13 Thennrocanal.Caption = auxcanal.Captionauxcanal.Caption = ""Elseauxcanal.Caption = ""End IfElseIf auxcanal.Caption < 120 Thennrocanal.Caption = auxcanal.Captionauxcanal.Caption = ""Elseauxcanal.Caption = ""End IfEnd IfEnd Sub
Private Sub nueve_Click()auxcanal.Caption = auxcanal.Caption + "9"End Sub
Private Sub ocho_Click()auxcanal.Caption = auxcanal.Caption + "8"End Sub
Private Sub seis_Click()auxcanal.Caption = auxcanal.Caption + "6"End Sub
Private Sub siete_Click()auxcanal.Caption = auxcanal.Caption + "7"End Sub
Private Sub tres_Click()auxcanal.Caption = auxcanal.Caption + "3"End Sub
Private Sub tv_Click()If tvcatv.Caption = "tv" Thentvcatv.Caption = "catv"Elsetvcatv.Caption = "tv"End IfEnd Sub
Private Sub tvcatc_Click()If tvcatv.Caption = "tv" Thentvcatv.Caption = "catv"Else: tvcatv.Caption = "tv"End IfEnd Sub
Private Sub tvoff_Click()onoff.BackColor = vbBlackEnd Sub
Private Sub tvon_Click()onoff.BackColor = vbRedEnd Sub
Private Sub tvonoff_Click()If tvonoff.BackColor = vbRed Then tvonoff.BackColor = vbBlack canalmas.Enabled = False canalmenos.Enabled = False brillomas.Enabled = False brillomenos.Enabled = False contrastemas.Enabled = False contrastemenos.Enabled = False tvcatv.Enabled = False volumenmas.Enabled = False volumenmenos.Enabled = False cero.Enabled = False 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 enter.Enabled = FalseElse tvonoff.BackColor = vbRed canalmas.Enabled = True canalmenos.Enabled = True brillomas.Enabled = True brillomenos.Enabled = True contrastemas.Enabled = True contrastemenos.Enabled = True tvcatv.Enabled = True volumenmas.Enabled = True volumenmenos.Enabled = True cero.Enabled = True 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 enter.Enabled = True End If End Sub Private Sub uno_Click()auxcanal.Caption = auxcanal.Caption + "1"End Sub
Private Sub volumenmas_Click()pantalla.Width = pantalla.Width + 100tvcatv.Width = tvcatv.Width + 100onoff.Width = onoff.Width + 100nrocanal.Width = nrocanal.Width + 100End Sub
Private Sub volumenmenos_Click()pantalla.Width = pantalla.Width - 100tvcatv.Width = tvcatv.Width - 100onoff.Width = onoff.Width - 100nrocanal.Width = nrocanal.Width - 100End Sub

tarea de vacaciones:

canal mas.click
if tvcatv.caption= "tv" then
if nrocanal.caption < caption=" val(" caption=" 1" caption=" val(" size="+0">al ant

1- mover lo escrito en aux canal a nrocanal con enter.
2- mover lo escrito anteriormente en nrocanal a canal ant.
3- borrar lo escrito anteriormente en nrocanal.


entonces:

enter.click
canal ant.caption= nrocanal.caption
nrocanal.caption=canal aux
canal aux.caption= ""
end sub

Sub anterior.click
canal aux.caption= canal ant.caption
canal ant.caption= nro canal.caption