Tareas

Tareas 3/7 - a. Realizar la recopilación de noticias de la semana. b. Tarea para realizar durante la clase del 3/7. Incluyendo 4 objetos (uno de ellos una imagen importada), realizar una animación en Flash de 20 segundos (circular) que incluya: 1. Una deformación 2. Desaparición y reaparición 3. Cambios de colores La imagen importada debe ser un logo conocido (de un equipo, un canal, una marca, etc.) y las animaciones deben resaltar el logo. Publicar el swf en los dos blogs, y en el campus (en la tarea destinada al respecto). Se puede trabajar de a dos, pero la publicación es individual, como siempre. Título: Animación, logo Tags: animación, logo, nombre Fecha de destacado: hasta el 30-7 (Para el campus) Guille
Showing posts with label codigo visual basic. Show all posts
Showing posts with label codigo visual basic. Show all posts

Thursday, September 25, 2008

Codigos de calculadora Visual Basic 1 (por Javier)

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
End Sub

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

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

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

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

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

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "-"
pantalla.Caption = ""
End Sub

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

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

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

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

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

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Posted by at No comments:
Labels: , ,

CALCULADORA DE VISUAL BASIC POR MARCOS

Private Sub BARRA_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "/"
visor.Caption = ""
End Sub

Private Sub borrar_Click()
visor.Caption = ""
End Sub

Private Sub CERO_Click()
visor.Caption = visor.Caption + "0"
End Sub

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

Private Sub COMA_Click()
visor.Caption = visor.Caption + "."
End Sub

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

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

Private Sub IGUAL_Click()
If AUXILIARDOS.Caption = "+" Then
visor.Caption = Val(AUXILIAR.Caption) + Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
If AUXILIARDOS.Caption = "-" Then
visor.Caption = Val(AUXILIAR.Caption) - Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
If AUXILIARDOS.Caption = "*" Then
visor.Caption = Val(AUXILIAR.Caption) * Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
If AUXILIARDOS.Caption = "/" Then
visor.Caption = Val(AUXILIAR.Caption) / Val(visor.Caption)
AUXILIAR.Caption = ""
AUXILIARDOS.Caption = ""
End If
End Sub

Private Sub MAS_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "+"
visor.Caption = ""
End Sub

Private Sub MENOS_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "-"
visor.Caption = ""
End Sub

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

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

Private Sub POR_Click()
AUXILIAR.Caption = visor.Caption
AUXILIARDOS.Caption = "*"
visor.Caption = ""
End Sub

Private Sub seis_Click()
visor.Caption = visor.Caption + "6"
End Sub

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

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

Private Sub uno_Click()
visor.Caption = visor.Caption + "1"
End Sub
Posted by at No comments:
Labels: ,

codigos de calculadora 1 (por Abi)

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
End Sub

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

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

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

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

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

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "-"
pantalla.Caption = ""
End Sub

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

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

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

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

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

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Posted by at No comments:
Labels: , ,

Thursday, September 18, 2008

2do Codigo de Visual Basic (Por Javier)

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 ENTER_Click()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub MAS_Click()
If TVCATV.Caption = "TV" Then
If NroCANAL.Caption < 13 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 0
End If
Else
If NroCANAL.Caption < 130 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 0
End If
End If
End Sub

Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub

Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub

Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption < 1 Then
If TVCATV.Caption = "TV" Then
NroCANAL.Caption = 13
Else
NroCANAL.Caption = NroCANAL.Caption - 1
End If
If NroCANAL.Caption < 1 Then
If TVCATV.Caption = "CATV" Then
NroCANAL.Caption = 120
End If
End Sub

Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.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 = ""
auxiliar.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub

Private Sub ON_Click()
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End Sub

Private Sub onoff_Click()
If uno.Enabled = True Then
NroCANAL.Caption = ""
TVCATV.Caption = ""
auxiliar.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
Else
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End If
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
Posted by at No comments:
Labels: ,

Wednesday, September 10, 2008

Visual Basic, Codigos (Por Denu)

Private Sub brillomas_Click()
TV.Left = TV.Left + 100
End Sub
Private Sub brillomenos_Click()
TV.Left = TV.Left - 100
End Sub
Private Sub canalmas_Click()
If Numerocanal.Caption < 120 Then
Numerocanal.Caption = Numerocanal.Caption + 1
Else
Numerocanal.Caption = 1
End If
End Sub
Private Sub canalmenos_Click()
If Numerocanal.Caption > 1 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
Numerocanal.Caption = 120
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 Label1_Click()
End Sub
Private Sub enter_Click()
Auxiliar.Caption = Auxiliar.Caption
Numerocanal = ""
Numerocanal.Caption = Auxiliar.Caption
Auxiliar = ""
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()
Numerocanal.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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Auxiliar.Caption = ""

End Sub
Private Sub on_Click()
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
End Sub
Private Sub onoff1_Click()
If uno.Enabled = False Then
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
tv1.Enabled = True
tvcatv.Caption = "TV"
onoff.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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
End If

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 sonidomas_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100

End Sub
Private Sub sonidomenos_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub
Private Sub tvcatv1_Click()
End Sub
Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub
Private Sub VScroll1_Change()
End Sub
Posted by at No comments:
Labels: ,

Tuesday, September 09, 2008

Código de Visual Basic (por Bruno y Ezequiel)

Private Sub b0_Click()
tele.Caption = tele.Caption + "0"
End Sub

Private Sub b1_Click()
tele.Caption = tele.Caption + "1"
End Sub

Private Sub b2_Click()
tele.Caption = tele.Caption + "2"
End Sub

Private Sub b3_Click()
tele.Caption = tele.Caption + "3"
End Sub

Private Sub b4_Click()
tele.Caption = tele.Caption + "4"
End Sub

Private Sub b5_Click()
tele.Caption = tele.Caption + "5"
End Sub

Private Sub b6_Click()
tele.Caption = tele.Caption + "6"
End Sub

Private Sub b7_Click()
tele.Caption = tele.Caption + "7"
End Sub

Private Sub b8_Click()
tele.Caption = tele.Caption + "8"
End Sub

Private Sub b9_Click()
tele.Caption = tele.Caption + "9"
End Sub

Private Sub CATV_Click()
tv2.Caption = "CATV"
End Sub

Private Sub enter_Click()
ncanal.Caption = tele.Caption
tele.Caption = ""
End Sub

Private Sub mas1_Click()
If ncanal.Caption < 120 Then
ncanal.Caption = ncanal.Caption + 1
Else
ncanal.Caption = 1
End If
End Sub

Private Sub mas2_Click()
cuadrado1.Top = cuadrado1.Top + 100
tele.Top = tele.Top + 100
End Sub

Private Sub mas3_Click()
cuadrado1.Left = cuadrado1.Left + 100
tele.Left = tele.Left + 100
End Sub

Private Sub menos1_Click()
If ncanal.Caption > 1 Then
ncanal.Caption = ncanal.Caption - 1
Else
ncanal.Caption = 120
End If
End Sub

Private Sub menos2_Click()
cuadrado1.Top = cuadrado1.Top - 100
tele.Top = tele.Top - 100
End Sub

Private Sub menos3_Click()
cuadrado1.Left = cuadrado1.Left - 100
tele.Left = tele.Left - 100
End Sub

Private Sub OFF_Click()
tele.Caption = ""
tv2.Caption = ""
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b6.Enabled = False
b7.Enabled = False
b8.Enabled = False
b9.Enabled = False
b0.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
mas3.Enabled = False
menos1.Enabled = False
menos2.Enabled = False
menos3.Enabled = False
TV.Enabled = False
CATV.Enabled = False
enter.Enabled = False
tvcatv.Enabled = False
etiq.Caption = "OFF"
etiq.BackColor = vbBlack
etiq.ForeColor = vbWhite
tv2.BackColor = vbInactiveBorder
ncanal.BackColor = vbInactiveBorder
ncanal.Caption = ""
End Sub

Private Sub ON_Click()
tele.Caption = "0"
tv2.Caption = "TV"
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b6.Enabled = True
b7.Enabled = True
b8.Enabled = True
b9.Enabled = True
b0.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
mas3.Enabled = True
menos1.Enabled = True
menos2.Enabled = True
menos3.Enabled = True
TV.Enabled = True
CATV.Enabled = True
enter.Enabled = True
tvcatv.Enabled = True
etiq.Caption = "ON"
etiq.BackColor = vbDesktop
ncanal.BackColor = vbDesktop
ncanal.ForeColor = vbWhite
tv2.BackColor = vbDesktop
tv2.ForeColor = vbWhite
ncanal.Caption = ""
End Sub

Private Sub onoff_Click()
If b1.Enabled = True Then
tele.Caption = ""
tv2.Caption = ""
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b6.Enabled = False
b7.Enabled = False
b8.Enabled = False
b9.Enabled = False
b0.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
mas3.Enabled = False
menos1.Enabled = False
menos2.Enabled = False
menos3.Enabled = False
TV.Enabled = False
CATV.Enabled = False
enter.Enabled = False
tvcatv.Enabled = False
etiq.Caption = "OFF"
Else
tele.Caption = "0"
tv2.Caption = "TV"
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b6.Enabled = True
b7.Enabled = True
b8.Enabled = True
b9.Enabled = True
b0.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
mas3.Enabled = True
menos1.Enabled = True
menos2.Enabled = True
menos3.Enabled = True
TV.Enabled = True
CATV.Enabled = True
enter.Enabled = True
tvcatv.Enabled = True
etiq.Caption = "ON"
End If
End Sub

Private Sub TV_Click()
tv2.Caption = "TV"
End Sub

Private Sub tvcatv_Click()
If tv2.Caption = "TV" Then
tv2.Caption = "CATV"
Else
tv2.Caption = "TV"
End If
End Sub
Posted by at No comments:
Labels: ,

Thursday, September 04, 2008

Codigo Visual Basic (Por Vicky y Denu)

Private Sub brillomas_Click()
TV.Left = TV.Left + 100
End Sub
Private Sub brillomenos_Click()
TV.Left = TV.Left - 100
End Sub
Private Sub canalmas_Click()
If Numerocanal.Caption < caption =" Numerocanal.Caption" caption =" 1"> 1 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
Numerocanal.Caption = 120
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 Label1_Click()
End Sub
Private Sub enter_Click()
Auxiliar.Caption = Auxiliar.Caption
Numerocanal = ""
Numerocanal.Caption = Auxiliar.Caption
Auxiliar = ""
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()
Numerocanal.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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Auxiliar.Caption = ""

End Sub
Private Sub on_Click()
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
End Sub
Private Sub onoff1_Click()
If uno.Enabled = False Then
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
tv1.Enabled = True
tvcatv.Caption = "TV"
onoff.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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
End If

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 sonidomas_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100

End Sub
Private Sub sonidomenos_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub
Private Sub tvcatv1_Click()
End Sub
Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub
Private Sub VScroll1_Change()
End Sub
Posted by at No comments:
Labels: ,

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
Posted by at No comments:
Labels: ,
Subscribe to: Posts (Atom)