Televisor

Codigo:
Private Sub Anterior_Click()
nrocanal.Caption = auxiliar2.Caption
auxiliar2.Caption = auxiliar3.Caption
auxiliar2.Caption = nrocanal.Caption
auxiliar3.Caption = auxiliar2.Caption
nrocanal.Caption = auxiliar2.Caption

End Sub

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 Tvcatv.Caption = "TV" Then
If auxiliar.Caption < 13 Then
auxiliar2.Caption = nrocanal.Caption
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
Else
If auxiliar.Caption < 129 Then
auxiliar2.Caption = nrocanal.Caption
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End If
End Sub


Private Sub mascanal_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 < 129 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End If
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
auxiliar.Top = auxiliar.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
onoff.Top = onoff.Top + 100
nrocanal.Top = nrocanal.Top + 100
End Sub

Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left + 100
auxiliar.Left = auxiliar.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
onoff.Left = onoff.Left + 100
nrocanal.Left = nrocanal.Left + 100
End Sub

Private Sub menoscanal_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
nrocanal.Caption = 129
Else
nrocanal.Caption = 13
End If
End If
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
nrocanal.Top = nrocanal.Top - 100
End Sub

Private Sub menosvolumen_Click()
pantalla.Left = pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
nrocanal.Left = nrocanal.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 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
tv.Enabled = False
catv.Enabled = False
catvtv.Enabled = False
auxiliar.Caption = ""
onoff.Enabled = False
masbrillo.Enabled = False
masvolumen.Enabled = False
menoscanal.Enabled = False
menosbrillo.Enabled = False
menosvolumen.Enabled = False
enter.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
tv.Enabled = True
catv.Enabled = True
catvtv.Enabled = True
mascanal.Enabled = True
masbrillo.Enabled = True
masvolumen.Enabled = True
menoscanal.Enabled = True
menosbrillo.Enabled = True
menosvolumen.Enabled = True
enter.Enabled = True
End If

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
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