jueves, 30 de octubre de 2008

Calculadora 3 (por guido)

Private Sub borrar_Click()
visual.Caption = ""
auxiliar2.Caption = ""
visual.Caption = ""
End Sub
Private Sub cero_Click()
visual.Caption = auxiliar.Caption + "0"
End Sub
Private Sub cinco_Click()
visual.Caption = auxiliar.Caption + "5"
End Sub

Private Sub coma_Click()
visual.Caption = auxiliar.Caption + ","
End Sub
Private Sub Command_Click()
auxiliar2.Caption = auxiliar.Caption
auxiliar.Caption = ""
aux.Caption = Command.Caption
End Sub
Private Sub cuatro_Click()
visual.Caption = auxiliar.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar2.Caption = visual.Caption
auxiliar.Caption = "/"
auxiliar.Caption = ""
End Sub
Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub igual_Click()
If visual.Caption = "+" Then
auxilar.Caption = Val(auxiliar2.Caption) + Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "-" Then
auxilar.Caption = Val(auxiliar2.Caption) - Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "/" Then
auxilar.Caption = Val(auxiliar2.Caption) / Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "*" Then
auxilar.Caption = Val(auxiliar2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "%" Then
auxiliar.Caption = Val(auxiliar.Caption) / Val(visual.Caption)
End If
auxiliar.Caption = ""
End Sub
Private Sub mas_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "+"
auxiliar.Caption = ""
End Sub
Private Sub menos_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "--"
auxiliar.Caption = ""
End Sub

Private Sub mult_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "x"
auxiliar.Caption = ""
End Sub
Private Sub nueve_Click()
visual.Caption =visual.Caption + "9"
End Sub
Private Sub ocho_Click()
visual.Caption =visual.Caption + "8"
End Sub
Private Sub seis_Click()
visual.Caption =visual.Caption + "6"
End Sub
Private Sub siete_Click()
visual.Caption =visual.Caption + "7"
End Sub
Private Sub tres_Click()
visual.Caption =visual.Caption + "3"
End Sub
Private Sub uno_Click()
visual.Caption =visual.Caption + "1"
End Sub

Visual basic (por guido)

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

End Sub

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

Private Sub catvtv_Click()
If Tvcatv.Caption = "TV" Then
Tvcatv.Caption = "CATV"
Else
Tvcatv.Caption = "TV"
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 Enter_Click()

If Tvcatv.Caption = "TV" Then
If auxiliar.Caption < caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption = "TV" caption =" NroCanal.Caption" caption =" 0" caption =" NroCanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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 = ""
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
TV.Enabled = False
CATV.Enabled = False
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
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
TV.Enabled = False
CATV.Enabled = False
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
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
TV.Enabled = True
CATV.Enabled = True
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
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
TV.Enabled = True
CATV.Enabled = True
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

Semana 22 (por guido)

Facebook: descarga fácilmente las imagenes en las que estés tagueado


Get My Tagged Pics es una interesantísima aplicación para Facebook que te permitirá descargar fácilmente las fotos en la que estés tagueado.
La aplicación es muy sencilla: cuando la ejecutas, checa todas las fotos de las red social en las que estés, y las agrupa en diferentes paquetes. Lo bueno es que tú puedes elegir qué paquetes descargar, gracias a un botón de ‘Download’.
Las fotografías se descargan de a grupos y en formato ZIP. Realmente no puedo entender bajo qué criterio se separan (si alguno lo entiende y quiere explicarlo, bienvenido está). Más allá de eso, me parece un servicio completo, sencillo y práctico. Cumple muy bien su función.




La presentación del teléfono de Google


Google entrará al mercado de los teléfonos móviles, y la presentación se hará el 23 de septiembre en un evento organizado por la compañía T-Mobile, quien será la encargada de distribuirlo.
Los rumores indican que el teléfono G1 costaría al público 199 dólares, un precio razonable si tenemos en cuenta que la compañía tendrá que competir mano a mano con el iPhone.
El G1 será un teléfono que funcionará bajo Android y será fabricado por la empresa HTC. Prácticamente no hay más detalles. No sabemos cómo funcionará el software bajo Android ni cómo será el teléfono, pero la expectativa es muy grande.



Mensajes de texto mientras conduces "peor que beber"


Mensajes de texto mientras se conduce entorpece los automovilistas más que estar bajo la influencia de alcohol o drogas, sugiere una investigación.La Fundación RAC encontró una media el en tiempo de reacción de un 35% más lento entre jóvenes de 17 a 24 años de edad, los cuales conducen mientras escribían o leían mensajes de textos.Casi el 50% de los conductores con edades comprendidas entre los 18 y 24 usaban mensajes de textos durante la conducción.Estudios anteriores habían encontrado reacciones que fueron 21% más lentos entre los que habían tomado cannabis y un 12% más lento entre los que habían bebido al límite legal.Al estar leyendo o escribiendo mensajes de textos mientras conduces te es mucho más difícil controlar tu dirección, frente a una maniobra repentina.El control de dirección entre los conductores que usan mensajes de textos fue del 91% peor, en comparación con el 35% peor para aquellos bajo la influencia del cannabis.
yo elegi estos articulos porque me parecieron muy interesantes.

jueves, 28 de agosto de 2008

Semana 19 (por guido)

Brasil: Derechos de los bloggers, los derechos de los lectores de blogs


los Términos y Condiciones de Uso de su blog, entre ellos:Los derechos de los bloggers y los lectores del blog."Los lectores deben recordar que la lectura y comentarios en un blog es un privilegio que puede ser revocado en cualquier momento.Nadie tiene el "derecho" a leer un blog o hacer comentarios al respecto.Los usuarios del Blog deben recordar que nadie está obligado a leer blogs, que los lectores pueden desaparecer en un instante y tener lectores no es un privilegio fácil de conquistar.Nadie tiene el "derecho" a ser leído y examinado”.



Estoy en tus Google Docs, y leyendo tus hojas de cálculo


Compartir documentos con tus compañeros de trabajo a través de Google Docs seguro que es conveniente. También puede ser peligroso. Debido a un pequeño error tipográfico tus datos podrían caer en manos de alguien más.Sucede que David F. Gallagher del New York Times recibió por equivocación reportes de trafico de 130 Web sites, incluyendo datos de periódicos importantes. Todos estos documentos son parte del Community Newspaper Holdings Inc. (CNHI) una compañía basada en Birmingham, a la cual pertenecen 90 periódicos.Parece ser que un empleado de dicha compañía quería compartir estas hojas de cálculo sacadas de Google Analitycs con otro empleado llamado Deirdre Gallagher. Entonces, se equivoco escribiendo la dirección de correo electrónico y dichos datos fueron a parar a las manos de David Gallagher.En mi caso no he recibido documentos pertenecientes a otras personas, pero esto es algo que a muchas personas de seguro les ha pasado. Muchos han recibido datos de tarjetas de crédito, contraseñas, etc. de pertenecientes a otras personas.En este caso le paso a David Gallagher con Gmail y Google Docs, pero es posible que pase en otros servicios. Lo fácil que puede difundirse información importante sin tu consentimiento.El verdadero bug de seguridad lo cometemos nosotros cuando nos equivocamos al escribir la dirección de correo. Por eso debemos ser cuidadosos o buscar otro medio más seguro de distribuir información sensible.





Una mujer llamada Yoda bloqueada en Facebook


Hiroko Yoda dice que ella hizo varios intentos para suscribirse al popular sitio de redes sociales, pero su solicitud se atendió con un mensaje de error.La japonesa sospecha que su apellido distintivo que comparte con el sabio maestro verde Jedi de la película Star Wars, puede ser el origen de su problema.Sus sospechas se confirmaron cuando sus intentos de registrarse con el uso de otras versiones de su apellido, entre ellos Youda y Yohda, dando buenos resultados.Después de contactar a Facebook para reclamar que se le dijo que Yoda se había colocado como un nombre en la lista negra porque muchos miembros pretendían tener ese nombre. El sitio Web sólo permite a la gente unirse bajo su verdadero nombre."Facebook bloquea el registro de una serie de nombres que con frecuencia son maltratados en el sitio,""El nombre 'Yoda', también es el nombre de un popular personaje de Star Wars, está en esta lista de nombres bloqueados".Facebook En virtud de los términos y condiciones, indica que los usuarios deben ponerse de acuerdo para no "suplantar la identidad de cualquier persona o entidad, o declarar falsamente o tergiversar a si mismo".Las normas también exigen que los miembros no deben "registrarse para obtener una cuenta de usuario en nombre de una persona distinta a uno mismo".Facebook ha cedido y ha permitido a Hiroko Yoda configurar un perfil en el sitio.Yoda es un apellido bastante común en Japón, y una búsqueda en Facebook revela docenas de miembros, que aparentemente es su auténtico nombre.
yo los elegi estos articulos porque me parecieron muy interesantes.

sábado, 28 de junio de 2008

Semana 12 (por guido)

Nokia 7210 Supernova, un móvil sencillo, delgado y llamativo

El Nokia 7210 Supernova es el único modelo de la nueva familia de teléfonos coloridos de Nokia que no tiene carcasas intercambiables. Pero es el terminal más delgado (10,6 mm de grosor) y ligero (casi 70 gramos sin batería) de todos los presentados, con un diseño de tipo tableta que estará disponible durante el último trimestre del año en dos acabados distintos: negro con líneas azules y blanco con líneas rosas.
Lleva una pantalla de dos pulgadas, cámara de dos megapíxeles que puede grabar vídeo a diez imágenes por segundo, reproductor MP3, radio FM y conexión Bluetooth con perfil A2DP (es decir, puede trasnferir pequeños archivos sin cables y usar unos auriculares inalámbricos para escuchar la voz de las llamadas y las canciones).







Bill Gates abandona a Microsoft



El día de ayer y tras dos años de haber anunciado su retiro de la compañía, el fundador de Microsoft, Bill Gates, se despide de Microsoft, dejando en su lugar al ¿queridísimo? Steve Ballmer. Según Reuters, Gates se despidió en un evento exclusivo para los empleados de la compañía en medio de la tristeza, Steve Ballmer tuvo dificultades para hablar y dedicar unas palabras al tío Bill, al cual calificó como “el fundador, el líder”.
De este modo, desde TecnoBITA felicitamos a Bill por esos 33 años de trabjo que dedicó a la empresa más influeyente de la tecnología, el imperio de Microsoft.







Se daño tu iPod: conoce al Doctor iPod

Demetri Leontaris, tiene 33 años de edad y recorre las calles de Manhattan o cualquier otro estado atendiendo a llamadas de usuarios desesperados con sus iPods dañados.Demetri sustituye las piezas del iPod dañado con piezas baratas chinas y los usuarios han quedado muy satisfechos.




Su oficina: su carro Pontiac Aztek, ya que recorre varios lugares realizando todo tipo de reparaciones a domicilio. Demetri normalmente cobra alrededor de $70 dependiendo del tipo de daño que tenga el ipod. Es padre de tres hijos y ha encontrado una buena forma de conseguir el sustento, imagínense, ya que hay más 150 millones de iPods vendidos desde en el 2001, es decir que tendrá mucho trabajo.
yo elegi estos articulos porque me parecieron muy interesantes.