Codigo de Visual Basic(Por Julian)

Private Sub canalmas_Click()
If NCANAL.Caption < 120 Then NCANAL.Caption = NCANAL.Caption + 1Else NCANAL.Caption = 1End IfEnd Sub
Private Sub canalmenos_Click() If NCANAL.Caption > 1 Then NCANAL.Caption = NCANAL.Caption - 1Else NCANAL.Caption = 120End IfEnd 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 Label1_Click()
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.Captionaux.Caption = ""
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub masbrillo_Click()TV.Left = TV.Left - 100TV.Left = NCANAL.Left - 100TV.Left = tvcanal.Left - 100TV.Left = dubi.Left - 100TV.Left = aux.Left - 100
End Sub
Private Sub masvol_Click()TV.Top = TV.Top - 100End SubPrivate Sub menosbrillo_Click()TV.Left = TV.Left + 100End Sub
Private Sub menosvol_Click()TV.Top = TV.Top + 100End 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 = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = False
End Sub
Private Sub on_Click()TVCATV.Caption = "TV"NCANAL.Caption = "0"dubi.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnd Sub
Private Sub onoff_Click()If uno.Enabled = True Then NCANAL.Caption = ""TVCATV.Caption = ""dubi.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = FalseElse 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 = TrueEnd IfPrivate 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 TVCATV_Click()
End Sub
Private Sub uno_Click()aux.Caption = aux.Caption + "1"End Sub