Ffmぺsync ver.1.0 プロシージャ解説３ 適用される縦横サイズ値の変更方法

Ffmぺsync ver.1.0　　ffmpeg.exeを手軽に使うためのファイル同期風フロントエンドＶＢスクリプト　本編

　今回はサラっと流しますねー
　エンコード品質入力時に設定する二桁の数字。　二桁目は品質で、一桁目は出力サイズとなっている。　今回は出力サイズ値の設定箇所を説明。

'################################################
'モード変換>>>画面サイズ　標準的なサイズを設定　奇数16:9 偶数4:3
'
'IN
'　piMode モード
'
'Return
'　サイズ　該当なしは""
'
Function sGetConvertSiz(piMode)
Dim vMode , vSize
vSize = cNULL
vMode = Trim(piMode)
If IsNumeric(vMode) Then
vMode = CLng(vMode) Mod 10
Select Case vMode
Case 0 : vSize = " " 'サイズ変更なし
Case 1 : vSize = "1280x720" '921600
Case 2 : vSize = "960x720"
Case 3 : vSize = "960x540"
Case 4 : vSize = "640x480"
Case 5 : vSize = "854x480"
Case 6 : vSize = "560x420"
Case 7 : vSize = "640x360"
Case 8 : vSize = "480x360"
Case 9 : vSize = "427x240"
End Select
End if
sGetConvertSiz = vSize
End Function

　Case 0～Case 9に対応した値をvSizeに設定する。

　出力時の比率設定はしていないので、ここでの縦横サイズがそのまま出力する縦横サイズとなる。　ここの縦横サイズを変更すれば変更したサイズが出力できると思うが、変更した出力サイズでエンコードが正しくできるかは、やってみないと判らない。