Sign in to follow this  
Followers 0
Zedna

Radar

10 posts in this topic

#1 ·  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

Share this post


Link to post
Share on other sites



#2 ·  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

Share this post


Link to post
Share on other sites

#3 ·  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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

But... my sincere congratulations.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

#8 ·  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:

Edited by DJKMan

My work in AutoIt (Not many yet):

Parse Large Text Files To 2D Array Quickly [With Chunk Size]

 

My artificial intelligence project coded entirely in AutoIt. Meet Alice Assistant: http://facebook.com/ProjectAliceAI

 

Share this post


Link to post
Share on other sites

#9 ·  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

Share this post


Link to post
Share on other sites

#10 ·  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

Share this post


Link to post
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
Sign in to follow this  
Followers 0