GS-Zone

AYUDA, como pongo una peli corta en la presentacion ? Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

2

Nota » 02 May 2009 09:50

buenass como pongo una peli corta en la presentacion ?.. osea ise una mini pelicula q dice bienvenidos y eso..

pero quiero saver como pongo para que se reprodusca como presentacion .. y sacar eso de alkonao2 bosquefinal. osea q se reprodusca mi corto


saludo y gracias de antemano

Cancelar "nuestro dios"
Judio lider
83
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 1479
Aportes: 11

Nota » 03 May 2009 10:05

Bueno, Voy a Intentar Ayudarte.

Mira Antes que nada Comenza Borrando o Bloquiando estas Lineas.

Busca en el Cliente.

  1. frmPres.Picture = LoadPicture(App.path & "\Graficos\bosquefinal.jpg")
  2.     frmPres.Show vbModal    'Es modal, así que se detiene la ejecución de Main hasta que se desaparece


Yo le agrego un ' Adelante De esa Forma Los Bloquias Por si el Dia De mañana Decidis Volver a Tener Imagenes en La presentacion.

Luego Buscas.

  1. Me.Picture = LoadPicture(App.path & "\Graficos\alkonao2.jpg")


  1. 'Me.Picture = LoadPicture(App.path & "\Graficos\newfinal.jpg")


Bueno Ahi ya tendrias Una presentación sin Imagenes, Osea te quedaria El Form Cargando, y luego Directamente El Form Connect. Ahora Veamos la Parte de Introducir Una reproducion de video en el medio (MPEG,AVI,Etc...)

Bueno ahora mira, Este codigo es basico para cualquier tipo de aplicacion solo es para que te orientes.

primero declaramos las funciones.

  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  2.  


Luego creamos dos botones uno que es con el que vamos a buscar el archivo que deseamos ejecutar.Si queres ponerle Botones como Iniciar estilo en un Launcher, me explico, en caso que lo quieras hacer automatico es mas Sencillo tenes que poner en el load que ejecute una ruta especifica Eso programalo como quieras a Tu gusto es solo una linea.

  1. Private Sub Command1_Click()
  2.  
  3. Command2.Enabled = False
  4. Label1.Caption = ""
  5. CommonDialog1.DialogTitle = "Buscar archivo... "
  6. CommonDialog1.FileName = ""
  7. CommonDialog1.Filter = "Todos los archivos|*.*"
  8. CommonDialog1.InitDir = "c:\"
  9.  
  10.  
  11. CommonDialog1.ShowOpen
  12.  
  13. If CommonDialog1.FileName <> "" Then
  14. Label1.Caption = CommonDialog1.FileName
  15. Command2.Enabled = True
  16.  
  17. Else
  18.  
  19. Label1.Caption = "Ningun Archivo se ha Cargado"
  20. End If
  21.  
  22. End Sub


Luego creamos el boton que es el que ejecutara el archivo antes buscado y que se encuentra cargado en el comand dialog (la ruta), si al buscar el archibo le damos cancelar y no seleccionamos ningun archivo este sacara un mensaje y no activara el command2.

  1. Private Sub Command2_Click()
  2.  
  3. Dim res As Long
  4. res = ShellExecute(Me.hwnd, "Open", Label1.Caption, "", "", 1)
  5. End Sub


Bueno con este CODE podes ejecutar Archivos.

Ahora te dejo un ejemplo Para Ejecutable con los codigos de Un reproductor extraido de una Guía de Google, Capaz de reproducir (Varios Formatos) Si te parece mas sencillo modificarlo de ahi que generarlo vos, es a tu gusto.

Lo unico recorda que en el Form Modifiques el Load y genera Una ruta Directa quitale la Barra de seleccion. Es una pavada y Luego modifica qe en ves de que se cargue esas imagenes se ejecute el Form que generaste, y luego saltee al Connect.

El form que te paso ya tiene las librerias cargadas, y la dimension la podes ajustar a tu gusto.

Descargar Ejemplo Reproductor en VB Codigos.

Click ACA!!http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/reproductor-multimedia-visual-basic-2.zip

Para mi es la Forma mas sencilla, Yo hice Varias Interfaces, en Flash osea genero la reproduccion automatica de un archivo .SWF pero es distinto ya que se hace mediante la carga de una sola Libreria, Luego Programas un par de lineas para ejecute automaticamente y reconozca la programacion Scripts .Aca las librerias que te servirian de Reproduccion serian.Windows Multimedia 6.0 y Windows Media Player Pero Si configuras la Primera para que se ejecute automaticamente Tambien Funcionaria la segunda libreria No te va servir para lo que deseas hacer ya que se ve la imagen del Reproductor.

Si no entendiste Avisame que trato de hacerte un Codigo, paso por paso pero trata de guiarte y entender como Funcionan los codigos que te deje. Desp es adaptar a la aplicacion AO.

Saludos!!
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 8


Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados