PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Parametros de Video
Parametros de Video
Débuté par adrianoboller, 24 nov. 2014 12:37 - Aucune réponse
Membre enregistré
2 962 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:37
Procedure CAM_ParametrosVideo(LOCAL Tipo)

Resultado is string = ""

//Executa os Parametros

IF InSimulatorMode() = False
IF Tipo = "vipBalanceAuto"
Resultado = VideoParameter(vipBalance,vipBalanceAuto)
ELSE IF Tipo = "vipBalanceCloudy"
Resultado = VideoParameter(vipBalance,vipBalanceCloudy)
ELSE IF Tipo = "vipBalanceFluorescent"
Resultado = VideoParameter(vipBalance,vipBalanceFluorescent)
ELSE IF Tipo = "vipBalanceFluorescentWarm"
Resultado = VideoParameter(vipBalance,vipBalanceFluorescentWarm)
ELSE IF Tipo = "vipBalanceIncandescent"
Resultado = VideoParameter(vipBalance,vipBalanceIncandescent)
ELSE IF Tipo = "vipBalanceShadow"
Resultado = VideoParameter(vipBalance,vipBalanceShadow)
ELSE IF Tipo = "vipBalanceSunny"
Resultado = VideoParameter(vipBalance,vipBalanceSunny)
ELSE IF Tipo = "vipBalanceTwilight"
Resultado = VideoParameter(vipBalance,vipBalanceTwilight)
ELSE IF Tipo = "vipCameraBack"
Resultado = VideoParameter(vipCamera,vipCameraBack)
ELSE IF Tipo = "vipCameraFront"
Resultado = VideoParameter(vipCamera,vipCameraFront)
ELSE IF Tipo = "vipEffectAqua"
Resultado = VideoParameter(vipEffect,vipEffectAqua)
ELSE IF Tipo = "vipEffectBlackAndWhite"
Resultado = VideoParameter(vipEffect,vipEffectBlackAndWhite)
ELSE IF Tipo = "vipEffectNegative"
Resultado = VideoParameter(vipEffect,vipEffectNegative)
ELSE IF Tipo = "vipEffectNone"
Resultado = VideoParameter(vipEffect,vipEffectNone)
ELSE IF Tipo = "vipEffectPoster"
Resultado = VideoParameter(vipEffect,vipEffectPoster)
ELSE IF Tipo = "vipEffectSepia"
Resultado = VideoParameter(vipEffect,vipEffectSepia)
ELSE IF Tipo = "vipEffectSolarize"
Resultado = VideoParameter(vipEffect,vipEffectSolarize)
ELSE IF Tipo = "vipFlashAuto"
Resultado = VideoParameter(vipFlash,vipFlashAuto)
ELSE IF Tipo = "vipFlashOff"
Resultado = VideoParameter(vipFlash,vipFlashOff)
ELSE IF Tipo = "vipFlashOn"
Resultado = VideoParameter(vipFlash,vipFlashOn)
ELSE IF Tipo = "vipFlashRedEyes"
Resultado = VideoParameter(vipFlash,vipFlashRedEyes)
ELSE IF Tipo = "vipFlashTorch"
Resultado = VideoParameter(vipFlash,vipFlashTorch)
ELSE IF Tipo = "vipFlicker50Hz"
Resultado = VideoParameter(vipFlicker,vipFlicker50Hz)
ELSE IF Tipo = "vipFlicker60Hz"
Resultado = VideoParameter(vipFlicker,vipFlicker60Hz)
ELSE IF Tipo = "vipFlickerAuto"
Resultado = VideoParameter(vipFlicker,vipFlickerAuto)
ELSE IF Tipo = "vipFlickerOff"
Resultado = VideoParameter(vipFlicker,vipFlickerOff)
ELSE IF Tipo = "vipFocusAuto"
Resultado = VideoParameter(vipFocus,vipFocusAuto)
ELSE IF Tipo = "vipFocusContinuous"
Resultado = VideoParameter(vipFocus,vipFocusContinuous)
ELSE IF Tipo = "vipFocusDepthOfField"
Resultado = VideoParameter(vipFocus,vipFocusDepthOfField)
ELSE IF Tipo = "vipFocusFixed"
Resultado = VideoParameter(vipFocus,vipFocusFixed)
ELSE IF Tipo = "vipFocusInfinite"
Resultado = VideoParameter(vipFocus,vipFocusInfinite)
ELSE IF Tipo = "vipFocusMacro"
Resultado = VideoParameter(vipFocus,vipFocusMacro)
ELSE IF Tipo = "vipISOAuto"
Resultado = VideoParameter(vipISO,vipISOAuto)
ELSE IF Tipo = "vipSceneAction"
Resultado = VideoParameter(vipScene,vipSceneAction)
ELSE IF Tipo = "vipSceneAuto"
Resultado = VideoParameter(vipScene,vipSceneAuto)
ELSE IF Tipo = "vipSceneBarCode"
Resultado = VideoParameter(vipScene,vipSceneBarCode)
ELSE IF Tipo = "vipSceneBeach"
Resultado = VideoParameter(vipScene,vipSceneBeach)
ELSE IF Tipo = "vipSceneCandle"
Resultado = VideoParameter(vipScene,vipSceneCandle)
ELSE IF Tipo = "vipSceneFireworks"
Resultado = VideoParameter(vipScene,vipSceneFireworks)
ELSE IF Tipo = "vipSceneInterior"
Resultado = VideoParameter(vipScene,vipSceneInterior)
ELSE IF Tipo = "vipSceneLandscape"
Resultado = VideoParameter(vipScene,vipSceneLandscape)
ELSE IF Tipo = "vipSceneNight"
Resultado = VideoParameter(vipScene,vipSceneNight)
ELSE IF Tipo = "vipSceneNightPortrait"
Resultado = VideoParameter(vipScene,vipSceneNightPortrait)
ELSE IF Tipo = "vipScenePortrait"
Resultado = VideoParameter(vipScene,vipScenePortrait)
ELSE IF Tipo = "vipSceneSnow"
Resultado = VideoParameter(vipScene,vipSceneSnow)
ELSE IF Tipo = "vipSceneSport"
Resultado = VideoParameter(vipScene,vipSceneSport)
ELSE IF Tipo = "vipSceneSunset"
Resultado = VideoParameter(vipScene,vipSceneSunset)
ELSE IF Tipo = "vipSceneTheater"
Resultado = VideoParameter(vipScene,vipSceneTheater)
ELSE IF Tipo = "vipSceneVibration"
Resultado = VideoParameter(vipScene,vipSceneVibration)
ELSE IF Tipo = "165x100"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "165x100"
Resultado = INIWrite("Camera","Resolucao","165x100",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "230x155"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "230x155"
Resultado = INIWrite("Camera","Resolucao","230x155",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "300x200"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "300x200"
Resultado = INIWrite("Camera","Resolucao","300x200",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "400x255"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "400x255"
Resultado = INIWrite("Camera","Resolucao","400x255",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "450x240"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "450x240"
Resultado = INIWrite("Camera","Resolucao","450x240",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "535x280"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "535x280"
Resultado = INIWrite("Camera","Resolucao","535x280",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "580x320"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "580x320"
Resultado = INIWrite("Camera","Resolucao","580x320",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "640x480"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "640x480"
Resultado = INIWrite("Camera","Resolucao","640x480",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "700x380"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "700x380"
Resultado = INIWrite("Camera","Resolucao","700x380",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "800x480"
WIN_Camera_Desenvolvimento.EDT_Resolucao = "800x480"
Resultado = INIWrite("Camera","Resolucao","800x480",AutorunPath)
gloWidth = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,1,3)
gloHeight = Middle(WIN_Camera_Desenvolvimento.EDT_Compressao,5,3)
ELSE IF Tipo = "Compressao Jpg 100%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 100
Resultado = INIWrite("Camera","Compressao","100",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 90%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 90
Resultado = INIWrite("Camera","Compressao","90",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 80%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 80
Resultado = INIWrite("Camera","Compressao","80",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 70%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 70
Resultado = INIWrite("Camera","Compressao","70",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 60%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 60
Resultado = INIWrite("Camera","Compressao","60",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 50%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 50
Resultado = INIWrite("Camera","Compressao","50",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 40%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 40
Resultado = INIWrite("Camera","Compressao","40",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 30%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 30
Resultado = INIWrite("Camera","Compressao","30",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 20%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 20
Resultado = INIWrite("Camera","Compressao","20",AutorunPath)
ELSE IF Tipo = "Compressao Jpg 10%"
WIN_Camera_Desenvolvimento.EDT_Compressao = 10
Resultado = INIWrite("Camera","Compressao","10",AutorunPath)
ELSE IF Tipo = "CriarArquivoIniVideoTeste"
//Arquivo INI
//[Camera]
//FPS = 5
//Segundos = 10
//Local = gsAppDir
//Extensao = ".avi"
//Executar = "Video"
//Ambiente = "Teste"
//Debug = "S"
INIWrite("Camera","FPS",5,AutorunPath)
INIWrite("Camera","Segundos",10,AutorunPath)
INIWrite("Camera","Local",gsAppDir,AutorunPath)
INIWrite("Camera","Extensao",".avi",AutorunPath)
INIWrite("Camera","Executar","Video",AutorunPath)
INIWrite("Camera","Ambiente","Teste",AutorunPath)
Resultado = INIWrite("Camera","Debug","N",AutorunPath)

ELSE IF Tipo = "CriarArquivoIniVideoProducao"
//Arquivo INI
//[Camera]
//FPS = 5
//Segundos = 10
//Local = gsAppDir
//Extensao = ".avi"
//Executar = "Video"
//Ambiente = "Teste"
//Debug = "S"
INIWrite("Camera","FPS",5,AutorunPath)
INIWrite("Camera","Segundos",10,AutorunPath)
INIWrite("Camera","Local",gsAppDir,AutorunPath)
INIWrite("Camera","Extensao",".avi",AutorunPath)
INIWrite("Camera","Executar","Video",AutorunPath)
INIWrite("Camera","Ambiente","Producao",AutorunPath)
Resultado = INIWrite("Camera","Debug","",AutorunPath)

ELSE IF Tipo = "CriarArquivoIniFotoTeste"
//Arquivo INI
//[Camera]
//FPS = 5
//Segundos = 10
//Local = gsAppDir
//Extensao = ".avi"
//Executar = "Video"
//Ambiente = "Teste"
//Debug = "S"
INIWrite("Camera","FPS",5,AutorunPath)
INIWrite("Camera","Segundos",10,AutorunPath)
INIWrite("Camera","Local",gsAppDir,AutorunPath)
INIWrite("Camera","Extensao",".jpg",AutorunPath)
INIWrite("Camera","Executar","Foto",AutorunPath)
INIWrite("Camera","Ambiente","Teste",AutorunPath)
Resultado = INIWrite("Camera","Debug","N",AutorunPath)

ELSE IF Tipo = "CriarArquivoIniFotoProducao"
//Arquivo INI
//[Camera]
//FPS = 5
//Segundos = 10
//Local = gsAppDir
//Extensao = ".avi"
//Executar = "Video"
//Ambiente = "Teste"
//Debug = "S"
INIWrite("Camera","FPS",5,AutorunPath)
INIWrite("Camera","Segundos",10,AutorunPath)
INIWrite("Camera","Local",gsAppDir,AutorunPath)
INIWrite("Camera","Extensao",".jpg",AutorunPath)
INIWrite("Camera","Executar","Foto",AutorunPath)
INIWrite("Camera","Ambiente","Producao",AutorunPath)
Resultado = INIWrite("Camera","Debug","",AutorunPath)

END
END

RESULT(Resultado)