9 replies to this topic

[Zedna]

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

Attached Thumbnails

• 

Attached Files

•  radar_src.zip   48.08K   674 downloads

Edited by Zedna, 07 August 2008 - 04:31 PM.

[James]

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

Plain Text        expandcollapse  popup

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, 10 July 2008 - 04:33 PM.

[Zedna]

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, 10 July 2008 - 05:15 PM.

[Zedna]

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.

[Zedna]

AU3 source is in syntax for AutoIt 3.2.12.1

Fixed syntax (list of include files) for AutoIt 3.2.12.1 (from previous 3.2.10)

See first post.

[pintas]

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

But... my sincere congratulations.

[Zedna]

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

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.

[DJKMan]

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?

Edited by DJKMan, 05 June 2010 - 01:28 AM.

[Zedna]

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?

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, 05 June 2010 - 04:28 PM.

[Zedna]

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, 11 December 2010 - 02:34 PM.