Billede som bevæger sig på baggrund af en mp3-fil´s længde

Hej.

Med kommandoen FileLen(filename) kan du få længden i bytes.
Positionen af en picturebox kan ændres i runtime med PictureBox.Left = ....
Med en Timer kan du få noget til at ske hver gang der er gået et antal millisekunder.

Timeren skal flytte billedet 100 % uanset MP3-filens længde, så du må udregne hvor mange Twips det skal flytte sig pr. sekund eller hvor små bevægelserne nu skal være.
Bruger du en indlejeret MCI32.OCX ? så kan den fortælle dig filens afspilningstid.  Nu er det så bare at regne.

M.v.h.  Jørn

Hvordan bruges det i praksis.
Kan du evt. vise noget kode så jeg har lidt at starte på?

Hej.

I så fald må du først svare på hvad du bruger for at afspille MP3-filen?
Er du måske slet ikke begyndt?

M.v.h.  Jørn

Jeg bruger MediaPlayer til at afspille både mp3 og wma filer.
Jeg er skam færdig med min jukebox, men nu kunne det være sjovt med en lille julemand som bevæger sig mod højre.
Jeg bruger i forvejen slider som jeg ligeledes kan spole i.

Hej.

Jeg har lavet et lille projekt, som du kan hente på
http://www.jkfsoft.dk/pakker/movepic.zip (12 kB)  Koden vises nedenfor, måske kan det inspirere dig.  Noget har jeg plukket fra mit melodikartotek.


Dim p, a As Integer, minsek As Long
Private Sub Command1_Click()
mp1.filename = ""
mp1.ShowPositionControls = False
mp1.Height = 675
mp1.Width = 3195
labmp3len.Caption = "0:00"


    mp1.filename = "e:\mp3_cd\coco.mp3"
    minsek = FileLen("e:\mp3_cd\coco.mp3") / 16100
         
    a = 2700 / minsek      'den strækning billedet flytter sig
   
   
    If minsek - (Int(minsek / 60) * 60) < 10 Then
        labmp3len.Caption = Int(minsek / 60) & ":0" & minsek - (Int(minsek / 60) * 60)
      Else
        labmp3len.Caption = Int(minsek / 60) & ":" & minsek - (Int(minsek / 60) * 60)
    End If


End Sub

Private Sub MediaPlayer1_DVDNotify(ByVal EventCode As Long, ByVal EventParam1 As Long, ByVal EventParam2 As Long)

End Sub

Private Sub Form_Load()
  p = 300
End Sub

Private Sub Timer1_Timer()
  p = p + a
  If p < 3000 Then Picture1.Left = p
 
  Label1.Caption = mp1.CurrentPosition
End Sub

joern> tak skal du have...jeg kigger på det.

Hej.

Jeg fik ikke dyrket 'Current.position'

Du kan vist blot:

minsek = FileLen("dinfil.mp3") / 16100

If mp1.CurrentPosition > 1 Then
  Picture.Left = 300 + (mp1.CurrentPosition / minsek) * 2700
End If

Billedet starter 300 twips fra venstre kant og slutter 3000 fra kanten.

M.v.h.  Jørn

Den spørger efter object på denne linie: 
mp1.filename = ""

mangler dern noget?

Jamen, altså.

mp1 er navnet på medieplayer og filename er den musikfil, du har valgt i din jukeboks.

I øvrigt fungerer det seneste ikke, men jeg har fået lavet kode, hvor billedet flytter med frem og tilbage, hvis man trækker i positions-markøren i mediaplayer.

Koden hører til i det lille projekt under timer, som jeg i øvrigt har sat til 500 millisekunders interval.

Private Sub Timer1_Timer()
If mp1.CurrentPosition > 1 Then
  p = 300 + (mp1.CurrentPosition / minsek) * 2700
End If
    If p < 3000 Then Picture1.Left = p
End Sub

M.v.h.  Jørn

Prøv det her. (picture2 skal være contained i picture 1)
Private Sub Timer1_Timer()
    If mp1.Duration Then
    Picture2.Left = -Picture1.Width + (Picture1.Width * mp1.CurrentPosition / mp1.Duration)
    End If
End Sub

hallo....
mite er du der ?