Weird Weather Issue

Thursday, February 26, 2009 by JukEboXAuDiO | Discussion: DesktopX

So I have this script based on Martin's weather gadget. When you click onthe temperature it should change between Fahrenheit and Celcius. The odd thing is after it goes from Fahrenheit  to celcius, when you click it again the Fahrenheit temperature and condition changes. I am not sure what is causing it. Can anyone help me? This is a very odd issue.

 

Code for weather 

Code: vbscript
  1. Dim location
  2. Dim tempunit
  3. Dim summary(5)
  4. Dim summarymessage
  5. Sub Object_OnScriptEnter
  6. summarymessage=""'(mouse over images to show summary)"
  7. Dim filestring, filesys, filetxt
  8. filestring = DesktopX.ExecutableDirectory & "weather.ini"
  9.  
  10. Set filesys = CreateObject("Scripting.FileSystemObject")
  11.  
  12. If filesys.FileExists(filestring) Then
  13. firstrun = False
  14. Else
  15. firstrun = True
  16. End If
  17.  
  18. If firstrun = True Then
  19. Set WshNetwork = CreateObject("WScript.Network")
  20. UserName = WshNetwork.UserName
  21. Set UserName = Nothing
  22. Set WshNetwork = Nothing
  23. location = "06514"
  24. tempunit = "s"
  25.  
  26. Else
  27. Set filetxt = filesys.OpenTextFile(filestring)
  28. location = filetxt.ReadLine
  29. tempunit = filetxt.ReadLine
  30. filetxt.Close
  31. End If
  32.  
  33. Set filestring = Nothing
  34. Set filesys = Nothing
  35. Set filetxt = Nothing
  36. Set firstrun = Nothing
  37. Object.SetTimer 6001, 600000
  38. Object_OnTimer6001
  39. End Sub
  40.  
  41. Sub Object_OnScriptExit
  42. Dim filestring, filesys, filetxt, getname, path
  43. filestring = DesktopX.ExecutableDirectory & "weather.ini"
  44. Set filesys = CreateObject("Scripting.FileSystemObject")
  45. Set filetxt = filesys.CreateTextFile(filestring, True)
  46. path = filesys.GetAbsolutePathName(filestring)
  47. getname = filesys.GetFileName(path)
  48. filetxt.Write(location & vbNewLine & tempunit)
  49. filetxt.Close
  50.  
  51. Set filestring = Nothing
  52. Set filesys = Nothing
  53. Set filetxt = Nothing
  54. Set path = Nothing
  55. Set getname = Nothing
  56. End Sub
  57.  
  58. Sub Object_OnTimer6001
  59. If System.InternetConnected Then
  60. On Error Resume Next
  61. ' Create a web object
  62. Set http = CreateObject("Microsoft.XmlHttp")
  63. ' Retrieve data
  64. Randomize
  65. str_RANDOM_URL = "&rnd=" & rnd()
  66. If tempunit = "m" Then
  67. str_UNITS = "&unit=m"
  68. Else
  69. str_UNITS = "&unit=s"
  70.    End If
  71. http.Open "GET", "http://xoap.weather.com/weather/local/" & location & "?cc=*&dayf=5" & str_UNITS & str_RANDOM_URL, False
  72. http.send ""
  73. ' Store data in a string
  74. weatherdata = http.responseText
  76. If weatherdata <> "" Then
  77. ' As the feed is XML it is nicely structured, and it makes sense to use a simple function to extract data father than string manipulation
  78. ' Set the location using the xmlstrupper function (see below) to get the city and state
  79. weathertemp = xmlstripper("<dnam>", weatherdata)
  80. If weathertemp = "" Then
  81. Msgbox "This doesn't appear to be a valid zip code." & vbNewLine & vbNewLine & "Please try again.", vbExclamation + vbOKOnly, "Zip error ..."
  82. x = InputBox("Please enter the zip code that you would like to display the weather for:", "Select zip code ...", "06514")
  83. location = x
  84. Object_OnTimer6001
  85. Exit Sub
  86. Else
  87. If IsNumeric(location) Then weathertemp = Left(weathertemp, InStr(weathertemp, "(")-2)
  88. 'This is splitting the location into 2 lines
  89. tempstring = weathertemp
  90. firstpart = Left(tempstring, InStr(tempstring,",")-1)
  91. secondpart = Right(tempstring, Len(tempstring) - InStr(tempstring,",") - 1)
  93. DesktopX.ScriptObject("Weather City").Object.Text = firstpart & ", " & secondpart
  95. 'Country Abbreviations ISO 3166 Jan 7 2007
  96. Select Case secondpart
  97. Case "Afghanistan" secondpart = "AFG"
  98. Case "Albania" secondpart = "ALB"
  99. Case "Algeria" secondpart = "DZA"
  100. Case "American Samoa" secondpart = "ASM"
  101. Case "Andorra" secondpart = "AND"
  102. Case "Angola" secondpart = "AGO"
  103. Case "Anguilla" secondpart = "AIA"
  104. Case "Antarctica" secondpart = "ATA"
  105. Case "Antigua And Barbuda" secondpart = "ATG"
  106. Case "Argentina" secondpart = "ARG"
  107. Case "Armenia" secondpart = "ARM"
  108. Case "Aruba" secondpart = "ABW"
  109. Case "Australia" secondpart = "AUS"
  110. Case "Austria" secondpart = "AUT"
  111. Case "Azerbaijan" secondpart = "AZE"
  112. Case "The Bahamas" secondpart = "BHS"
  113. Case "Bahrain" secondpart = "BHR"
  114. Case "Bangladesh" secondpart = "BGD"
  115. Case "Barbados" secondpart = "BRB"
  116. Case "Belarus" secondpart = "BLR"
  117. Case "Belgium" secondpart = "BEL"
  118. Case "Belize" secondpart = "BLZ"
  119. Case "Benin" secondpart = "BEN"
  120. Case "Bermuda" secondpart = "BMU"
  121. Case "Bhutan" secondpart = "BTN"
  122. Case "Bolivia" secondpart = "BOL"
  123. Case "Bosnia And Herzegovina" secondpart = "BIH"
  124. Case "Botswana" secondpart = "BWA"
  125. Case "Bouvet Island" secondpart = "BVT"
  126. Case "Brazil" secondpart = "BRA"
  127. Case "British Indian Ocean Territory (Chagos Archipelago)" secondpart = "IOT"
  128. Case "British Virgin Islands" secondpart = "VGB"
  129. Case "Brunei" secondpart = "BRN"
  130. Case "Bulgaria" secondpart = "BGR"
  131. Case "Burkina Faso" secondpart = "BFA"
  132. Case "Burundi" secondpart = "BDI"
  133. Case "Cambodia" secondpart = "KHM"
  134. Case "Cameroon" secondpart = "CMR"
  135. Case "Canada" secondpart = "CAN"
  136. Case "Cape Verde" secondpart = "CPV"
  137. Case "Cayman Islands" secondpart = "CYM"
  138. Case "Central African Republic" secondpart = "CAF"
  139. Case "Chad" secondpart = "TCD"
  140. Case "Chile" secondpart = "CHL"
  141. Case "China" secondpart = "CHN"
  142. Case "Christmas Island" secondpart = "CXR"
  143. Case "Cocos (Keeling) Islands" secondpart = "CCK"
  144. Case "Colombia" secondpart = "COL"
  145. Case "Comoros" secondpart = "COM"
  146. Case "Democratic Republic of The Congo" secondpart = "COD"
  147. Case "Republic of The Congo" secondpart = "COG"
  148. Case "Cook Islands" secondpart = "COK"
  149. Case "Costa Rica" secondpart = "CRI"
  150. Case "Cote D' Ivoire" secondpart = "CIV"
  151. Case "Cuba" secondpart = "CUB"
  152. Case "Cyprus" secondpart = "CYP"
  153. Case "Czech Republic" secondpart = "CZE"
  154. Case "Denmark" secondpart = "DNK"
  155. Case "Djibouti" secondpart = "DJI"
  156. Case "Dominicaf" secondpart = "DMA"
  157. Case "Dominican Republic" secondpart = "DOM"
  158. Case "Ecuador" secondpart = "ECU"
  159. Case "Egypt" secondpart = "EGY"
  160. Case "El Salvador" secondpart = "SLV"
  161. Case "Equatorial Guinea" secondpart = "GNQ"
  162. Case "Eritrea" secondpart = "ERI"
  163. Case "Estonia" secondpart = "EST"
  164. Case "Ethiopia" secondpart = "ETH"
  165. Case "Faeroe Islands" secondpart = "FRO"
  166. Case "Falkland Islands" secondpart = "FLK"
  167. Case "Fiji" secondpart = "FJI"
  168. Case "Finland" secondpart = "FIN"
  169. Case "France" secondpart = "FRA"
  170. Case "French Guiana" secondpart = "GUF"
  171. Case "French Polynesia" secondpart = "PYF"
  172. Case "French Southern Territories" secondpart = "ATF"
  173. Case "Gabon" secondpart = "GAB"
  174. Case "The Gambia" secondpart = "GMB"
  175. Case "Georgia" secondpart = "GEO"
  176. Case "Germany" secondpart = "DEU"
  177. Case "Ghana" secondpart = "GHA"
  178. Case "Gibraltar" secondpart = "GIB"
  179. Case "Greece" secondpart = "GRC"
  180. Case "Greenland" secondpart = "GRL"
  181. Case "Grenada" secondpart = "GRD"
  182. Case "Guadeloupe" secondpart = "GLP"
  183. Case "Guam" secondpart = "GUM"
  184. Case "Guatemala" secondpart = "GTM"
  185. Case "Guinea" secondpart = "GIN"
  186. Case "Guinea-bissau" secondpart = "GNB"
  187. Case "Guyana" secondpart = "GUY"
  188. Case "Haiti" secondpart = "HTI"
  189. Case "Heard And McDonald Islands" secondpart = "HMD"
  190. Case "Vatican City" secondpart = "VAT"
  191. Case "Honduras" secondpart = "HND"
  192. Case "Hong Kong" secondpart = "HKG"
  193. Case "Croatia" secondpart = "HRV"
  194. Case "Hungary" secondpart = "HUN"
  195. Case "Iceland" secondpart = "ISL"
  196. Case "India" secondpart = "IND"
  197. Case "Indonesia" secondpart = "IDN"
  198. Case "Iran" secondpart = "IRN"
  199. Case "Iraq" secondpart = "IRQ"
  200. Case "Ireland" secondpart = "IRL"
  201. Case "Israel" secondpart = "ISR"
  202. Case "Italy" secondpart = "ITA"
  203. Case "Jamaica" secondpart = "JAM"
  204. Case "Japan" secondpart = "JPN"
  205. Case "Jordan" secondpart = "JOR"
  206. Case "Kazakhstan" secondpart = "KAZ"
  207. Case "Kenya" secondpart = "KEN"
  208. Case "Kiribati" secondpart = "KIR"
  209. Case "North Korea" secondpart = "PRK"
  210. Case "South Korea" secondpart = "KOR"
  211. Case "Kuwait" secondpart = "KWT"
  212. Case "Kyrgyzstan" secondpart = "KGZ"
  213. Case "Laos" secondpart = "LAO"
  214. Case "Latvia" secondpart = "LVA"
  215. Case "Lebanon" secondpart = "LBN"
  216. Case "Lesotho" secondpart = "LSO"
  217. Case "Liberia" secondpart = "LBR"
  218. Case "Libya" secondpart = "LBY"
  219. Case "Liechtenstein" secondpart = "LIE"
  220. Case "Lithuania" secondpart = "LTU"
  221. Case "Luxembourg" secondpart = "LUX"
  222. Case "Macao" secondpart = "MAC"
  223. Case "Former Yugoslav Rep. of Macedonia" secondpart = "MKD"
  224. Case "Madagascar" secondpart = "MDG"
  225. Case "Malawi" secondpart = "MWI"
  226. Case "Malaysia" secondpart = "MYS"
  227. Case "Maldives" secondpart = "MDV"
  228. Case "Mali" secondpart = "MLI"
  229. Case "Malta" secondpart = "MLT"
  230. Case "Marshall Islands" secondpart = "MHL"
  231. Case "Martinique" secondpart = "MTQ"
  232. Case "Mauritania" secondpart = "MRT"
  233. Case "Mauritius" secondpart = "MUS"
  234. Case "Mayotte" secondpart = "MYT"
  235. Case "Mexico" secondpart = "MEX"
  236. Case "Federated States Of Micronesia" secondpart = "FSM"
  237. Case "Moldova" secondpart = "MDA"
  238. Case "Monaco" secondpart = "MCO"
  239. Case "Mongolia" secondpart = "MNG"
  240. Case "Montserrat" secondpart = "MSR"
  241. Case "Morocco" secondpart = "MAR"
  242. Case "Mozambique" secondpart = "MOZ"
  243. Case "Burma" secondpart = "MMR"
  244. Case "Namibia" secondpart = "NAM"
  245. Case "Nauru" secondpart = "NRU"
  246. Case "Nepal" secondpart = "NPL"
  247. Case "Netherlands Antilles" secondpart = "ANT"
  248. Case "Netherlands" secondpart = "NLD"
  249. Case "New Caledonia" secondpart = "NCL"
  250. Case "New Zealand" secondpart = "NZL"
  251. Case "Nicaragua" secondpart = "NIC"
  252. Case "Niger" secondpart = "NER"
  253. Case "Nigeria" secondpart = "NGA"
  254. Case "Niue, Republic of" secondpart = "NIU"
  255. Case "Norfolk Island" secondpart = "NFK"
  256. Case "Northern Mariana Islands" secondpart = "MNP"
  257. Case "Norway" secondpart = "NOR"
  258. Case "Oman" secondpart = "OMN"
  259. Case "Pakistan" secondpart = "PAK"
  260. Case "Palau" secondpart = "PLW"
  261. Case "West Bank" secondpart = "PSE"
  262. Case "Panama" secondpart = "PAN"
  263. Case "Papua New Guinea" secondpart = "PNG"
  264. Case "Paraguay" secondpart = "PRY"
  265. Case "Peru" secondpart = "PER"
  266. Case "Philippines" secondpart = "PHL"
  267. Case "Pitcairn Island" secondpart = "PCN"
  268. Case "Poland" secondpart = "POL"
  269. Case "Portugal" secondpart = "PRT"
  270. Case "Puerto Rico" secondpart = "PRI"
  271. Case "Qatar" secondpart = "QAT"
  272. Case "Reunion" secondpart = "REU"
  273. Case "Romania" secondpart = "ROU"
  274. Case "Russia" secondpart = "RUS"
  275. Case "Rwanda" secondpart = "RWA"
  276. Case "St. Helena" secondpart = "SHN"
  277. Case "St. Kitts And Nevis" secondpart = "KNA"
  278. Case "Saint Lucia" secondpart = "LCA"
  279. Case "St. Pierre And Miquelon" secondpart = "SPM"
  280. Case "St. Vincent And the Grenadines" secondpart = "VCT"
  281. Case "Samoa" secondpart = "WSM"
  282. Case "San Marino" secondpart = "SMR"
  283. Case "Sao Tome and Principe" secondpart = "STP"
  284. Case "Saudi Arabia" secondpart = "SAU"
  285. Case "Senegal" secondpart = "SEN"
  286. Case "Serbia And Montenegro" secondpart = "SCG"
  287. Case "Seychelles" secondpart = "SYC"
  288. Case "Sierra Leone" secondpart = "SLE"
  289. Case "Singapore" secondpart = "SGP"
  290. Case "Slovakia" secondpart = "SVK"
  291. Case "Slovenia" secondpart = "SVN"
  292. Case "Solomon Islands" secondpart = "SLB"
  293. Case "Somalia" secondpart = "SOM"
  294. Case "South Africa" secondpart = "ZAF"
  295. Case "South Georgia And the South Sandwich Islands" secondpart = "SGS"
  296. Case "Spain" secondpart = "ESP"
  297. Case "Sri Lanka" secondpart = "LKA"
  298. Case "Sudan" secondpart = "SDN"
  299. Case "Suriname" secondpart = "SUR"
  300. Case "Svalbard & Jan Mayen Islands" secondpart = "SJM"
  301. Case "Swaziland" secondpart = "SWZ"
  302. Case "Sweden" secondpart = "SWE"
  303. Case "Switzerland" secondpart = "CHE"
  304. Case "Syria" secondpart = "SYR"
  305. Case "Taiwan" secondpart = "TWN"
  306. Case "Tajikistan" secondpart = "TJK"
  307. Case "United Republic of Tanzania" secondpart = "TZA"
  308. Case "Thailand" secondpart = "THA"
  309. Case "Timor-Leste, Democratic Republic of" secondpart = "TLS"
  310. Case "Togo" secondpart = "TGO"
  311. Case "Tokelau (Tokelau Islands)" secondpart = "TKL"
  312. Case "Tonga" secondpart = "TON"
  313. Case "Trinidad and Tobago" secondpart = "TTO"
  314. Case "Tunisia" secondpart = "TUN"
  315. Case "Turkey" secondpart = "TUR"
  316. Case "Turkmenistan" secondpart = "TKM"
  317. Case "Turks And Caicos Islands" secondpart = "TCA"
  318. Case "Tuvalu (was part of Gilbert & Ellice Islands)" secondpart = "TUV"
  319. Case "US Virgin Islands" secondpart = "VIR"
  320. Case "Uganda" secondpart = "UGA"
  321. Case "Ukraine" secondpart = "UKR"
  322. Case "United Arab Emirates" secondpart = "ARE"
  323. Case "United Kingdom" secondpart = "GBR"
  324. Case "United States Minor Outlying Islands" secondpart = "UMI"
  325. Case "United States" secondpart = "USA"
  326. Case "Uruguay" secondpart = "URY"
  327. Case "Uzbekistan" secondpart = "UZB"
  328. Case "Vanuatu" secondpart = "VUT"
  329. Case "Venezuela" secondpart = "VEN"
  330. Case "Vietnam" secondpart = "VNM"
  331. Case "Wallis And Futuna Islands" secondpart = "WLF"
  332. Case "Western Sahara" secondpart = "ESH"
  333. Case "Yemen" secondpart = "YEM"
  334. Case "Yugoslavia" secondpart = "YUG"
  335. Case "Zambia" secondpart = "ZMB"
  336. Case "Zimbabwe" secondpart = "ZWE"
  337.  
  338. End Select
  339. Set tempstring = Nothing
  340. Set firstpart = Nothing
  341. Set secondpart = Nothing
  342. End If
  343. ' The data doesn't have degrees symbols in it, so rip out the data, insert the symbols, then store it
  344. If str_UNITS = "&unit=s" Then
  345. weathertemp = xmlstripper("<tmp>", weatherdata) & Chr(176)' & "F"
  346. Else
  347. weathertemp = xmlstripper("<tmp>", weatherdata) & Chr(176)' & "C"
  348. End If
  349. Object.PersistStorage("Fahrenheit") = weathertemp
  350. DesktopX.ScriptObject("Weather Temp").Object.Text = Object.PersistStorage("Fahrenheit")
  351. ' Strip out all the other info
  352. conditions = xmlstripper("<cc>", weatherdata)
  353. conditions = xmlstripper("<t>", conditions)
  354. desktopx.Object("Weather Conditions").text = conditions
  356. conditions = xmlstripper("<icon>", weatherdata)
  357. Object.PersistStorage("Conditions") = conditions
  358. If IsNumeric(conditions) Then
  359. Object.State = conditions
  360. Else
  361. Object.State = "NA"
  362. End If
  363. End If
  365. ' Clear variables for clean code
  366. Set http = nothing
  367. Set weatherdata = Nothing
  368. Set weathertemp = Nothing
  369. Set forecastdatastart = Nothing
  370. Set forecastdataend = Nothing
  371. End If
  372. End Sub
  373.  
  374.  
  375. Function xmlstripper(param, string)
  376. datastart = InStr(string, param) + Len(param)
  377. datalength = Instr(string, "</" & Right(param, Len(param) - 1)) - datastart
  378. xmlstripper = Mid(string, datastart, datalength)
  379. End Function

 

Code on Temperature Object

Code: vbscript
  1. Function Object_OnLButtonUp(x,y,dragged)
  2. If dragged = False Then
  3. If DesktopX.ScriptObject("Weather Icon").tempunit = "m" Then
  4. DesktopX.ScriptObject("Weather Icon").tempunit = "s"
  5. Else
  6. DesktopX.ScriptObject("Weather Icon").tempunit = "m"
  7. End If
  8. DesktopX.ScriptObject("Weather Icon").Object_OnTimer6001
  9. End If
  10. End Function

 

Any help would be great.

2 Reply 14 Referrals
bilbo1930
Reply #1 Thursday, February 26, 2009 1:29 PM

pm or  mail to  _martin_


RedBuzzard
Reply #2 Thursday, February 26, 2009 5:59 PM

All my weather widgets have been doing the same thing for 2 days. I have to switch locations back and forth before it stabalizes to what the actual weather is.


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 skins.
  • 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!
Login

Home | About | Privacy | Upload Guidelines | Terms of Service | Help
Copyright © Stardock Corporation. All Rights Reserved.


web-wc01