Advanced Dopplar

[Simucal]

You should update the script in the first post with the latest one billmez added stuff to.

[xircon]

I know this is incredibly dim (well it is monday) and I haven't downloaded cos it says it is for american use only and I am british, but what does it do and what am I missing? The last time I heard dopplar metioned was in a world war II film when we used it to detect german bombers

[kcd-clan]

good stuff man g.j

[heretician]

I'm a newbie to AutoIt and I tried to compile this and I got an error!

Any clue how I can fix this? =)

EDIT:

And why the heck is that img so big lol?

Edited August 9, 2010 by heretician

[Jos]

I'm a newbie to AutoIt and I tried to compile this and I got an error!

Any clue how I can fix this? =)

Maybe because this script is 4 years old and AutoIt3 evolved a little since then? Edited August 9, 2010 by Jos

[argumentum]

I'm a newbie to AutoIt and I tried to compile this and I got an error!

Any clue how I can fix this? =)

EDIT:

And why the heck is that img so big lol?

expandcollapse popup

Dim $pic = 1, $BS_FLAT = 0x8000

;This is smaller than 800x600, so you should have no troubles using that resolution
$gui1 =    GUICreate("Weather Maps", 700, 515, (@DesktopWidth - 750) / 2, 50)
DirCreate(@TempDir & "\WeatherMaps")
InetGet("http://image.weather.com/web/radar/us_mia_closeradar_large_usen.jpg", @TempDir & "\WeatherMaps\dopplar.jpg", 1, 0)
$echo =    GUICtrlCreatePic(@TempDir & "\WeatherMaps\dopplar.jpg", 0, 0, 700, 485)
$dopplar =  GUICtrlCreateButton("Doppler Radar", 0, 490, 100, 20, $BS_FLAT)
$trops =      GUICtrlCreateButton("Tropics", 105, 490, 100, 20, $BS_FLAT)
$lightning =  GUICtrlCreateButton("Lightning", 210, 490, 100, 20, $BS_FLAT)
$24rainfall = GUICtrlCreateButton("Predicted Rainfall", 315, 490, 100, 20, $BS_FLAT)
$drought =  GUICtrlCreateButton("Drought Severity", 420, 490, 100, 20, $BS_FLAT)
$temps =      GUICtrlCreateButton("Temperatures", 525, 490, 100, 20, $BS_FLAT)
;Had some extra room so I stuck this in, could be used for many things
$opt =      GUICtrlCreateButton("Options...", 630, 490, 70, 20, $BS_FLAT)

GUISetState(@SW_SHOW, $gui1)
AdlibRegister("_GetEcho", 30000) ; <--- this is all it really changed

While 1
   $get = GUIGetMsg()
   Select
      Case $get = -3
         Exit
      Case $get = $dopplar
         $pic = 1
         _GetEcho()
      Case $get = $trops
         $pic = 2
         _GetEcho()
      Case $get = $lightning
         $pic = 3
         _GetEcho()
      Case $get = $24rainfall
         $pic = 4
         _GetEcho()
      Case $get = $drought
         $pic = 5
         _GetEcho()
      Case $get = $temps
         $pic = 6
         _GetEcho()
      Case $get = $opt
       ;Do option-related stuff here
   EndSelect
WEnd

Func _GetEcho()
   If $pic = 1 Then
 ;     InetGet("http://image.weather.com/web/radar/us_nyc_closeradar_large_usen.jpg", @TempDir & "\WeatherMaps\dopplar.jpg", 1, 0)
      InetGet("http://image.weather.com/web/radar/us_mia_closeradar_large_usen.jpg", @TempDir & "\WeatherMaps\dopplar.jpg", 1, 0)
      $name = "\dopplar.jpg"
   ElseIf $pic = 2 Then
      InetGet("http://image.weather.com/images/sat/tropsat_600x405.jpg", @TempDir & "\WeatherMaps\trops.jpg", 1, 0)
      $name = "\trops.jpg"
   ElseIf $pic = 3 Then
      InetGet("http://image.weather.com/images/maps/severe/map_light_ltst_4namus_enus_600x405.jpg", @TempDir & "\WeatherMaps\lightning.jpg", 1, 0)
      $name = "\lightning.jpg"
   ElseIf $pic = 4 Then
      InetGet("http://image.weather.com/web/maps/radar/regions/us_rainfall_est_yesterday_600_en.jpg", @TempDir & "\WeatherMaps\24rainfall.jpg", 1, 0)
      $name = "\24rainfall.jpg"
   ElseIf $pic = 5 Then
      InetGet("http://image.weather.com/images/maps/current/palmer_drought_720x486.jpg", @TempDir & "\WeatherMaps\drought.jpg", 1, 0)
      $name = "\drought.jpg"
  ElseIf $pic = 6 Then
      InetGet("http://image.weather.com/images/maps/current/acttemp_600x405.jpg", @TempDir & "\WeatherMaps\temps.jpg", 1, 0)
      $name = "\temps.jpg"
   EndIf
   GUICtrlSetImage($echo, @TempDir & "\WeatherMaps\" & $name)
EndFunc;==>_GetEcho

Func OnAutoItExit()
   AdlibUnRegister("_GetEcho")
   GUIDelete($gui1)
   DirRemove(@TempDir & "\WeatherMaps\", 1)
EndFunc;==>OnAutoItExit