jueves, 6 de noviembre de 2008

jueves, 18 de septiembre de 2008

codigo control 2

codigo control 2(YAZ, JOY Y BREN)

Private Sub Command7_Click()
End Sub
Private Sub anterior_Click()
End Sub
Private Sub brillomas_Click()tv.Left = tv.Left + 100auxiliar.Left = auxiliar.Left + 100base.Left = base.Left + 100nrocanal.Left = nrocanal.Left + 100onoff.Left = onoff.Left + 100tvcatv.Left = tvcatv.Left + 100End 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 Command1_Click()
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 Label2_Click()
End Sub
Private Sub enter_Click()nrocanal.Caption = auxiliarauxiliar.Caption = ""End Sub
Private Sub form2_Click()tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub mascanal_Click()If nrocanal.Caption > 12 Then If tvcatv.Caption = "tv" Then nrocanal.Caption = 1Else nrocanal.Caption = 1End IfElse nrocanal.Caption = nrocanal.Caption + 1End IfEnd Sub
Private Sub massonido_Click()
End Sub
Private Sub masvolumen_Click()tv.Top = tv.Top + 100auxiliar.Top = auxiliar.Top + 100base.Top = base.Top + 100nrocanal.Top = nrocanal.Top + 100tvcatv.Top = tvcatv.Top + 100onoff.Top = onoff.Top + 100
End Sub
Private Sub menosbrillo_Click()tv.Left = tv.Left - 100auxiliar.Left = auxiliar.Left - 100base.Left = base.Left - 100nrocanal.Left = nrocanal.Left - 100onoff.Left = onoff.Left - 100tvcatv.Left = tvcatv.Left - 100
End Sub
Private Sub menoscanal_Click()If nrocanal.Caption < 1 Then If tvcatv.Caption = "tv" Then nrocanal.Caption = 13Else nrocanal.Caption = 130End IfElse nrocanal.Caption = nrocanal.Caption - 1End IfEnd Sub
Private Sub menosvolumen_Click()tv.Top = tv.Top - 100auxiliar.Top = auxiliar.Top - 100base.Top = base.Top - 100nrocanal.Top = nrocanal.Top - 100tvcatv.Top = tvcatv.Top - 100onoff.Top = onoff.Top - 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 = ""onoff.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 offon_Click()If uno.Enabled = True Then nrocanal.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 enter.Enabled = False masvolumen.Enabled = False menosvolumen.Enabled = False brillomas.Enabled = False menosbrillo.Enabled = False mascanal.Enabled = False menoscanal.Enabled = False form2.Enabled = False tvctv1.Enabled = False Else nrocanal.Caption = "0" 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 enter.Enabled = True masvolumen.Enabled = True menosvolumen.Enabled = True brillomas.Enabled = True menosbrillo.Enabled = True mascanal.Enabled = True menoscanal.Enabled = True form2.Enabled = True tvctv1.Enabled = True End If

End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "tv"onoff.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 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 tv1_Click(Index As Integer)tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub tvcatv2_Click()If tvcatv.Caption = form2.Caption Then tvcatv.Caption = tvctv1.CaptionElse tvcatv.Caption = form2.Caption
End IfEnd Sub
Private Sub tvctv1_Click()tvcatv.Caption = tvcatvtvcatv = "tvcatv"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

jueves, 4 de septiembre de 2008

codigo de control

Private Sub Command7_Click()
End Sub
Private Sub brillomas_Click()tv.Left = tv.Left + 100auxiliar.Left = auxiliar.Left + 100base.Left = base.Left + 100nrocanal.Left = nrocanal.Left + 100onoff.Left = onoff.Left + 100tvcatv.Left = tvcatv.Left + 100End 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 Command1_Click()
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 Label2_Click()
End Sub
Private Sub enter_Click()nrocanal.Caption = auxiliarauxiliar.Caption = ""End Sub
Private Sub mascanal_Click()nrocanal.Caption = nrocanal.Caption + 1End Sub
Private Sub massonido_Click()
End Sub
Private Sub masvolumen_Click()tv.Top = tv.Top + 100auxiliar.Top = auxiliar.Top + 100base.Top = base.Top + 100nrocanal.Top = nrocanal.Top + 100tvcatv.Top = tvcatv.Top + 100onoff.Top = onoff.Top + 100
End Sub
Private Sub menosbrillo_Click()tv.Left = tv.Left - 100auxiliar.Left = auxiliar.Left - 100base.Left = base.Left - 100nrocanal.Left = nrocanal.Left - 100onoff.Left = onoff.Left - 100tvcatv.Left = tvcatv.Left - 100
End Sub
Private Sub menoscanal_Click()If nrocanal.Caption > 1 Then nrocanal.Caption = nrocanal.Caption - 1Else nrocanal.Caption = 120End IfEnd Sub
Private Sub menosvolumen_Click()tv.Top = tv.Top - 100auxiliar.Top = auxiliar.Top - 100base.Top = base.Top - 100nrocanal.Top = nrocanal.Top - 100tvcatv.Top = tvcatv.Top - 100onoff.Top = onoff.Top - 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 = ""onoff.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 offon_Click()If uno.Enabled = True Then nrocanal.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 enter.Enabled = False masvolumen.Enabled = False menosvolumen.Enabled = False masbrillo.Enabled = False menosbrillo.Enabled = False mascanal.Enabled = False menoscanal.Enabled = False tv1.Enabled = False tvctv1.Enabled = FalseElse nrocanal.Caption = "0" 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 enter.Enabled = True masvolumen.Enabled = True menosvolumen.Enabled = True masbrillo.Enabled = True menosbrillo.Enabled = True mascanal.Enabled = True menoscanal.Enabled = True tv1.Enabled = True tvctv1.Enabled = TrueEnd If

End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "tv"onoff.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 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 tv1_Click(Index As Integer)tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub tvcatv2_Click()
End Sub
Private Sub tvctv1_Click()tvcatv.Caption = tvcatvtvcatv = "tvcatv"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

jueves, 28 de agosto de 2008

semana 19

semana 19

noticia 1

Cisco presenta tecnología de videoconferencia holográfica

El inicio de la experiencia de Telepresencia de Cisco, creada de la integración de la tecnología Musion 3D Holographic Projection con Cisco TelePresence, fue el resultado de un esfuerzo conjunto por una gran parte del equipo de la compañía. Cisco realiza ahora su presentación dejando a medio mundo con la boca abierta.
Cisco ha acertado al presentar su tecnología de esta manera y es que la presentación con la videoconferencia holográfica que da fe de la comunicación mediante telepresencia, como subtituto futuro de la webcam, sería el componente clave para buscarle un mercado a este producto sobre el cual pueda comercializarse.

noticia 2

El SP3 de Windows XP trae la versión vieja del Adobe Flash Player

A pesar de que esta nueva versión del penúltimo sistema operativo de Windows salió hace muy poco tiempo, ésta lleva una versión anterior del Adobe Flash Player.
Ésta es la versión 9.0.115.0, mientras que Adobe ya había lanzado anteriormente la versión 9.0.124.0 del Flash Player; y no se sabe por qué Microsoft no incluyó esta nueva versión del reproductor de flash en su Service Pack 3 de Windows XP.

noticia 3

El Precio del Petróleo: Protestas en Europa, Asia y Latinoamérica

Las protestas de camioneros, pescadores y otros grupos particularmente vulnerables a la subida de los costes energéticos se han propagado desde España a la India y Corea del Sur en las últimas semanas. Las protestas contra la subida de los precios del petróleo que ha provocado temores de inestabilidad política y una desaceleración económica global se extendieron en Europa y Asia el lunes, y los camioneros colombianos dijeron que se unirían a la oleada de movilizaciones.

semanas 17 y 18

semana 18

noticia 1

En el futuro la gente pagará por ver contenido en línea

En el futuro, la gente pagará por ver ciertos contenidos en la web. Esto lo afirmó Nikesh Arore - presidente de Google para Europa, Medio Oriente y Africa, y presidente de Google UK - en World Editors Forum.Para Arora, la economía en la web evolucionará como la impresa y la gente terminará pagando por ver contenido en línea. “El modelo de negocios en internet no será al diferente al modelo de negocios actual”.

noticia 2

Nubes y luces en el cielo para predecir terremotos y erupciones volcánicas

Unas nubes y unas luces similares a la aurora boreal podrían preceder a un movimiento sísmico o una erupción volcánica, aunque científicamente no está demostrado. Se discute si la ionización del aire (y las aberraciones que ello produce en la luz) son indicadores fiables de un movimiento sísmico inminente. Desde hace dos décadas, el químico chino, Zhonghao Shou afirma haber predicho decenas de terremotos, como el de Irán de 2003, gracias a la observación de unas nubes características que se formarían antes de los temblores. Treinta minutos antes del terremoto en China, en el cielo se formaron fenómenos luminosos como muestra el video que compartimos y que captó un videoaficionado en China .

noticia 3

Descubren tres nuevos planetas similares a la Tierra

Un grupo de astrónomos europeos anunció el descubrimiento de tres nuevos planetas similares a la Tierra, aunque de un tamaño mucho mayor, por lo que se las conoce como “Súper-Tierras”. El hallazgo se logró gracias a la nueva tecnología del Buscador de Planetas por Velocidad Radial de Alta Precisión (HARPS, según su sigla en inglés) instalado en el observatorio chileno de La Silla, que además permitió determinar que los planetas similares a la Tierra son mucho más comunes de lo que se creía.

semana 17

noticia 1

Las mejores versiones de Los Sims

Los Sims“. Es un juego que todos conocen, y por algo se ha convertido en una de las “sagas” más vendida de todos los tiempos. Tiene distintas versiones dependiendo del tipo de plataforma que estemos hablando. Para PC sin duda tiene un extenso catálogo, pasando por los Sims 1 (con 9 entregas aproximadamente), y el más reciente Sims 2, que aún sigue recibiendo expansiones.La ventaja del primero, es que no necesitamos mucho hardware para poder ejecutarlo, a contrario del segundo. En cuanto a PSP, la entrega más destacada es la de los Sims 2: Náufragos, lanzado hace un par de años.

noticia 2

Colección de 170 iconos con efecto cristal

Directamente desde Web design blog tenemos una buena colección de 170 iconos de diversos temas y de gran calidad, con efecto cristal. Todos los archivos están en formato PNG. Podemos efectuar la descarga desde: rapidshare o filebox.ro.

noticia 3

La informacion que quieras en la pantalla de desbloqueo de iPhone

InelliScreen es una posibilidad para cambiar el “mundito visto de la luna” por la información que nos interesa (claramente hablo de la pantalla de desbloqueo del iPhone), es una aplicación reciente y bastante prometedora a la que le auguro bastantes descargas. Gracias a IntelliScreen podemos ver informaciones como el calendario, mensajes de texto, noticias de deportes y otras cosas, el estado del tiempo y mucho más… además podemos desplazarnos por las categorías y configurarlo para que de forma periódica compruebe nuestro correo.Para instalar la aplicación que aún esta en fase beta, debemos agregar la siguiente fuente en el instaler: http://intelliborn.com/repoEspero que a ustedes también les resulte interesante esta alternativa, a mi me parece mucho más útil que una simple ‘notita musical‘… pero no más ‘chula’

semana 15 y 16

semana 16

noticia 1

Cortocircuito - lego

Es increible este modelo de Cortocircuito (Johny 5 en inglés) que ha sido realizado con LEGO. Más increible aún es que lo haya hecho de modo que pueda ser controlado a través de un raido control

noticia 2

Posibles nuevos móviles Nokia con pantalla táctil

En Flickr han aparecido recientemente un conjunto de imágenes sobre algunos nuevos móviles Nokia, sobre los que si nos fijamos en su aspecto exterior no parecen haber sido mostrados en ninguna parte. Según publica Engadget, dichas imágenes podrían pertenecer a los modelos N79, N85 y XpressMedia 5800, si bien esta información no está para nada confirmada y en las propias fotografías no hay ningún indicio más que el título que el respectivo usuario le ha puesto a las imágenes.El caso es que el nexo en común de los tres modelos que han aparecido es que todos tienen pantalla táctil, aunque en algunos casos se puede ver también un lápiz junto al teléfono. Ésto indicaría que posiblemente no se manejen con los dedos como los iPhone, sino que sea algo más tradicional, algo del estilo a las PDAs.

noticia 3

Los 22 mejores tutoriales sobre efectos en texto

Puesto que la tipografía es esencial en cualquier soporte de presentación: logo, banner o simplemente un título. Es muy importante inyectar la creatividad en él, para ayudar en la entrega del mensaje, y dejar una buena impresión en el espectador. Realizar un buen diseño con la tipografía no es fácil.

semana 15

noticia 1

Pickreflect, aplicación en línea para crear imágenes reflejadas

A través de UBH, descubro Pickreflect, una aplicación en línea que te permite crear en unos segundos imágenes reflejadas en cualquier tipo de formato (JPG, PNG, o GIF). Solo tenemos que subir la imagen desde nuestro pc o indicando una url en la que tengamos la imagen.

noticia 2

¿El iPhone a 99 euros en Europa?

El diario británico The Times publicó hace un par de días un artículo sobre el nuevo iPhone 3G y sobre las condiciones en las que podría adquirirse en el Reino Unido. Según el prestigioso rotativo, el precio del deseado dispositivo de Apple sería de 100 libras, es decir, unos 125 euros al cambio.Este precio tan reducido sería lógicamente contando con la subvención de los operadores de telefonía móvil, a los que parece que les interesa que el iPhone se venda bien porque sus usuarios consumen mucho más que el resto.Siguiendo esta misma idea, el banco de inversiones UBS ha asegurado que en el resto de Europa el precio podría ser ncluso menor: 99 euros. Eso supondría un excepcional descuento de unos 300 euros con respecto al precio en Estados Unidos.No quiero ni imaginar las draconianas condiciones que las operadoras impondrán a los usuarios que adquieran el iPhone en concepto de consumo mínimo y contratos de permanencia

noticia 3

Para julio el 20% de los usuarios ya estaría usando Firefox

Si la tendencia se mantiene, aproximadamente en el mes de julio un 20% del total de navegantes ya estarán utilizando Firefox. Así lo anunció Net Applications, quien se encarga de seguir el crecimiento de este navegador.En la actualidad Firefox representa un 18.48% del total. En el mes de abril fue de 17.76%. Mientras el crecimiento siga siendo parejo, todo indica que Firefox pasará el 20%.

semanas 13 y 14

semana 14

noticia 1

Flashmo.com: Plantillas y archivos gratuitos en Flash

Diseñando e implementando sitios web aveces puede ser algo complicado ya que al momento de escoger colores, tipos de letra, contenidos y demás se deben de tomar muchas cosas en cuenta.Flashmo.com es un sitio que nos resuelve varios problemas a los que nos dedicamos al diseño web. contiene más de 100 plantillas de Flash gratuitas y disponibles para su descarga con sus correspondientes archivos .fla, la gran mayoría de ellas son fácilmente editables, algunas otras no tanto pero al final de cuentas si se desea se logra sacar bastante provecho de las mismas.La gran mayoría de los diseños contienen 5 o más secciones, ideales para sitios web empresariales, incluso también para sitios personales. El sitio pide una donación cada que deseamos descargar el archivo FLA, pero es completamente opcional.

noticia 2

La tecnologia en la educación:

Tecnologías y su aplicación didáctica a la clase de literatura, entendiéndola en el más amplio sentido del término pues lo que propongo puede aplicarse a cualquier asignatura relacionada con la materia general y a cualquier nivel académico.Tras una breve introducción a la utilidad didáctica de algunos de los últimos avances tecnológicos, expongo una serie de actividades útiles y practicables que el profesor de literatura puede realizar con los diversos medios que tiene a su alcance, básicamente, agrupo estos ejercicios en tres bloques diferentes: medios audiovisuales, el uso del ordenador personal y las posibilidades que Internet ofrece a los estudiantes de literatura.Como medios audiovisuales, en clase de literatura podemos recurrir al reproductor de sonido, bien en formato cassettes bien como CD, para oír música. En ocasiones se trata de música ambiental, relacionada de alguna manera con la época o el lugar que sirven como contexto al autor o texto literario que se estudie.El ordenador se ha convertido, sin duda, en elemento imprescindible en el proceso de enseñanza-aprendizaje de muchas asignaturas relacionadas con la ciencia y la tecnología. En el campo de las humanidades, y en el caso concreto de la literatura, el ordenador se utilizará, principalmente, para actividades concretas y puntuales como la elaboración de trabajos escritos, la preparación de presentaciones orales, etc.

noticia 3

Internet podria colapsar

Debido a la creciente demanda de la banda ancha, de un 50% anual, suenan alertas casi “apocalípticas” acerca de Internet, la pregunta recurrente es ¿colapsará el ancho de banda? Analistas e investigadores del sector estiman que ocurrirá por la creciente riqueza visual de las comunicaciones y el ocio por Internet: videoclips y películas, redes sociales y juegos.En un informe reciente, una empresa de investigación augura que la demanda de los usuarios de Internet podría superar la capacidad de la red en 2011. Pero el aumento del tráfico de Internet representa más un reto que una inminente catástrofe.Ni siquiera los más preocupados predicen un hundimiento de Internet. Un usuario, dicen, experimentaría el atasco de Internet en forma de disminución de la velocidad y frustración con los servicios plagados de datos, que se vuelven menos útiles o gratificantes.“Internet no se vendría abajo, pero sí habría cada vez más cosas que uno no podría hacer sin más en la Red”, opinó Johna Till Johnson, presidente de Nemertes Research, la empresa que ha previsto el déficit de ancho de banda en 2011, anticipando que la demanda crecerá un 100% o más cada año.

semana 13

noticia 1

Reproduce álbumes y canciones completas en Last.fm

Ya no tendrás solo que escuchar un pedazo de la canción o de un álbum que tanto querías, ni tendrás que andarte buscando en emisoras hasta encontrarla, porque ahora puedes en Last.fm seleccionar y escuchar gratis las canciones que quieras.Lo malo para alguno es que por ahora solo está disponible en Estados Unidos, Reino Unido y Alemania.Las canciones solo se podrán reproducir 3 veces de forma directa, si quieres escucharlas más veces tendrás que pagar una suscripción mensual con la que tendrás acceso ilimitado

noticia 2

camaras web

Una cámara web o web cam es una pequeña camara digital conectada a una computadora, la cual puede capturar imágenes y transmitirlas a través de tinternet en directo, ya sea a una pagina web o a otra u otras computadoras de forma privada.Las webcams necesitan una computadora para transmitir las imágenes. Sin embargo, existen otras cámaras autónomas que tan sólo necesitan un punto de acceso a la red informática, bien sea ethernet o inalambrico. Para diferenciarlas de la webcam o cámaras de web se las denomina net cam o camaras web.

noticia 3

MAARTS, nuevo robot bélico

Estas noticias me gusta tratar de ignorarlas, pero, lo vi hace tiempo y no me parecería justo ignorarlo, pues, alguno de los que leáis esto a lo mejor os interesan este tipo de robots, a mi, personalmente, no mucho.Un nuevo robot bélico, el MAARS (Modular Advanced Armed Robotic System) ha sido creado por Foster-Miller. Han recalcado mucho que se trata de un robot controlado a distancia por humanos. El MAARS puede ser equipado con un lanza granadas de 40mm o un machine gun de tamaño medio M240B. También puede equiparse con un laser, altavoces o spray de pimienta, cuando “matar” no es una opción.El MAARS permite que le asignen unas zonas de fuego o zonas de no-fuego, a modo de seguridad. Además puede evitar que el robot realice fuego amigo.