


Program start from the project directory:
-----------------------------------------

hans@mint-183 ~/GB3BUCH/6K_Stream/6.2.0_Stream-Input-Output-Funktionen/Projekte/MusicPlayer $ gbr3 ./music_player_console.gambas



Alter Quelltext:

' ' Public Sub Application_Read()
' '  
' '   Dim sInput As String
' ' 
' '   Line Input #File.In, sInput
' '  
' '   Select Case sInput
' '     Case "q"
' '       mPlayer.Stop()
' '       Quit
' '     Case "p"
' '       mPlayer.Pause()
' '     Case "r" ' run
' '       mPlayer.Play()
' '     Case "m" ' toggle switch: mute on/mute off
' '       mPlayer.Audio.Mute = Not mPlayer.Audio.Mute
' '     Case "+"
' '       If mPlayer.Audio.Volume > 1 And mPlayer.Audio.Volume < 9.0 Then
' '          mPlayer.Audio.Volume += 1.0
' '          Print mPlayer.Audio.Volume
' '       Endif
' '       If mPlayer.Audio.Volume > 0.1 And mPlayer.Audio.Volume <= 1 Then
' '          mPlayer.Audio.Volume += 0.1
' '          Print mPlayer.Audio.Volume
' '       Endif
' '     Case "-"
' '       If mPlayer.Audio.Volume > 1.1 And mPlayer.Audio.Volume < 10.0 Then
' '          mPlayer.Audio.Volume -= 1.0
' '          Print mPlayer.Audio.Volume
' '       Endif
' '       If mPlayer.Audio.Volume > 0.1 And mPlayer.Audio.Volume <= 1.0 Then
' '          mPlayer.Audio.Volume -= 0.1
' '          Print mPlayer.Audio.Volume
' '       Endif
' '   End Select
' '  
' ' End
