martes, 31 de julio de 2007

Apunte de la clase 19/7

Te pongo el form. nada mas porque me dijiste que con eso alcanzaba.


El formulario de lo que hize en la clase del 19 de julio fue:

Private Sub canalmas_Click()
If tvcatv.Caption = "tv" Then
If Val(numerodecanal.Caption) > 12 Then
numerodecanal.Caption = 1
Else
numerodecanal.Caption = numerodecanal.Caption + 1
End If
Else
If Val(numerodecanal.Caption) > 120 Then
numerodecanal.Caption = 1
Else
numerodecanal.Caption = numerodecanal.Caption + 1
End If
End If
End Sub
Private Sub canalmenos_Click()
If tvcatv.Caption = "tv" Then
If Val(numerodecanal.Caption) < 1 Then
numerodecanal.Caption = 13
Else
numerodecanal.Caption = numerodecanal.Caption - 1
End If
Else
If Val(numerodecanal.Caption) < 1 Then
numerodecanal.Caption = 120
Else
numerodecanal.Caption = numerodecanal.Caption - 1
End If
End If
End Sub
Private Sub onoff_Click()
If OFFON.BackColor = vbRed Then
OFFON.BackColor = vbbalck
canalmas.Enabled = False
canalmenos.Enabled = False
enter.Enabled = False
uno.Enabled = False
dos.Enabled = False
tres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False

Else
OFFON.BackColor = vbRed
canalmas.Enabled = True
canalmenos.Enabled = True
enter.Enabled = True
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

If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub

Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
End Sub

Apunte de la clase del 12/7

Hoy , 12/7 el formulario que programamos con mi compañero fue:
Private Sub canalmas_Click()
If Val(numerodecanal.Caption) < 13 Then
numerodecanal.Caption = Val(numerodecanal.Caption) + 1
Else
numerodecanal.Caption = 1
End If
End Sub
rivate Sub canalmenos_Click()
If Val(numerodecanal.Caption) > 1 Then
numerodecanal.Caption = Val(numerodecanal.Caption) - 1
Else
numerodecanal.Caption = 13
End If
End Sub
Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
End Sub
Private Sub onoff_Click()
If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub
Private Sub cero_Click()
auxcanal.Caption = auxcanal.Caption + "0"
End Sub

jueves, 7 de junio de 2007

viernes, 25 de mayo de 2007

Personaje

1)Yo eligi a Mohandas Karamchand Gandhī conocido como Mahatma Gandhi.La palabra mahatma significa gran alma.Yo lo elegi porque fue un hombre que siempre lucho por la paz.




2)











3) Sus primeros trabajos los realizó en Sudáfrica en 1893. Mientras trabajaba para una empresa en ese país, se interesó por la situación de los 150.000 compatriotas que residían allí, luchando contra las leyes que discriminaban a los indios en Sudáfrica mediante la resistencia pasiva y la desobediencia civil.
Destacó la Marcha de la sal, una manifestación a través del país contra los impuestos a que estaba sujeto este producto.En 1931 participó en la Conferencia de Londres, donde reclamó la independencia de la India. Se inclinó a favor de la derecha del partido del Congreso, y tuvo conflictos con su discípulo Nehru, que representaba a la izquierda. En 1942, Londres envió como intermediario a Richard Stafford Cripps para negociar con los nacionalistas, pero al no encontrarse una solución satisfactoria, éstos radicalizaron sus posturas. Gandhi y su esposa Kasturba fueron encarcelados: ella murió en la cárcel, en tanto que él realizaba veintiún días de ayuno.
Una vez conseguida la independencia, Gandhi trató de reformar la sociedad india, apostando por integrar las castas más bajas (los sudra o ‘trabajadores’, los parias o ‘intocables’ y los mlecha o ‘bárbaros’), y por desarrollar las zonas rurales. Desaprobó los conflictos religiosos que siguieron a la independencia de la India, defendiendo a los musulmanes en territorio hindú, siendo asesinado por ello por Nathuram Godse, un fanático integrista indio, el 30 de enero de 1948 a la edad de 78 años. Sus cenizas fueron arrojadas al río Ganges.





4)







5)






6)








7)Frases por Mahatma Gandhi:



"NO PUEDO TOLERAR LA MENOR CONCESIÓN A LA MENTIRA EN MIS ESCRITOS. ESTOY DISPUESTO A RECHAZAR TODO LO QUE SE CONSIGA CON MENGUA DE LA VERDAD Y, POR OTRA PARTE, ESTOY CONVENCIDO DE QUE NO HAY MAS RELIGIÓN QUE LA VERDAD".

"TAMBIÉN SERIA INCONCEBIBLE ENCONTRAR EN MIS ESCRITOS UNA SOLA PALABRA DE ODIO. ¿NO ES EL AMOR LO QUE HACE VIVIR AL MUNDO?. NO HAY VIDA DONDE NO ESTA PRESENTE EL AMOR.. LA VIDA SIN AMOR CONDUCE A LA MUERTE. EL AMOR Y LA VERDAD REPRESENTAN DOS CARAS DE UNA MISMA MEDALLA..... ESTOY SEGURO DE QUE POR MEDIO DE ESTAS DOS FUERZAS SE PUEDE CONQUISTAR AL MUNDO ENTERO".

"LA NO VIOLENCIA Y LA COBARDÍA SON TÉRMINOS CONTRARIOS. LA NO VIOLENCIA ES LA MAYOR VIRTUD, LA COBARDÍA ES EL MAYOR VICIO. LA NO VIOLENCIA SIEMPRE SUFRE, LA COBARDÍA PROVOCA SUFRIMIENTO. LA NO VIOLENCIA PERFECTA ES LA MAYOR VALENTÍA. LA CONDUCTA NO VIOLENTA NO ES DESNATURALIZANTE, LA COBARDÍA SIEMPRE LO ES".

sábado, 31 de marzo de 2007

Noticia

Noticia

Una nueva tecnología permite tener la información delante de los ojos. Se trata de una computadora portátil con un visor especial.Desde hace unos años que se habla de las “wearable computers”, pequeñas computadoras portátiles que se ajustan a la cintura, se activan por voz o traen un teclado especial y vienen con una pequeña pantalla a la altura de los ojos. Sin embargo, hasta ahora no se había puesto en práctica su uso.La empresa Microvision lanzó al mercado una nueva “computadora para vestir” que utiliza el sistema operativo Windows CE y está pensada para técnicos y mecánicos del servicio automotor, que pueden tener los datos y manuales necesarios para la reparación de un vehículo al tiempo que lo están reparando. Las primeras empresas en ponerlo en práctica fueron Honda y Volvo, que lo implementó en sus concesionarias.Denominado Nomad Expert Technician System, el sistema, que cuesta unos 4 mil dólares, consiste en un CPU que se ajusta al cinturón y un visor (al mejor estilo Cyclops, de los X-Men o Geordi La Forge de Star Trek, The Next Generation) que proyecta pequeños lásers en la retina, permitiéndole a los usuarios ver en un primer plano imágenes en alta resolución con gráficos, mapas o información relacionada. La persona que utilice el dispositivo puede ver imágenes como si las viera en un monitor de 17 pulgadas.El CPU es una computadora inalámbrica (802.11b) que cuenta con un sistema operativo Windows CE, un procesador Intel XScale a 400MHz, capaz de acceder a información al conectarse con otras computadoras o servidores remotos y navegar por Internet. El usuario maneja los datos a través de un touchpad y un keypad que vienen en el módulo montado en el cinturón.De acuerdo a Microvision, los mecánicos gastan hasta un 40% menos de tiempo en lo que se refiere a trabajos en motor, lo que significa para Honda y Volvo un ahorro de dos mil dólares al mes por cada técnico que utiliza el sistema.Vale aclarar que el dispositivo no afecta a los ojos. Al respecto, Microvison salió a explicar que la utilización de este sistema es perfectamente inocua debido a la mínima potencia que tiene el láser utilizado. "No sólo es de baja potencia" dijo Harry Goldstein, uno de los editores del IEEE Spectrum, el boletín del Institute of Electrical and Electronics Engineers "también no permanece concentrado en un lugar de la retina, sino que se mueve sobre ésta rápidamente", agregó. Futuras aplicaciones están siendo desarrolladas para cirujanos o militares en campaña, y también en teléfonos celulares y PDAs.