Player example

HMG Samples and Enhancements

Moderator: Rathinagiri

User avatar
Roberto Lopez
HMG Founder
Posts: 3980
Joined: Wed Jul 30, 2008 6:43 pm
Has thanked: 27 times
Been thanked: 168 times

Re: Player example

Post by Roberto Lopez » Sat Feb 20, 2010 11:59 pm

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: 4517
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 391 times
Been thanked: 111 times
Contact:

Post by esgici » Sun Feb 21, 2010 8:31 am

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
PlayerVolumeProblem.jpg
Get Property Problem for VOLUME of PLAYER
PlayerVolumeProblem.jpg (21.14 KiB) Viewed 3577 times
Viva INTERNATIONAL HMG :D

User avatar
mustafa
Posts: 849
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 129 times
Contact:

Post by mustafa » Sun Feb 21, 2010 11:48 am

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 281 times

User avatar
mustafa
Posts: 849
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 129 times
Contact:

Post by mustafa » Sun Feb 21, 2010 11:50 am

Screenshot :lol:
Attachments
Screen.jpg
Screen.jpg (47.76 KiB) Viewed 3575 times

User avatar
Roberto Lopez
HMG Founder
Posts: 3980
Joined: Wed Jul 30, 2008 6:43 pm
Has thanked: 27 times
Been thanked: 168 times

Post by Roberto Lopez » Mon Feb 22, 2010 12:28 pm

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: 4517
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 391 times
Been thanked: 111 times
Contact:

Post by esgici » Mon Feb 22, 2010 1:04 pm

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

Best Regards

--

Esgici
Viva INTERNATIONAL HMG :D

User avatar
mustafa
Posts: 849
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 129 times
Contact:

Post by mustafa » Fri Mar 12, 2010 2:33 pm

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 3540 times

User avatar
mustafa
Posts: 849
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 129 times
Contact:

Post by mustafa » Fri Mar 12, 2010 2:44 pm

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 349 times

User avatar
Rathinagiri
Posts: 5264
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 169 times
Been thanked: 172 times
Contact:

Post by Rathinagiri » Fri Mar 12, 2010 3:50 pm

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

Post Reply