Mensajes

Bueno queria pedir autorizacion de reukltilizacin de codigo si me lo permites para un proyecto de mini juego....

Pero aun que vaya adelante el nod no creen por que es mas comercial???? ahora estoy con la ultima version de avast y no hay problema

Solo una duda el efecto de xp lo buttons cargasw directo la api verda???

Yo estaba buscando un programa asi para aprender palabras y textos en ingles asi como lo hace el traductor de google el cual tiene un limite de la palabras que convierte a voz.

La voz del cabron windows xp no se entiende mucho o al menos a mi me rompe el oido.

Alguien conoce algun programa que se asimile al traductor de google?, igual esta bueno.

Loqueno o sodelcost

Bueno espero que te haya servido ..... y respecto a lo ultimo que indicas lee un poco amigo y veras que te ira bien .... ok

Otra duda ahora como podemos hacer que este archivo que reproducimos se este repitiendo cada vez que termine....?'' 

Call mciExecute("Play " & "c:\sonido. Mp3")     

Se debe asignar un Alias al media a reproducir, después con ese Alias debes estar obteniendo la posición o si este aun esta reproduciéndose, posiblemente con un timer o mejor aun captando los mensajes que produce el MCI en la aplicación.

Código [Seleccionar] Expandir



http://foro.elhacker.net/programacion_visual_basic/modificacion_a_source_reproducir_medio_en_escritorioiexcl-t249322.0.html;msg1201454



Código [Seleccionar] Expandir



http://foro.elhacker.net/programacion_visual_basic/mcicommandstring_dll_inframedia-t239623.0.html;msg1146874#msg1146874



Código [Seleccionar] Expandir



http://foro.elhacker.net/programacion_visual_basic/seek_bar_para_reproductor_de_audio-t269239.0.html;msg1318242#msg1318242




Dulce Infierno Lunar!¡.

[Hacer que tu ordenador te hable]

PsyKE1 te estas aplicando... Buen source..!

Hacer que tu ordenador te hable

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

Aqui deben existir algunos cuantos... LOL

jajajajjaja esta bien para mi no xd jajajjajajajaja
Mentira .... bueno code sencillo pero bueno

Che mano lo acabo de ver me olvide que tenia vb portable me encanto enserio se me esta ocurriendo hacer algo bueno con tu programa usarlo o adpatarlo para que me de las palabras con un AG.

BUENO CHE

O talvez esta otra solucion mas sencilla, lo que puedes hacer como una alternativa mucho más simple que la que te di. Puedes insertar un control Windows Media Player, que lo encuentras en componentes. Tenés que ponerle la propiedad AutoStart = True y que te lo repita una vez, y cuando cargues el formulario va a empezar a reproducir el tema, si lo quieres reproducir ante un determinado evento pone el método Play y chau... Acordate de sacarle la propiedad Visible cosa que el usuario no vea el reproductor... Al nombre del archivo, podes en el Sub Main comprobar si existe, luego que el reproductor te tome con la propiedad Filename el nombre del archivo... Espero que te sirva y cualquier cosa me preguntas... lo hice la prueba en mi vb portable

Che bro que bueno.... lo bajo y veo mas ..
Lo que me llama mas la atencion es que el programa te habla  Aver como va;-)

Mañana instalo el vb 6.0 a mi laptop de nuevo ya que migre a seven

Mira esto es lo que uso para hacer mis programas no afecta en nada aver si te ayuda en algo me avisas

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function mciExecute _
Lib "winmm. Dll" ( _
ByVal lpstrCommand As String) As Long
Dim ret As Long, path As String 'Api para reproducir sonidos

Private Sub CargarSonido(Pat As String) ' Pat = ruta del archivo temporal
Dim myArray() As Byte
Dim myFile As Long
myArray = LoadResData(101, "CUSTOM") 'Carga el archivo de recursos
myFile = FreeFile
Open Pat For Binary Access Write As #myFile
Put #myFile, , myArray ' Escribe el archivo temporal
Close #myFile
End Sub

Private Sub Form_Load()
Call CargarSonido("c:\sonido. Mp3") ' Llama a la funcion q crea el archivo temporal
Call mciExecute("Play " & "c:\sonido. Mp3") ' Reproduce el archivo temporal
End Sub

Private Sub Form_Unload(Cancel As Integer)
mciExecute "Close All" 'Detiene la reproduccion
Kill "c:\sonido. Mp3" ' elimina el archivo temporal
End Sub