disculpa podrias hacer una especie de bateria virtual que cuando el pc este conectado en la red la bateria virtual se ponga en cargando y que marque la vateria que tiene el pc, tambien que cuando le quede un tanto porciento de batera con por ejemplo te salte un mensage diciendo que pongas en carga el PC.
Hola: Supongo que lo que pedias era algo asi como esto: http://visualbasictutoriales.blogspot.com.es/2014/08/capturar-el-estado-de-la-bateria-con.html Lo de que te avise cuando queda poca batería se me ha olvidado pero creo que tal como esta el código es fácil añadirlo. Si tienes dificultades con ello déjame un comentario. Saludos
Disculpa consultar si existe algun codigo similar al que se empleaba en vb 6.0 decia: If MediaPlayer1.ReadyState = mpReadyStateInteractive Then ya que estoy introduciendo el nuevo mediaplayer y no pillo dicho equivalente de codigo, gracias de antemano
AQUI ESTA EL CODIGO PARA QUE EL AXWINDOWSMEDIAPLAYER SALTE ALA SIGUIENTE CANCION: Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange '########## REPRODUCE UNA CANCION RANDOM ################# If e.newState = WMPLib.WMPPlayState.wmppsStopped Then 'si la cancion se detuvo Beep() Timer2.Start() 'Button5.PerformClick() 'apreta el boton de cancion RANDOM 'AxWindowsMediaPlayer1.Ctlcontrols.play() 'btnNext.PerformClick() Else ' Si no hay canciones en la lista, mostrar un mensaje lblSongTitle.Text = "NO HAY ARCHIVOS MP3 CARGADOS" End If Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Button5.PerformClick() Timer2.Stop() End Sub
disculpa podrias hacer una especie de bateria virtual que cuando el pc este conectado en la red la bateria virtual se ponga en cargando y que marque la vateria que tiene el pc, tambien que cuando le quede un tanto porciento de batera con por ejemplo te salte un mensage diciendo que pongas en carga el PC.
ResponderEliminar------ Gracias -------
Espero tu respuesta.
Hola: Supongo que lo que pedias era algo asi como esto:
Eliminarhttp://visualbasictutoriales.blogspot.com.es/2014/08/capturar-el-estado-de-la-bateria-con.html
Lo de que te avise cuando queda poca batería se me ha olvidado pero creo que tal como esta el código es fácil añadirlo. Si tienes dificultades con ello déjame un comentario. Saludos
Disculpa consultar si existe algun codigo similar al que se empleaba en vb 6.0 decia: If MediaPlayer1.ReadyState = mpReadyStateInteractive Then
ResponderEliminarya que estoy introduciendo el nuevo mediaplayer y no pillo dicho equivalente de codigo, gracias de antemano
AQUI ESTA EL CODIGO PARA QUE EL AXWINDOWSMEDIAPLAYER SALTE ALA SIGUIENTE CANCION: Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
ResponderEliminar'########## REPRODUCE UNA CANCION RANDOM #################
If e.newState = WMPLib.WMPPlayState.wmppsStopped Then 'si la cancion se detuvo
Beep()
Timer2.Start()
'Button5.PerformClick() 'apreta el boton de cancion RANDOM
'AxWindowsMediaPlayer1.Ctlcontrols.play()
'btnNext.PerformClick()
Else
' Si no hay canciones en la lista, mostrar un mensaje
lblSongTitle.Text = "NO HAY ARCHIVOS MP3 CARGADOS"
End If Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Button5.PerformClick()
Timer2.Stop()
End Sub