Newsgroup: it.comp.lang.visual-basic
Titolo: PROBLEMI CON WMPLAYER

ho un problema che sembra facile da risolvere, ma almeno per me che non
programmo in vb da molto non lo è. vediamo cosa riuscite a fare voi
In un form ho inserito un controllo windows media player, come posso creare
un timer che segna la posizione corrente? l'unica proprietà del controllo
che mi sembra utile a questo scopo è .CurrentPosition che però mi
restituisce un valore con molti decimali (credo che sia il numero di
secondi). Io vorrei convertirlo in formato mm:ss
Ho pensato di ottenere i minuti facendo CurrentPosition (formattato senza
decimali) mod 60. Per i secondi ho provato tutto quello che mi veniva in
mente ma ogni volta che arriva a un certo numero inizia a contare
all'indietro  Ero riuscito una volta a evitare questo problema però il tempo
che il mio timer segnava era diverso dal tempo reale. Mi spiego meglio:
ascoltando un mp3 dal mio programma quando il timer segnava per esempio 1:24
si sentiva qualcosa, e quando ascolto la stessa canzone da winamp a 1:24
sento qualcosa di diverso.
ho finito  ....

 all'indietro
Potresti postare il codice? Sono curioso...:-)


 all'indietro
:))))))
Perché per i secondi non fai un bel .CurrentPosition \ 60 ?
                Ciao
                                            Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità


Purtroppo l'ho eliminato ma era qualcosa cosě:
'nel form c'č uno slider che segna la posizione (come quello di wmplayer,
perň il mio č piů bello :-)
Private Sub Slider_Change()
x = format(player.currentposition,"#",vbUsesystem,vbUsesystem)
minuti = x mod 60         'Non sapevo che fosse il resto, stasera riprovo
secondi = x - (minuti *60)
label.caption = minuti & " : " & secondi
End Sub
Ma siamo sicuri poi che currentposition sia in secondi???
bah...
Ciao, Devaraja

 Perché per i secondi non fai un bel .CurrentPosition \ 60 ?
perchè se io ho CurrentPosition  35,4353623, quello è gia il numero dei
secondi. io volevo solo convertirlo in formato mm:ss.  facendo come dici tu
se ho 121 secondi mi da 2:01 con un po di decimali (tutto giusto)  ma se ho
123 secondi? 123/60 = 2:05 mentre dovrebbe essere 2:03
            X MARG
FUNZIONA A META' !!!!!
cp = Round(player.CurrentPosition)
minuti = Round(cp / 60)
    If minuti = 0 Then
           minuti = 1
           minutix = 0
       Else:
           minutix = minuti
       End If
secondi = cp Mod (minuti * 60)
Me.Caption = minutix & " : " & secondi
A un certo punto i secondi iniziano a contare da 90 !!!!
(Il ciclo if..then serve perchè se i minuti sono 0 non può fare il calcolo
per i secondi)
Guarda se riesci a fare qualcosa... io non ci capisco più niente :-)
Ciao, Devaraja

 123 secondi? 123/60 = 2:05 mentre dovrebbe essere 2:03
Ok, hai ragione avevo letto male allora fai così:
Text1.text = CurrentPosition \ 60 & ":" & format$(int(CurrentPosition Mod
60),"00")
Ora dovremmo esserci! :)


 ha scritto nel messaggio
news:b2to75$1g2uqi$1...@ID-67444.news.dfncis.de...
