Pantalla y control (por Lau)

Private Sub anterior_Click()
NUMEROCANAL.Caption = ayudaanterior.Caption
End Sub

Private Sub ayudaanterior2_Click()

End Sub

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


Private Sub catvtv_Click()
If TVCATV.Caption = "TV" Then
TVCATV.Caption = "CATV"
Else
TVCATV.Caption = "TV"
End If
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()
If auxiliar.Caption < 120 Then
NUMEROCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""

Else
auxiliar.Caption = ""
End If
ayudaanterior.Caption = NUMEROCANAL.Caption
End Sub

Private Sub masbrillo_Click()
Pantalla.Top = Pantalla.Top + 100
End Sub

Private Sub mascanal_Click()
If TVCATV.Caption = "CATV" Then
If NUMEROCANAL.Caption < 120 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption + 1
Else
NUMEROCANAL.Caption = 0
End If
Else
If NUMEROCANAL.Caption < 13 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption + 1
Else
NUMEROCANAL.Caption = 0
End If
End If
End Sub

Private Sub masvolumen_Click()
Pantalla.Left = Pantalla.Left + 100
End Sub

Private Sub menosbrillo_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub

Private Sub menoscanal_Click()
If TVCATV.Caption = "CATV" Then
If NUMEROCANAL.Caption > 0 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption - 1
Else
NUMEROCANAL.Caption = 120
End If
Else
If NUMEROCANAL.Caption > 0 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption - 1
Else
NUMEROCANAL.Caption = 13
End If
End If
End Sub

Private Sub menosvolumen_Click()
Pantalla.Left = Pantalla.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()
auxiliar.Caption = ""
NUMEROCANAL.Caption = ""
TVCATV.Caption = ""
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
TV.Enabled = False
CATV.Enabled = False
End Sub

Private Sub offon_Click()
If ONOFF.BackColor = vbRed Then
ONOFF.BackColor = vbBlack
auxiliar.Caption = ""
TVCATV.Caption = ""
NUMEROCANAL.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
mascanal.Enabled = False
menoscanal.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
catvtv.Enabled = False
ENTER.Enabled = False
anterior.Enabled = False
Else
ONOFF.BackColor = vbRed
auxiliar.Caption = ""
TVCATV.Caption = "TV"
NUMEROCANAL.Caption = "0"
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
mascanal.Enabled = True
menoscanal.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.Enabled = True
catvtv.Enabled = True
ENTER.Enabled = True
anterior.Enabled = True
End If


End Sub

Private Sub ON_Click()
NUMEROCANAL.Caption = "0"
TVCATV.Caption = "TV"
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 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

Pantalla y control (por Lau)

Private Sub CATV_Click()
TVCATV.Caption = "CATV"
End Sub
Private Sub catvtv_Click()
If TVCATV.Caption = "TV" Then
TVCATV.Caption = "CATV"
Else
TVCATV.Caption = "TV"
End If
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()
If auxiliar.Caption < 120 Then

NUMEROCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub
Private Sub masbrillo_Click()
Pantalla.Top = Pantalla.Top + 100
End Sub
Private Sub mascanal_Click()
If TVCATV.Caption = "CATV" Then
If NUMEROCANAL.Caption < 120 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption + 1
Else
NUMEROCANAL.Caption = 0
End If
Else
If NUMEROCANAL.Caption < 13 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption + 1
Else
NUMEROCANAL.Caption = 0
End If
End If
End Sub
Private Sub masvolumen_Click()
Pantalla.Left = Pantalla.Left + 100
End Sub
Private Sub menosbrillo_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub
Private Sub menoscanal_Click()
If TVCATV.Caption = "CATV" Then
If NUMEROCANAL.Caption > 0 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption - 1
Else
NUMEROCANAL.Caption = 120
End If
Else
If NUMEROCANAL.Caption > 0 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption - 1
Else
NUMEROCANAL.Caption = 13
End If
End If
End Sub
Private Sub menosvolumen_Click()
Pantalla.Left = Pantalla.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()
auxiliar.Caption = ""
NUMEROCANAL.Caption = ""
TVCATV.Caption = ""
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
TV.Enabled = False
CATV.Enabled = False
End Sub
Private Sub offon_Click()
If ONOFF.BackColor = vbRed Then
ONOFF.BackColor = vbBlack
auxiliar.Caption = ""
TVCATV.Caption = ""
NUMEROCANAL.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
mascanal.Enabled = False
menoscanal.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
catvtv.Enabled = False
ENTER.Enabled = False
Else
ONOFF.BackColor = vbRed
auxiliar.Caption = ""
TVCATV.Caption = "TV"
NUMEROCANAL.Caption = "0"
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
mascanal.Enabled = True
menoscanal.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.Enabled = True
catvtv.Enabled = True
ENTER.Enabled = True
End If

End Sub
Private Sub ON_Click()
NUMEROCANAL.Caption = "0"
TVCATV.Caption = "TV"
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 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

Pantalla y control (Por Dani B.)

Private Sub d_Click()

End Sub

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 Label1_Click()

End Sub

Private Sub enter_Click()

nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""

End Sub

Private Sub masbrillo_Click()

pantalla.Top = pantalla.Top - 100

End Sub

Private Sub mascanal_Click()

If nrocanal.Caption < 120
Then nrocanal.Caption = nrocanal.Caption + 1 Else nrocanal.Caption = 0
End If

End Sub

Private Sub masvolumen_Click()

pantalla.Left = pantalla.Left - 100

End Sub

Private Sub menosbrillo_Click()

pantalla.Top = pantalla.Top + 100

End Sub

Private Sub menoscanal_Click()

If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 120
End If

End Sub

Private Sub menosvolumen_Click()

pantalla.Left = pantalla.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 = ""
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
tv.Enabled = False
catv.Enabled = False
auxiliar.Caption = ""

End Sub

Private Sub on_Click()

nrocanal.Caption = "0"
Tvcatv.Caption = "TV"
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
tv.Enabled = True
catv.Enabled = True
auxiliar.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 tv_Click()

Tvcatv.Caption = "TV"

End Sub

Private Sub uno_Click()

auxiliar.Caption = auxiliar.Caption + "1"

End Sub

Pantalla y control (por Lau)

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()NUMEROCANAL.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub masbrillo_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub mascanal_Click()If NUMEROCANAL.Caption < 129 ThenNUMEROCANAL.Caption = NUMEROCANAL.Caption + 1ElseNUMEROCANAL.Caption = 0End IfEnd Sub
Private Sub masvolumen_Click()Pantalla.Left = Pantalla.Left + 100End Sub
Private Sub menosbrillo_Click()Pantalla.Top = Pantalla.Top - 100End Sub
Private Sub menoscanal_Click()If NUMEROCANAL.Caption > 0 ThenNUMEROCANAL.Caption = NUMEROCANAL.Caption - 1ElseNUMEROCANAL.Caption = 129End IfEnd Sub
Private Sub menosvolumen_Click()Pantalla.Left = Pantalla.Left - 100End 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()auxiliar.Caption = ""NUMEROCANAL.Caption = ""TVCATV.Caption = ""ONOFF.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = FalseTV.Enabled = FalseCATV.Enabled = FalseEnd Sub
Private Sub ON_Click()NUMEROCANAL.Caption = "0"TVCATV.Caption = "TV"ONOFF.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueTV.Enabled = TrueCATV.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 TV_Click()TVCATV.Caption = "TV"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub