Taraminomp3

Soyez le premier à donner votre avis sur cette source.

Vue 3 889 fois - Téléchargée 358 fois

Description

comme vous vous en doutez ce programme un lecteur de mp3, wav, midi, mp2 etc...

Source / Exemple :


'déclaration des variable publique
Public chemin As String
Public mitch As String
Public repeat As String
Private Sub ComboCd_Change()
drvD.Drive = "D:"
End Sub
Private Sub Check2_Click()
'charge la filelist enregistrée
Open "C:\mp3\filelist.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
List1.AddItem txt
Loop
Close #1
End Sub

Private Sub DirC_Change()
File1.Path = DirC.Path
End Sub

Private Sub Drive1_Change()
DirC.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
    CommonDialog1.Filter = "Fichiers texte (*.txt)|*.txt"
    CommonDialog1.ShowOpen
' dit le chemin a relaaudio ou aller chercher la musique ( au double clique)
RealAudio1.Source = File1.Path & "\" & File1.FileName
RealAudio1.DoPlay
Form2.Show
End Sub

Private Sub Form_Load()
MsgBox " Pour la fiel list vous devez créé un dossier ou vous mettez vos mp3 dans C:\mp3, la file list sera enregistrer dedans "
End Sub

Private Sub Form_Unload(Cancel As Integer)
' déclare une variable et enregistre la filelist
Dim count As Integer
Open "C:\mp3\filelist.txt" For Output As 1
For count = 0 To List1.ListCount - 1
Print #1, List1.List(count)
Next
Close 1
MsgBox "Votre filelist va etre enregistrée"
End Sub
Private Sub List1_DblClick()
' lit la musique doubliquée
chemin = ".txt"
Text9.Text = List1.Text & chemin
Open Text9.Text For Input As #1
Do While Not EOF(1)
Line Input #1, txt
mitch = txt
Loop
Close #1
RealAudio1.DoStop
RealAudio1.Source = mitch
RealAudio1.DoPlay
End Sub

Private Sub mnupropos_Click()
' charge la page à propos de
frmAbout.Show
End Sub

Private Sub mnuquitter_Click()
' enregistre la filelist et quitte le programme
Dim count As Integer
Open "C:\mp3\filelist.txt" For Output As 1
For count = 0 To List1.ListCount - 1
Print #1, List1.List(count)
Next
Close 1
MsgBox "Votre filelist va etre enregistrée"
End
End Sub

Private Sub RealAudio1_OnClipClosed()
' quand la musique et finie si la check1 est checkée sa repeat
If Check1.Value = Checked Then
For i = 0 To 100 Step 1
RealAudio1.Source = mitch
RealAudio1.DoPlay
Next i
Else
RealAudio1.DoStop
End If
End Sub

Conclusion :


merci d'avance

Codes Sources

Ajouter un commentaire Commentaires
Taramino
Messages postés
18
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
30 mars 2003

14 janv. 2003 à 20:06
justement j'ai une question pour faire lire la list je sais pas comment faire ! peux tu m'aider ?
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
2
14 janv. 2003 à 12:19
pkoi tu fais une boucle dans le onclipclosed ?

dans ce cas pour la mise à jour d'autres conseils : gere une playlist, gere la lecture de la liste, la lecture de la liste repetée, la lecture de la liste en shuffle,affiche la durée et le temps ecoulé du son, affiche les informations contenus dans les tags (au pire juste les v1 qui sont tres simple recuperer, fait une recherche)...etc...etc... pompes un vrai lecteur audio pour commencer quoi, puis ajoutes y ensuite tes idées.
Taramino
Messages postés
18
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
30 mars 2003

14 janv. 2003 à 09:58
Merci pour tes remarques sa va m'aider pour la mise a jour !!! LOL
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
2
13 janv. 2003 à 18:06
c'est vraiment tres tres tres basique pour un lecteur dont le nom laisse penser qu'il est complet (taraminomp3, c'est un nom de logiciel ou tu donnes un p'tit surnom à tes sources?).
Critiques à part, le composant real player n'est surement pas le meilleur outils pour ce qui est de la lecture de fichier audio windows... d'ailleurs tu ne proposes pas la lecture de fichier real audio alors que c'est sa seul réel utilité... utilise le composant de mediaplayer par exemple.
cs_LordBob
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
10
12 janv. 2003 à 20:57
pour le moment la toute de suite... g a peine regarder ta source... mais ca manque un peu de commentaire... et ce ki serai bien aussi c que tu fasse une capture de ton prog car ca pourrait incité des personne a prendre ton prog...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.