Codigo Visual Basic (por Julian)

Private Sub canalmas_Click()

If TVCATV.Caption = "Tv" Then
If NCANAL.Caption > 12 Then
NCANAL.Caption = 1
Else
NCANAL.Caption = NCANAL.Caption + 1
End If
Else

If NCANAL.Caption > 129 Then
NCANAL.Caption = 1
Else
NCANAL.Caption = NCANAL.Caption + 1
End If

End If
End Sub

Private Sub canalmenos_Click()

If NCANAL.Caption < 1 Then
If TVCATV.Caption = "Tv" Then
NCANAL.Caption = 13
Else
NCANAL.Caption = 130
End If
Else
NCANAL.Caption = NCANAL.Caption - 1
End If
End Sub

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

End Sub

Private Sub cero_Click()
aux.Caption = aux.Caption + "0"
End Sub

Private Sub cinco_Click()
aux.Caption = aux.Caption + "5"
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command11_Click()
NCANAL.Caption = "1"

End Sub

Private Sub Command12_Click()
NCANAL.Caption = "2"
End Sub

Private Sub Command13_Click()
NCANAL.Caption = "3"
End Sub

Private Sub Command14_Click()
NCANAL.Caption = "4"
End Sub

Private Sub Command15_Click()
NCANAL.Caption = "5"
End Sub

Private Sub Command16_Click()
NCANAL.Caption = "6"
End Sub

Private Sub Command17_Click()
NCANAL.Caption = "7"
End Sub

Private Sub Command18_Click()
NCANAL.Caption = "8"
End Sub

Private Sub Command19_Click()
NCANAL.Caption = "9"
End Sub

Private Sub Command2_Click()











End Sub

Private Sub Command20_Click()
NCANAL.Caption = "0"
End Sub

Private Sub Command21_Click()

End Sub

Private Sub cuatro_Click()
aux.Caption = aux.Caption + "4"
End Sub

Private Sub dos_Click()
aux.Caption = aux.Caption + "2"
End Sub

Private Sub enter_Click()
NCANAL.Caption = aux.Caption
aux.Caption = ""

End Sub

Private Sub masbrillo_Click()
TV.Left = TV.Left - 100
TV.Left = NCANAL.Left - 100
TV.Left = tvcanal.Left - 100
TV.Left = dubi.Left - 100
TV.Left = aux.Left - 100

End Sub

Private Sub masvol_Click()
TV.Top = TV.Top - 100
End Sub
Private Sub menosbrillo_Click()
TV.Left = TV.Left + 100
End Sub

Private Sub menosvol_Click()
TV.Top = TV.Top + 100
End Sub

Private Sub nueve_Click()
aux.Caption = aux.Caption + "9"
End Sub

Private Sub o_Click()

End Sub

Private Sub ocho_Click()
aux.Caption = aux.Caption + "8"
End Sub

Private Sub off_Click()
NCANAL.Caption = ""
TVCATV.Caption = ""
dubi.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

End Sub

Private Sub on_Click()
TVCATV.Caption = "TV"
NCANAL.Caption = "0"
dubi.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 onoff_Click()
If uno.Enabled = True Then
NCANAL.Caption = ""
TVCATV.Caption = ""
dubi.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
TVCATV.Caption = "TV"
NCANAL.Caption = "0"
dubi.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
Private Sub seis_Click()
aux.Caption = aux.Caption + "6"
End Sub

Private Sub siete_Click()
aux.Caption = aux.Caption + "7"
End Sub

Private Sub tres_Click()
aux.Caption = aux.Caption + "3"
End Sub

Private Sub TV2_Click()
TVCATV.Caption = "TV"
End Sub

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

Private Sub volver_Click()

End Sub