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