Sign in to follow this  
Followers 0
AlmarM

My Radio Program

Started by AlmarM,

13 posts in this topic

#1 ·  Posted (edited)

Hi,

I listen to radio very much, so I made a program to select a radio from "http://nederland.fm/".

#include <IE.au3>

Global $Status, $oIE, $Playing = False
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global $___Data = "Radio Decibel|Laaste Radio 1 Journaal|Wild FM|Radio 538|QMusic|TMF Radio|" & _
                    "Sky Radio|Radio Veronica|100% NL|Caz!|Slam! FM|Radio 1|538 Juize|Candle Light|" & _
                    "Classic FM|Radio 10 Gold|Radio NL|Laser Radio|Fresh FM|Sky Radio|KX Radio|" & _
                    "90's Top 590|Arrow Jazz FM|Kinder Radio|80's Top 880|Class X|Kink The Alternative|" & _
                    "Radio 2|3 FM|Radio 4|Radio 5|Radio 6|BNR Nieuws Radio|Concert Zender|FunX|BNN FM|" & _
                    "Gigant FM|Arrow Classic Rock|Top 1000|OZ Radio|Traffic Radio|Kink Aardschok|" & _
                    "538 Dance Department|538 Nonstop 40|Disco Classics|538 Hitzone|90's Hits|" & _
                    "Top 4000|Radio@Work|80's Hits|538 Party"

$GUI = GUICreate("Radio", 230, 90)
$List = GUICtrlCreateCombo("53L8 Klein", 10, 10, 210, 20)
$Connect = GUICtrlCreateButton("Connect", 10, 40, 100)
$Disconnect = GUICtrlCreateButton("Disconnect", 120, 40, 100)
$Status = GUICtrlCreateLabel("Status: Ready...", 75, 70, 100)

GUISetState()
GUICtrlSetState($Disconnect, $GUI_DISABLE)
GUICtrlSetData($List, $___Data, "53L8 Klein")
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = -3
        Exit
        
    Case $nMsg = $Connect
        $Link = _GetLink(GUICtrlRead($List))
        GUICtrlSetState($Disconnect, $GUI_ENABLE)
        GUICtrlSetState($Connect, $GUI_DISABLE)
        GUICtrlSetState($List, $GUI_DISABLE)
        _Connect($Link)
        $Playing = True
        
    Case $nMsg = $Disconnect
        GUICtrlSetState($Disconnect, $GUI_DISABLE)
        GUICtrlSetState($Connect, $GUI_ENABLE)
        GUICtrlSetState($List, $GUI_ENABLE)
        _Disconnect()
        $Playing = False
        
    EndSelect
WEnd

Func _GetLink($Param)
    If $Param = "53L8 Klein" Then $_Link = "http://nederland.fm/i/l/53L8klein.gif"
    If $Param = "Radio Decibel" Then $_Link = "http://nederland.fm/i/l/decibel.gif"
    If $Param = "Laaste Radio 1 Journaal" Then $_Link = "http://nederland.fm/i/l/laatsteradio1journaal.gif"
    If $Param = "Wild FM" Then $_Link = "http://nederland.fm/i/l/wildfm.gif"
    If $Param = "Radio 538" Then $_Link = "http://nederland.fm/i/l/radio538.gif"
    If $Param = "QMusic" Then $_Link = "http://nederland.fm/i/l/q-music.gif"
    If $Param = "TMF Radio" Then $_Link = "http://nederland.fm/i/l/tmfradio.gif"
    If $Param = "Sky Radio" Then $_Link = "http://nederland.fm/i/l/skyradio.gif"
    If $Param = "Radio Veronica" Then $_Link = "http://nederland.fm/i/l/veronicafm.gif"
    If $Param = "100% NL" Then $_Link = "http://nederland.fm/i/l/100pnl.gif"
    If $Param = "Caz!" Then $_Link = "http://nederland.fm/i/l/caz.gif"
    If $Param = "Slam! FM" Then $_Link = "http://nederland.fm/i/l/slamfm.gif"
    If $Param = "Radio 1" Then $_Link = "http://nederland.fm/i/l/radio1.gif"
    If $Param = "538 Juize" Then $_Link = "http://nederland.fm/i/l/juizefm.gif"
    If $Param = "Candle Light" Then $_Link = "http://nederland.fm/i/l/candlelight.gif"
    If $Param = "Classic FM" Then $_Link = "http://nederland.fm/i/l/classicfm.gif"
    If $Param = "Radio 10 Gold" Then $_Link = "http://nederland.fm/i/l/radio10gold.gif"
    If $Param = "Radio NL" Then $_Link = "http://nederland.fm/i/l/radionl.gif"
    If $Param = "Laser Radio" Then $_Link = "http://nederland.fm/i/l/laserradio.gif"
    If $Param = "Fresh FM" Then $_Link = "http://nederland.fm/i/l/freshfm.gif"
    If $Param = "Sky Radio" Then $_Link = "http://nederland.fm/i/l/skylove.gif"
    If $Param = "KX Radio" Then $_Link = "http://nederland.fm/i/l/kxradio.gif"
    If $Param = "90's Top 590" Then $_Link = "http://nederland.fm/i/l/top590.gif"
    If $Param = "Arrow Jazz FM" Then $_Link = "http://nederland.fm/i/l/arrowjazz.gif"
    If $Param = "Kinder Radio" Then $_Link = "http://nederland.fm/i/l/kinderradio.gif"
    If $Param = "80's Top 880" Then $_Link = "http://nederland.fm/i/l/veronica80hits.gif"
    If $Param = "Class X" Then $_Link = "http://nederland.fm/i/l/classx.gif"
    If $Param = "Kink The Alternative" Then $_Link = "http://nederland.fm/i/l/kinkfm.gif"
    If $Param = "Radio 2" Then $_Link = "http://nederland.fm/i/l/radio2.gif"
    If $Param = "3 FM" Then $_Link = "http://nederland.fm/i/l/3fm.gif"
    If $Param = "Radio 4" Then $_Link = "http://nederland.fm/i/l/radio4.gif"
    If $Param = "Radio 5" Then $_Link = "http://nederland.fm/i/l/radio5.gif"
    If $Param = "Radio 6" Then $_Link = "http://nederland.fm/i/l/radio6.gif"
    If $Param = "BNR Nieuws Radio" Then $_Link = "http://nederland.fm/i/l/bnr.gif"
    If $Param = "Concert Zender" Then $_Link = "http://nederland.fm/i/l/concertzender.gif"
    If $Param = "FunX" Then $_Link = "http://nederland.fm/i/l/funx.gif"
    If $Param = "BNN FM" Then $_Link = "http://nederland.fm/i/l/bnnfm.gif"
    If $Param = "Gigant FM" Then $_Link = "http://nederland.fm/i/l/gigantfm.gif"
    If $Param = "Arrow Classic Rock" Then $_Link = "http://nederland.fm/i/l/arrow.gif"
    If $Param = "Top 1000" Then $_Link = "http://nederland.fm/i/l/top1000.gif"
    If $Param = "OZ Radio" Then $_Link = "http://nederland.fm/i/l/ozradio.gif"
    If $Param = "Traffic Radio" Then $_Link = "http://nederland.fm/i/trafficradiobanner.gif"
    If $Param = "Kink Aardschok" Then $_Link = "http://nederland.fm/i/l/kinkaardschok.gif"
    If $Param = "538 Dance Department" Then $_Link = "http://nederland.fm/i/l/538dancedept.gif"
    If $Param = "538 Nonstop 40" Then $_Link = "http://nederland.fm/i/l/538nonstop40.gif"
    If $Param = "Disco Classics" Then $_Link = "http://nederland.fm/i/l/disco.gif"
    If $Param = "538 Hitzone" Then $_Link = "http://nederland.fm/i/l/538hitzone.gif"
    If $Param = "90's Hits" Then $_Link = "http://nederland.fm/i/l/90hits.gif"
    If $Param = "Top 4000" Then $_Link = "http://nederland.fm/i/l/top4000.gif"
    If $Param = "Radio@Work" Then $_Link = "http://nederland.fm/i/l/radioatwork.gif"
    If $Param = "80's Hits" Then $_Link = "http://nederland.fm/i/l/80shits.gif"
    If $Param = "538 Party" Then $_Link = "http://nederland.fm/i/l/538party.gif"
    
    Return $_Link
EndFunc

Func _Connect($Param)
    _Notify("Connecting...")
    $oIE = _IECreate("http://nederland.fm/", "", 0)
    _Notify("Getting Info...")
    $oImgs = _IEImgGetCollection($oIE)
    
    For $oImg In $oImgs
        _Notify("Searcing...")
        If $oImg.src = $Param Then _IEAction($oImg, "click")
    Next
        
    _Notify("Playing...")
EndFunc

Func _Disconnect()
    _Notify("Disconnecting...")
    
    _IEQuit($oIE)
    
    _Notify("Ready...")
EndFunc

Func _Notify($Text)
    GUICtrlSetData($Status, "Status: " & $Text)
EndFunc

Func OnAutoItExit()
    If $Playing = True Then _IEQuit($oIE)
EndFunc

AlmarM

Edited by AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post

Link to post
Share on other sites



#2 ·  Posted (edited)

Why don't you just use Radio Online (http://www.nendsoftware.nl) It's also made in autoit and much more options (and its totaly dutch).

If you search for Radio Online on this forum find source code from a old version.

Edited by nend

Share this post

Link to post
Share on other sites

#3 ·  Posted

Oh, I dont realy care its all in Dutch. I just made this program because I tought It was useful :).

AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post

Link to post
Share on other sites

#4 ·  Posted (edited)

Nice, would be kinda cool if you could get the name of the song to :) and maybe have a button like "Add to wish list", so if you like the song it would save it to a txt file.

Thought about somthing like this, but where it would change the station if a song came on I didn't like while in a game and maybe a hotkey to cycle thro the stations

Edited by Bam

Share this post

Link to post
Share on other sites

#5 ·  Posted

@ Bam,

As you can see, it just clicks a link. I dont know how to control the .asp

AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post

Link to post
Share on other sites

#6 ·  Posted

Nice program, nice small GUI and works great!!

Greetz,

Arnaud

Electron microscopes rule!!!

Share this post

Link to post
Share on other sites

#7 ·  Posted

I made something like this once, If I remember I made it come up in the lower right hand corner of the screen and the background pic was from the selected station. I placed and volume control in it and when you clicked on the "X", it just minimixed to an Icon in the try

... just some ideas if want to consider... :)

8)

NEWHeader1.png

Share this post

Link to post
Share on other sites

#8 ·  Posted

@ Valuater,

Take a look at http://nederland.fm/ and watch the pics. Their so small :).

And about the volume, you can edit the music volume, or the computer volume?

AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post

Link to post
Share on other sites

#9 ·  Posted

Could save target as and then open it with VLC or somthing else :party:, haven't found a way to get the name from VLC yet tho :)

Share this post

Link to post
Share on other sites

#11 ·  Posted

Nice!

O one thing:

_Notify("Searcing...")

I think that it must be:

_Notify("Searching...")

Tom

[font="Comic Sans MS"][size="4"]My UDF's:[/size]1. _ChooseIconAnd this is just the beginning[/font]

Share this post

Link to post
Share on other sites

#12 ·  Posted

Nice!

O one thing:

_Notify("Searcing...")

I think that it must be:

_Notify("Searching...")

Tom

Noticed that a looong time ago, thanks for mentioning anyway ;)

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post

Link to post
Share on other sites

#13 ·  Posted (edited)

Why don't you just use Radio Online (http://www.nendsoftware.nl) It's also made in autoit and much more options (and its totaly dutch).

If you search for Radio Online on this forum find source code from a old version.

I`ve searched the forum, is Blox Online Radio the one? Edited by Lakes

2015 - Still no flying cars, instead blankets with sleeves.

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
Go To Topic Listing AutoIt Example Scripts