Modifier le son d'une vidéo

' Video_son.bas modifier le volume sonore d'une vidéo
LABEL Quit,Chf,Volume,Exec
DIM ffmp$,fi$,fr$,a$,t1$,q$,i%,k%,du$,ta$,vd$,db(20),v,Voldb%

ffmp$ = "C:\Captvty\ffmpeg.exe": ' <==== A AJUSTER ! ===========================
q$ = CHR$(34)
DATA 1,1.12,1.26,1.4,1.6,1.8,2,2.2,2.5,2.8,3.2,3.6,4,4.5,5,5.6,6.3,7,8,9,10
FOR i% = 0 TO 20: READ db(i%): NEXT i%
WIDTH 0,480: HEIGHT 0,250: BORDER_SMALL 0
CAPTION 0,"  -  MODIFICATION  DU  VOLUME  SON  D' UNE  VIDÉO  -"
FONT_NAME 0,"Arial": FONT_BOLD 0: COLOR 0,180,255,255
ALPHA 1: TOP 1,0: LEFT 1,5: CAPTION 1,"Vidéo (clic) : ": COLOR 1,255,255,0
ALPHA 2: TOP 2,TOP(1): LEFT 2,WIDTH(0)-130: CAPTION 2,"  Taille:      Durée:"
EDIT 3: TOP 3,TOP(1)+16: WIDTH 3,LEFT(2): ON_CLICK 3,Chf
EDIT 4: TOP 4,TOP(3): LEFT 4,LEFT(2): WIDTH 4,50
EDIT 5: TOP 5,TOP(4): WIDTH 5,50: LEFT 5,LEFT(4)+WIDTH(4)
OPEN_DIALOG 6
ALPHA 11: TOP 11,TOP(3)+30: LEFT 11,5: CAPTION 11,"Volume du son (+/-) : ": COLOR 11,255,255,0
ALPHA 12: TOP 12,TOP(11)+15: CAPTION 12,"-20 dB"
ALPHA 13: TOP 13,TOP(12): LEFT 13,WIDTH(0)/2-20: CAPTION 13,"0 dB"
ALPHA 14: TOP 14,TOP(12): LEFT 14,WIDTH(0)-65: CAPTION 14,"+20 dB"
TRACK_BAR 15: TOP 15,TOP(12)+16: WIDTH 15,WIDTH(0)-25
  MIN 15,-20: MAX 15,20: POSITION 15,0: ON_CHANGE 15,Volume
EDIT 16: TOP 16,TOP(15)+HEIGHT(15)-15: LEFT 16,WIDTH(15)/2-30: WIDTH 16,60
  TEXT 16,"0 dB": FONT_SIZE 16,12: COLOR 16,255,255,0
EDIT 17: TOP 17,TOP(16): LEFT 17,LEFT(16)+WIDTH(16)+5: WIDTH 17,60: TEXT 17," x 1"
  FONT_SIZE 17,12
ALPHA 21: TOP 21,TOP(16)+15: LEFT 21,5: CAPTION 21,"Vidéo résultat : ": COLOR 21,255,255,0
ALPHA 22: TOP 22,TOP(21): LEFT 22,LEFT(2): CAPTION 22,"  Taille:      Durée:"
EDIT 23: TOP 23,TOP(21)+16: WIDTH 23,WIDTH(3): ON_CLICK 23,Chf
EDIT 24: TOP 24,TOP(23): LEFT 24,LEFT(2): WIDTH 24,WIDTH(4)
EDIT 25: TOP 25,TOP(24): WIDTH 25,WIDTH(5): LEFT 25,LEFT(24)+WIDTH(24)
SAVE_DIALOG 26
BUTTON 30: TOP 30,TOP(23)+35: LEFT 30,80: CAPTION 30,"Exécuter"
  ON_CLICK 30,Exec
ALPHA 31: TOP 31,TOP(30)-5: LEFT 31,LEFT(30)+80: CAPTION 31,"Début :"+CHR$(10)+"    Fin :"
EDIT 32: TOP 32,TOP(31)-5: LEFT 32,LEFT(31)+40: WIDTH 32,50
EDIT 33: TOP 33,TOP(32)+22: LEFT 33,LEFT(32): WIDTH 33,50
BUTTON 35: TOP 35,TOP(30): LEFT 35,WIDTH(0)-105: CAPTION 35,"Quitter": ON_CLICK 35,Quit
END
' ==============================================================================
Quit:
  TERMINATE
' ==============================================================================
Chf:
  i% = NUMBER_CLICK
  SELECT i%
    CASE 3
      fi$ = FILE_NAME$(6): IF FILE_EXISTS(fi$) = 0 THEN RETURN
      TEXT 3,fi$
      VideoInfos(fi$)
      i% = INT(VAL(ta$)/1000000): TEXT 4,STR$(i%)+" Mb"
      TEXT 5,du$
    CASE 23
      fr$ = FILE_NAME$(26)
      TEXT 23,fr$
  END_SELECT
RETURN
' ==============================================================================
Volume:
  i% = POSITION(15): TEXT 16,STR$(i%)+" dB"
  k% = ABS(i%): v = db(k%): a$ = STR$(v)
  IF i% > 0
      a$ = " x "+a$: ' positif, augmentation
  ELSE
      a$ = " "+CHR$(247)+" "+a$: ' négatif, diminution
  END_IF
  TEXT 17,a$
RETURN
' ==============================================================================
Exec:
  IF fi$ = "" OR fr$ = "" THEN RETURN
  TEXT 32,TIME$
  vd$ = TEXT$(16): i% = INSTR(vd$," "): vd$ = LEFT$(vd$,i%-1)+"dB": ' niveau
  Voldb% = VAL(LEFT$(vd$,i%-1))
  VideoVolume(fi$,Voldb%,fr$)
  IF FILE_EXISTS(fr$) = 0
      MESSAGE fr$+CHR$(10)+"Erreur, fichier non créé !"
  ELSE
      VideoInfos(fr$): ' caractéristiques de la vidéo résultat: taille ta$ et durée du$
      i% = INT(VAL(ta$)/1000000): TEXT 24,STR$(i%)+" Mb": ' en Mb
      TEXT 25,du$: ' durée hh:mm:ss
  END_IF
  TEXT 33,TIME$
RETURN
' ==============================================================================
SUB VideoInfos(f$)
  ' -> durée et taille (octets) rendus dans du$ et ta$ (définis dans l'appelant)
  ' ffmp$ (ffmpeg.exe) défini dans le programme appelant
  DIM_LOCAL a$,q$,k%,s$
  ta$ = "": du$ = "xx:xx:xx": s$ = "Duration: ": ' séquence cherchée
  q$ = CHR$(34)
  IF FILE_EXISTS(f$) = 0 THEN MESSAGE f$+" fichier vidéo non trouvé !": EXIT_SUB
  FILEBIN_OPEN_READ 1,f$: ta$ = STR$(FILEBIN_SIZE(1)): FILEBIN_CLOSE 1: ' taille
  EXECUTE_WAIT "CMD.exe /C "+ffmp$ + " -i " +q$+f$+q$+ " -hide_banner 2>&1 | clip"
  a$ = CLIPBOARD_STRING_PASTE$: k% = INSTR(a$,s$)
  IF k% > 0 THEN du$ = MID$(a$,k%+10,8): ' HH:MM:SS
END_SUB
' ==============================================================================
SUB VideoVolume(f$,Voldb%,fr$)
  ' Modifier le volume du son d'une vidéo f$ (+/- valeur entière en décibels) -> fr$
  ' Pour info, valeur Voldb% de O à 20 décibels en négatif ou positif, le volume sonore
  ' est diminué ou augmenté d'un facteur de (Voldb% = 0: facteur = 1, inchangé)
  '    dB  x    dB  x    dB  x    dB  x    dB  x
  '    --  ---    --  ---    --  ---    --  ---    --  ---
  '    0  1      5  1,8    10  3,2    15  5,6    20  10
  '    1  1,12    6  2      11  3,6    16  6,3
  '    2  1,26    7  2,2    12  4      17  7
  '    3  1,4    8  2,5    13  4,5    18  8
  '    4  1,6    9  2,8    14  5      19  9
  '
  ' NB fr$ ne doit pas contenir d'espace(s). q$+fr$+q$ ne marche pas... ???
  DIM_LOCAL flog$,a$,q$,k%
  flog$ = "C:\TEMP\ffmpeg.log"
  ' ffmp$ (path de ffmpeg.exe) défini dans le programme appelant
  q$ = CHR$(34)
  ' NB dans la commande, le volume (positif ou négatif) peut être exprimé (ici en dB) :
  '    - en dB, exemple : "volume=10dB"
  '    - ou en facteur relatif : "volume=1.5" (x1.5 = 150%)
  a$ = "-vcodec copy -af "+q$+"volume="+STR$(Voldb%)+"dB"+q$
  EXECUTE_WAIT "cmd.exe /c "+ffmp$+" -i "+q$+f$+q$+" "+a$+" "+q$+fr$+q$+" -hide_banner 2>"+flog$
  IF FILE_EXISTS(fr$) = 0
      a$ = "Fichier résultat non créé !"+CHR$(10)+"Voir le fichier log ffmpeg ?"
      k% = MESSAGE_CONFIRMATION_YES_NO(a$)
      IF k% = 1 THEN EXECUTE_WAIT "Notepad.exe "+flog$: ' résultat non créé
  END_IF
  FILE_DELETE flog$
END_SUB
' ==============================================================================

[chemin\]ffmpeg.exe -i "Mavideo.avi"

[chemin\]ffmpeg.exe -i "Mavideo origine.mts" -vcodec copy -af "volume=3dB" Mavideoresultat.mts