Comment #22 Friday, September 9, 2005 3:00 AM
With MSXML4 I managed to load clock to ObjectDock with no crash, but whatever I do, no matter what city I choose, there's only Groton, MA on the background (clock title changes still) and it's always 10:52 AM. I can't figure out what I need to do to make it work corretly.
Comment #23 Thursday, September 22, 2005 11:54 AM
For People Having Trouble, Dudes Whats going on maybe i will
have to give you guys tips on how to install this docklet
its so easy.
Comment #24 Sunday, October 2, 2005 8:43 AM
Thanks
Comment #25 Monday, October 3, 2005 6:21 AM
1) i only seem to be able to change the location when i put it directly in the .ini file
2) the map only shows when i start the clock for the first time with the "Groton" (or whatever) location. when i click it or do anything else it vanishes and i have a black clock. even when i restart O-Dock with the manually changed location. it just wont show again
any advice? i meanits half the fun without the map
Comment #26 Tuesday, October 4, 2005 4:14 PM
What's "Groton"?
Why my clock is Black? Where is the world?
Comment #27 Wednesday, October 5, 2005 3:06 AM
Comment #28 Thursday, October 6, 2005 3:12 PM
It doesn't show the "planet" in the background...
Anyone have the solution?
...and also a list of Zip code...
Comment #29 Monday, October 10, 2005 2:26 PM
The only problem now is he black background in the clock...
Where is the map?
Comment #30 Wednesday, October 12, 2005 9:33 AM
Comment #31 Thursday, October 13, 2005 5:35 PM
Why?
How can I solve this problem?
Comment #32 Friday, November 25, 2005 9:23 AM
It seems the World.vbs script had to be adjusted. With thanks to AndreasV.
Make a copy of your World.vbs script and replace the contents with (it's a bit long but hey...):
Const feedName = "Data Feed"
function stringToFloat(strFraction)
if IsNull(strFraction) then
stringToFloat = 0
exit function
end if
Dim strLength 'as Int
strLength = len(strFraction)
Dim dotPos 'as Int
dotPos = InStrRev(strFraction, ".")
Dim intValue 'As Int
Dim fractionValue 'As Int
intValue = Left(strFraction, dotPos - 1)
fractionValue = Right(strFraction,strLength - dotPos)
Dim valueAsFloat 'As Float
valueAsFloat = intValue + cdbl(fractionValue) / 100
stringToFloat = valueAsFloat
end function
Function MoveMap()
centerX = SysStatsModel.Width/2
centerY = SysStatsModel.Height/2
latitude = stringToFloat(SysStatsModel.Meters("Latitude"))
longitude = stringToFloat(SysStatsModel.Meters("Longitude"))
Dim world
Set world = SysStatsModel.Overlays("world")
w = world.ImageWidth - 512
h = world.ImageHeight
x = (longitude * (w/2) / 180) + (w/2)
y = (h/2) - ((h/2) * latitude / 90)
world.Dispose()
world.CenterX = x + 256
world.CenterY = y
End Function
function parseTimeToLong(strTime)
If IsNull(strTime) then
parseTimeToLong = 0
exit function
end if
Dim hours 'As Int
Dim minutes 'As Int
Dim AMPM 'As String
Dim colonPos 'As Int
Dim spacePos 'As Int
Dim totalTime 'As Int
colonPos = InStrRev(strTime, ":")
spacePos = InStrRev(strTime, " ")
hours = Left(strTime, colonPos - 1) ' 1-based string
minutes = Mid(strTime, colonPos + 1, 2) 'minutes are always 2 characters long
AMPM = Right(strTime, 2) 'AM or PM is always 2 characters long
AMPM = UCase(AMPM) 'uppercase it for comparison
If hours = "12" Then
hours = 0
End If
if AMPM = "PM" then
hours = hours + 12
end if
totalTime = cint(hours) * 3600 + cint(minutes) * 60
parseTimeToLong = totalTime
end function
Function localTime()
localTime = (SysStatsModel.Meters("UTC").GetAsLong("0") + (SysStatsModel.Meters("Zone") * 3600) + 86400) Mod 86400
End Function
function isDay()
Dim sunRise 'As String
Dim sunSet 'As String
sunRise = SysStatsModel.Meters("Sunrise")
sunSet = SysStatsModel.Meters("Sunset")
Dim curTimeAsLong 'As Long
Dim sunSetAsLong 'As Long
Dim sunRiseAsLong 'As Long
curTimeAsLong = localTime()
sunSetAsLong = parseTimeToLong(sunSet)
sunRiseAsLong = parseTimeToLong(sunRise)
'ENABLE FOR DEBUG
'WScript.Echo "curTime: " & cstr(curTimeAsLong)
'WScript.Echo "sunSet: " & cstr(sunSetAsLong)
'WScript.Echo "sunRise: " & cstr(sunRiseAsLong)
isDay = (curTimeAsLong >= sunRiseAsLong) and (curTimeAsLong < sunSetAsLong)
end function
Function SetHands()
timeInSecs = localTime()
' SysStatsModel.Overlays("seconds").Rotation = (timeInSecs * 360 / 60) Mod 360
SysStatsModel.Overlays("minute").Rotation = (timeInSecs * 360 / 3600) Mod 360
SysStatsModel.Overlays("hour").Rotation = (timeInSecs * 360 / 43200) Mod 360
End Function
Function ScriptMeter_Update
MoveMap()
SetHands()
ScriptMeter_Update = true
End Function
Function ScriptMeter_GetValue(selector)
Select Case selector
Case "DayNight"
Dim pmOrAM
ScriptMeter_GetValue = "Night"
if isDay() then
ScriptMeter_GetValue = "Day"
end If
Case "AMPM"
lTime = localTime()
If lTime >= 0 and lTime < 43200 Then
ScriptMeter_GetValue = "AM"
Else
ScriptMeter_GetValue = "PM"
End If
End Select
End Function
Comment #33 Sunday, January 1, 2006 3:50 PM
Comment #35 Monday, April 17, 2006 3:36 AM
Im sorry but I am very new on all these docks...
I have installed the clock, but I dont know how to put a new location. I dont know where to right click... I can only see Groton !
Can someone help me ?
Comment #36 Friday, May 5, 2006 3:15 PM
Comment #37 Tuesday, May 9, 2006 9:36 AM
I build GIS (Geographic Information Systems) data for a living (and I am a Land Surveyor) in Florida so I love anything that uses globes or maps. I was thrilled to see that you are re-centering the image to the users location (ctrl-click icon and change your zip code). That is very slick!!!
The one thing I seem to have trouble remembering throughout a days work is todays day and date. I like being able to quickly roll over the original ObjectDock Clock to see the day and date. Would you consider changing your world clock to display this info over the clock instead of the location name? (Usually I can remember where I am at any given time of day)
I love your work. keep it up and have fun with it!
Grant
Comment #38 Wednesday, August 9, 2006 1:38 PM
Can anybody help me?
Comment #40 Saturday, February 24, 2007 12:56 PM
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading files.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!
Comment #21 Sunday, June 5, 2005 4:53 PM
My copy of the original ObjectDock is under Program Files and is not open. ObjectDock Plus is under Stardock\ObjectDesktop. I'll take out the original program, and see if that helps. I can't understand why others were able to unzip and use immediately.
Thanks for all your efforts!