Radio code

Post

Posted
Rating:
#1 (In Topic #1143)
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
cogier is in the usergroup ‘GambOS Contributor’
I found some excellent code to play internet radio by vuott :!:  here and here. I thought I would make a few changes! (Press [F11] for full-screen mode).

<IMG src="https://www.cogier.com/gambas/VirginRock70.png"> </IMG>

Code (gambas)

  1. ' Gambas class file
  2.  
  3. '' Requires gb.media
  4.  
  5. Private TextArea1 As TextArea
  6. Private DrawingArea1 As DrawingArea
  7. Private ToggleButton1 As ToggleButton
  8. Private ButtonDisplay As Button
  10. Private Splitter1 As Splitter
  11. Private mp As MediaPlayer
  14. Private iDisplay As Integer
  15. Private tipoPlug As String[] = ["goom", "monoscope", "spacescope", "spectrascope", "synaescope", "wavescope"]
  16. Private plugVis As MediaControl
  17.  
  18. Public Sub Form_Open()
  19.  
  20.   Dim iSH As Integer = Screen.AvailableHeight
  21.   Dim iSW As Integer = Screen.AvailableWidth
  22.  
  23.   If Not Component.IsLoaded("gb.settings") Then Component.Load("gb.settings")
  24.  
  25.   iDisplay = Settings["display", 0]
  26.  
  27.   With Me
  28.     .Arrangement = Arrange.Vertical
  29.     .Padding = 5
  30.     .H = iSH * 0.73
  31.     .W = iSW * 0.6
  33.  
  34.   DrawingArea1 = New DrawingArea(Me)
  35.   DrawingArea1.Expand = True
  36.   DrawingArea1.Tooltip = "Press F11 to toggle fullscreen"
  37.  
  38.   With HBox1 = New HBox(Me)
  39.     .Padding = 5
  40.     .H = iSH * 0.05
  41.     .Invert = True
  43.  
  44.   With ToggleButton1 = New ToggleButton(HBox1) As "ToggleButton1"
  45.     .W = iSW * 0.07
  46.     .Foreground = Color.Green
  47.     .Font.Size = 12
  48.     .Font.Bold = True
  49.     .Text = "&Start"
  51.  
  52.   With ButtonDisplay = New Button(HBox1) As "ButtonDisplay"
  53.     .W = iSW * 0.07
  54.     .Foreground = Color.Green
  55.     .Font.Size = 12
  56.     .Font.Bold = True
  57.     .Text = "&Display"
  59.  
  60.   ToggleButton1_Click(True)
  61.  
  63.  
  64. Public Sub ButtonDisplay_Click()
  65.  
  66.   Inc iDisplay
  67.   If iDisplay > 5 Then iDisplay = 0
  68.   ToggleButton1_Click
  69.   ToggleButton1_Click(True)
  70.   Settings["display"] = iDisplay
  71.   Settings.Save
  72.  
  74.  
  75. Public Sub ToggleButton1_Click(Optional bSkip As Boolean)
  76.  
  77.   If ToggleButton1.Value Or bSkip = True Then
  78.     ToggleButton1.Value = True  
  79.     With mp = New MediaPlayer As "MediaPlayer1"
  80.       plugVis = New MediaControl(mp, tipoPlug[iDisplay])
  81.       .Video.Output = New MediaControl(mp, "ximagesink")
  82.       .SetWindow(DrawingArea1)
  83.       .URL = "https://icy.unitedradio.it/VirginRock70.mp3"
  84.       .Play
  85.       .Video.Visualisation = plugVis
  86.     End With
  87.     ToggleButton1.Foreground = Color.Red
  88.     ToggleButton1.Text = "&Stop"
  89.   Else
  90.     mp.Stop
  91.     mp.Close
  92.     ToggleButton1.Foreground = Color.Green
  93.     ToggleButton1.Text = "&Start"
  95.  
  97.  
  98. Public Sub MediaPlayer1_Tag(tagList As MediaTagList)
  99.  
  100.   Dim sSplit As String[]
  101.  
  102.   For Each tag As String In tagList.Tags
  103.     If Not Meta.Exist(tag) Then
  104.       Meta[tag] = tagList[tag]
  105.       ss.Push(tag)
  106.       ss.Push(tagList[tag])
  107.     Else
  108.       ss[ss.Find(tag) + 1] = tagList[tag]
  109.     Endif
  110.   Next
  111.  
  112.   If ss.Find("title") > 1 Then
  113.     sSplit = Split(ss[ss.Find("title") + 1], "~", "", True)
  114.     Me.Title = sSplit[0] & ", " & sSplit[1] & " (" & sSplit[2] & ")"
  115.   End If
  116.  
  118.  
  119. Public Sub Form_KeyRelease()
  120.  
  121.   If Key.code = Key["F11"] Then
  122.     If Me.Border = True Then
  124.       Settings.Save
  125.       Me.border = False
  126.       Me.Maximized = True
  127.       Me.padding = 0
  128.       HBox1.Visible = False
  129.     Else
  130.       Me.border = True
  131.       Me.Maximized = False
  132.       HBox1.Visible = True
  133.       Me.padding = 5
  135.       Me.Refresh
  136.       Wait
  137.     Endif
  139.  
  141.  
  142. Public Sub MediaPlayer1_End()
  143.  
  144.   ToggleButton1.Value = False
  145.  
  147.  
Online now: No Back to the top
1 guest and 0 members have just viewed this.