Apunte - (Por Sol y Gasti)

Sub Offon_Click

If Onoff.Backcolor = VbRed Then
Onoff.Backcolor = VbBlack
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

Else
Onoff.Backcolor = VbRed
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

End If

End Sub


Sub Canalmas_Click
If Val (Nrocanal.Caption) < 13 Then
Nrocanal.Caption = Val (Nrocanal.Caption) + 1

Else
Nrocanal.Caption = 1

End If

End Sub


Sub Catvtv_Click
If Tvcatv.Caption = "TV" Then
Tvcatv.Caption = "CATV"

Else
Tvcatv.Caption = "TV"

End If

End Sub

Apunte - (Por Sol y Gasti)

Sub Uno_Click
Auxcanal.Caption = Auxcanal.Caption + "1"
End Sub

Sub Enter_Click
Canal.Caption = Auxcanal.Caption
Auxcanal.Caption = " "
End Sub

Sub Canalmas_Click
Canal.Caption = Val (Canal.Caption) + 1
End Sub

Apunte - (Por Sol y Gasti)

Sub Botonon_Click
Onoff.BackColor = vbRed
End Sub

Sub Botonoff_Click
Onoff.BackColor = vbBlack
End Sub

Sub Botontv_Click
Tvcatv.Caption = "TV"
End Sub

Sub Botoncatv_Click
Tvcatv.Caption = "CATV"
End Sub

Sub Brillomas_Click
Pantalla.Top = Pantalla.Top - 100
Bajopantalla.Top = Bajopantalla.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
Onoff.Top = Onoff.Top - 100
Canal.Top = Canal.Top - 100
End Sub

Sub Brillomenos_Click
Pantalla.Top = Pantalla.Top + 100
Bajopantalla.Top = Bajopantalla.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
Onoff.Top = Onoff.Top + 100
Canal.Top = Canal.Top + 100
End Sub

Sub Contrastemas_Click
Pantalla.Left = Pantalla.Left + 100
Bajopantalla.Left = Bajopantalla.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
Onoff.Left = Onoff.Left + 100
Canal.Left = Canal.Left + 100
End Sub

Sub Contrastemenos_Click
Pantalla.Left = Pantalla.Left - 100
Bajopantalla.Left = Bajopantalla.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
Onoff.Left = Onoff.Left - 100
Canal.Left = Canal.Left - 100
End Sub

Sub Volumenmas_Click
Pantalla.Width = Pantalla.Width + 100
Bajopantalla.Width = Bajopantalla.Width + 100
End Sub

Sub Volumenmenos_Click
Pantalla.Width = Pantalla.Width - 100
Bajopantalla.Width = Bajopantalla.Width - 100
End Sub