Visual Basic (Por Sabri)

¡No esta terminado!

Private Sub Boton1_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Private Sub Boton2_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub Brillomas_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub Brillomenos_Click()Pantalla.Top = Pantalla.Top - 100End Sub
Private Sub Canalmas_Click()If TVCATV.Caption = "CATV" ThenIf CANALES.Caption < 129 ThenCANALES.Caption = CANALES.Caption + 1ElseCANALES.Caption = 0End IfElseIf CANALES.Caption = CANALES.Caption + 1
End Sub
Private Sub Canalmenos_Click()If CANALES.Caption > 0 ThenCANALES.Caption = CANALES.Caption - 1ElseCANALES.Caption = 129End IfEnd Sub
Private Sub Offon_Click()If ONOFF.BackColor = vbRed ThenONOFF.BackColor = vbBlackBoton1.Enabled = FalseBoton2.Enabled = FalseBoton3.Enabled = FalseBoton4.Enabled = FalseBoton5.Enabled = FalseBoton6.Enabled = FalseBoton7.Enabled = FalseBoton8.Enabled = FalseBoton9.Enabled = FalseBoton0.Enabled = FalseElseONOFF.BackColor = vbRedBoton1.Enabled = TrueBoton2.Enabled = TrueBoton3.Enabled = TrueBoton4.Enabled = TrueBoton5.Enabled = TrueBoton6.Enabled = TrueBoton7.Enabled = TrueBoton8.Enabled = TrueBoton9.Enabled = TrueBoton0.Enabled = TrueEnd IfEnd Sub
Private Sub Volumenmas_Click()Pantalla.Left = Pantalla.Left + 100End Sub
Private Sub Volumenmenos_Click()Pantalla.Left = Pantalla.Left - 100End Sub
Private Sub ENTER_Click()If auxiliar.Caption < 129 ThenCANALES.Caption = auxiliar.Captionauxiliar.Caption = ""Elseauxiliar.Caption = ""End IfEnd Sub
Private Sub Boton0_Click()Boton0.Caption = "0"End Sub
Private Sub Boton3_Click()auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub Boton4_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub Boton6_Click()auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub Boton7_Click()auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub Boton8_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub Boton9_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub Boton5_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub