mp3 player - ubacivanje pesama u listu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Heh, pa moras da dodas u i listu1

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