Realmente excelente esta pagina. La recomiendo a todo el mundo muchachos muchisimas gracias por esa dedicación. Me encanta esa vocación de algunos por enseñar, algún dia tambien compartiré los conocimientos adquiridos de personas tan talentosas como lo es usted.
Hola: Lo siento pero yo no uso Instagram y no se como esta estructurada. Pero no creo que se pueda hacer una aplicación de ningún tipo que te permita tener mas seguidores REALES en ninguna Red Social (quizá se pueda cambiar el numero que aparece). Lo de dejar de seguir... es posible que se pueda hacer pero como te digo no conozco Instagram. Saludos.
saludos disculpa la pregunta en que version de visal esta echa la plantilla lo quice avrir on visual 2012 pero me tirro error y los comando s como se agregan si trae la oxion de que se muestre imagen de los albunes
Hola: La aplicación esta hecha en Visual Basic 2010 Express y no debería darte problemas con Visual Studio 2012. Si me envias una captura del error a mi mail: vb.tutoriales.abc@gmail.com puedo tratar de ver porque te da error. Lo de como se agregan los comandos.....etc. no lo entiendo muy bien ¿podrias darme mas detalles?. Saludos.
grasias por contestarme mira la duda de los comandos es que por egenplo cuando entro en el albun se muestre una imagen de el albun y cuando selecsione la musica entonces se ejecute y asi poner enlista la berdad no tengo mucho conosimiento en programasion de visual o un video tutrial que suvieras para ver como modificas el menu para darme una idea
hola todo esta bien me gustaria comprarte tu programa para mi rockola por favor a ver si me respondes a mi correo el_solucionador@hotmail.com gracias espero tu respuesta
Hola: Puedes sustituir FolderBrowsedialog.SelectedPath por la ruta de la carpeta donde tengas los archivos. Por ejemplo el procedimiento CARGA quedaria asi: Public Sub CARGA()
CARPETA = "C:\MUSICA"'ruta de la carpeta principal GENERO.Items.Clear() ARTISTA.Items.Clear() ALBUM.Items.Clear() ARCHIVO.Items.Clear() ARCHIVOS = My.Computer.FileSystem.GetDirectories(CARPETA) Dim NOMBRE As String = Nothing For I = 0 To ARCHIVOS.Count - 1 NOMBRE = ARCHIVOS(I).Remove(0, ARCHIVOS(I).LastIndexOf("\") + 1) GENERO.Items.Add(NOMBRE) Next
Hola: Parece que la organizacion de carpetas tiene algun problema. Si me dices en que ruta tienes cada una de las carpetas intentare adaptar la aplicacion a tus carpetas. Saludos.
Hola: Estoy revisando tu proyecto. Veo que omites el Listbox "ALBUM" ¿es un descuido o es que quieres prescindir de ese apartado?. Si me contestas continuare revisando tu proyecto. Saludos.
Muy buena compañero gracias pero tengo otro problema la ruta Dim RUTA As String = "C:\GRUPO CARPETAS-MODELO\" es una ruta fija, pero habrá alguna forma de que yo pueda seleccionar los directorios de GENERO solo de ese listbox Este problema me paso por que la carpeta Documentales esta en el "C:\GRUPO CARPETAS-MODELO\Documentales\", y la carpeta Musica esta en "D:\GRUPO CARPETAS-MODELO\Documentales\"
Hola: Precisamente para esa situacion (poder elegir entre varios directorios) se utiliza el FolderBrowserDialog (aplicacion original)pero tu pediste tener una ruta fija "2 de noviembre de 2016, 20:59- Como hacer para que las rutas se queden guardadas y solo usar una sola vez el boton buscar" ¿Que es exactamente lo que necesitas?. Saludos.
El primer proyecto esta bien, y el segundo también el problema surgió debido a que cuento con un disco duro de 1 TERA, y lo llene con vídeos de todo tipo y compre otro disco de 1 TR, al cual tambien le grave muchos videos al cual no puedo acceder con el programa ya que solo lo puedo direccionar al primer disco. "C:\GRUPO CARPETAS-MODELO\" Ahora lo que quería es el listbox GENERO separarlo y colocar otros generos manualmente que se encuentran en otra unidad
Hola: Entiendo. Quizas en tu caso lo mas conveniente es que la aplicacion, al iniciarse, ponga en GENEROS el directorio que utilices mas habitualmente y que con el boton BUSCAR puedas cambiar ese contenido por el del directorio que elijas con el FolderbrowserDialog. ¿Es eso lo que te interesa?. Saludos.
El ultimo proyecto esta bien pero solo puedo usar una ruta Dim RUTA As String = "C:\GRUPO CARPETAS-MODELO\"
Y tengo videos en otro disco al cual quiero acceder sin dejar de acceder a los videos del primer disco la solucion seria que el genero lo puda escoger y guardar con sus sub directorios mas o menos asi:
Hola: Si lo que quieres es utilizar varias rutas fijas sin necesidad de utilizar el elemento Folderbrowserdialog y no tener que añadirlas al codigo del programa quizas te resultaria util utilizar un Combobox. Asi podrias seguir manteniendo el Listbox GENERO para los generos. ¿Sabes hacerlo o necesitas ayuda? Saludos.
Una solucion seria que en el primer ejemplo cuando se elija la direccion de la carpeta la misma se guarde, es decir que cuando cierre el programa la lista del genero no se borre cuando vuelva a iniciar el programa sino se mantenga la lista que elegi con anterioridad
Hola: ¿Que tal si se añade un boton "guardar" cuando se pulse guardara en un combobox la ultima ruta elegida con el folderbrowserdialog?. ¿Sabes hacerlo o necesitas ayuda? Saludos.
Hola: Esta aplicacion ha sido hecha con una version de Visual Studio anterior a VS 2015 por tanto deberia abrirse sin problemas. Si te da problemas dejame un nuevo comentario indicando que problema da. Saludos.
Hola: Copiar un archivo a un usb (pendrive) es exactamente igual que copiarlo a otra carpeta fija en el ordenador.
My.Computer.FileSystem.CopyFile("ruta origen", "ruta destino") Si no he entendido tu pregunta o tienes alguna duda dejame un nuevo comentario. Saludos.
soy nuevo programando y quisiera que me ayude a comprender esta parte..... q no a entiendo muy bien jeje
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Timer1.Stop() DURACION = AxWindowsMediaPlayer1.currentMedia.duration - 3 Timer2.Interval = 1000 Timer2.Start() End Sub
Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick DURACION -= 1 If DURACION <= 0 Then CONTADOR += 1 If CONTADOR > MIARRAY.Count - 1 Then CONTADOR = 0 End If REPRODUCIR() Timer2.Stop() End If End Sub
estimado antetodo gracias por el codigo, estuve analizando y realice unos cambios, lo que no logro hacer es que despues que me muestra el listbox de archivo pueda seleccionar con doble click por decirlo y ese archivo pueda agregarse a otro listbox que sera lo unico que reproducira , e logrado que me agregue al nuevo listado pero no puedo reproducir, alguien que pueda ayudar,cualquier consulta, sugerencia o solucion a mi correo por favor, oswaldo.soto.napa@gmail.com
Realmente excelente esta pagina. La recomiendo a todo el mundo muchachos muchisimas gracias por esa dedicación. Me encanta esa vocación de algunos por enseñar, algún dia tambien compartiré los conocimientos adquiridos de personas tan talentosas como lo es usted.
ResponderEliminarHola: Muchas gracias por el comentario. Ayuda a seguir mejorando. Saludos.
EliminarEste comentario ha sido eliminado por el autor.
ResponderEliminarPodrias hacer una app que te permita tener mas seguidores en instagram y que te permita dejar de seguir a los que no te siguen¿?
ResponderEliminarHola: Lo siento pero yo no uso Instagram y no se como esta estructurada. Pero no creo que se pueda hacer una aplicación de ningún tipo que te permita tener mas seguidores REALES en ninguna Red Social (quizá se pueda cambiar el numero que aparece). Lo de dejar de seguir... es posible que se pueda hacer pero como te digo no conozco Instagram. Saludos.
Eliminarsaludos disculpa la pregunta en que version de visal esta echa la plantilla lo quice avrir on visual 2012 pero me tirro error y los comando s como se agregan si trae la oxion de que se muestre imagen de los albunes
ResponderEliminarHola: La aplicación esta hecha en Visual Basic 2010 Express y no debería darte problemas con Visual Studio 2012. Si me envias una captura del error a mi mail:
Eliminarvb.tutoriales.abc@gmail.com
puedo tratar de ver porque te da error.
Lo de como se agregan los comandos.....etc. no lo entiendo muy bien ¿podrias darme mas detalles?. Saludos.
grasias por contestarme mira la duda de los comandos es que por egenplo cuando entro en el albun se muestre una imagen de el albun y cuando selecsione la musica entonces se ejecute y asi poner enlista la berdad no tengo mucho conosimiento en programasion de visual o un video tutrial que suvieras para ver como modificas el menu para darme una idea
ResponderEliminarHola. La próxima semana hare una versión ampliada de este proyecto. Intentare incluir lo que propones. Saludos
Eliminarhola todo esta bien me gustaria comprarte tu programa para mi rockola por favor a ver si me respondes a mi correo el_solucionador@hotmail.com gracias espero tu respuesta
ResponderEliminarHola:
Eliminar¿Comprarlo?. Mis programas son gratis.
¿Tienes algun problema para descargarlo?.
Saludos.
como se hace para la doble pantalla .que configuracion se nesecitas
ResponderEliminarComo hacer para que las rutas se queden guardadas y solo usar una sola vez el boton buscar
ResponderEliminarHola:
EliminarPuedes sustituir FolderBrowsedialog.SelectedPath por la ruta de la carpeta donde tengas los archivos. Por ejemplo el procedimiento CARGA quedaria asi:
Public Sub CARGA()
CARPETA = "C:\MUSICA"'ruta de la carpeta principal
GENERO.Items.Clear()
ARTISTA.Items.Clear()
ALBUM.Items.Clear()
ARCHIVO.Items.Clear()
ARCHIVOS = My.Computer.FileSystem.GetDirectories(CARPETA)
Dim NOMBRE As String = Nothing
For I = 0 To ARCHIVOS.Count - 1
NOMBRE = ARCHIVOS(I).Remove(0, ARCHIVOS(I).LastIndexOf("\") + 1)
GENERO.Items.Add(NOMBRE)
Next
End Sub
Saludos.
Me da el siguiente error
EliminarNo se controlo DirectoryNotFoundException
No se puede encontrar una parte de acceso 'C: MUSICA'
Hola: Prueba con 'C:\MUSICA'(en tu comentario falta la barra(\)). Si no te funciona pasame tu codigo y le echare un vistazo.
EliminarSaludos.
Ya lo probé de esa forma sigue dando error
EliminarNo se controlo DirectoryNotFoundException
No se puede encontrar una parte de acceso 'C:\MUSICA'
https://drive.google.com/open?id=0B5s0DE6rxrA3Z1NPZF9PTEMwTkk
EliminarHola: Parece que la organizacion de carpetas tiene algun problema. Si me dices en que ruta tienes cada una de las carpetas intentare adaptar la aplicacion a tus carpetas. Saludos.
EliminarMuchas gracias compañero pero quisiera que lo revises el proyecto
Eliminarde aqui lo descargas
Eliminarhttps://drive.google.com/open?id=0B5s0DE6rxrA3RXlMN2hLVzdJMXc
Hola:
EliminarEstoy revisando tu proyecto.
Veo que omites el Listbox "ALBUM" ¿es un descuido o es que quieres prescindir de ese apartado?.
Si me contestas continuare revisando tu proyecto.
Saludos.
Muchas gracias estoy precindiendo de ALBUM, me lo sigue revisando por favor
EliminarHola: Entonces no necesitas las subcarpetas ALBUM en la carpeta del artista. Puedes poner directamente los archivos a reproducir. Prueba esto:
Eliminarhttps://drive.google.com/file/d/0ByTP_tX3Lc7POWp1WFJDNEloVGc/view?usp=sharing
Ya me diras como te ha ido.
Saludos.
Muy buena compañero gracias pero tengo otro problema
Eliminarla ruta Dim RUTA As String = "C:\GRUPO CARPETAS-MODELO\" es una ruta fija, pero habrá alguna forma de que yo pueda seleccionar los directorios de GENERO solo de ese listbox
Este problema me paso por que la carpeta Documentales esta en el "C:\GRUPO CARPETAS-MODELO\Documentales\", y la carpeta Musica esta en "D:\GRUPO CARPETAS-MODELO\Documentales\"
Hola:
EliminarPrecisamente para esa situacion (poder elegir entre varios directorios) se utiliza el FolderBrowserDialog (aplicacion original)pero tu pediste tener una ruta fija
"2 de noviembre de 2016, 20:59- Como hacer para que las rutas se queden guardadas y solo usar una sola vez el boton buscar"
¿Que es exactamente lo que necesitas?.
Saludos.
El primer proyecto esta bien, y el segundo también el problema surgió debido a que cuento con un disco duro de 1 TERA, y lo llene con vídeos de todo tipo y compre otro disco de 1 TR, al cual tambien le grave muchos videos al cual no puedo acceder con el programa ya que solo lo puedo direccionar al primer disco. "C:\GRUPO CARPETAS-MODELO\" Ahora lo que quería es el listbox GENERO separarlo y colocar otros generos manualmente que se encuentran en otra unidad
EliminarHola: Entiendo. Quizas en tu caso lo mas conveniente es que la aplicacion, al iniciarse, ponga en GENEROS el directorio que utilices mas habitualmente y que con el boton BUSCAR puedas cambiar ese contenido por el del directorio que elijas con el FolderbrowserDialog. ¿Es eso lo que te interesa?. Saludos.
Eliminar
EliminarEl ultimo proyecto esta bien pero solo puedo usar una ruta
Dim RUTA As String = "C:\GRUPO CARPETAS-MODELO\"
Y tengo videos en otro disco al cual quiero acceder sin dejar de acceder a los videos del primer disco la solucion seria que el genero lo puda escoger y guardar con sus sub directorios mas o menos asi:
C:\GRUPO CARPETAS-MODELO\Documentales\"
D:\GRUPO CARPETAS-MODELO\Musica\"
E:\GRUPO CARPETAS-MODELO\Peliculas\"
F:\GRUPO CARPETAS-MODELO\Series\"
Ya que la unidad C: la tengo ya llena
O mas o menos que pueda controlar el GENERO
EliminarC:\Documentales\"
D:\Musica\"
E:\Peliculas\"
F:\Series\"
Se cargue en el Listbox GENERO
Hola:
EliminarSi lo que quieres es utilizar varias rutas fijas sin necesidad de utilizar el elemento Folderbrowserdialog y no tener que añadirlas al codigo del programa quizas te resultaria util utilizar un Combobox. Asi podrias seguir manteniendo el Listbox GENERO para los generos.
¿Sabes hacerlo o necesitas ayuda?
Saludos.
Una solucion seria que en el primer ejemplo cuando se elija la direccion de la carpeta la misma se guarde, es decir que cuando cierre el programa la lista del genero no se borre cuando vuelva a iniciar el programa sino se mantenga la lista que elegi con anterioridad
EliminarHola:
Eliminar¿Que tal si se añade un boton "guardar" cuando se pulse guardara en un combobox la ultima ruta elegida con el folderbrowserdialog?.
¿Sabes hacerlo o necesitas ayuda?
Saludos.
Necesito ayuda para eso para que se guarden varias rutas y no se borren cuando cierre el programa que modificaciones habría que hacerle
EliminarO guardar las rutas en una base de datos
Eliminarse puede abrir tu proyecto con visual studio enterprise 2015??, gracias por tu aporte
ResponderEliminarHola: Esta aplicacion ha sido hecha con una version de Visual Studio anterior a VS 2015 por tanto deberia abrirse sin problemas.
EliminarSi te da problemas dejame un nuevo comentario indicando que problema da.
Saludos.
Este comentario ha sido eliminado por el autor.
Eliminarcomo hacer un programa para copiar a un usb de diferentes archivos como pdf. mp3, mp4,avi, mkv etc
ResponderEliminarHola:
EliminarCopiar un archivo a un usb (pendrive) es exactamente igual que copiarlo a otra carpeta fija en el ordenador.
My.Computer.FileSystem.CopyFile("ruta origen", "ruta destino")
Si no he entendido tu pregunta o tienes alguna duda dejame un nuevo comentario.
Saludos.
soy nuevo programando y quisiera que me ayude a comprender esta parte..... q no a entiendo muy bien jeje
ResponderEliminarPrivate Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
DURACION = AxWindowsMediaPlayer1.currentMedia.duration - 3
Timer2.Interval = 1000
Timer2.Start()
End Sub
Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
DURACION -= 1
If DURACION <= 0 Then
CONTADOR += 1
If CONTADOR > MIARRAY.Count - 1 Then
CONTADOR = 0
End If
REPRODUCIR()
Timer2.Stop()
End If
End Sub
estimado antetodo gracias por el codigo, estuve analizando y realice unos cambios, lo que no logro hacer es que despues que me muestra el listbox de archivo pueda seleccionar con doble click por decirlo y ese archivo pueda agregarse a otro listbox que sera lo unico que reproducira , e logrado que me agregue al nuevo listado pero no puedo reproducir, alguien que pueda ayudar,cualquier consulta, sugerencia o solucion a mi correo por favor, oswaldo.soto.napa@gmail.com
ResponderEliminar