Hola! Tienes idea de como se controla el volumen (audio) del sistema con visual basic y un trackbar? He probado demasiadas cosas y ninguna funcionó. Un saludo.
Hola: Lo puedes ver en este proyecto: http://visualbasictutoriales.blogspot.com.es/2014/10/escuchar-y-descargar-musica-online-con.html Pero si no lo quieres descargar te dejo el código de esa parte. Saludos.
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr End Function Const WM_APPCOMMAND As UInteger = &H319 Const APPCOMMAND_VOLUME_UP As UInteger = &HA Const APPCOMMAND_VOLUME_DOWN As UInteger = &H9 Const APPCOMMAND_VOLUME_MUTE As UInteger = &H8
Private Sub ButtonMUTE_Click_1(sender As System.Object, e As System.EventArgs) Handles ButtonMUTE.Click SendMessage(Me.Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000) End Sub
Private Sub TrackBar1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseDown BANDERA = True End Sub
Private Sub TrackBar1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseUp If BANDERA = True Then If TrackBar1.Value > TRACKANTERIOR Then For I = TRACKANTERIOR To TrackBar1.Value SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000) Next ElseIf TrackBar1.Value < TRACKANTERIOR Then For I = TrackBar1.Value To TRACKANTERIOR SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000) Next End If TRACKANTERIOR = TrackBar1.Value BANDERA = False End If
Private Sub ButtonMENOS_Click(sender As System.Object, e As System.EventArgs) Handles ButtonMENOS.Click SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000) End Sub
Private Sub ButtonMAS_Click(sender As System.Object, e As System.EventArgs) Handles ButtonMAS.Click SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000) End Sub
Gracias, pero me sigue sin funcionar, es decir, cuando desplazo el TrackBar no sucede nada, aunque cuando pulso los botones si que baja y sube el volumen.
Hola: Ya he colgado la aplicación especifica: http://visualbasictutoriales.blogspot.com.es/2014/10/control-del-volumen-del-ordenador.html Seguramente te ha fallado lo anterior porque no te di las instrucciones precisas sobre las variables y los valores del trackbar. Mis disculpas. Saludos.
hola me gustaría un reconocimiento de voz, que en un formulario yo presione el botón iniciar, y cuando empieze a hablar, en un textbox se escriba lo que estoy hablando. espero me puedas ayudar con un ejemplo.
Hola: El sistema de reconocimiento de voz de Windows, al menos hasta windows7, es bastante malo y solo permite que reconozca palabras sueltas o frases cortas que previamente le hayas puesto en el programa. Lo de que escriba al dictado no funciona, al menos a mi no me funciona. Requiere "entrenamiento" del ordenador. Y aun asi es muy imperfecto. Saludos
Me dice que no eh declarao resultado el programa cuando lo ejecutó & quería saber si es un label o un textbox que utiliza en el formulario para mostrar los nombre y eso
Hola: Utiliza un Label. Sobre el mensaje necesitaria saber que programa intentas abrir y mejor si me envias una captura de pantalla en la que se vea tu codigo y el mensaje. Mi mail es vb.tutoriales.abc@gmail.com. Saludos.
Hola! Tienes idea de como se controla el volumen (audio) del sistema con visual basic y un trackbar? He probado demasiadas cosas y ninguna funcionó. Un saludo.
ResponderEliminarHola:
EliminarLo puedes ver en este proyecto:
http://visualbasictutoriales.blogspot.com.es/2014/10/escuchar-y-descargar-musica-online-con.html
Pero si no lo quieres descargar te dejo el código de esa parte.
Saludos.
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ VOLUMEN +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
Const WM_APPCOMMAND As UInteger = &H319
Const APPCOMMAND_VOLUME_UP As UInteger = &HA
Const APPCOMMAND_VOLUME_DOWN As UInteger = &H9
Const APPCOMMAND_VOLUME_MUTE As UInteger = &H8
Private Sub ButtonMUTE_Click_1(sender As System.Object, e As System.EventArgs) Handles ButtonMUTE.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000)
End Sub
Private Sub TrackBar1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseDown
BANDERA = True
End Sub
Private Sub TrackBar1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseUp
If BANDERA = True Then
If TrackBar1.Value > TRACKANTERIOR Then
For I = TRACKANTERIOR To TrackBar1.Value
SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000)
Next
ElseIf TrackBar1.Value < TRACKANTERIOR Then
For I = TrackBar1.Value To TRACKANTERIOR
SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000)
Next
End If
TRACKANTERIOR = TrackBar1.Value
BANDERA = False
End If
Private Sub ButtonMENOS_Click(sender As System.Object, e As System.EventArgs) Handles ButtonMENOS.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000)
End Sub
Private Sub ButtonMAS_Click(sender As System.Object, e As System.EventArgs) Handles ButtonMAS.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000)
End Sub
Gracias, pero me sigue sin funcionar, es decir, cuando desplazo el TrackBar no sucede nada, aunque cuando pulso los botones si que baja y sube el volumen.
EliminarHola: Hare una aplicación especifica. Saludos.
EliminarHola: Ya he colgado la aplicación especifica:
Eliminarhttp://visualbasictutoriales.blogspot.com.es/2014/10/control-del-volumen-del-ordenador.html
Seguramente te ha fallado lo anterior porque no te di las instrucciones precisas sobre las variables y los valores del trackbar.
Mis disculpas.
Saludos.
hola me gustaría un reconocimiento de voz, que en un formulario yo presione el botón iniciar, y cuando empieze a hablar, en un textbox se escriba lo que estoy hablando. espero me puedas ayudar con un ejemplo.
ResponderEliminarHola: El sistema de reconocimiento de voz de Windows, al menos hasta windows7, es bastante malo y solo permite que reconozca palabras sueltas o frases cortas que previamente le hayas puesto en el programa. Lo de que escriba al dictado no funciona, al menos a mi no me funciona. Requiere "entrenamiento" del ordenador. Y aun asi es muy imperfecto. Saludos
EliminarMe dice que no eh declarao resultado el programa cuando lo ejecutó & quería saber si es un label o un textbox que utiliza en el formulario para mostrar los nombre y eso
ResponderEliminarHola: Utiliza un Label. Sobre el mensaje necesitaria saber que programa intentas abrir y mejor si me envias una captura de pantalla en la que se vea tu codigo y el mensaje. Mi mail es vb.tutoriales.abc@gmail.com.
EliminarSaludos.