Presente cyberpunk: La pesadilla de W.Gibson:

Ya está, ya ha ocurrido. Nos hemos subordinado a las máquinas, a su lenguaje especial, a su manera de hacer las cosas. Todo se relacciona con ellas hoy en día, a la distancia justa para crearnos una fantasía de control. Internet representa el flujo principal de información, siempre en constante movimiento, en constante actualización, cambiando así nuestro presente a más velocidad de la que somos capaces de asimilar. Lo estático y vertical huele a viejo, a desfasado, a retrógrado. Bajo la premisa de darnos voz a todos hemos entrado en la era del ruido y la interferencia. Todo individuo se ve rodeado de necesidades que nunca antes habían sido necesarias y cada día recibe nuevas y más efectivas maneras de cubrirlas. Es un arma de doble filo, y el mango está en manos de quien controla la tecnología que le da soporte. El individuo no significa mucho para ésta sociedad, pero se le ofrecen métodos para aparentar que si. Las nuevas culturas son muy diferentes de las viejas, son algo parecido a casilleros, cada individuo elige donde encaja y punto. Como individuo no significas mucho, y como miembro de una de éstas culturas tampoco, pero es en la esencia de cada una de éstas culturas y en el reflejo que ofrece de tí en el único lugar donde te puedes sentir alguien.

Desde el momento que los negocios son dirigidos por programas automáticos que invierten o no según la rentabilidad estadística, desde el momento en que enormes máquinas trabajan calculando grandes problemas físicos perdimos el mando. Nos hemos transformado en subordinados de la todopoderosa tecnología. Las bases de datos trabajan mejor que nosotros, archivan y buscan más rápido, y sobre todo nunca mienten. Nosotros trabajamos con máquinas, sacamos el dinero en máquinas, pagamos las cosas con máquinas, fabricamos la comida con máquinas y la calentamos con máquinas que cada vez tienen más capacidad de cómputo y de percibir el exterior. Ésto se llama computación ubícua, y se funde con toda nuestra realidad actual. La tecnología forma parte de la vida del individuo, es ineludible y ésto ha afectado al día a día del propio individuo. Todo parece automático, predecible, inalterable, se parece al código de un programa informático. Cada día está programado y sigue su curso como debe ser, los ciclos se repiten en bucles infinitos dando la sensación de que no hay un mañana y un ayer, sino tan solo un patrón definido que debe de repetirse.

La visión cyberpunk de este entorno requiere un pequeño esfuerzo para tirar abajo ciertos paradigmas. La tecnología no está entre la gente, es parte de la gente. El individuo tiene extensiones cybernéticas de diferente naturaleza a las que predijo la ciencia ficción. La identidad o identidades virtuales que cada individuo crea no son virtuales en su totalidad, hemos cambiado por completo la forma de entender el "yo", nos hemos transformado en cyborgs. No necesitamos implantes, ponemos los dedos sobre el teclado y éso nos hace uno con la máquina, la pantalla está a cierta distancia de nuestros ojos, pero toda la información fluye sin obstáculos entre ella y nosotros, podemos saber todo lo documentable o podemos ser invadidos por potentes propagandas víricas. La pesadilla de William Gibson es hoy.

Pues en uno de mis naufragios en internet he encontrado un sitio web de una compañía que se dedica a la inteligencia artificial desde donde puedes hablar con Sophie, un bot que aprende de sus usuarios y de motores de búsqueda.

La comunicación no es muy fluida como podeis ver, pero en realidad su IA es muy interesante.

prueba a hablar tu también con el bot: http://portal.solutecia.com/index.php?option=com_content&view=article&id=47&Itemid=69

Me han pasado éste post de taringa, me ha parecido muy bueno:

el post original es este (no es spam no puedo incrustar las fotos):
http://www.taringa.net/posts/imagenes/5806244/Dibujos-perturbadores__y-japoneses__.html

Tengo un problema muy extraño. Normalmente siempre que tengo que guardar pequeñas cadenas de texto he utilizado éste módulo para hacerlo. Lo he usado en windows xp con framework 3 y posteriormente con 3.5. Recientemente he terminado un pequeño programa hecho en windows 7 con visualbasic 2010 que también lo usa y funciona a la perfección, pero como requiere framework 4 he decidido rehacerlo en visualbasic 2008 y windows xp 3.5, hasta ahí perfecto. La parte extraña viene cuando pruebo el programa (que es pequeño y fácil ya que solo maneja texto) escrito igual y con los mismos objetos, solo que sobre framework 3.5 y éste maldito modulo no funciona como debe.

Hay un evento (list value changed) que dispara un getvar() del módulo en cuestión, la primera vez que se ejecuta lo hace bien, las siguientes veces no lee nada. Pruebo putvar() y no funciona tampoco... os aseguro que con anterioridad yo he usado éstas funciones en éste mismo ordenador y no había problema, el código está comprobadisimo.

¿Es posible que con alguna última actualización haya cambiado el comportamiento de éstas? me parece muy raro, ya que sobre framework 4 en win7 funciona... no se... yo pienso que debería hacerle un exorcismo al pc o algo... ¿alguna idea? o ¿puede alguien probar el código en winxp y avisarme si funciona?

 
Module modSystem
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal ReturnedString As String, ByVal RSSize As Integer, ByVal FileName As String) As Integer
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal FileName As String) As Integer
 
    Public Sub WriteINI(ByRef INISection As String, ByRef INIKey As String, ByRef INIValue As String, ByRef INIFile As String)
        Call WritePrivateProfileString(INISection, INIKey, INIValue, INIFile)
    End Sub
 
 
    Public Function ReadINI(ByRef Section As String, ByRef KeyName As String, ByRef FileName As String, ByRef Default_Renamed As String) As String
        Dim sRet As String
        sRet = New String(Chr(0), 255)
        ReadINI = Left(sRet, GetPrivateProfileString(Section, KeyName, Default_Renamed, sRet, Len(sRet), FileName))
    End Function
 
 
 
    Public Function GetVar(ByRef file As String, ByRef Header As String, ByRef Var As String) As String
        Dim sSpaces As String ' Max string length
        Dim szReturn As String ' Return default value if not found
        szReturn = vbNullString
        sSpaces = Space(5000)
        file = My.Application.Info.DirectoryPath & "\" & file
        Call GetPrivateProfileString(Header, Var, szReturn, sSpaces, Len(sSpaces), file)
        GetVar = RTrim(sSpaces)
        GetVar = Microsoft.VisualBasic.Strings.Left(GetVar, Len(GetVar) - 1)
    End Function
 
    Public Sub PutVar(ByRef file As String, ByRef Header As String, ByRef Var As String, ByRef Value As String)
        On Error GoTo PutVar_Error
        Dim fpath As String
        fpath = My.Application.Info.DirectoryPath & "\" & file
        Call WritePrivateProfileString(Header, Var, Value, fpath)
        On Error GoTo 0
        Exit Sub
PutVar_Error:
        MsgBox("Error " & Err.Number & " (" & Err.Description & ") en procedimiento putvar.")
    End Sub
End Module
 

Bueno, lo pongo en foro libre porque no es un tema de hardware normal y corriente. El caso es que un buen día mirando noseke en el monitor veo dos tres píxeles negros moviéndose que no deberían de estar ahí. Me llamó la atención y los observé de cerca. Se ve que algún tipo de bicho enano se había colado vete tu a saber por donde hasta dentro del monitor, el caso es que se ha muerto ahí y ahora tengo tres o cuatro píxeles negros... Hoy me fijo y hay dos bichos más muertos en la pantalla. Joder, parece una jodida plaga, no puede ser que todos los bichos del mundo se vengan a morir dentro de mi monitor... ¿alguien había visto algo parecido?

Bueno, no es un plano, pero sirve igual, ya que se puede deducir la placa. Es un hardware diseñado a partir de su fórmula. Tiene ocho patillas de entrada y cinco de salida.

en cuatro patillas metemos un nibble binario
en otras cuatro otro nibble binario

y a través de puertas lógicas devuelve la suma tambien en binario, pero de cinco bits. Para entender la formula sólo hay que saber que los números binarios los trato como matrices de interruptores, entonces, si llamo entrada() a una matriz, entrada(0) es el primer valor, entrada(7) el sexto etc.

las dos entradas son: IN1() y IN2()   -que tienen cuatro bits de ancho.
la salida es: OUT()                              -que tiene cinco bits.
El indicador del puntero: pun

for each pun in IN1()
OUT(pun)=((IN1(pun-1) AND IN2(pun-1)) XNOR (IN1(pun)XNOR IN2(pun))
next

Y esto suma como hay dios.

Quiero hacer un pequeño navegador basado en vb.net que con un timer haga ping al server del que viene la web que estás viendo, y me responda con el retardo en ms (si es posible, me vale con un si o no, si recibe o no). El navegador está casi acabado, de hecho escribo ésto desde él. Pero la funcion :

ping(DIR, 1)

me responde siempre con true, por lo que creo que sólo responde con true cuando envia el ping, independientemente de si éste llega o no. ¿tengo que usar otra funcion para ésto? éste es el código que se ejecuta cuando el objeto web1 ha cargado una nueva página:

Ésto me interesa simplemente porque uso wifi y me parecía una buena idea añadir esa funcionalidad al navegador (que usa el motor iexplorer) ¿Alguien que me sepa ayudar?

Me valdria con que me dieran una función que mande ping y responda si recibe respuesta o no.