Sorry... What is the problem?esgici wrote:Thanks a lot MaestroRoberto Lopez wrote:
Volume property works perfect.
As always, problem resolved by the hand of master; the question of Mustafa answered.
And unfortunately, my problem left unresolved:
Best regardsCode: 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) + " ]"
--
Esgici
Player example
Moderator: Rathinagiri
- Roberto Lopez
- HMG Founder
- Posts: 4004
- Joined: Wed Jul 30, 2008 6:43 pm
Re: Player example
Regards/Saludos,
Roberto
(Veritas Filia Temporis)
Roberto
(Veritas Filia Temporis)
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: Player example
Sorry, problem is that Get/SetProperty funcs doesn't works properly for VOLUME of PLAYER.Roberto Lopez wrote:
What is the problem?
Best regards
--
Esgici
Viva INTERNATIONAL HMG
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Player example
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
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
- Attachments
-
- Player.zip
- (1.02 MiB) Downloaded 451 times
- Roberto Lopez
- HMG Founder
- Posts: 4004
- Joined: Wed Jul 30, 2008 6:43 pm
Re: Player example
'Volume' property is write-only.esgici wrote:Sorry, problem is that Get/SetProperty funcs doesn't works properly for VOLUME of PLAYER.Roberto Lopez wrote:
What is the problem?
Best regards
--
Esgici
Regards/Saludos,
Roberto
(Veritas Filia Temporis)
Roberto
(Veritas Filia Temporis)
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: Player example
Thanks for clarification, MaestroRoberto Lopez wrote: 'Volume' property is write-only.
Best Regards
--
Esgici
Viva INTERNATIONAL HMG
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Player example
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 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
- Attachments
-
- Disc_Player.jpg (20.03 KiB) Viewed 6657 times
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Player example
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
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
- Attachments
-
- Player_HMG.zip
- (1.28 MiB) Downloaded 516 times
- Rathinagiri
- Posts: 5471
- Joined: Tue Jul 29, 2008 6:30 pm
- DBs Used: MariaDB, SQLite, SQLCipher and MySQL
- Location: Sivakasi, India
- Contact:
Re: Player example
Superb Mustafa! Really useful one.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.