Woohoo, tak jsem po letech opustil Windows mobile a vrhnul se na prozkoumavani Google Android.

Zakoupil jsem HTC Hero a me prvni dojmy jsou skvele.

QR Code

QR Code je příklad dvojrozměrného kódu, zapisovaného do čtverce. Ten musí mít ve třech vrcholech poziční značky ve formě soustředných čtyřúhelníků, ve čtvrtém vrcholu značku ve tvaru menšího čtyřúhelníku a ve spojnicích mezi těmito hraničními čtyřúhelníky úsečky tvořené střídavě bodem a mezerou. U menší verze micro QR některé tyto prvky chybí a je schopna zaznamenat menší objem dat. QR Code velmi výhodně kóduje japonská (a obecně některá asijská) znaková písma, proto je v těchto zemích oblíbený. Má vyspělý mechanizmus kontroly chyb, který dokáže obnovit 7 až 30 % dat. Patent pro QR Code patří společnosti Denso Ware Inc., nicméně patentová práva nejsou vykonávána. Společnost také v mnoha zemích vlastní obchodní známku „QR Code”. Specifikace QR Code je od června 2000 standardem ISO 18004. Standard byl upraven v roce 2006. QR Code má 40 tzv. verzí, které jsou určeny velikostí samotného kódu v bodech. Kód nejmenší verze 1 má velikost 21×21 bodů. Každá následující verze je 4 body širší a vyšší. Poslední (verze 40) má tedy velikost 177×177 bodů. QR code verze v, o délce strany n = 17 + 4·v může data zaznamenat do n²-193-2·(n-16) bodů.

Data Matrix

Další dvojrozměrný čárový kód, který umí zakódovat celou ASCII tabulku znaků. Je čtvercový s velikostmi od 8×8 po 144×144 bodů. Pro větší vstupní data se dělí na menší části, z nichž každý obsahuje tzv. „tichou zónu” (levý a dolní černý okraj), která nenese žádné informace. Data Matrix obsahuje algoritmy korekce chyb (Reed-Solomon). Užívá se v některých průmyslových úsecích (např. jsou jimi označována sériová čísla některých počítačových komponent). Data Matrix byl vyvinut společností RVSI/Acuity SyMatrix (nyní pod Siemens) v říjnu 2005. Na rozdíl od QR Code je zcela public domain.

(popis kódů použit z Wikipedie)

V dalším článku se podíváme na některé zajímavé (vyzkoušené) čtečky dvojrozměrných kódů.

Věřím, že na tomto gadgetu (miniaplikaci) se dá ještě mnoho doladit, takže můžete očekávat aktualizace, které se budou automaticky projevovat na Vaší domovské stránce iGoogle. Jen pro zajímavost bych nastínil, že půjde například o vyhledávání svátků (jmenin) dle zadaných / nadefinovaných parametrů, použití kalendáře a jiné. Již teď se máte na co těšit.

Zde je již zmiňovaný gadget (miniaplikace pro iGoogle domovskou stránku):

tampiss

Zde je má první miniaplikace pro iGoogle “gadget”, která vypočítá čistou mzdu ze zadané hodnoty “hrubá mzda”. Tato verze nijak nezahrnuje další možnosti jako jsou například úlevy na děti atd…. V případě většího zájmu to však nebude problém. Pokud máte nějaké dotazy, neváhejte psát / ptát se .

Tak a zde je již zmiňovaná miniaplikace pro iGoogle:

tampiss

After assigning the script file to a specific (software / hardware key), it will pop up the options screen, where you are able to select either normal or mute profile mode. You may also set the mute mode on, which will automatically change after specific time period (15 / 30 minutes or 1 / 1,5 / 2 hours) back to normal. This function is very usefull while attending meeting.

There are 3 script files included.

1. manualprofile.mscr – the main script, defining wether to set mute on / off
2. muteon.mscr – script that changes needed tones to mute mode
3. muteoff.mscr – script that changes needed tones to normal mode

For more information on how to use (MuteOn.mscr and MuteOff.mscr), please see post Set AutoProfile on WM6.

– ManualProfile.mscr – START ———————————————–
list[1]=”Normal sound”
list[2]=”Mute sound”
list[3]=”—————————–”
list[4]=”Normal in 15 minutes”
list[5]=”Normal in 30 minutes”
list[6]=”Normal in 1 hour”
list[7]=”Normal in 1,5 hour”
list[8]=”Normal in 2 hours”

Choice( “Settings”,”Choose option:”,list)
Case( 1 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOff.mscr”)
Case( 2 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
Case( 3 )
Exit
Case( 4 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
utime = TimeStamp()+900
RunAt( utime, “\Storage Card\My Mortscripts\scripts\MuteOff.mscr” )
Case( 5 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
utime = TimeStamp()+1800
RunAt( utime, “\Storage Card\My Mortscripts\scripts\MuteOff.mscr” )
Case( 6 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
utime = TimeStamp()+3600
RunAt( utime, “\Storage Card\My Mortscripts\scripts\MuteOff.mscr” )
Case( 7 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
utime = TimeStamp()+5400
RunAt( utime, “\Storage Card\My Mortscripts\scripts\MuteOff.mscr” )
Case( 8 )
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
utime = TimeStamp()+7200
RunAt( utime, “\Storage Card\My Mortscripts\scripts\MuteOff.mscr” )
Case( 0 )
Exit
EndChoice
– ManualProfile.mscr – END ——————————————————–

I will appriciate any comments.

tampiss

This script enables the automatic profile change regarding to day and time. The script is set to change profile to mute everyday from Monday to Friday at 9 p.m., and automatically returns back to normal mode at 5 a.m. (weekend is set: from 9 p.m. to 8:30 a.m.). The whole idea is more than easy. There are 3 files included (AutoProfile.mscr, MuteOn.mscr and MuteOff.mscr).

1. autoprofile.mscr is script, which define the day and time to change the profile.
2. muteon.mscr is script, which changes the profile to mute mode.
3. muteoff.mscr is script, which changes the profile to normal mode.

The best of all is the fact, it only changes the ring tones. That means, I have real and mute ring tones on my storage card, and the scripts copies them to \\windows depending on profile mode. The whole thing is then controlled by PPC ring tones set up.

– AutoProfile.mscr – START ————————————-
Sleep (10000)
Vibrate (500)

GetTime(hour,min,sec,day,month,year)
Den = FormatTime(“w”, TimeStamp())
Hodina = FormatTime(“H”, TimeStamp())

script = SystemPath(“ScriptPath”)\”AutoProfile.mscr”
RemoveNotifications(script)

If (Den >= 0 AND Den <= 4)
If (Hodina >= 5 and Hodina <= 20)
Run(“\Storage Card\My Mortscripts\scripts\MuteOff.mscr”)
RunAt( year, month, day, 21, 0, script )
Exit
Else
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
xYear = FormatTime(“Y”, TimeStamp()+86400)
xMonth = FormatTime(“m”, TimeStamp()+86400)
xDay = FormatTime(“d”, TimeStamp()+86400)
#message (xYear & xMonth & xDay)
RunAt( xYear, xMonth, xDay, 5, 0, script )
Exit
EndIf
Else
If (Hodina >= 5 and Hodina <= 20)
Run(“\Storage Card\My Mortscripts\scripts\MuteOff.mscr”)
RunAt( year, month, day, 21, 0, script )
Exit
Else
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
xYear = FormatTime(“Y”, TimeStamp()+86400)
xMonth = FormatTime(“m”, TimeStamp()+86400)
xDay = FormatTime(“d”, TimeStamp()+86400)
#message (xYear & xMonth & xDay)
RunAt( xYear, xMonth, xDay, 8, 30, script )
Exit
EndIf
EndIf
– AutoProfile.mscr – END ————————————-

– MuteOn.mscr – START ————————————-
#mute
copy “\\Storage Card\\My Ringtones\\MTmute.wav”, “\\Windows\\Rings\\A_ring.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTmute.wav”, “\\Windows\\A_sms.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTmute.wav”, “\\Windows\\A_notify.wav”, 1
RegWriteString(“HKCU”, “\\Software\\tampiss\\”, “Profil”, “Mute”)
– MuteOn.mscr – END —————————————–

– MuteOff.mscr – START ————————————–
#normal
copy “\\Storage Card\\My Ringtones\\MTring.wav”, “\\Windows\\Rings\\A_ring.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTsms.wav”, “\\Windows\\A_sms.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTnotify.wav”, “\\Windows\\A_notify.wav”, 1
RegWriteString(“HKCU”, “\\Software\\tampiss\\”, “Profil”, “Ring”)
– MuteOff.mscr – END —————————————–

I believe, this solution would come handy to many off you.
tampiss