Posted: Sun Apr 15, 2018 8:16 pm Post subject: VB 2013 Internet Radio
Hi guys,
Here a little app which I made to practice VB 2013 coding.
This app use to play radio streaming over internet connection.
You able to edit or add your own internet radio station.
App made use : VB Studio 2013 and Microsoft.Net 4.5
Code snip :
Code:
Public Class Form1
Dim myint As Integer
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
YTPlayer.settings.volume = TrackBar1.Value
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
YTPlayer.Ctlcontrols.play()
PictureBox1.Enabled = False
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
YTPlayer.Ctlcontrols.pause()
PictureBox1.Enabled = True
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
YTPlayer.Ctlcontrols.stop()
Label1.Text = "VCL Bro Web Radio"
PictureBox1.Enabled = False
End Sub
Private Sub list_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles list.MouseDoubleClick
myint = list.SelectedIndex
If myint = -1 Then
YTPlayer.Ctlcontrols.stop()
Label1.Text = "VCL Bro Web Radio"
PictureBox1.Enabled = False
End If
If myint = 0 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://37.72.100.39:8001/stream"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Aewen Radio KPOP"
PictureBox1.Enabled = False
End If
If myint = 1 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://175.103.58.72:8000/;stream.mp3"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Bens Radio Jakarta"
PictureBox1.Enabled = False
End If
If myint = 2 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://64.71.79.181:8040/;"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Big-B KPOP"
PictureBox1.Enabled = False
End If
If myint = 3 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://server1.chilltrax.com:9000/;stream/1"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Chilltrax Radio USA"
PictureBox1.Enabled = False
End If
If myint = 4 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://s4.xrad.io:8004/;"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Dragon Hits UK"
PictureBox1.Enabled = False
End If
If myint = 5 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://103.28.148.18:8500/;"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Dreamers Radio Jakarta"
PictureBox1.Enabled = False
End If
If myint = 6 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://streaming.sim-indonesia.com:8000/genfm"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Gen FM Jakarta"
PictureBox1.Enabled = False
End If
If myint = 7 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://streaming.sim-indonesia.com:8000/jak"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Jak FM Jakarta"
PictureBox1.Enabled = False
End If
If myint = 8 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://142.4.217.133:9240/;stream/1"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Major Bass Radio USA"
PictureBox1.Enabled = False
End If
If myint = 9 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://103.226.246.245/kompas-motionjakarta"
YTPlayer.Ctlcontrols.play()
Label1.Text = "Motion FM Jakarta"
PictureBox1.Enabled = False
End If
If myint = 10 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://www.ozradiojakarta.co.id/"
YTPlayer.Ctlcontrols.play()
Label1.Text = "OZ Radio Jakarta"
PictureBox1.Enabled = False
End If
If myint = 11 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://edge1-b.exa.live365.net/a91401"
YTPlayer.Ctlcontrols.play()
Label1.Text = "UK Scene Radio UK"
PictureBox1.Enabled = False
End If
If myint = 12 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://uk5.internet-radio.com:8163/;stream"
YTPlayer.Ctlcontrols.play()
Label1.Text = "UK5 Radio"
PictureBox1.Enabled = False
End If
If myint = 13 Then
YTPlayer.Ctlcontrols.stop()
YTPlayer.URL = "http://uk7.internet-radio.com:8226/;stream"
YTPlayer.Ctlcontrols.play()
Label1.Text = "UK7 Radio"
PictureBox1.Enabled = False
End If
If myint > 13 Then
YTPlayer.Ctlcontrols.stop()
Label1.Text = "VCL Bro Web Radio"
PictureBox1.Enabled = False
End If
End Sub
End Class
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum