un calculateur de bitrate pour Divx;)

Backup · Message par **Backup** » jeu. 19/janv./2006 13:02

ya qu'a choisir un film "*.Avi"
et ça vous sort le Bitrate en fonction de la taille du CD précisé dans le listing ...

IL FAUT LA LIB VIDEO DE CHRIS !!!!

; Calcul du Bitrate Divx !! par Dobro
; Librairie Video de Chris indispensable !!!

taille=700 ; la taille du CD sur lequel doit tenir le divx !!
; par defaut il calcul avec une bande son de 128 !!

Enumeration
     #Video
EndEnumeration

; *******************************************************************
;Le son sera encodé en MP3 à 128 kbps et fera donc 936Ko/mn
;Bitrate = [Dispo (Mo) / Durée (mn)] x 139
;Exemple pour un cd de 700 Mo
;notre film fait 1 h 37 mn 36 s (soit 98 mn)
;le son occupera donc => (98 X 936) / 1024 = 89,558 Mo (soit 90 Mo)
;reste 690 - 90 = 600 Mo dispos
;Bitrate => (600 / 98 ) X 139 = 851
; *******************************************************************

NomFichier$ = OpenFileRequester ( "charger une video" , "Video|*.avi" , "*.avi" , 0 )
LoadVideo( #Video , NomFichier$ )
temp=VideoLength( #Video )
duree$=GetTime(temp)

heure= Val ( Mid (duree$,1,2))
minute= Val ( Mid (duree$,4,2))
seconde1= Val ( Mid (duree$,7,2))

If heure>0
    seconde_heure=heure*60*60
EndIf
If minute>0
    seconde_minute=minute*60
EndIf
seconde_film= seconde_heure+seconde_minute+seconde1
minute_film=seconde_film/60
taille_son=(minute_film*936)/1024
reste=taille-taille_son
If minute_film>0
    bitrate=(reste/minute_film)*139
Else
     MessageRequester ( "erreur " , "le film a un probleme !" , #PB_MessageRequester_Ok )
     End
EndIf

Resultat = MessageRequester ( "Resultat" , "la video fait :" +GetTime(temp)+ Chr (10)+ " le bitrate pour un CD de :" + Str (taille)+ "Mo" + Chr (10)+ "sera de : " + Str (bitrate), #PB_MessageRequester_Ok )
End

lionel_om · Message par **lionel_om** » jeu. 19/janv./2006 13:09

Intéressant, je prend...

Backup · Message par **Backup** » jeu. 19/janv./2006 13:35

j'ai oublié de preciser qu'il faut la LIB VIDEO
de Chris !!!

Chris · Message par **Chris** » jeu. 19/janv./2006 13:37

Dobro a écrit : j'ai oublié de preciser qu'il faut la LIB VIDEO
de Chris !!!

Ah ouais!
Ben tu vas être bien avancé si elle ne fonctionne pas chez tout le monde, ce qui a l'air d'être le cas, apparemment!

Backup · Message par **Backup** » jeu. 19/janv./2006 13:39

ben chez moi elle marche tres bien ta lib !!

a priori y a eu qu'une seule personne qui s'est plaint !!

si elle marche chez moi , c'est qu'elle marche ! c'est garantie !!

(pour ceux chez qui ça marche pas , il est probable qu'il y est une interaction avec une autre lib !!)

Chris · Message par **Chris** » jeu. 19/janv./2006 13:42

Dobro a écrit :ben chez moi elle marche tres bien ta lib !!

a priori y a eu qu'une seule personne qui s'est plaint !!

si elle marche chez moi , c'est qu'elle marche ! c'est garantie !!

(pour ceux chez qui ça marche pas , il est probable qu'il y est une interaction avec une autre lib !!)

Avec une autre lib, ou avec une des mises à jour de Windows.

Backup · Message par **Backup** » jeu. 19/janv./2006 13:44

c'est vrais que je n'ai aucun patch !!

faudrai d'autre essayeur !!
pour l'instant entre olivier et moi ça fait du 50%/50%

Backup · Message par **Backup** » jeu. 19/janv./2006 15:13

je viens d'ajouter un petit test pour eviter une division par zero !! ...

Backup · Message par **Backup** » ven. 20/janv./2006 16:15

Version sans avoir besoin de Librairie !!

; Calcul du Bitrate Divx !! par Dobro
taille=700 ; la taille du CD sur lequel doit tenir le divx !!
; par defaut il calcul avec une bande son de 128 !!

Declare.s frame_deci_to_base60( nbr_frame)

Enumeration
     #Video
EndEnumeration

InitMovie ()

; *******************************************************************
;Le son sera encodé en MP3 à 128 kbps et fera donc 936Ko/mn
;Bitrate = [Dispo (Mo) / Durée (mn)] x 139
;Exemple pour un cd de 700 Mo
;notre film fait 1 h 37 mn 36 s (soit 98 mn)
;le son occupera donc => (98 X 936) / 1024 = 89,558 Mo (soit 90 Mo)
;reste 690 - 90 = 600 Mo dispos
;Bitrate => (600 / 98 ) X 139 = 851
; *******************************************************************

NomFichier$ = OpenFileRequester ( "charger une video" , "Video|*.avi;*.Mpg" , "*.avi;*.mpg" , 0 )
LoadMovie ( #Video , NomFichier$ )

Longueur = MovieLength ()
longueur_seconde=Longueur/25
longueur_minute=longueur_seconde/60
temp$=frame_deci_to_base60( Longueur)
minute_film=longueur_minute
taille_son=(minute_film*936)/1024
reste=taille-taille_son
If minute_film>0
    bitrate=(reste/minute_film)*139
Else
     MessageRequester ( "erreur " , "le film a un probleme !" , #PB_MessageRequester_Ok )
     End
EndIf
Resultat = MessageRequester ( "Resultat" , "la video fait : " +temp$+ Chr (10)+ " le bitrate pour un CD de :" + Str (taille)+ "Mo" + Chr (10)+ "sera de : " + Str (bitrate), #PB_MessageRequester_Ok )
End

Procedure.s frame_deci_to_base60( nbr_frame) ; transforme le nombre de frame d'un film en hh:mm:ss
    longueur_seconde=nbr_frame/25
    longueur_minute=longueur_seconde/60
    hh$= Str (longueur_seconde/3600)
    temp=(longueur_seconde-3600)* Val (hh$)
    mm$= Str ((temp/60))
    ss$= Str (temp- Val (mm$)*60)
    heure$=hh$+ ":" +mm$+ ":" +ss$
     ProcedureReturn heure$
EndProcedure