Mis vacaciones (Por Joni M.)

Mejor momento: el campamento.
Peor momento: cuando me rompí la mano el primer día del campamento.
El momento más divertido: ir a ver Los Simpsons con mis amigos.
El momento más aburrido: Tener que quedarme mirando mientras todos jugaban al fútbol en el campamento.
Lo que nunca había hecho antes: Manejar
Lo que siempre hago: Ir al cine.

Avances clase 20/7 (Por Joni M.)

Private Sub canalmas_Click()

If tvcatv.Caption = "tv" Then

If Val(numcanal.Caption) <>

numcanal.Caption = Val(numcanal.Caption) + "1"

Else

numcanal.Caption = "1"

End If

End If

If tvcatv.Caption = "catv" Then

If Val(numcanal.Caption) <>

numcanal.Caption = Val(numcanal.Caption) + "1"

Else

numcanal.Caption = "1"

End If

End If

End Sub

Canal menos se programa igual pero en vez de bajar a 1 sube a 13 o a 125 respectivamente.

Private Sub offon_Click()

If onoff.BackColor = vbRed Then

onoff.BackColor = vbBlack

Else

onoff.BackColor = vbRed

End If

End Sub

Private Sub catvtv_Click()

If tvcatv.Caption = "tv" Then

tvcatv.Caption = "catv"

Else

tvcatv.Caption = "tv"

End If

End Sub

Private Sub brillomas_Click()

pantalla.Top = pantalla.Top - 100

onoff.Top = onoff.Top - 100

numcanal.Top = numcanal.Top - 100

tvcatv.Top = tvcatv.Top - 100

Shape2.Top = Shape2.Top - 100

End Sub

Brillo menos, volumen menos, volumen más, contraste más y contraste menos están programados de la misma forma.

Avances de Visual nº2 (Por Joni M.)

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

Todos los numeros se programan igual

Private Sub Enter_Click()
numcanal.Caption = auxcanal.Caption auxcanal.Caption = ""
End Sub