Ar-S Stream Radio 1.08.1 + lite 1.08.3

ar-s · **Posted:** Tue Nov 03, 2015 5:31 pm

Coded in PB 5.62 LTS x86
ThKs to Dobro and Falsam for helping with Fmodex parser.

~ AR-S STREAM RADIO ~

There is many WebRadio player on the net, i decided to make my owmn using PB and Fmodex dll (also include)
- You can listen about 80 webradios (rock, reggae, electronic, alternative, classic... from differents countries.
- Automatic radio list updating without writing a file
- Multilanguage (english/français/spanish/german) (thks to Amílcar Matos Pérez & Bisonte)
- Sleeping mode by clicking on "Zzz" button with some differents choices (until 5 hours)

EnJoY :wink:

Download ~ Ar-S Stream Radio ~

HISTORY Lite
1.08.3
- fixed problems with displaying titles/artists due to ASCII/UTF8

1.08.2
Lite version do not add the oscillo and replace the screen by a canvas. The cpu charge is very small
good for old pc

HISTORY

1.08.1
- Changing some loop to improve cpu charge

1.07.8
- New updater

1.07.7
- minor bugfix

1.07.6
- The button "minimize" makes the window disappear, the program is always open in the systray
- Mode "Panique" avec la touche "P" pour stopper la musique et faire disparaître la fenêtre, programme toujours dispo dans le systray.

1.07.5
- bug fix Play/Pause

1.07.4 MAJOR
- Automatic update of the software du logiciel.

1.07.3
- Compil PB5.50b1 unicode
- Use fmodex_min - falsam
- Adding title/radio name (for compatibles radios)
- Correcting bugs
- Correct centering of the text and adaptation of the font.

1.04
- The text flashes when the oscilloscope has stopped.

1.0 to 1.03
- Improving the appearance of the window (we don't see anymore the window gray square and gadgets emerge one by one when opening the software.)
- Rebounded slightly the text for better readability

EnJoY

Amilcar Matos · **Posted:** Wed Nov 04, 2015 1:17 am

Spanish translation. Keep the music playing!

Code:

If langue.s = "US"
   
    JOUER$ = "PLAY"
    VeilleON$ = "I go to sleep in "
    VeilleOFF$ = "Sleeping mode off"
    fenplanON$ = "Always visible ON"
    fenplanOFF$ = "Always visible OFF"
    MessageFav.s = " >> My favorites"
    Message.s = " >> All radios"
    ARS$ = "~ Welcome to Ar-S Stream Radio ~ " + V$
    Ecoute$ = "You are listening "
    NoRadio$  = "You have to choose a radio first"
    Add$ = " add(ed) "
    Remove$ = "remove(d) "
    Favorite$ = " ?"
    ErreurRadio$ = " seems to be unable, please retry later"
    RadioUpdate$ = "The radio list has been updated"
    LastOk$ = "~ You've got the last update ~"
    NoUpdate$ = "Unable to download the last radio list (Firewall? Proxy?)"
    StillMain$ = "(This radio will stay in the main list)"
    Remove2$ = " removed from your favorites"
    Fav2$ = " from your favs?"
    Help$ = " ~ Ar-S Stream Radio ~" + Chr(10)
    Help$+ " - Press 'O' Key to stop/start the oscilloscope"  + Chr(10)
    Help$+ " - Press Heart button to add/remove a radio to your favourites" + Chr(10)
    Help$+ " - Press ZZzz button to enable/disable sleeping timer" + Chr(10)
    Help$+ Chr(10)
    Help$+ "If you want to suggest a radio, please send the URL to info@ldvmultimedia.com"
   
  ElseIf langue.s = "FR"

    JOUER$ = "JOUER"
    VeilleON$ = "Veille programmée dans "
    VeilleOFF$ = "La veille est désactivée"
    fenplanON$ = "Fenêtre toujours visible"
    fenplanOFF$ = "Fenêtre au 1er plan désactivé"
    MessageFav.s = " >> Mes favoris"
    Message.s = " >> Toutes les radios"
    ARS$ = "~ Bienvenue sur Ar-S Stream Radio ~ " + V$
    Ecoute$ = "Vous écoutez "
    NoRadio$  = "Aucune radio n'est sélectionnée"
    Add$ = "Ajouter "
    Remove$ = "Retirer "
    Favorite$ = " à vos favoris"
    ErreurRadio$ = " ne semble pas répondre, réessayez plus tard"
    RadioUpdate$ = "Liste des radios mise à jour"
    LastOk$ = "~ Vous possédez la dernière mise à jour ~"
    NoUpdate$ = "Impossible de récupérer la liste (Pare feu ? Proxy ?)"
    StillMain$ = "(La radio sera toujours disponible dans la liste principale.)"
    Remove2$ = "Supprimer des favoris"
    Fav2$ = " de vos favoris  ?"
    Help$ = " ~ Ar-S Stream Radio ~" + Chr(10)
    Help$+ " - Presser 'O' pour activer/désactiver l'oscilloscope"  + Chr(10)
    Help$+ " - Presser le coeur pour ajouter/enlever une radio aux favoris" + Chr(10)
    Help$+ " - Presser ZZzz pour activer la mise en veille du logiciel" + Chr(10)
    Help$+ Chr(10)
    Help$+ "Si vous souhaitez ajouter une radio, merci d'envoyer l'URL à info@ldvmultimedia.com"
   
  ElseIf langue.s = "ES" ; Spanish
    JOUER$       = "Tocar"                              
    VeilleON$    = "Pausa en "                          
    VeilleOFF$   = "Apagar Pausa"                       
    fenplanON$   = "Prendido"                           
    fenplanOFF$  = "Apagado"                            
    MessageFav.s = " >> Mis favoritos"                  
    Message.s    = " >> Estaciones"                     
    ARS$         = "~ Bienvenido a Ar-S Radio ~ " + V$  
    Ecoute$      = "Escuchas... "                       
    NoRadio$     = "Primero escoje una estación"                 
    Add$         = " añadir "                                                  
    Remove$      = "sacar "                                                    
    Favorite$    = " ?"                                                        
    ErreurRadio$ = " hmmm no conecta, por favor trate luego"                   
    RadioUpdate$ = "Lista de estaciones actualizada"                           
    LastOk$      = "~ Tienes la version más reciente ~"                        
    NoUpdate$    = "No puede bajar la lista de estaciones (Firewall? Proxy?)"  
    StillMain$   = "(Estación se queda en la lista principal)"                 
    Remove2$     = " sacado de tus favoritos"                                  
    Fav2$        = " de tus favs?"                                             
    Help$        = " ~ Ar-S Stream Radio ~"                                           + #LF$ +
                   " - Clic 'O' para apagar/prender el osciloscopio"                  + #LF$ +         
                   " - Clic 'Corazón' para añadir/sacar una estación a tus favoritos" + #LF$ +         
                   " - Clic 'ZZzz' para activar/desactivar pausa"                     + #LF$ + #LF$ +  
                   "Sugiere tu estación favorita, envia el URL a info@ldvmultimedia.com"
    Translator$  = "Traducción cortesia de Amílcar Matos Pérez - Puerto Rico."

  ElseIf langue.s = "DE" ; Deutch

  EndIf  

ar-s · **Posted:** Wed Nov 04, 2015 10:16 am

Thanks Amilcar Matos, i'll use your translation in the next update :wink:

Bisonte · **Joined:** Tue Oct 09, 2007 2:15 am **Posts:** 1110

And german ....

Code:

If langue.s = "US"
  
  JOUER$ = "PLAY"
  VeilleON$ = "I go to sleep in "
  VeilleOFF$ = "Sleeping mode off"
  fenplanON$ = "Always visible ON"
  fenplanOFF$ = "Always visible OFF"
  MessageFav.s = " >> My favorites"
  Message.s = " >> All radios"
  ARS$ = "~ Welcome to Ar-S Stream Radio ~ " + V$
  Ecoute$ = "You are listening "
  NoRadio$  = "You have to choose a radio first"
  Add$ = " add(ed) "
  Remove$ = "remove(d) "
  Favorite$ = " ?"
  ErreurRadio$ = " seems to be unable, please retry later"
  RadioUpdate$ = "The radio list has been updated"
  LastOk$ = "~ You've got the last update ~"
  NoUpdate$ = "Unable to download the last radio list (Firewall? Proxy?)"
  StillMain$ = "(This radio will stay in the main list)"
  Remove2$ = " removed from your favorites"
  Fav2$ = " from your favs?"
  Help$ = " ~ Ar-S Stream Radio ~" + Chr(10)
  Help$+ " - Press 'O' Key to stop/start the oscilloscope"  + Chr(10)
  Help$+ " - Press Heart button to add/remove a radio to your favourites" + Chr(10)
  Help$+ " - Press ZZzz button to enable/disable sleeping timer" + Chr(10)
  Help$+ Chr(10)
  Help$+ "If you want to suggest a radio, please send the URL to info@ldvmultimedia.com"
  
ElseIf langue.s = "FR"
  
  JOUER$ = "JOUER"
  VeilleON$ = "Veille programmée dans "
  VeilleOFF$ = "La veille est désactivée"
  fenplanON$ = "Fenêtre toujours visible"
  fenplanOFF$ = "Fenêtre au 1er plan désactivé"
  MessageFav.s = " >> Mes favoris"
  Message.s = " >> Toutes les radios"
  ARS$ = "~ Bienvenue sur Ar-S Stream Radio ~ " + V$
  Ecoute$ = "Vous écoutez "
  NoRadio$  = "Aucune radio n'est sélectionnée"
  Add$ = "Ajouter "
  Remove$ = "Retirer "
  Favorite$ = " à vos favoris"
  ErreurRadio$ = " ne semble pas répondre, réessayez plus tard"
  RadioUpdate$ = "Liste des radios mise à jour"
  LastOk$ = "~ Vous possédez la dernière mise à jour ~"
  NoUpdate$ = "Impossible de récupérer la liste (Pare feu ? Proxy ?)"
  StillMain$ = "(La radio sera toujours disponible dans la liste principale.)"
  Remove2$ = "Supprimer des favoris"
  Fav2$ = " de vos favoris  ?"
  Help$ = " ~ Ar-S Stream Radio ~" + Chr(10)
  Help$+ " - Presser 'O' pour activer/désactiver l'oscilloscope"  + Chr(10)
  Help$+ " - Presser le coeur pour ajouter/enlever une radio aux favoris" + Chr(10)
  Help$+ " - Presser ZZzz pour activer la mise en veille du logiciel" + Chr(10)
  Help$+ Chr(10)
  Help$+ "Si vous souhaitez ajouter une radio, merci d'envoyer l'URL à info@ldvmultimedia.com"
  
ElseIf langue.s = "ES" ; Spanish
  JOUER$       = "Tocar"                             
  VeilleON$    = "Pausa en "                         
  VeilleOFF$   = "Apagar Pausa"                       
  fenplanON$   = "Prendido"                           
  fenplanOFF$  = "Apagado"                           
  MessageFav.s = " >> Mis favoritos"                 
  Message.s    = " >> Estaciones"                     
  ARS$         = "~ Bienvenido a Ar-S Radio ~ " + V$ 
  Ecoute$      = "Escuchas... "                       
  NoRadio$     = "Primero escoje una estación"                 
  Add$         = " añadir "                                                 
  Remove$      = "sacar "                                                   
  Favorite$    = " ?"                                                       
  ErreurRadio$ = " hmmm no conecta, por favor trate luego"                   
  RadioUpdate$ = "Lista de estaciones actualizada"                           
  LastOk$      = "~ Tienes la version más reciente ~"                       
  NoUpdate$    = "No puede bajar la lista de estaciones (Firewall? Proxy?)" 
  StillMain$   = "(Estación se queda en la lista principal)"                 
  Remove2$     = " sacado de tus favoritos"                                 
  Fav2$        = " de tus favs?"                                             
  Help$        = " ~ Ar-S Stream Radio ~"                                           + #LF$ +
                 " - Clic 'O' para apagar/prender el osciloscopio"                  + #LF$ +         
                 " - Clic 'Corazón' para añadir/sacar una estación a tus favoritos" + #LF$ +         
                 " - Clic 'ZZzz' para activar/desactivar pausa"                     + #LF$ + #LF$ + 
                 "Sugiere tu estación favorita, envia el URL a info@ldvmultimedia.com"
  Translator$  = "Traducción cortesia de Amílcar Matos Pérez - Puerto Rico."
  
ElseIf langue.s = "DE" ; Deutsch
  JOUER$ = "ABSPIELEN" ; or let it "PLAY" ... I think its an international word by using a player ;)
  VeilleON$ = "Schlafmodus in "
  VeilleOFF$ = "Schlafmodus aus"
  fenplanON$ = "Immer Sichtbar AN"
  fenplanOFF$ = "Immer Sichtbar AUS"
  MessageFav.s = " >> Meine Favoriten"
  Message.s = " >> Alle Sender"
  ARS$ = "~ Willkommen zu Ar-S Stream Radio ~ " + V$
  Ecoute$ = "Sie hören "
  NoRadio$  = "Sie müssen erst einen Sender wählen"
  Add$ = " hinzugefügt "
  Remove$ = "entfernt "
  Favorite$ = " ?"
  ErreurRadio$ = " ist nicht erreichbar, versuchen Sie es später erneut"
  RadioUpdate$ = "Die Senderliste ist aktualisiert"
  LastOk$ = "~ Sie sind auf dem aktuellen Stand ~"
  NoUpdate$ = "Senderliste kann nicht heruntergeladen werden (Firewall? Proxy?)"
  StillMain$ = "(Dieser Sender wird in der Hauptliste bleiben)"
  Remove2$ = " wurde von den Favoriten entfernt"
  Fav2$ = " von Ihren Favoriten?"
  Help$ = " ~ Ar-S Stream Radio ~" + Chr(10)
  Help$+ " - Drücke 'O' um das Oszilloskop ein/auszuschalten"  + Chr(10)
  Help$+ " - Klicke auf das Herz um einen Sender in die Favoritenliste zu übernehmen/entfernen" + Chr(10)
  Help$+ " - Klicke auf den ZZzz Knopf um den Schlafmodus ein/auszuschalten" + Chr(10)
  Help$+ Chr(10)
  Help$+ "Möchten Sie einen Sender integriert haben, senden Sie bitte die URL an info@ldvmultimedia.com"
    
EndIf  

; ---> Suggestion : 
; Restart$ = "Please restart the player!" ; US
; Restart$ = "Bitte starten Sie das Programm neu!" ; DE

ar-s · **Posted:** Wed Nov 04, 2015 12:09 pm

Thanks both of you, i'm gonna make the changes..

- 1.02 is out -

ar-s · **Posted:** Thu Nov 05, 2015 12:18 pm

1.03 & 1.02
- Improving the appearance of the window (we don't see anymore the window gray square and gadgets emerge one by one when opening the software.)
- Rebounded slightly the text for better readability

- Adding german and spanish languages. (thks to Amílcar Matos Pérez & Bisonte)

ar-s · **Posted:** Sat Nov 28, 2015 12:26 pm

Minor update
1.04
- The text flashes when the oscilloscope has stopped. (see the gif)

ar-s · **Posted:** Wed May 23, 2018 1:28 pm

Many updates

1.07.8
- New updater

1.07.7
- minor bugfix

1.07.6
- The button "minimize" makes the window disappear, the program is always open in the systray
- Mode "Panique" avec la touche "P" pour stopper la musique et faire disparaître la fenêtre, programme toujours dispo dans le systray.

1.07.5
- bug fix Play/Pause

1.07.4 MAJOR
- Automatic update of the software du logiciel.

1.07.3
- Compil PB5.50b1 unicode
- Use fmodex_min - falsam
- Adding title/radio name (for compatibles radios)
- Correcting bugs
- Correct centering of the text and adaptation of the font.

Dude · **Joined:** Mon Feb 16, 2015 2:49 pm **Posts:** 1905

Cool little app!

Found myself listening to the 80s channel for too long.

Cyllceaux · **Joined:** Mon Jun 23, 2014 1:18 pm **Posts:** 184

Good work

But some of the stations do not work.

Is there a chance to add own station?

I'm a big fan of "deluxe radio" especially "disco deluxe". (some of their stations)

Gesendet von meinem SM-G950F mit Tapatalk

ar-s · **Posted:** Fri May 25, 2018 12:57 pm

thanks for your returns.
I have add Deluxe Radio. i hope it s the good one..
(various) Deluxe Radio at the end of the list.
You don't have to do nothing. Radio list is updating each time you launch the soft.

For the dead link, they often change URI so i try to update when i saw a dead radio but that take time.. I'll do my best to update when it's possible.

Please send me the link to your disco radio, there is to much with the same name

1.08.2
Lite version do not add the oscillo and replace the screen by a canvas. The cpu charge is very small
good for old pc

HISTORY

1.08.1
- Changing some loop to improve cpu charge

Cyllceaux · **Joined:** Mon Jun 23, 2014 1:18 pm **Posts:** 184

I stream it from PLS or M3U...

https://www.deluxemusic.tv/fileadmin/Webdata/downloads/Playlisten/DISCO_DELUXE.pls
https://www.deluxemusic.tv/fileadmin/Webdata/downloads/Playlisten/DISCO_DELUXE.m3u

or that site: http://deluxedisco.radio.de/

There are much more Stations: https://www.deluxemusic.tv/radio.html

But I'm not sure if you have to change your software only for me. :-)

But it is nice :-)

Kuron · **Posted:** Sun May 27, 2018 10:40 am

Dude wrote:

Found myself listening to the 80s channel for too long.

+1

ar-s · **Posted:** Sun May 27, 2018 2:56 pm

Cyllceaux wrote:

But I'm not sure if you have to change your software only for me. :-)

But it is nice :-)

I just update the radio list, not the soft don't worry about that.
I've try to add Disco Delux.. i don't know if it's because of https or because of the url finished by :8443/0003 (instea of 8443) but i can't read it with my soft:[

ar-s · **Posted:** Fri Nov 30, 2018 3:55 pm

LITE ONLY
1.08.3
- fixed problems with displaying titles/artists due to ASCII/UTF8

PureBasic Forum

Ar-S Stream Radio 1.08.1 + lite 1.08.3

Who is online