mp3 player - ubacivanje pesama u listu

1

mp3 player - ubacivanje pesama u listu

offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

Znaci

Hocu da se dir i drive povezu
i kada se klikne na Command1 (OK) da se fajlovi iz izabranog foldera u diru dodaju u listu koja ce biti na formi1!

Hvala unapred,
Aleksandar



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Aj pojasni malo.. sta je dir, koji drive, kakav folder u diru?



offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

Znaci to je za mp3 player. Da se doda vise pesama.

Da ima drive koji je spojen sa dirom. Kad se klikne na OK da se pesme iz foldera koji je izabran dodaju u listu na formi 1

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Evo...

Private Sub cmd1_Click() Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Dir1.Path) 'ovde samo zameni ovo dir1, na ime kojie si dodelio tvojoj dir kontroli Set fc = f.Files For Each f1 In fc  If Right(f1.Name, 3) = "mp3" Then Form1.List1.AddItem f1.Name Next End Sub

Ovo ce dodati sve fajlove koji su mp3 u List1 koja je na Form1.

offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

E radi ali ti fajlovi koji se tako ubace ne mogu da se puste.
Evo celog programa pa ako nadjete gresku recite!

mycity.rs/must-login.png

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

joj... to se ne radi tako...

1. Kada ja kliknem na listu (dupli klik) ti si napisao da radi ovo:

Call PlayFile(FileName)

E sada, ja mogu da kliknem na bilo sta iz liste ono ce uvek da otvori 'FileName', a iz sourcea se vidi da je 'FileName' zadnja ubacena pesma preko 'Add File'

FileName = cdlOpen.FileTitle

2. Ovako kako si ti poceo da pravis mp3 tako nece ici... Mnogo toga si preskocio, mnogo toga nisi predvideo, ona gomila tajmera... sve to je moglo preko jedne petlje sa jednim tajmerom. Kada ubacujes neku pesmu u listu treba da ubacis njeno ime, ali da u programu imas podatke o toj pesmi tj. da imas zabelezeno gde se ta pesma tacno nalazi. Lepo zamisljeno ali... Neutral

offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

jbg... znam da ima dosta gresaka, al ja sam poceo sa programiranjem pre 3 nedelje.

Ono sa timerima znam da je bzvz, al' to mi je palo napamet jer ne znam drugacije.

Jel znas mozda kako da resim ovo za pustanje???

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Pa probaj ovako: napravis 2 liste, u jednu ubacis ime pesme (znaci ovaj moj code), a u drugu ubacujes celu putanju do tog mp3 fajla. Ali to radis istovremeno tako da pozicija imena pesme u list1 bude putanja do te pesme u listi2 na istoj poziciji (List1.ListIndex). Ta druga lista ne treba da se vidi (visible = false). Namestis kada kliknes na list1 u list2 treba da se obelezi putanja do te pesme (List2.ListIndex = List1.ListIndex). Tako nekako.... E onda kada zelis da pustis pesmu, onda ne koristis

Call PlayFile(FileName)

nego

Call PlayFile(list2.text)

Evo tako nekako bi to trebalo.... To mi je sada jedino sto mi pada na pamet, mozda moze i na neki drugi nacin, neznam.... Pitaj ako jos nes nije jasno, samo nemoj da trazis da radim ceo projekat...

offline
  • Pridružio: 27 Apr 2007
  • Poruke: 28
  • Gde živiš: kraljevina MIRIJEVO!

U play i u double click na listi sam izmenio u Call PlayFile(List2.Text) i u form load sam dodao List2.ListIndex = List1.ListIndex al nesto nece i u formi 2 za dodavanje iz dira sam namestio da se doda u Listu 2.


Mislim da ovo ne valja List2.ListIndex = List1.ListIndex

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Heh, pa moras da dodas u i listu1 Wink

Ovako:

.... ...t fc = f.Files For Each f1 In fc  If Right(f1.Name, 3) = "mp3" Then Form1.List1.AddItem f1.Name  If Right(f1.Name, 3) = "mp3" Then Form1.List2.AddItem Dir1.Path & "\" & f1.Name Next End Sub

Ko je trenutno na forumu
 

Ukupno su 704 korisnika na forumu :: 46 registrovanih, 5 sakrivenih i 653 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, _commandos_, _Sale, A.R.Chafee.Jr., amaterSRB, bojank, Boris90, darkangel, Doca, doktor1964, doom83, Drug pukovnik, Duh sa sekirom, dukikan, Faki-Valjevo, galijot, gringo22, Groucho, ikan, ivica976, Jethro, Konda, kovinacc, MarKhan, Marko Marković, MB120mm, mercedesamg, Mercury, Milan A. Nikolic, milenko crazy north, Milos ZA, milos.cbr, misa1xx, Misirac, nemkea71, Regrut Boskica, rodoljub, rovac, samsung, slonic_tonic, Snorks, spektorsky, Srki94, VJ, vlvl, voja64