Jump to content

Radar

Zedna

By Zedna,
in AutoIt Example Scripts

 Share

Recommended Posts

Zedna Universalist

Zedna

Posted
Posted (edited)

Radar is little program for easy and quick view of radar pictures from the Czech Hydrometeorological Institute website

http://www.chmu.cz/meteo/rad/index.html

http://www.chmu.cz/meteo/rad/rad_data.php

It can be customized by setting INI values however if you just run original unmodified version

it will download latest 6 meteo-radar pictures and start showing them as animation.

Shortcuts: 

F1     - About 
 F3    - Switching to next defined Cross (according to INI file) 
 Shift+F3 - Switching to previous defined Cross (according to INI file) 
 F4    - Show/hide Cross (defined in the INI file) 
 Shift+F4 - The definition of crosses with the possibility of entering user defined positions 
 F5    - Redownload data 
 Pause  - Stop/Start animation
 Left    - In Pause mode move the slide back 
 Right  - In Pause mode move the slide forward
 Up    - increasing size of the window 
 Down    - reducing size of the window 
 Esc      - Exit (during the download interrupt download)

Program is written/commented in Czech language.

Detailed description also with changelog is in radar.txt (Czech), radar_eng.txt (English)

The program is FREEWARE - can be freely copied.

The program contains also source code AutoIt v3.

Latest version: 1.72 (3.7.2008)

EDIT: AU3 source is in syntax for AutoIt 3.2.12.1

HISTORY:

- 7.8.2008: fixed syntax (list of include files) for AutoIt 3.2.12.1 (from previous 3.2.10)

Previous downloads: 38

post-6483-1215704070_thumb.gif

radar_src.zip

Edited by Zedna

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Link to comment
Share on other sites
James Universalist

James

Posted
Posted (edited)

Very nice looking! Anything like this for other countries? 24 errors.

C:\Meteor\radar.au3(48,90) : WARNING: $WS_MINIMIZEBOX: possibly used before declaration.
$gui = GUICreate("Radar",$sirka+2*$ram,$vyska+$vtit+2*$ram+20,-1,-1,BitOr($WS_MINIMIZEBOX,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(48,102) : WARNING: $WS_SYSMENU: possibly used before declaration.
$gui = GUICreate("Radar",$sirka+2*$ram,$vyska+$vtit+2*$ram+20,-1,-1,BitOr($WS_MINIMIZEBOX,$WS_SYSMENU)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~^
C:\Meteor\radar.au3(55,116) : WARNING: $GUI_SS_DEFAULT_LABEL: possibly used before declaration.
$status1 = GUICtrlCreateLabel ("Pøíprava dat ...",0,$vyska+3,$sirka-$sirka_status_kriz-150,17,$GUI_SS_DEFAULT_LABEL,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(55,136) : WARNING: $WS_EX_CLIENTEDGE: possibly used before declaration.
$status1 = GUICtrlCreateLabel ("Pøíprava dat ...",0,$vyska+3,$sirka-$sirka_status_kriz-150,17,$GUI_SS_DEFAULT_LABEL, $WS_EX_CLIENTEDGE )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(56,153) : WARNING: $SS_CENTER: possibly used before declaration.
$status2 = GUICtrlCreateLabel ("Velikost = " & StringFormat("%.1f", $velikost) & "x",$sirka-150,$vyska+3,100,17,BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(64,25) : WARNING: $WM_PAINT: possibly used before declaration.
GUIRegisterMsg($WM_PAINT,
~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(68,30) : WARNING: $WM_SYSCOMMAND: possibly used before declaration.
GUIRegisterMsg($WM_SYSCOMMAND,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(93,85) : WARNING: $WS_CAPTION: possibly used before declaration.
$Form2 = GUICreate("Definice køížù", 569, 327, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(93,95) : WARNING: $WS_POPUP: possibly used before declaration.
$Form2 = GUICreate("Definice køížù", 569, 327, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(93,111) : WARNING: $WS_POPUPWINDOW: possibly used before declaration.
$Form2 = GUICreate("Definice køížù", 569, 327, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~^
C:\Meteor\radar.au3(93,122) : WARNING: $WS_BORDER: possibly used before declaration.
$Form2 = GUICreate("Definice køížù", 569, 327, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(93,139) : WARNING: $WS_CLIPSIBLINGS: possibly used before declaration.
$Form2 = GUICreate("Definice køížù", 569, 327, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,87) : WARNING: $LVS_REPORT: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,103) : WARNING: $LVS_EDITLABELS: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~^
C:\Meteor\radar.au3(95,118) : WARNING: $LVS_SINGLESEL: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,137) : WARNING: $LVS_SHOWSELALWAYS: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,154) : WARNING: $LVS_NOLABELWRAP: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,$LVS_NOLABELWRAP,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,166) : WARNING: $WS_HSCROLL: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,$LVS_NOLABELWRAP,$WS_HSCROLL,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,178) : WARNING: $WS_VSCROLL: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,$LVS_NOLABELWRAP,$WS_HSCROLL,$WS_VSCROLL,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,234) : WARNING: $LVS_EX_CHECKBOXES: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,$LVS_NOLABELWRAP,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_CHECKBOXES,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(95,256) : WARNING: $LVS_EX_FULLROWSELECT: possibly used before declaration.
$ListView_mista = GUICtrlCreateListView("Místo|X,Y", 3, 5, 335, 316, BitOR($LVS_REPORT,$LVS_EDITLABELS,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,$LVS_NOLABELWRAP,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_CHECKBOXES,$LVS_EX_FULLROWSELECT)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(154,79) : WARNING: $SM_CYCAPTION: possibly used before declaration.
    $vtit = DllCall('user32.dll', 'int', 'GetSystemMetrics', 'int', $SM_CYCAPTION)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(650,43) : WARNING: $RDW_UPDATENOW: possibly used before declaration.
    RedrawWindow($pic_hWnd, $RDW_UPDATENOW)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(652,42) : WARNING: $RDW_VALIDATE: possibly used before declaration.
    RedrawWindow($pic_hWnd, $RDW_VALIDATE)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(48,90) : ERROR: $WS_MINIMIZEBOX: undeclared global variable.
$gui = GUICreate("Radar",$sirka+2*$ram,$vyska+$vtit+2*$ram+20,-1,-1,BitOr($WS_MINIMIZEBOX,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(711,46) : ERROR: _GUICtrlListView_BeginUpdate(): undefined function.
    _GUICtrlListView_BeginUpdate($ListView_mista)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(712,67) : ERROR: _GUICtrlListView_DeleteAllItems(): undefined function.
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_mista))
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(726,64) : ERROR: _GUICtrlListView_FindText(): undefined function.
        $j = _GUICtrlListView_FindText($ListView_mista, $krize[$i][0])
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(727,71) : ERROR: _GUICtrlListView_SetItemChecked(): undefined function.
        If $j <> -1 Then _GUICtrlListView_SetItemChecked($ListView_mista, $j)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(730,44) : ERROR: _GUICtrlListView_EndUpdate(): undefined function.
    _GUICtrlListView_EndUpdate($ListView_mista)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(863,61) : ERROR: _GUICtrlListView_GetItemCount(): undefined function.
    For $i = 0 To _GUICtrlListView_GetItemCount($ListView_mista)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(864,61) : ERROR: _GUICtrlListView_GetItemText(): undefined function.
        $pom = _GUICtrlListView_GetItemText($ListView_mista, $i, 0)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3(897,57) : ERROR: _GUICtrlListView_GetItemChecked(): undefined function.
        If _GUICtrlListView_GetItemChecked($ListView_mista, $i)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Meteor\radar.au3 - 9 error(s), 24 warning(s)
Edited by JamesBrooks
Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
Link to comment
Share on other sites
Zedna Universalist

Zedna

Posted
  • Author
Posted (edited)

Very nice looking! Anything like this for other countries? 24 errors.

Thanks for positive feedback.

I forgot to mention Script is in syntax for AutoIt 3.2.10.

I haven't upgraded to latest 3.2.12 release yet.

Just fix list of include files according to your AutoIt version.

I will post exact include files syntax fixes later.

EDIT: As for another countries.

If you have any tip for some similar website for other country then place here link ...

Edited by Zedna

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Link to comment
Share on other sites
Zedna Universalist

Zedna

Posted
  • Author
Posted

Very nice looking! Anything like this for other countries? 24 errors.

Now I discovered Slovak "Slovenský hydrometeorologický ústav"

http://www.shmu.sk/

There are also pictures of whole Europe.

But as I can see it will not be simple to implement more web sites inside my Radar project.

Only maybe as TabItems - each for each web site.

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Link to comment
Share on other sites
  • 4 weeks later...
  • 1 year later...
Zedna Universalist

Zedna

Posted
  • Author
Posted

It's beautiful. Too bad it's not worldwide... :mellow:

But... my sincere congratulations.

Thanks.

I like it too :-) and I use it very often.

Copyright to pictures goes to Czech hydrometeorological institute (CHMU)

their radar pictures are really nice.

I created this my Radar utility for user friendly downloading/viewing of these data.

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Link to comment
Share on other sites
  • 2 weeks later...
Zedna Universalist

Zedna

Posted
  • Author
Posted (edited)

I still can't get it to run. I have 3.3.4.0

It looks really nice from the screenshot though.

EDIT: You mind uploading a compiled version? :mellow:

You can download compiled version from here

http://www.volny.cz/petr.zednik/radar/radar.htm

EDIT:

In latest Autoit were many script breaking changes for example with InetGet()

You must compile my sources with Autoit 3.2.12.1

Edited by Zedna

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Link to comment
Share on other sites
  • 6 months later...
Zedna Universalist

Zedna

Posted
  • Author
Posted (edited)

In October 2010 CHMU totally changed their web site and there is no longer available these radar pictures in that way.

So this my Radar application is no longer working.

But on CHMU website there are radar/satelite animations available through their web viewer

so I made another "wheather" application in Autoit3 for easy view of these changed data.

I will post it later here...

Edited by Zedna

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...