Bug en Infinity Blade para iPad

O al menos eso parece, en estos dos juegos la diferencia de vida es enorme entre mi jugador y el del juego pero este ya no me ataca por ningún motivo incluso dimite a la lucha.

Los desencantos con iPad

Que desagradable es no tener flash en IPad existe mucho contenido en la red en ese formato.
Claro esta que el iPad es una plataforma para contenidos y en este rubro no tiene buen desempeño,faltandole la reproducción nativa de flash.
Los desencantos van desde la imposibilidad del desplegado correcto de muchas paginas hasta no poder reproducir algunos vídeos en yuotube donde supuestamente la reproducción de vídeos es uno de los fuertes de la tableta, hasta tiene una aplicación nativa para ver vídeos en youtube.  Sin embargo youtube no es la única plataforma de vídeos en la red existe muchos servidores y varios de ellos basados en video flash.

http://www.ted.com/talks/lang/spa/paul_rothemund_details_dna_folding.html

http://www.ted.com/talks/lang/spa/paul_rothemund_details_dna_folding.html

Quitar duplicados en Excel

Si bien se puede realizar dicha tarea de diferentes formas, como utilizar una consulta SQL desde el DATA Query, podría suceder que no lo tengamos instalado o mucho peor que ni siquiera tengamos acceso a instalarlo, también existen soluciones comerciales que pueden realizar dicha tarea (de manera mas efectiva), el siguiente macro agiliza un poco esta faena solo tienes que tener tus datos ordenados alfabéticamente posicionar el cursor en la primera celda de los datos y correr dicho el macro.


Sub duplicados()
Dim i As Integer
i = 0

ActiveCell.Activate

Do While ActiveCell.Offset(i, 0) <> ""

' si el dato actual es diferente al siguiente entonces
' escribelo en la celda de la derecha

If (ActiveCell.Offset(i, 0) <> ActiveCell.Offset(i + 1, 0)) Then

ActiveCell.Offset(i, 1) = ActiveCell.Offset(i, 0).Value

End If

i = i + 1

'Para librar el error donde un entero solo
'puede contener un numero entre -32767 y 32767
'y la cantidad de datos es mucho mayor a esa cifra

If i = 32000 Then i = 0
activecell.offset(i,0).activate
Loop

End Sub

Cuanto falta para el Mundial?

Nuevas Actualizaciones de Wave

Aunque a la vista son evidentes solo 3 de ellas: La inclusión de iconos para los robots que tienes instalados tanto en el navegador de contactos, como en los Wave que has escrito, así como la selección de Waves con casillas de verificación.

Es un hecho que los de Google nos están haciendo caso.

fotos areas de Google Maps actualizadas

Esta fotografía muestra los campamentos de las misiones internacionales dentro del aeropuerto de puerto príncipe en Haití.



Ver mapa más grande


Gran trabajo el que esta realizando Google para ayudar a las misiones de rescate.

Escudo de Presión Balanceada

Así trabaja la tuneladora (La Rielera) de marcar Robbins que construirá los 9 Km de túneles de la Linea 12 del metro de la Ciudad de México.

Poll: Pelicula de la decada

Los chicos de chilango Publicaron esta encuesta para determinar cual es (segun ellos) la mejor Pelicula de la decada, abajo el link para que voten.



Poll: Pelicula de la decada

Proyecto HPk

Para quienes nos gusta el poder modificar algo (ya sea un aparato o cualquier utensilio), usarlo de una manera diferente para la que fue creado o simplemente repararlo un grupo de españoles ha creado un proyecto wiki para documentar todos estos usos no “naturales”. El proyecto HKp es una de las mejores ideas de las que me enterado este año.

El nuevo Origami

Dos de las disciplinas que mas me gustan la papiroflexia y las matematicas tienen una relacion muy estrecha, en este video Robert Lang explica la relacion entre estas dos bellas disciplinas.

Curiosidad en Excel

Si eres programador, desarrollador o lo que se le parezca estarás de acuerdo que cuando uno tiene que probar alguna idea de un modulo, función, clase, etc. etc. El nombre es en lo que menos piensas, pues eso intentaba hacer cuando me encontré con una verdadera rareza, escribía un procedimiento pare Excel cuando escribí algo parecido a esto:

Sub ae56()
…
…
. aquí puedes escribir lo que gustes al fin y al cabo no se ejecutara
.
.
…
End sub

Cuando quise ejecutarlo para sorpresa mía el procedimiento aparecía enumerado en la ventanita de los macros pero no se podia ejecutar (ni el boton ejecutar se activa) ademas cambio mi posición en el grid curiosamente en la celda que tiene el nombre de mi procedimiento.

Pues resulta entonces que el nombre de tus procedimientos no pueden tener el mismo nombre que una celda – digo si en algún momento pensaste nombrarlo de esta manera –

Explicacion de que es el software libre

Una excelente explicación de que es el software libre nada menos por uno de sus "paladines" (Miguel de Icaza)

Borrar vinculos de una hoja

Sencillísimo pero muy útil, si alguna vez haz querido quitar links de una hoja sabras que es molesto quitar uno a uno. con este macro solo basta seleccionar el area con los links y ejecutar el macro para borrar los links.


Sub borrar_lincks()
'
Dim Strdir As String
Strdir = Selection.Address
Range(Strdir).Select
Selection.Hyperlinks.Delete
End Sub

Tip 1 Fotografia Digital (ISO)

 A veces la diferencia entre tomar una buena foto y no hacerlo es la tener bien configurada nuestra cámara (para los que creen que las cámaras digitales ya lo hacen todo). La siguiente secuencia muestra una serie de cinco fotografías todas tomadas con la misma cámara y  sin utilizar el flash, lo que difiere en cada una de ellas es el ISO, la primera fotografía de la serie fue tomada con un ISO 100, la segunda con uno de 200 y así sucesivamente hasta tomar la ultima con uno de 1000.

ISO 100	ISO 200
ISO 400	ISO 800	ISO 1000

            La cámara que uso, tiene la opción de poder cambiar la “sensibilidad de la película” (el ISO) no todas las cámaras digitales poseen estas características pero recomiendo que las busques y tomes “Unas felices fotos”

Extraer simbolo "$" de una cadena

Esta funcion recursiva sirve para extraer un simbolo en espesifico ( en este caso el simbolo de $)de una cadena aun si este se repite varias veces dentro de dicha cadena.


Public Function Extraerdolar(ByRef Strcade As String) As String Dim Intpos As Integer 'Instr() devuelve la posicion inicial donde se encuentra el caracter 'que estamos comparando, entonces desde esa posicion empesamos a quitar caracteres
Intpos = InStr(Strcade, "$")
' si IntPos es mayor a cero quiere decir que encontro el caracter buscado
Do While Intpos > 0
'aqui se empieza por el valor de Intpos, tomamos el caracter inmediatamente anterior 'y el inmediatamente posterios "quitamos" el caracter que queda en medio ($), 'luego juntamos las "dos cadenas" que nos quedan

Strcade = Mid(Strcade, 1, Intpos - 1) & Mid(Strcade, Intpos + 1, Len(Strcade))
'si existe mas de un signo de dolar en la cadena llamar otra vez la funcion
Strcade = Extraerdolar(Strcade)
' ponemos una condicion de termino, si intpos = 0 esta fuera del rango de busqueda
' y terminan las llamadas a la funcion
Intpos = 0
Loop
Extraerdolar = Strcade

End Function

Macro mayusculas

Hace unos días un compañero de trabajo me pregunto como podría hacer en Excel que al escribir en una celda en ella el texto solo fuera en mayúsculas (dado que el busco por todos lados en los menues y no encontro nada).

Como resultado obtuve el siguiente macro que consta de dos partes el código que efectúa las acciones y una línea que se pone en la pagina donde haremos que la(s) celda(s) se escriban en mayúsculas.

' este codigo se coloca en el evento Worksheet_Change de la hoja1 por ejemplo

' /**********************************************

Private Sub Worksheet_Change(ByVal target As Range)

MAYUSCULAS ActiveCell.Address, ActiveCell.Value, target

End Sub

' este otro fragmento se coloca en un modulo cualesquiera

'//***********************************

Sub MAYUSCULAS(Ubicacion As String, valor As String, target As Range)

Select Case target.Address

' si se desea que mas celdas tengan el efecto solo se agregan en case separadas por comas

Case "$C$3", "$C$4", "$C$5", "$C$6", _

"$D$3", "$D$4", "$D$5", "$D$6":

valor = target(1).Value

Ubicacion = target(1).Address

Range(Ubicacion).Value = UCase(valor)

End Select

End Sub

- Ahora ya se que si existe una función en llamada Mayusc("Texto") , pero bueno sirvió de ejercicio :)

Chrome

Chrome es la opción de Google en el mercado de los navegadores web, que a decir verdad es una muy buena opción, tengo instalados en mi PC los otros  tres navegadores lideres del mercado IE, Mozilla  Firefox, y Opera, pero Chrome entre estas cuatro opciones es el que mejor desempeño ha tenido, es el que mas rápido visualiza las paginas web y en el que menos tengo que esperar para ver un video en youtube, no tiene soporte para tantas opciones configurables como con Mozilla, pero esperemos  ha que mejore un poco mas pues promete y mucho.

Amemos los bosques

Frutas