#Geek | Layer8.VI

As a technologist and futurist, I am always looking at ways to implement technology to make my life easier, get paid to help other individuals and organizations and look towards the future.

I see the technology that Pokemon Go as an epoch in human history. Many ‘Adults’ may see this as a bunch of ‘kids’ running around and throwing imaginary spheres at each other, but I can imagine the same interaction taking place 44 years ago when Pong came out. Ironically the original Pong Cabinet was yellow….go figure.

Many only see the content, the furry yellow Pikachu. I see the next step in technology interfaces. Augmented Reality(AR) will replace Virtual Reality(VR) before VR even starts. Location specific resources will be part of the future, and with the unlimited layers that can imposed on the world, we are just beginning to scratch the surface. Just like DSpace from the Daemon/Freedom(tm) books by Daniel Suarez, the world on-line will enter the ‘real world’

Ingress was great. I loved it, but couldn’t stick with it because it kept getting repetitive. Let’s how much I can catch in Pokemon Go while being part of human history.

To test the time that a laptop battery takes to discharge, I wrote this script that would just print the time to a text file on the My Documents Directory every 10 seconds. When completely discharged, just look at the time it stopped recording.

Power on laptop on AC Power
Run Program
Remove AC Power
Let battery power discharge
Analyse text file.

Todo:

Monitor battery load
Email (?)

Source Code:

#include <Date.au3>

$ts = _Date_Time_SystemTimeToDateTimeStr(_Date_Time_GetSystemTime())
$tstart1=StringReplace($ts,”/”,”_”)
$tstart2=StringReplace($tstart1,”:”,”_”)
$tstart3=StringReplace($tstart2,” “,”_”)

while 1
$ts = _Date_Time_SystemTimeToDateTimeStr(_Date_Time_GetSystemTime())
FileCreate(@MyDocumentsDir & “\battery_” & $tstart3 & “.txt”,$ts & @CRLF)
Sleep(10000)
WEnd

; Create a file.
Func FileCreate($sFilePath, $sString)
Local $bReturn = True
$bReturn = FileWrite($sFilePath, $sString)
Return $bReturn
EndFunc ;==>FileCreate

Layer8.VI

Geek culture, technology with a Caribbean twist

Category Archives: #Geek

Life is better with Open Source

Imagine being able to deploy resources anywhere on the island…….

Why I just installed Pokemon Go….

Laptop battery test script – win32

InfoTech DB

Why I never say any system is 100 % secure….

Technology…….

Google Send email as …….

The future will be decentralized

I am building the world…