Ar-S Stream Radio 1.08.1 + lite 1.08.3

Developed or developing a new product in PureBasic? Tell the world about it.
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Ar-S Stream Radio 1.08.1 + lite 1.08.3

Post by ar-s »

Image
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 :D
Last edited by ar-s on Wed May 08, 2019 10:03 am, edited 12 times in total.
~Ar-S~

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
Amilcar Matos
User
User
Posts: 43
Joined: Thu Nov 27, 2014 3:10 pm
Location: San Juan, Puerto Rico

Re: Ar-S Stream Radio 1.01

Post by Amilcar Matos »

Spanish translation. Keep the music playing!
:D

Code: Select all

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  
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.01

Post by ar-s »

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

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
User avatar
Bisonte
Addict
Addict
Posts: 1161
Joined: Tue Oct 09, 2007 2:15 am

Re: Ar-S Stream Radio 1.01

Post by Bisonte »

And german ....

Code: Select all

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
PureBasic 5.72 LTS (Windows x86/x64) | Windows10 Pro x64 | Z370 Extreme4 | i7 8770k | 64GB RAM | iChill GeForce RTX 2080 Super | HAF XF Evo​​
English is not my native language... (I often use DeepL to translate my texts.)
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.01

Post by ar-s »

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

- 1.02 is out - :)
~Ar-S~

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.03

Post by ar-s »

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~

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.04

Post by ar-s »

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

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.07.8

Post by ar-s »

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.
~Ar-S~

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
Dude
Addict
Addict
Posts: 1907
Joined: Mon Feb 16, 2015 2:49 pm

Re: Ar-S Stream Radio 1.07.8

Post by Dude »

Cool little app! :) Found myself listening to the 80s channel for too long. :)
Cyllceaux
Enthusiast
Enthusiast
Posts: 309
Joined: Mon Jun 23, 2014 1:18 pm
Contact:

Re: Ar-S Stream Radio 1.07.8

Post by Cyllceaux »

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
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.07.8

Post by ar-s »

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 :D


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
~Ar-S~

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
Cyllceaux
Enthusiast
Enthusiast
Posts: 309
Joined: Mon Jun 23, 2014 1:18 pm
Contact:

Re: Ar-S Stream Radio 1.08.1 + lite 1.08.2

Post by Cyllceaux »

I stream it from PLS or M3U...

https://www.deluxemusic.tv/fileadmin/We ... DELUXE.pls
https://www.deluxemusic.tv/fileadmin/We ... 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 :-)
User avatar
Kuron
Addict
Addict
Posts: 1387
Joined: Sat Oct 17, 2009 10:51 pm
Location: Nashville

Re: Ar-S Stream Radio 1.07.8

Post by Kuron »

Dude wrote:Found myself listening to the 80s channel for too long. :)
+1
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.08.1 + lite 1.08.2

Post by ar-s »

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~

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 310
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Ar-S Stream Radio 1.08.1 + lite 1.08.2

Post by ar-s »

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

My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 5.4x LTS / 5.7x - W10 x64 - Ryzen 7 3700x
Repeat : try : until done = 1
Post Reply