Posté le 24 novembre 2014 - 12:37 |
Procedure CAM_ParametrosVideo(LOCAL Tipo)
Resultado is string = ""
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"
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"
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"
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"
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) |
| |
| |
|