HMGforum.com

esgici wrote:

Roberto Lopez wrote:
Volume property works perfect.

Thanks a lot Maestro

As always, problem resolved by the hand of master; the question of Mustafa answered.

And unfortunately, my problem left unresolved:

Code: Select all

      @ 180,100 SLIDER slider_1 ;
         RANGE 0,10 ;
         ON CHANGE { || Form_1.Player_1.Volume := Form_1.Slider_1.Value * 100,;
                                  Form_1.Label_2.Value := "[ " + ;
                                  PADL( GetProperty( "Form_1", "Player_1", "VOLUME" ), 9) + " ]" }  

      @ 180,230 LABEL label_2 ;
         VALUE "[ " + PADL( GetProperty( "Form_1", "Player_1", "VOLUME" ), 9) + " ]"

Best regards

--

Esgici

Sorry... What is the problem?

Roberto Lopez wrote:
What is the problem?

Sorry, problem is that Get/SetProperty funcs doesn't works properly for VOLUME of PLAYER.

Best regards

--

Esgici

Hello
Here I leave my contribution with a modification Lijera
the latest solution provided by Master Roberto
@ 180.100 SLIDER slider_1;
RANGE 0.10;
ON CHANGE Form_1.Player_1.Volume: = Form_1.Slider_1.Value * 100

@ 223,292 SLIDER slider_1 ;
RANGE 0,10 ;
WIDTH 115 ;
HEIGHT 028 ;
ON CHANGE {||Slider1_Change()} ;
TOOLTIP "Change volume of sound"
*---------------------------------------------*
Function Slider1_Change()
*---------------------------------------------*
Local nValue := Form_1.Slider_1.Value
Form_1.Player_1.Volume := Form_1.Slider_1.Value * 100
Form_1.LabelSli.Value := Str(nValue,2)
Return Nil

I put the zip file with the modification
regards

*---------------------------------------------------*
Hola
Aqui dejo mi aportación con una lijera modificación
de la última solución aportada por el maestro Roberto
@ 180,100 SLIDER slider_1 ;
RANGE 0,10 ;
ON CHANGE Form_1.Player_1.Volume := Form_1.Slider_1.Value * 100

@ 223,292 SLIDER slider_1 ;
RANGE 0,10 ;
WIDTH 115 ;
HEIGHT 028 ;
ON CHANGE {||Slider1_Change()} ;
TOOLTIP "Change volume of sound"
*---------------------------------------------*
Function Slider1_Change()
*---------------------------------------------*
Local nValue := Form_1.Slider_1.Value
Form_1.Player_1.Volume := Form_1.Slider_1.Value * 100
Form_1.LabelSli.Value := Str(nValue,2)
Return Nil

Dejo el fichero zip con la modificación
recuerdos

Mustafa

Screenshot

esgici wrote:

Roberto Lopez wrote:
What is the problem?

Sorry, problem is that Get/SetProperty funcs doesn't works properly for VOLUME of PLAYER.

Best regards

--

Esgici

'Volume' property is write-only.

Roberto Lopez wrote: 'Volume' property is write-only.

Thanks for clarification, Maestro

Best Regards

--

Esgici

Hello friends
Here I leave an application for entertainment when
work on your computer you like listening to music?
For here you have an application built on Harbour-HMG
it also serves to listen to MP3 songs

Hello friends
Here I leave an application for entertainment when
work on your computer you like listening to music?
For here you have an application built on Harbour-HMG
it also serves to listen to MP3 songs

Here I leave the problems that I could not overcome:
When you press button "Search MP3 Song" is a TAB
Browse with two one is the path where is located
in sound file and the other is Browse to see only the
Song title.
When you delete the songs from the Databases
Browse through the Refresh and loading new songs
or incorporate new melodies, not visible in the Browse,
No record, but if he leaves the TAB and enter again
see them. (I have not been remedied)

In the "Play Button Song" is the button that starts the first
and Song and Through the help of friend Lucho Miranda ElSAlmes "
has ensured that the songs are heard in succession, I have not
succeeded fully in the song title and song
being listened match is an issue that if any of you
can verify this and find some solution to me indicates.
Through this routine is typically used for CPU intensive
of 98% reached INKEY (1) is reached 01 to 10 % believe that
is acceptable.

The last issue is the cursor "Finger.CUR" which already pose
in the Forum and the Master Roberto knows, is an unfinished
agenda.

http://hmgforum.com/viewtopic.php?f=5&t=1182

Cursor is on the arrowhead and when you want to press
a button appears hand Minigui Extended In the routine:

SetHandCursor (GetControlHandle (Button_D01","Form_1X"),"Bmp\Finger.cur")

But with HMG fails and if we put:
HandCursor (GetControlHandle (Button_D01","Form_1X"),"Bmp\Finger.cur")

No effect.

I hope that in general hos like and if you can provide some
modification on the mistakes I've found would be useful.

Greetings

Superb Mustafa! Really useful one.