Player example

HMG Samples and Enhancements

Moderator: Rathinagiri

User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Re: Player example

Post by Roberto Lopez »

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?
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: Player example

Post by esgici »

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
Get Property Problem for VOLUME of PLAYER
Get Property Problem for VOLUME of PLAYER
PlayerVolumeProblem.jpg (21.14 KiB) Viewed 6385 times
Viva INTERNATIONAL HMG :D
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Player example

Post by mustafa »

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
Attachments
Player.zip
(1.02 MiB) Downloaded 443 times
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Player example

Post by mustafa »

Screenshot :lol:
Attachments
Screen.jpg
Screen.jpg (47.76 KiB) Viewed 6383 times
User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Re: Player example

Post by Roberto Lopez »

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.
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: Player example

Post by esgici »

Roberto Lopez wrote: 'Volume' property is write-only.
Thanks for clarification, Maestro :)

Best Regards

--

Esgici
Viva INTERNATIONAL HMG :D
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Player example

Post by mustafa »

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
Attachments
Disc_Player.jpg
Disc_Player.jpg (20.03 KiB) Viewed 6348 times
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Player example

Post by mustafa »

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
Attachments
Player_HMG.zip
(1.28 MiB) Downloaded 508 times
User avatar
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

Post by Rathinagiri »

Superb Mustafa! Really useful one. :)
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
Post Reply