FiveTech Software tech support forums

Posted: **Wed Oct 10, 2018 10:49 pm**

Estimado, estoy intentando hacer un player con vcl
el caso es que necesito dos datos:
1.-tiempo del medio el cual me lo da en milisegundo
2.-posicion actual. lo cual me lo da en un valor de 0.0 a 1 (maximo) donde 0.5 seria la mita del tiempo de duracion.

necesito ayuda:
pasar el primer valor de milisegundo a formato hora, minuto, segundo "HH:MM:SS"
y el segundo valor como el valor primero menos el avance, hast que la final quede 00:00:00

estoy un poco ofuscado, necesito una manito de mis amigis programadores. :-)

salu2
carlos vargas

Posted: **Thu Oct 11, 2018 8:02 pm**

if I can help you there is a my class on github called tled
on this class there is a function use millisecond

https://github.com/silviofalconi/tLed-1 ... s/TLed.prg

static Function CalTime(n_Secs)
Local _nTotSecs:=SECONDS()-n_Secs
Return Right(SecsToTime(_nTotSecs),16)

static function SecsToTime( nTimeInSecs )

local nHours := Int( nTimeInSecs / 3600 )
local nMins := Int( nTimeInSecs % 3600 / 60 )
local nSecs := Int( nTimeInSecs - ( nHours * 3600 ) - ( nMins * 60 ) )

local nMillisec := Int(GETTICKCOUNT())

return StrZero( nHours, 2 ) + ":" + StrZero( nMins, 2 ) + ":" + ;
StrZero( nSecs, 2 ) + ":" + Right(str(nMillisec),3)

Posted: **Thu Oct 11, 2018 10:45 pm**

thanks, silvio.!

Posted: **Fri Oct 12, 2018 11:36 am**

No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

Posted: **Fri Oct 12, 2018 11:44 am**

Carlos

A ver si te sirve http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29671&p=167831

Saludetes

Posted: **Fri Oct 12, 2018 5:31 pm**

Silvio.Falconi wrote:No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

Aqui hay una que hizo ANTONIO LINARES en 2014...Mentes cruzadas...saludos... :shock:

viewtopic.php?f=3&t=29671&p=167831

Posted: **Fri Oct 12, 2018 9:26 pm**

joseluisysturiz wrote:
Silvio.Falconi wrote:No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

Aqui hay una que hizo ANTONIO LINARES en 2014...Mentes cruzadas...saludos...

viewtopic.php?f=3&t=29671&p=167831

Dear joseluisysturiz,
I'm sorry I made it before 2014
Tled Class is made on 2010
and then I think Carlos Vargas mean "milliseconds"

Querido Joseluisysturiz,
Lo siento lo hice antes de 2014
Tled Class se hace en 2010
y luego creo que Carlos Vargas quiere decir "milisegundos "

Posted: **Sun Oct 14, 2018 3:25 am**

Bueno, al final, con su ayuda se realizaron los metodos que necesitaba.
no uso día, por que los mp3 y mp4 son nomas de horas como mucho.

Code: Select all Expand view: METHOD Time2MiliSec( cTime ) CLASS TVlc LOCAL nMiliSec := 0 LOCAL nH, nM, nS, nT IF !empty( cTime ) nH := VAL( SUBSTR( cTime, 1, 2 ) ) nM := VAL( SUBSTR( cTime, 4, 2 ) ) nS := VAL( SUBSTR( cTime, 7, 2 ) ) nT := ( nH * 3600 ) + ( nM * 60 ) + nS nMiliSec := nT * 1000 ENDIF RETURN nMiliSec /*---------------------------------------------------------------------------------------------*/ METHOD MiliSec2Time( nMiliSec ) CLASS TVlc LOCAL cTime := "00:00:00" LOCAL nHora, nMinuto, nSegundo IF nMiliSec > 0 nMiliSec := int( nMiliSec / 1000 ) nHora := int( nMiliSec / 3600 ) nMiliSec := nMiliSec - ( nHora * 3600 ) nMinuto := int( nMiliSec / 60 ) nSegundo := nMiliSec - ( nMinuto * 60 ) cTime := StrZero( nHora, 2 ) + ":" + StrZero( nMinuto, 2 ) + ":" + StrZero( nSegundo, 2 ) ENDIF RETURN cTime

Posted: **Mon Oct 15, 2018 9:53 am**

I remember there was a Mp3 or Mp4 class when I had 1.14 fw+clipper (about 1994), I must see on my hard diskes

Posted: **Fri Oct 19, 2018 5:04 pm**

Silvio.Falconi wrote:No hay problema, Tus amigos en el foro español me han acusado de no compartir mis fuentes, bueno, esto es una prueba de que están equivocados.
Espero que mi ayuda te ayude en tu trabajo.
Buen trabajo

No creo que te ayude mucho si solo se la pasa preguntando mas que un perdido :lol:

Posted: **Fri Oct 19, 2018 7:51 pm**

Estimado Sr. Compuin, aquí estamos hablando de programación !!!

Si no tienes nada que hacer, por favor ve a otro lugar.

No entiendo por qué los administradores del foro todavía permiten que este Compuin escriba libremente en el foro diciendo cosas idiotas

FiveTech Software tech support forums

Ayuda con milisegundos - player con vlc

Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc

Re: Ayuda con milisegundos - player con vlc