A continuación se presentan una serie de vídeo tutoriales para incorporar algunos elementos multimedia dentro de sus proyectos NeoBook.
IMPORTANTE: Visualizar los vídeos en pantalla completa.
1. Insertando vídeo en NeoBook
2. Insertando créditos en NeoBook
3. Insertando fondo musical al proyecto
Primero le diremos a nuestra publicación (en acciones al cargar la aplicación) cuáles y cuántos archivos queremos reproducir y le diremos que todavía no estamos reproduciendo.
PROPIEDADES DEL LIBRO > INSERTAR ACCION EN INICIAR
setvar "[temas]" "3"
setvar "[tema1]" "[PubDir]audios\tema1.mp3"
setvar "[tema2]" "[PubDir]audios\tema2.mp3"
setvar "[tema3]" "[PubDir]audios\tema3.mp3"
setvar "[play]" "NO"
Luego en las acciones de la primera página (o la que necesitemos que se inicie la reproducción) pondremos el siguiente código.
PROPIEDADES DE LA PAGINA PRINCIPAL HASTA CADA UNA DE LAS PAGINAS > INSERTAR ACCION EN ENTRAR EN LA PAGINA
GetObjectInfo "Encendido" "Visible" "[sonido]"
If "[sonido]" "=" "True"
If "[play]" "=" "NO"
:ran
Random "[temas]" "[random]"
if "[random]" "=" "0"
GotoLine "ran"
endif
npRutaCortaArchivo "[tema[random]]"
setvar "[tema]" "[npResultadoAccion]"
SetVar "[accion]" "MCICommand [#34]play [tema][#34]"
npEjecutarAccion "[accion]"
SetVar "[play]" "SI"
EndIf
TimerStart "Timer1" "1000"
else
TimerStop "Timer1"
mcicommand "stop [tema]"
Endif
SetVar "[accion]" "MCICommand [#34]STATUS [tema] mode[#34]"
npEjecutarAccion "[accion]"
if "[MCIResponse]" "<>" "playing"
if "[random]" "=" "3"
setvar "[random]" "1"
else
if "[random]" "<" "3"
setvar "[random]" "[random]+1"
endif
Endif
npRutaCortaArchivo "[tema[random]]"
setvar "[tema]" "[npResultadoAccion]"
SetVar "[accion]" "MCICommand [#34]play [tema][#34]"
npEjecutarAccion "[accion]"
Endif
El código anterior obtiene el estado del dispositivo MCI y si éste no esta reproduciendo pasa al siguiente tema.
PROPIEDADES DEL REPRODUCTOR MULTIMEDIA > INSERTAR ACCION EN COMIENZA LA REPRODUCCION
TimerStop "Timer1"
mcicommand "stop [tema]"
> INSERTAR ACCIÓN EN REPRODUCCIÓN FINALIZADA Y CANCELADO
GetObjectInfo "Encendido" "Visible" "[sonido]"
if "[sonido]" "=" "True"
TimerStart "Timer1" "1000"
else
TimerStop "Timer1"
mcicommand "stop [tema]"
Endif
PROPIEDADES DEL BOTÓN ENCENDIDO > INSERTAR ACCIONES EN CLIC
HideObject "Encendido" "" "0"
ShowObject "Apagado" "" "0"
GetObjectInfo "Encendido" "Visible" "[sonido]"
TimerStop "Timer1"
mcicommand "stop [tema]"
PROPIEDADES DEL BOTÓN APAGADO> INSERTAR ACCIONES EN CLIC
HideObject "Apagado" "" "0"
ShowObject "Encendido" "" "0"
GetObjectInfo "Encendido" "Visible" "[sonido]"
Timerstart "Timer1" "1000"
PROPIEDADES DEL LIBRO > INSERTAR ACCION EN INICIAR
setvar "[temas]" "3"
setvar "[tema1]" "[PubDir]audios\tema1.mp3"
setvar "[tema2]" "[PubDir]audios\tema2.mp3"
setvar "[tema3]" "[PubDir]audios\tema3.mp3"
setvar "[play]" "NO"
Luego en las acciones de la primera página (o la que necesitemos que se inicie la reproducción) pondremos el siguiente código.
PROPIEDADES DE LA PAGINA PRINCIPAL HASTA CADA UNA DE LAS PAGINAS > INSERTAR ACCION EN ENTRAR EN LA PAGINA
GetObjectInfo "Encendido" "Visible" "[sonido]"
If "[sonido]" "=" "True"
If "[play]" "=" "NO"
:ran
Random "[temas]" "[random]"
if "[random]" "=" "0"
GotoLine "ran"
endif
npRutaCortaArchivo "[tema[random]]"
setvar "[tema]" "[npResultadoAccion]"
SetVar "[accion]" "MCICommand [#34]play [tema][#34]"
npEjecutarAccion "[accion]"
SetVar "[play]" "SI"
EndIf
TimerStart "Timer1" "1000"
else
TimerStop "Timer1"
mcicommand "stop [tema]"
Endif
Lo que hace el código anterior es generar un numero aleatorio para empezar a reproducir ese archivo, esto para evitar siempre reproduzca el mismo sonido siempre. Todo ésto lo hace solamente una vez al entrar a la página pues si navegamos a otra y volvemos a ésta empezaría a reproducir otro archivo haciendo que se mezclen los sonidos.
En las acciones del Timer
PROPIEDADES DEL TIMER1 (CRONOMETRO) > INSERTAR ACCION EN INTERVALO DEL CRONOMETROSetVar "[accion]" "MCICommand [#34]STATUS [tema] mode[#34]"
npEjecutarAccion "[accion]"
if "[MCIResponse]" "<>" "playing"
if "[random]" "=" "3"
setvar "[random]" "1"
else
if "[random]" "<" "3"
setvar "[random]" "[random]+1"
endif
Endif
npRutaCortaArchivo "[tema[random]]"
setvar "[tema]" "[npResultadoAccion]"
SetVar "[accion]" "MCICommand [#34]play [tema][#34]"
npEjecutarAccion "[accion]"
Endif
El código anterior obtiene el estado del dispositivo MCI y si éste no esta reproduciendo pasa al siguiente tema.
PROPIEDADES DEL REPRODUCTOR MULTIMEDIA > INSERTAR ACCION EN COMIENZA LA REPRODUCCION
TimerStop "Timer1"
mcicommand "stop [tema]"
> INSERTAR ACCIÓN EN REPRODUCCIÓN FINALIZADA Y CANCELADO
GetObjectInfo "Encendido" "Visible" "[sonido]"
if "[sonido]" "=" "True"
TimerStart "Timer1" "1000"
else
TimerStop "Timer1"
mcicommand "stop [tema]"
Endif
PROPIEDADES DEL BOTÓN ENCENDIDO > INSERTAR ACCIONES EN CLIC
HideObject "Encendido" "" "0"
ShowObject "Apagado" "" "0"
GetObjectInfo "Encendido" "Visible" "[sonido]"
TimerStop "Timer1"
mcicommand "stop [tema]"
PROPIEDADES DEL BOTÓN APAGADO> INSERTAR ACCIONES EN CLIC
HideObject "Apagado" "" "0"
ShowObject "Encendido" "" "0"
GetObjectInfo "Encendido" "Visible" "[sonido]"
Timerstart "Timer1" "1000"
4. Diseño de un test de conocimiento en nuestro proyecto
Vídeo tutorial que explica paso a paso el diseño de un test de conocimiento en un proyecto multimedia de NeoBook.
Botones regalo...
![]() |
Botón base |
![]() |
Botón Salir |
![]() |
Botón Inicio |
![]() |
Botón Apagado |
![]() |
Botón Encendido |
4. Compilar y publicar nuestro proyecto
Este comentario ha sido eliminado por el autor.
ResponderBorrarEste comentario ha sido eliminado por el autor.
ResponderBorrar