Visual Basic 2010 | Radio Player [Release]

[Stanox™]

Hallo liebe Leute,

Ich möchte euch mein kleinen simplen Radio-Player vorstellen
Ich habe ihn einfach mal BassPlayer genannt :P

Also fangen wir mal an:

-Ich habe ihn mit Visual Basic 2010 erstellt.
-Er enthält 6 Radios.
-Er ist auf Techno, Electronic geregelt .
-Alles Radios sind von
-Hier mal alle Radios aufgelistet:








*Ihr könnt mir bei Skype gerne weitere Radios senden*

Da dieser Player nicht wirklich was besonderes ist, release ich den Source-Code, damit ihr ihn nachmachen könnt

Public Class Form1


    Private Sub tb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb.Click
        technobase.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.technobase.fm/dsl.asx"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        hardbase.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.hardbase.fm/dsl.asx"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        coretime.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.coretime.fm/dsl.asx"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        trancebase.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.trancebase.fm/dsl.asx"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        housetime.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.housetime.fm/dsl.asx"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        clubtime.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.clubtime.fm/dsl.asx"
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AxWindowsMediaPlayer1.close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

Wen ihr meinen Player downloadet, dann könnt ihr sehen wie viele Buttons etc ihr benötigt.

Ich hoffe ich konnte euch etwas weiterhelfen, und würde mich über nen Thanks freuen *__*

Downloads:

Bass-Player v1.0:



LG

Stanox(.de) :'D

[-TaZzy-]

Wieder mal ein Kind was ein Tutorial nach gemacht hat und meint seinen Kinderkram hier releasen zu müssen..

Schön und gut, dass ihr lernt aber solcher Mist kommt in den ersten Tutorials vor, das ist absolut nichts besonderes und muss erst Recht nicht überall rumgepostet werden.

Ab damit in die Coders Section, wo der Thread dann sowieso sofort geschlossen wird.

[Stanox™]

Wie ich ja schon gesagt habe, ist nichts besonderes und habe es gemacht, damit anderes es verbessert nachmachen können.


LG


Stanox

[DeafTeddy]

5 minuten ransetzen hab ich den gleichen "Radio Player aKa ****" in VB reingehauen.
Versuch mal ohne Tutorials die Sprache etwas besser kennen zu lernen und schreib nichts ausm Internet ab oder kopier ganze Projekte ;O