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

Cuil

Así se ve Cuil.com el nuevo buscador Web, que desarrollaron antiguos trabajadores de Google, para utilizarlo es como todos los buscadores se pone la palabra sobre la cual queremos hacer la búsqueda y damos enter. Lo nuevo (o lo que se puede apreciar inmediatamente) del nuevo buscador es la forma en que presenta los resultados, estos se presentan con un abstract mas una imagen, además cuenta con solapas de categorización del tema.

Según las malas lenguas pretende desplazar a Google como buscador favorito, esperemos haber que sucede.

El enlace www.cuil.com

Arthur

por si lopreguntan el cerdo se llama arthur

Pues si NelTelcel

De Mexico a Argentina

Esta pareja ha emprendido un viaje que va de México a la Argentina en una camioneta y usando solo biodisel como combustible, el proyecto se llama Laboratorio móvil ya que ellos mismos Irán produciendo su propio combustible en el trayecto e Irán promocionando acciones ecológicas en los lugares que toque la ruta.

El financiamiento lo obtienen de empresas o particulares que les donen desde 100 pesos mexicanos, $10 USD. U 8 euros., y a cambio ponen una imagen (la que uno quiera, la de tu empresa, la de tus retoños o la tuya si eres muy narcisista) en su camioneta y en su sitio web con un link si así lo decides.

Las condiciones de pago, “beneficios” e información acerca del proyecto las puedes encontrar en su sitio: http://www.laboratorioenmovimiento.com.

Modu

Esta si es competencia directa para el Iphone, se trata de un teléfono celular modular tiene funciones dependiendo el modulo al cual lo conectes consola portátil de juegos, GPS, a demás si te gusta mas de un modelo de celular de esta compañía solo tienes que intercambiar las carcasas y no comprar varios celulares. El precio rondara entre los $200 USD.
Su sitio es:

http://www.modumobile.com/#/catalog/modu_style/

HIstoria de un letrero

Este corto fue ganador una selección del Short Film Corner de Cannes y el portal Youtube.

Sara

void sara(void)
{
int x,y;
char     dibujo[64][64]={
 
1111111111111111111111111111111111111111111111101010110110111100
1111111111111111111111111111111111111111111111010010001110101011
1111111111111111111111111111111111111111111110110111011101110011
1111111111111111111111111111111111111111111101001110100010101100
1111111111111111111111111111111111111111111011011000101111011011
1111111111111111111111111111111111111111110110110011010100001011
1111111111111111111111111111111111111111111001101110011011110110
1111111111111111111111111111111111111111101011001110110010110101
1111111111111111111111111111111111111111101010011001010111001011
1111111111111111111111111111111111111111100110101011100101011010
1111111111111111111111111111111111111111010101110101011111010110
1111111111111111111111111111111111111110.0/010000110011000110101
1111111111111111111111111111111111111110/00./.000110101011101010
1111111111111111111111111111111111111110./././././00000011011011
1111111111111111111111111111111111111110//./././././/10001010110
111111111111111111111111111111111111110/./././././././.000110110
111111111111111111111111111111111111110./././././././././0001101
11111111111111111111111111111111111110./././././././/././.000101
111111111111111111111111111111111110/./././././././././././/.000
11111111111111111111111111111111110/./././././././././././././.0
1111111111111111111111111111111110././././/./././././././././.01
11111111111111111111111111110000./././././././././././././././.0
11111111111111111111111111000000/././././/./././././././././././
111111111111111111111111100000000./././././././././././././././0
1111111111111111111111110000000000/./././././././././././././/./
11111111111111111111111100000000000././././././././././././././.
11111111111111111111111000000000000/././././././././././././././
111111111111111111111110000000000000././././../././././././/././
11111111111111111111111000003300000/././././././././././././././
1111111111111111111111000003300000./././.000././././././././././
111111111111111111111100000300000/././././000/./././././././././
1111111111111111111110000000000./././././0000000/././././../././
1111111111111111111100000000//.././/././.././000./././.././././.
111111111111111111000000./.././..//./../././..//00./././././././
1111111111111110000000./././././..//././././././././././././././
111111111111100000000/././././././././././0000././00././././/./.
111111111111100000000././././././././././0333330././/./././././.
111111111111100000000/.0/./././././././.033333330./.00./././././
111111111111000000000./00./././././././.3333333330/././././.././
111111111111000000000/./.0/./././././.0/0033333333./././././././
11111111111000000000././.0./././././././00033330330.//./././././
11111111111000000000/././0/././././././0000000330330/./././././.
1111111111000000000../././././././././././0000330333././././././
1111111111000000044//././/..//././././././/.0./0/./.0./././././.
1111111111000044444./././././././././././.../././././././././../
11111111100000041114//./././../././././././././././././././././.
111111111000000440444./././..//././././././././././././././././.
1111111110000044404444./././././././././././././././././././././
11111111100044444044444/././././././././././././././././././././
11111111000441111144044././././././././././././././././././././.
111111110004444411440444/././././././././././/./././././/././/./
111111100000444444444044./././././././././././././/.//././/././.
111111100000./.444444404/./././././././././././././././././././.
11111100000/./././4444404./././././././././././././././././././.
111110000././././././41444/././././././././././././././././././.
11110000/./././././././444/./././././/./././././././././././././
11100000/././././././././.4/././/./././././././././././././././.
110000./././././/./././././.2/././././././././/././././././././.
1000./././././././././././/././././././././././././././././././.

for(y=0;y<64;y++)
for(x=0;x<64;x++){
putpixel(x,y,dibujo[y][x]);
if(dibujo[y][x]==1) putpixel(x,y,15);

}

}

Reencarnacion

No, no es nada censillo

reencarnacion(vida) 
{
 for(;;)  
 {
     if (vida == Last) break;
    else if (vida == Next)
     {
        
        if (Evaluate(vida)== true) vida=Last;        
        if (Evaluate(vida)== false)vida=Next;
        continue;
    }
 }
}
 
bool evaluate(reencarnacion Vida)
{
///cuatro nobles verdades 
}

Problemas con el password en MySQLadmin

Hace algunos días instale AppServ Open Project - 2.5.9 for Windows, esta utilidad instala automáticamente:

• Apache Web Server Version 2.2.4
• PHP Script Language Version 5.2.3
• MySQL Database Version 5.0.45
• phpMyAdmin Database Manager Versión 2.10.2


La instalación es muy sencilla (como con cualquier otro software), escoges las opciones que te convengan, das aceptar, aceptar , etc. bueno el problema fue hasta el momento de querer entrar al phpMyAdmin o a MySQL desde la línea de comandos, escribí el usuario y el password adecuados y no me dejaba entrar, creí que reinstalando se solucionaría el problemas pero este persistía, entonces busque información en Internet relacionada con este tema y me di cuenta que era un fallo muy común pero los que saben como reparar el error no querían decir como solucionarlo (por lo menos en los sitios que visite, que no fueron pocos).

Bueno en mi caso por asares del destino vi en el administrador de tareas que se estaba ejecutando una versión diferente de MySQL a la que debería de estar corriendo, el proceso era algo así como mysql4-nt.exe. Como anteriormente había instalado la versión 2.5.7 del AppServ deduje que esta versión instalaba ese ejecutable, antes de instalar el AppServ 2.5.9 desinstale la anterior, y si quito la mayoría de lo que te carga el instalador menos MySQL así que con el administrador de tareas detuve el proceso y borre la carpeta de MySQL ubicada en el archivo de Programas, reinstale la nueva version del AppServ y voila el error desaparicio.

A cincuenta años del sputnik

Precisamente hoy se cumplen 50 años de que fue lanzado el primer satélite artificial,(el sputnik) dando inicio a lo que hoy llamamos carrera espacial – mejor dicho era espacial – este hecho a demás iniciar dicha era nos trajo un clima más severo de la guerra fría, el teléfono celular, el velcro, los joysticks, obviamente los satélites artificiales y de más maravillas tecnológicas que hoy disfrutamos.

Ojala y toda esta tecnología que hemos podido desarrollar gracias a lo que hoy celebramos nos ayude a superar los grandes retos que hoy tenemos como humanidad el calentamiento global, desarrollo sustentable, el desarrollo de energía limpias, etc..

Google TV

Una mas de las utilerias que nos regala Google, solo queda utilizarla y dar las gracias por ella.

La falta de ti

Maldita Vacuidad que tengo por que no te tengo

¿Como he de llenarla?

si tu lo abarcas todo