Membuat Radio Player menggunakan visual basic 6

Setelah membahas bagaimana membuat radio online list menggunakan visual basic 6 selanjutnya membuat radio player yang hanya memutar satu channel radio saja sudah pasti lebih mudah dibanding membuat list radio online player karena kali ini tidak menggunakan database apapun baik yang menggunakan microsoft access ataupun mysql dan cukup dengan beberapa komponen saja.

Baiklah, sekarang waktunya membuat radio player menggunakan visual basic 6 caranya adalah buatlah satu form ganti background menjadi warna hitam, borderStyle = None dan masukkan komponen-komponen dibawah ini:

1.  2 Label backround ganti menjadi warna hitam forecolor menjadi putih.
2. 3 button
3. 1 windows media player rename menjadi wmp
4. 1 slider

Lihat gambar dibawah:

Setelah tampilan seperti gambar diatas lalu klik dua kali formnya dan hapus semua kode lalu masukkan kode dibawah ini:

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim reg As Object
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub Command3_Click()
Dim reg As Object

Set reg = CreateObject("Wscript.shell")
reg.regDelete "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName

End Sub




Private Sub Form_Load()
Slider1.Value = wmp.settings.volume
wmp.URL = "http://95.154.254.151:29478/"
End Sub

Private Sub Slider1_Scroll()
wmp.settings.volume = Slider1.Value
End Sub

Private Sub wmp_OpenStateChange(ByVal NewState As Long)
Label2 = wmp.Status
End Sub

Jika sukses maka setelah Run maka hasilnya seperti gambar dibawah: