Codigos de VISUAL BASIC (por nikomaxpower007 y Telma)

Private Sub catcat_Click()
If catv.Caption = "TV" Then
catv.Caption = "CATV"
Else
catv.Caption = "CATV"
catv.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()
Canal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrill_Click()
tele.Top = tele.Top - 100
auxiliar.Top = auxiliar.Top - 100
base.Top = base.Top - 100
rojonegro.Top = rojonegro.Top - 100
catv.Top = catv.Top - 100
Canal.Top = Canal.Top - 100
End Sub

Private Sub mascanal_Click()
If Canal.Caption < 120 Then
Canal.Caption = Canal.Caption + 1
Else
Canal.Caption = 1
End If


End Sub

Private Sub masvol_Click()
tele.Left = tele.Left + 100
auxiliar.Left = auxiliar.Left + 100
base.Left = base.Left + 100
rojonegro.Left = rojonegro.Left + 100
catv.Left = catv.Left + 100
Canal.Left = Canal.Left + 100

End Sub

Private Sub menbrill_Click()
tele.Top = tele.Top + 100
auxiliar.Top = auxiliar.Top + 100
base.Top = base.Top + 100
rojonegro.Top = rojonegro.Top + 100
catv.Top = catv.Top + 100
Canal.Top = Canal.Top + 100
End Sub

Private Sub mencan_Click()
If Canal.Caption > 1 Then
Canal.Caption = Canal.Caption - 1
Else
Canal.Caption = 120
End If
End Sub

Private Sub menosvol_Click()
tele.Left = tele.Left - 100
auxiliar.Left = auxiliar.Left - 100
base.Left = base.Left - 100
rojonegro.Left = rojonegro.Left - 100
catv.Left = catv.Left - 100
Canal.Left = Canal.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()
Canal.Caption = ""
rojonegro.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
auxiliar.BackColor = vbButtonFace
catv.Caption = ""
auxiliar.Caption = ""
laser.BackColor = vbBlack






End Sub

Private Sub offon_Click()
If uno.Enabled = False Then
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
catv.Enabled = True
enter.Enabled = True
catv.Caption = "TV"
rojonegro.BackColor = vbRed
Else
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
enter.Enabled = False
catv.Enabled = False
Canal.Caption = ""
catv.Caption = ""
rojonegro.BackColor = vbBlack
End If
End Sub

Private Sub on_Click()
Canal.Caption = "0"
rojonegro.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
auxiliar.BackColor = vbGreen
laser.BackColor = vbRed











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()
catv.Caption = "Tv"
End Sub

Private Sub tvcat_Click()
catv.Caption = ""
End Sub



Private Sub tvcatv_Click()
if catvtv.caption=
End Sub

Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"

End Sub