| |
|
| |||||||
 |
| | Seçenekler |
|
#1
24-12-2007, 12:15
| ||||||
| ||||||
Mp3 PlayerMp3 Player Option Explicit Dim myfile As String Dim i, j, d, a, s As Integer Dim plalis(80), str As String Dim t, t1 As Integer Private Sub addd_Click() d = 1 Drive1.Visible = True Dir1.Visible = True File1.Visible = False clos.Visible = True End Sub Private Sub addfi_Click() addd.Visible = True addfile.Visible = True addfile.Caption = "add file" addd.Caption = "add dir" addfi.Visible = False End Sub Private Sub addfile_Click() Drive1.Visible = True Dir1.Visible = True File1.Visible = True clos.Visible = True End Sub Private Sub clos_Click() Drive1.Visible = False Dir1.Visible = False File1.Visible = False addd.Visible = False addfile.Visible = False addfi.Visible = True clos.Visible = False End Sub Private Sub Dir1_Change() Dim tot, X As Integer File1.FileName = Dir1.Path If d = 1 Then tot = File1.ListCount - 1 For X = 0 To tot List1.AddItem File1.List(X), i plalis(i) = Dir1.Path i = i + 1 d = 0 Next End If End Sub Private Sub Drive1_Change() On Error GoTo err Dir1.Path = Drive1.Drive Exit Sub err: MsgBox "drive not available" End Sub Private Sub File1_Click() List1.AddItem File1.FileName, i plalis(i) = Dir1.Path i = i + 1 End Sub Private Sub Form_Load() Label6.Caption = "DESIGNED BY SELVAKUMAR" Label5.Caption = "CONTACT me at " End Sub Private Sub forward_Click() Dim s, m1, s1 As Integer Dim te As String If List1.ListCount = 0 Then MsgBox "No songs in list" Exit Sub End If If List1.ListIndex = List1.ListCount - 1 Then List1.ListIndex = 0 Else List1.ListIndex = List1.ListIndex + 1 End If a = List1.ListIndex mp.FileName = plalis(a) & "\" & List1.List(List1.ListIndex) s = mp.Duration m1 = s \ 60 s1 = s - (m1 * 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2.Caption = CStr(m1) & "." & te mp.play End Sub Private Sub List1_DblClick() Dim s, m1, s1 As Integer Dim te As String If (List1.ListIndex = -1) Then List1.ListIndex = 0 End If Drive1.Visible = False Dir1.Visible = False File1.Visible = False addd.Visible = False addfile.Visible = False addfi.Visible = True clos.Visible = False a = List1.ListIndex mp.FileName = plalis(a) & "\" & List1.List(List1.ListIndex) s = mp.Duration m1 = s \ 60 s1 = s - (m1 * 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2.Caption = CStr(m1) & "." & te mp.play vsc.Visible = True End Sub Private Sub mp_EndOfStream(ByVal Result As Long) Dim s, m1, s1 As Integer Dim te As String If List1.ListCount = 0 Then mp.Stop Exit Sub End If If List1.ListIndex = List1.ListCount - 1 Then List1.ListIndex = 0 Else List1.ListIndex = List1.ListIndex + 1 End If a = List1.ListIndex mp.FileName = plalis(a) & "\" & List1.List(List1.ListIndex) s = mp.Duration m1 = s \ 60 s1 = s - (m1 * 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2.Caption = CStr(m1) & "." & te mp.AutoStart = True End Sub Private Sub play_Click() Dim s, m1, s1 As Integer Dim te As String If List1.ListCount = 0 Then MsgBox "please select the songs" Exit Sub End If If (List1.ListIndex = -1) Then List1.ListIndex = 0 End If Drive1.Visible = False Dir1.Visible = False File1.Visible = False addd.Visible = False addfile.Visible = False addfi.Visible = True clos.Visible = False a = List1.ListIndex mp.FileName = plalis(a) & "\" & List1.List(List1.ListIndex) s = mp.Duration m1 = s \ 60 s1 = s - (m1 * 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2.Caption = CStr(m1) & "." & te mp.play vsc.Visible = True End Sub Private Sub previous_Click() Dim s, m1, s1 As Integer Dim te As String If List1.ListCount = 0 Then MsgBox "No songs in list" Exit Sub End If If List1.ListIndex = 0 Then List1.ListIndex = List1.ListCount - 1 Else List1.ListIndex = List1.ListIndex - 1 End If a = List1.ListIndex mp.FileName = plalis(a) & "\" & List1.List(List1.ListIndex) s = mp.Duration m1 = s \ 60 s1 = s - (m1 * 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2.Caption = CStr(m1) & "." & t mp.play End Sub Private Sub remall_Click() Dim c, c1 As Integer For c = i - 1 To 0 Step -1 List1.RemoveItem c Next remfi.Visible = False remall.Visible = False remove.Visible = True End Sub Private Sub remfi_Click() Dim c, c1, c2 As Integer c = List1.ListIndex If c = -1 Then remfi.Visible = False remall.Visible = False remove.Visible = True Exit Sub Else List1.RemoveItem c End If remfi.Visible = False remall.Visible = False remove.Visible = True i = i - 1 c2 = c For c1 = 0 To List1.NewIndex If i > c2 Then plalis(c) = plalis(c + 1) c = c + 1 End If Next End Sub Private Sub remove_Click() remfi.Visible = True remall.Visible = True remove.Visible = False End Sub Private Sub sto_Click() vsc.Visible = False Frame1.Visible = False Frame2.Visible = False mp.Stop End Sub Private Sub Timer2_Timer() If mp.PlayState = mpPlaying Then sto.Caption = "STOP" Frame1.Visible = True If t = 0 Then Picture2(0).Visible = True Picture2(1).Visible = False Picture2(2).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False t = t + 1 ElseIf t = 1 Then Picture2(0).Visible = True Picture2(1).Visible = True Picture2(2).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False t = t + 1 ElseIf t = 2 Then Picture2(0).Visible = True Picture2(1).Visible = True Picture2(2).Visible = True Picture2(3).Visible = False Picture2(4).Visible = False t = t + 1 ElseIf t = 3 Then Picture2(0).Visible = True Picture2(1).Visible = True Picture2(2).Visible = True Picture2(3).Visible = True Picture2(4).Visible = False t = t + 1 ElseIf t = 4 And mp.Volume > -50 Then Picture2(0).Visible = True Picture2(1).Visible = True Picture2(2).Visible = True Picture2(3).Visible = True Picture2(4).Visible = True t = 0 Else t = 0 End If End If Label3.Caption = " " & Time End Sub Private Sub vsc_Change() mp.Volume = vsc.Value End Sub Private Sub Timer1_Timer() If mp.PlayState = mpPlaying Then Frame2.Visible = True If t1 = 0 Then Picture3(0).Visible = True Picture3(1).Visible = False Picture3(2).Visible = False Picture3(3).Visible = False Picture3(4).Visible = False t1 = t1 + 1 ElseIf t1 = 1 Then Picture3(0).Visible = True Picture3(1).Visible = True Picture3(2).Visible = False Picture3(3).Visible = False Picture3(4).Visible = False t1 = t1 + 1 ElseIf t1 = 2 Then Picture3(0).Visible = True Picture3(1).Visible = True Picture3(2).Visible = True Picture3(3).Visible = False Picture3(4).Visible = False t1 = t1 + 1 ElseIf t1 = 3 Then Picture3(0).Visible = True Picture3(1).Visible = True Picture3(2).Visible = True Picture3(3).Visible = True Picture3(4).Visible = False t1 = t1 + 1 ElseIf t1 = 4 And mp.Volume > -50 Then Picture3(0).Visible = True Picture3(1).Visible = True Picture3(2).Visible = True Picture3(3).Visible = True Picture3(4).Visible = True t1 = 0 Else t1 = 0 End If End If End Sub  |
|
| Arama Etiketleri: mp3, player |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| Wiking Mp3 Player | ertunc_58 | Cep telefonu programları | 2 | 25-05-2008 05:34 |
| Wiking Mp3 Player | ertunc_58 | Cep telefonu programları | 0 | 20-05-2008 07:20 |
| Ogg Player + 1.67 | B737 | Webmastersitesi çöplüğü | 2 | 21-02-2008 03:44 |
| CD Player Yapmak | Celebrian | Visual Basic & Action script | 0 | 24-12-2007 01:19 |
| MP3 Player Samsung YH-J70 | LeaveMeALoNe | Donanım Haberleri | 0 | 19-11-2007 07:54 |
 |  |
