Online Calculator

Distance in miles using GPS coordinates (decimal degrees):
R1=Starting Position (Latitude) R2=Starting Position (Longitude)
R3=Ending Position (Latitude) R4=Ending Position (Longitude)
miles = acos(cos(radians(90-R1))*cos(radians(90-R3))+sin(radians(90-R1))*sin(radians(90-R3))*cos(radians(R2-R4)))*3958.756
kilometers = acos(cos(radians(90-R1))*cos(radians(90-R3))+sin(radians(90-R1))*sin(radians(90-R3))*cos(radians(R2-R4)))*6371

Smartcardreader

Smartcard-lezer werkt niet
De oorzaak is wellicht een corrupte registersleutel
30 maart 2010 Ik kan mijn eID niet inlezen via mijn kaartlezer. Ik heb de driver al eens geherinstalleerd, alle updates van Windows geïnstalleerd, maar telkens krijg ik de foutmelding dat de Smart Card-service op de lokale computer niet kan worden opgestart en dat het systeem het opgegeven bestand niet kan vinden. Hebben jullie daar soms een oplossing voor?
Hugo De Smet

We gaan er inderdaad van uit dat je de recentste driver(s) hebt geïnstalleerd evenals de bijhorende software voor de E-ID. Meer informatie over de installatie vind je alvast op http://eid.belgium.be/nl/Hoe_installeer_je_de_eID/Windows/index.jsp.

Gezien de (eerste) foutmelding vermoeden we dat de smartcard-service – die normaliter standaard in Windows hoort te zitten – bij jou ontbreekt of minstens corrupt is geworden. Start hiervoor het commando services.msc op vanuit het Windows startmenu en ga na of de service Smartcard zich in het overzicht bevindt.

Is dat inderdaad zo, klik die dan aan en klik in het linkerpaneel op (DE SERVICE) STARTEN. Lukt het niet, controleer dan ook of de service Plug and Play actief is (de smartcard service is namelijk van deze service afhankelijk).

Bevindt de service zich niet in de lijst of weigert die obstinaat op te starten, dan verhelp je deze situatie wellicht met een registeringreep. Voor alle zekerheid maak je wel eerst een systeemherstelpunt aan.

Open vervolgens Regedit en navigeer naar de sleutel HKEY_LOCAL_MACHINE, SYSTEM, CurrentControlSet, Services, SCardSvr. Klik deze sleutel met de rechtermuisknop aan en kies EXPORTEREN, waarna je het regbestand een geschikte naam en locatie meegeeft.

Surf nu naar http://www.websight.be/clickx/smartcard.htm, (zie hieronder Inhoud Smartcard.reg bestand) haal het regbestand op (klik de link met de rechtermuisknop aan, kies DOEL OPSLAAN ALS en zorg dat het bestand met de extensie .reg op je schijf belandt), dubbelklik erop en bevestig dat je de gegevens aan het register wilt toevoegen.

Herstart Windows: vermoedelijk lukt het nu wél weer. Indien nodig laat je eigen geback-upte regbestand zich ook altijd weer terugzetten via een dubbelklik.

Inhoud Smartcard.reg bestand:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr]
"DisplayName"="Smartcard"
"Group"="SmartCardGroup"
"ImagePath"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,\
74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,\
00,76,00,63,00,68,00,6f,00,73,00,74,00,2e,00,65,00,78,00,65,00,20,00,2d,00,\
6b,00,20,00,4c,00,6f,00,63,00,61,00,6c,00,53,00,65,00,72,00,76,00,69,00,63,\
00,65,00,00,00
"Description"="@%SystemRoot%\\System32\\SCardSvr.dll,-5"
"ObjectName"="NT AUTHORITY\\LocalService"
"ErrorControl"=dword:00000001
"Start"=dword:00000002
"Type"=dword:00000020
"DependOnService"=hex(7):50,00,6c,00,75,00,67,00,50,00,6c,00,61,00,79,00,00,00,\
00,00
"ServiceSidType"=dword:00000001
"RequiredPrivileges"=hex(7):53,00,65,00,43,00,72,00,65,00,61,00,74,00,65,00,47,\
00,6c,00,6f,00,62,00,61,00,6c,00,50,00,72,00,69,00,76,00,69,00,6c,00,65,00,\
67,00,65,00,00,00,53,00,65,00,43,00,68,00,61,00,6e,00,67,00,65,00,4e,00,6f,\
00,74,00,69,00,66,00,79,00,50,00,72,00,69,00,76,00,69,00,6c,00,65,00,67,00,\
65,00,00,00,53,00,65,00,49,00,6d,00,70,00,65,00,72,00,73,00,6f,00,6e,00,61,\
00,74,00,65,00,50,00,72,00,69,00,76,00,69,00,6c,00,65,00,67,00,65,00,00,00,\
00,00
"FailureActions"=hex:84,03,00,00,00,00,00,00,00,00,00,00,03,00,00,00,14,00,00,\
00,01,00,00,00,c0,d4,01,00,01,00,00,00,e0,93,04,00,00,00,00,00,00,00,00,00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr\Parameters]
"ServiceDll"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,\
00,74,00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,\
53,00,43,00,61,00,72,00,64,00,53,00,76,00,72,00,2e,00,64,00,6c,00,6c,00,00,\
00
"ServiceMain"="CalaisMain"
"ServiceDllUnloadOnStop"=dword:00000001

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr\Security]
"Security"=hex:01,00,14,90,90,00,00,00,a0,00,00,00,14,00,00,00,34,00,00,00,02,\
00,20,00,01,00,00,00,02,c0,18,00,00,00,0c,00,01,02,00,00,00,00,00,05,20,00,\
00,00,20,02,00,00,02,00,5c,00,04,00,00,00,00,02,14,00,ff,01,0f,00,01,01,00,\
00,00,00,00,05,12,00,00,00,00,00,18,00,ff,01,02,00,01,02,00,00,00,00,00,05,\
20,00,00,00,20,02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,04,\
00,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,06,00,00,00,01,02,\
00,00,00,00,00,05,20,00,00,00,20,02,00,00,01,02,00,00,00,00,00,05,20,00,00,\
00,20,02,00,00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr\Enum]
"0"="Root\\LEGACY_SCARDSVR\\0000"
"Count"=dword:00000001
"NextInstance"=dword:00000001

Switch Task Shortcut

Create shortcut with:
C:\Windows\System32\rundll32.exe DwmApi #105

Startup Customizations for Media Center in Windows 7

go to Start > All Programs, right-click on Windows Media Center and select “Properties.”
you will see the Target box with the text string: %windir%\ehome\ehshell.exe.
To add each of these switches to the Target, simply leave a space after
%windir%\ehome\ehshell.exe, type the switch, and click “Save.
” When you are finished, it should read like this:

%windir%\ehome\ehshell.exe /no startupanimation

Disable the Startup Animation & Music
/no startupanimation
Media Only Mode
/mediamode
RTL Mode
If you prefer to look at things from right to left, you may enjoy RTL mode.
/rtl
Remove Shut Down from Tasks
/noshutdownui
No Chrome
This switch opens Media Center without the window frame and
doesn’t display an icon on the task bar.
/nochrome
Open in the Video Library
/directmedia:video
Start in Recorded TV
/directmedia:tv
Open in the Picture Library
/directmedia:pictures
Open in the Music Library
/directmedia:music
Play Your Music at Startup
/playallmusic
Play your favorite songs
/playfavmusic
Play Music with a Slideshow
/playslideshowwithmusic
play the slideshow with only your favorite music.
/playfavslideshowwithmusic
Start with Just a Slideshow
/playslideshow
slideshow of just your favorites.
/playfavslideshow

Witte LED overschrijdt 200 lumen per watt

LED-fabrikant Cree heeft aangekondigd dat men er als eerste in is geslaagd om de huidige maximale lichtopbrengst bij een enkele witte LED van 200 lumen per watt te overschrijden. Bij een laboratoriumopstelling waren Cree-onderzoekers in staat om een helderheid van 208 lumen te bereiken met een rendement van 208 lm/W bij een kleurtemperatuur van 4579 K. De testen werden uitgevoerd onder gestandaardiseerde omstandigheden bij kamertemperatuur en een LED-stroom van 350 mA.

How to run windows installer cleanup when installer fails

1. Download de Windows Installer Cleanup Utility (msicuu2.exe)
2. Klik op Start, Uitvoeren. typ %temp% en druk op ENTER. Dit opent de tijdelijke map van uw gebruikersprofiel.
3. Dubbelklik op het bestand (msicuu2.exe)dat u eerder hebt gedownload in stap 1.
4. uitvoeren van msicuu2.exe zou automatisch het setup pakket moeten uitpakken naar de map %temp%, onder de map met de naam IXP000.TMP.
5. Kopieer de map IXP000.TMP op uw bureaublad.
Opmerking: Negeer (en verlaat) alle Windows Installer vragen of fouten die kunnen worden weergegeven op dit moment. Je hebt al bestanden die u nodig hebt, om de Windows Installer Cleanup Utility handmatig te laten lopen.
6. Open de map IXP000.TMP op uw bureaublad.
7. Als u een Windows 9x-systeem (Windows 95/98/Me)hebt, verander de naam van het bestand MsiZapA.exe in Msizap.exe. Als u Windows 2000/XP/2003 hebt, verander de naam van het bestand MsiZapU.exe in Msizap.exe
8. Dubbelklik op het bestand Msicuu.exe, en ziedaar, de Windows Installer Cleanup Utility begint te lopen.

Get Numeric Value from String

Function Number(ByVal CurrString As String)
Dim temp As String

temp = Left(CurrString, 1)
Do While Not IsNumeric(temp)
If Len(CurrString) <= 1 Then
Exit Function
Else
CurrString = Mid(CurrString, 2)
temp = Left(CurrString, 1)
End If
Loop
Number = Val(CurrString)
End Function