Membuat Program mp3 Player Menggunakan VB

Untuk membuat mp3 Player kita hanya membutuhkan beberapa Item yaitu:

1. Commandbutton (5)

2. Listbox (3)

3. CommonControlDialog (1)

4. MediaPlayer (1)

Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.

Berikut tampilan setelah semua item dimasukan:

Ubah tampilan semenarik mungkin menurut anda..!!!

Masukan source kodenya sebagai berikut:

‘—————————
Private Sub Command1_Click()
On Error Resume Next
Dim buka As String
With CommonDialog1
.Filter = “All Support*.mp3;*.wav;*.mid;*.wma;*.dat;*.avi;*.wmv;*.mpeg;*.mpgmp3 files*.mp3all files*.*”
.DialogTitle = “ebenk – Open Music files”
.FileName = “”
.ShowOpen
buka = .FileName
If .FileName = “” Then
Exit Sub
Else
List1.AddItem buka
List2.AddItem .FileTitle
End If
End With
End Sub

Private Sub Command2_Click()
Dim main As String
main = List1.Text
If List1.Text = “” Then
MsgBox “Tentukan Lagu Yang Akan Di Mainkan”, vbCritical + vbOKOnly, “Konfirmasi”
Else
player.Open main
End If
End Sub

Private Sub Command3_Click()
player.Stop
End Sub

Private Sub Command4_Click()
player.Pause
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
End Sub

Private Sub List2_DblClick()
Dim main As String
main = List1.Text
player.Open main
End Sub

Private Sub Player_EndOfStream(ByVal Result As Long)
On Error Resume Next
player.Stop
With Form1
If List1.ListIndex = List1.ListCount – 1 Then
List1.ListIndex = 0
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
Else
.List1.ListIndex = .List1.ListIndex + 1
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
End If
End With
player.Open List1.Text
End Sub
‘————————-

Udah dulu ya... semoga anak X RPL 1 SMKN 2 Kraksaan dapat membuat software" yang lain dan yang lebih menarik :V

Cara Membuat Wifi Via CMD

Hallo sobat, Kali ini saya akan share tutorial tentang cara membuat WIFI via CMD, Supaya kita dapat internetan bersama teman kita tanpa menggunakan softwaere.

Yap, langsung saja ke TKP

Berikut adalah caranya :

Pertama sobat jalankan Command Prompt dengan "Run as Administrator"

Selanjutnya sobat ketikan " netsh wlan set hostednetwork mode=allow ssid=hot1key=123456789" pada windows Command Prompt dalam keadaan wireless aktif, lalu tekan Enter.

Cat : ssid = nama wifi, key = password wifi. Untuk itu, Nama dan Passwordnya dapat diganti sesuai keinginan sobat. bila sobat akan membuat wifi untuk HP lebih baik password sekurang-kurangnya 8 digit.

Setelah Itu Ketikan "nets wlan start hostednetwork" lalu tekan Enter

Nah, Jika setelah di Enter muncul seperti gambar dibawah ini, maka sobat harus mengulaginya kembali.

Jika success sobat bisa teruskan ke cara selanjutnya.

Untuk memulai membagikan koneksi klik " Control Panel >>> Pilih Network Dan Internet >>> Lalu Pilih Network And Sharing Center >>> Lalu Klik Change Adapter Setting "

Kemudian pada koneksi wifi, sobat klik kanan, lalu pilih "Properties"

Setelah itu pada tab sharing cetang "allow other network users to connect trough this computer's internet connection"

Nah, udah selesai deh tinggal internetan ajja,.. :D

Untuk menonaktifkan nya sobat ketikan "nets wlan stop hostednetwork".

Ehhm, itulah cara membuat wifi dengan CMD, Selamat Mencoba,.. :)

Sekian dulu postingan kali ini,

Semoga bermanfaat,... :)