Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: MCKSys Argentina en 9 Julio 2013, 20:41 PMProbaste con Google??
Cita de: Adripf2 en 10 Julio 2013, 13:44 PM
Sí, por supuesto eso es lo que hice y he hecho siempre, y me anime a escribir en el foro ya que no lo encontraba.
Se me olvido decir que el código para hacer las fotos lo tengo funcionando correctamente, mi problema viene cuando las quiero unir todas y crear un vídeo simple (una foto detrás de otra y sin música y sin nada).
Imports BytescoutImageToVideoLib
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Create BytescoutImageToVideoLib.ImageToVideo object instance
Dim converter As ImageToVideo = New ImageToVideo()
' Activate the component
converter.RegistrationName = "demo"
converter.RegistrationKey = "demo"
' set default in effect for slides (you can also set effects for each single slide)
'converter.Slides.DefaultSlideInEffect = 1 ' teFadeIn (1) - fades in effect for slides transition
converter.Slides.DefaultSlideInEffectDuration = 500 ' 500 msec for in effect
' Add images and set the duration for every slide
Dim slide As Slide
slide = CType(converter.AddImageFromFileName("C:\1.jpg"), Slide)
slide.Duration = 3000 ' 3000ms = 3s
slide = CType(converter.AddImageFromFileName("C:\2.jpg"), Slide)
slide.Duration = 3000
slide = CType(converter.AddImageFromFileName("C:\3.jpg"), Slide)
slide.Duration = 3000
' Set output video size
converter.OutputWidth = 400
converter.OutputHeight = 300
' Set output video file name
converter.OutputVideoFileName = "C:\result.avi"
' Run the conversion
converter.RunAndWait()
Process.Start("C:\result.avi")
End Sub
End Class
Cita de: engelx en 10 Julio 2013, 08:59 AMel k-lite einstalas el media player Classic
Código
(ECHO Mas bajo! & Set /A "intentos+=1")
(ECHO Mas alto! & Set /A "intentos+=1")
echo numero de intentos: %xxxxxxxx%
CitarEstas son todas las variables especiales:
%0 %1 %2 %3 %4 %5 %6 %7 %8 %9 %*
En ellas se guarda el orden de los argumentos que le pasemos a nuestro script.
CitarCon el parámetro /A del comando SET podemos realizar operaciones matemáticas, y asignar valores numéricos a una variable.
Citar* - Wildcard (o Comodín)http://en.wikipedia.org/wiki/Wildcard_character
If exists ARGUMENTO (Del ARGUMENTO) ELSE (OTRA COSA)
Attrib +X +X +X ARGUMENTO
Attrib -X -X -X ARGUMENTO
@Echo OFF
Set /P "m=Escriba los minutos >>"
Set /A "s=m*60"
Echo "Shutdown %s% ..."
Pause&Exit
Cita de: jjabrans en 9 Julio 2013, 19:53 PMquiero saber que opciones hay para modificar esa dll
Cita de: SγиtαxEяяoя en 8 Julio 2013, 01:42 AM¿Que puedo hacer para solucionar esto?
Cita de: Adrylek en 9 Julio 2013, 19:54 PMError 1 'Load_Resource_To_Disk' no está declarado. Puede que esté inaccesible debido a su nivel de protección.
Public shared Function Load_Resource_To_Disk(ByVal bla bla bla...
end function
Cita de: Adrylek en 9 Julio 2013, 19:54 PMError 2 'stryk' no es un miembro de 'resources'.No has agregado corréctamente el recurso al namespace "my.resources", arriba te expliqué como debes añadirlo.