PLAY (function): Difference between revisions

From QB64 Phoenix Edition Wiki
Jump to navigation Jump to search
(Add new info and update example)
No edit summary
(3 intermediate revisions by one other user not shown)
Line 9: Line 9:
* {{Parameter|remaining#}} is the number of seconds left to play in the background music queue.
* {{Parameter|remaining#}} is the number of seconds left to play in the background music queue.
* {{Parameter|voice&}} can be any numeric expression. It indicates for which tone voice channel the number of seconds remaining is to be returned. If {{Parameter|voice&}} is not in [0-3], the queue for voice 0 is returned.
* {{Parameter|voice&}} can be any numeric expression. It indicates for which tone voice channel the number of seconds remaining is to be returned. If {{Parameter|voice&}} is not in [0-3], the queue for voice 0 is returned.
* '''See also the important version dependent notes in the Availability section.'''
* '''See also the important version dependent notes in the [[#Availability|Availability]] section.'''




Line 36: Line 36:


{{PageExamples}}
{{PageExamples}}
; Example 1: Using PLAY with a single voice.
{{CodeStart}}
{{CodeStart}}
{{Cl|OPTION}} {{Cl|_EXPLICIT}}
{{Cl|OPTION}} {{Cl|_EXPLICIT}}
Line 90: Line 91:
{{Cl|PLAY}} MML
{{Cl|PLAY}} MML


{{Cl|WHILE}} {{Cl|PLAY (function)|PLAY}}({{Text|0|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|AND (Boolean)|AND}} {{Cl|_KEYHIT}} <> {{Text|27|#F580B1}}
{{Cl|DIM}} secondsLeft {{Cl|AS}} {{Cl|LONG}}
 
{{Cl|DO}}
     {{Cl|LOCATE}} {{Text|13|#F580B1}}, {{Text|32|#F580B1}}
     {{Cl|LOCATE}} {{Text|13|#F580B1}}, {{Text|32|#F580B1}}
     {{Cl|PRINT USING}} {{Text|<nowiki>"(### seconds left)"</nowiki>|#FFB100}}; {{Cl|PLAY}}({{Text|0|#F580B1}});
 
    secondsLeft = {{Cl|PLAY (function)|PLAY}}({{Text|0|#F580B1}})
 
     {{Cl|PRINT USING}} {{Text|<nowiki>"(### seconds left)"</nowiki>|#FFB100}}; secondsLeft;
 
     {{Cl|_LIMIT}} {{Text|30|#F580B1}}
     {{Cl|_LIMIT}} {{Text|30|#F580B1}}
{{Cl|WEND}}
{{Cl|DO...LOOP|LOOP WHILE}} secondsLeft {{Cl|_ANDALSO}} {{Cl|_KEYHIT}} <> {{Text|27|#F580B1}}
 
{{Cl|END}}
{{CodeEnd}}
 
 
; Example 2: Using PLAY with 3 voices.
{{CodeStart}}
{{Cl|OPTION}} {{Cl|_EXPLICIT}}
 
{{Cl|DIM}} mml({{Text|0|#F580B1}} {{Cl|TO}} {{Text|2|#F580B1}}) {{Cl|AS}} {{Cl|STRING}}
 
{{Cl|PRINT}} {{Text|<nowiki>"Playing tune."</nowiki>|#FFB100}}
 
{{Cl|DO}}
    {{Cl|READ}} mml({{Text|0|#F580B1}}), mml({{Text|1|#F580B1}}), mml({{Text|2|#F580B1}})
    {{Cl|PLAY}} mml({{Text|0|#F580B1}}), mml({{Text|1|#F580B1}}), mml({{Text|2|#F580B1}})
{{Cl|DO...LOOP|LOOP WHILE}} {{Cl|LEN}}(mml({{Text|0|#F580B1}})) {{Cl|_ORELSE}} {{Cl|LEN}}(mml({{Text|1|#F580B1}})) {{Cl|_ORELSE}} {{Cl|LEN}}(mml({{Text|2|#F580B1}}))
 
{{Cl|PRINT}} {{Text|<nowiki>"Waiting for tune to finish playing."</nowiki>|#FFB100}}
 
{{Cl|DIM}} cLine {{Cl|AS}} {{Cl|LONG}}: cLine = {{Cl|CSRLIN}}
 
{{Cl|DO}}
    {{Cl|_LIMIT}} {{Text|60|#F580B1}}
    {{Cl|LOCATE}} cLine, {{Text|1|#F580B1}}
{{Cl|DO...LOOP|LOOP WHILE}} {{Cl|_KEYHIT}} <> {{Text|27|#F580B1}} {{Cl|_ANDALSO}} {{Text|DisplayVoiceStats|#55FF55}}


{{Cl|END}}
{{Cl|END}}
{{Cl|DATA}} {{Text|<nowiki>"mb w3 q1 v100"</nowiki>|#FFB100}},{{Text|<nowiki>"mb w3 q1 v100"</nowiki>|#FFB100}},{{Text|<nowiki>"mb w3 q1 v100"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"v11 t120 o3 e-8 >e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"v12 t120 o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"v12 t120 o2 e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <f8 >e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <g8 >e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <a-8 >e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <b-8 >e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 c8 e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <b-16 >e-16 d16 c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 g4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <b-16 >g16 f16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 a-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d16 c16 <b-16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 g16 a-16 b-16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 e-16 g16 b-16 >e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 g4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <f16 a16 >c16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 a4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d16 c16 d16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 b-8 >b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 d16 e-16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 f16 e-16 f16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 g16 f16 g16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d16 c16 d16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 d16 e-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d8 f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f16 b-16 a16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 b-8 d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f16 >d16 c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 >d4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 c8 a8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a16 g16 f16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 f4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 b-8 d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d16 e-16 f16 d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 f8 d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 <b-16 >d16 f16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <b-8 >d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d16 f16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g16 f16 g16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 e-8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-16 g16 a-16 >c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <f8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 <b-16 a-16 b-16 >d-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <g8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o4 c16 <b-16 >c16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <a-8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o4 <g16 f16 g16 >e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <b-8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o4 <a-16 g16 a-16 >e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c8 e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 p16 e-16 f16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o4 <g8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <b-8 p8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 a-16 b-16 >c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 >e-8 <g8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 >c8 p8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 a-16 g16 f16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f8 b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 d8 p8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 g8 <b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 e-16 f16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >c8 <a-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-16 b-16 >c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >f4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-16 g16 f16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 d4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 p16 a-16 g16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g8 <b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 d16 c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 >c8 <a-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 a-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 a-16 g16 a-16 >f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 >f4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <g16 >f16 e-16 d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 a-16 g16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <b4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 c16 <b-16 a-16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-16 d16 c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 >c4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 f4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 a-16 g16 a-16 >f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 d4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 p16 a-16 g16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 <g16 >f16 e-16 d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <e-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 e-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c16 <b-16 a-16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 a-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 p16 d16 e-16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 f4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 a-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 <b8 >d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 p16 a-16 g16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 g4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 g8 b8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-8 g8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p16 >g16 f16 g16"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >c8 d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 a8 b8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-16 f16 d16 e-16"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 c16 <b16 >c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c8 e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <g16 >c16 <b16 >c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c8 e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 c16 <b-16 >c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c8 e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <a-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 f16 e-16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <f8 >a-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c16 f16 e-16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <f8 >a-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-16 f16 e-16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <f8 >a-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 p16 <b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <b-8 >d8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 f16 b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <b-8 >d8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >d16 <b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <b-8 >d8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 g8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 e-16 d-16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <e-8 >g8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >d-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 <b-16 >e-16 d-16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <e-8 >g8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g16 e-16 d-16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <e-8 g8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 p16 a-16 g16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c16 f16 e16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 a-8 >c8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 f16 a-16 g16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c16 f16 e16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <a-8 >c8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >c16 <a-16 g16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a-16 f16 e-16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <a-8 >c8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 f16 b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d8 f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <a-8 >d8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >d16 <b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <a-8 >d8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >f16 d16 c16 d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <a-8 >d8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 b-8 g8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 <b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <g8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 >e-16 <b-16 a-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <g8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 >g16 e-16 d16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <g8 >e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 p16 d16 c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a16 b-16 a16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 <f4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 a16 b-16 a16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f16 >d16 c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 f16 >e-16 d16 c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a16 g16 f16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d16 c16 d16 f16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-8 >b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-16 d16 e-16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 c8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f16 e-16 f16 a-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 d8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 p16 a16 b-16 >e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g16 f16 g16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <b-16 a16 b-16 >d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d16 c16 d16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 f8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 c4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-16 d16 e-16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 g8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 p16 g16 f16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 f8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d16 b-16 a16 g16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 >d16 c16 <b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-8 b-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 f16 e-16 d16 c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 a16 g16 f16 e-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 f8 a8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 b-8 >f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d16 b-16 a16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 g8 f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-16 b-16 d16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 g8 f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-16 b-16 c16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 f16 b-16 a16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d8 f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 b-16 d16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g8 f8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 b-16 c16 b-16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 g8 e-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 d4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f16 <b-16 >c16 d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 p8 >f8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 p16 <b-16 >c16 d16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 g8 f8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 e-16 f16 g16 a16"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 p16 d16 e-16 c16"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 g8 e-8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 b-8 <b-8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 f8 d8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 d8 g8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 >c8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 e-8 p8"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 e-8 p8"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o4 <a4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 c4"</nowiki>|#FFB100}},{{Text|<nowiki>"o2 f4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 mlb-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 mld4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 mlb-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>"o3 b-4"</nowiki>|#FFB100}},{{Text|<nowiki>"o3 d4"</nowiki>|#FFB100}},{{Text|<nowiki>"o1 b-4"</nowiki>|#FFB100}}
{{Cl|DATA}} {{Text|<nowiki>""</nowiki>|#FFB100}},{{Text|<nowiki>""</nowiki>|#FFB100}},{{Text|<nowiki>""</nowiki>|#FFB100}}
{{Cl|FUNCTION}} {{Text|DisplayVoiceStats%%|#55FF55}}
    {{Cl|DIM}} voiceTime({{Text|0|#F580B1}} {{Cl|TO}} {{Text|3|#F580B1}}) {{Cl|AS}} {{Cl|_INTEGER64}}
    {{Cl|DIM}} i {{Cl|AS}} {{Cl|LONG}}
    {{Cl|FOR}} i = {{Text|0|#F580B1}} {{Cl|TO}} {{Text|3|#F580B1}}
        voiceTime(i) = {{Cl|PLAY (function)|PLAY}}(i)
        {{Cl|PRINT}} {{Text|<nowiki>"Voice"</nowiki>|#FFB100}}; i; {{Text|<nowiki>":"</nowiki>|#FFB100}}; voiceTime(i); {{Text|<nowiki>"seconds left"</nowiki>|#FFB100}}; {{Cl|SPC}}({{Text|10|#F580B1}})
    {{Cl|NEXT}} i
    {{Text|DisplayVoiceStats|#55FF55}} = voiceTime({{Text|0|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|_ORELSE}} voiceTime({{Text|1|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|_ORELSE}} voiceTime({{Text|2|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|_ORELSE}} voiceTime({{Text|3|#F580B1}}) > {{Text|0|#F580B1}}
{{Cl|END FUNCTION}}
{{CodeEnd}}
{{CodeEnd}}


Revision as of 15:03, 21 November 2024

The PLAY function returns the number of remaining seconds in the background music queue.


Syntax

remaining# = PLAY(voice&)


Parameters

  • remaining# is the number of seconds left to play in the background music queue.
  • voice& can be any numeric expression. It indicates for which tone voice channel the number of seconds remaining is to be returned. If voice& is not in [0-3], the queue for voice 0 is returned.
  • See also the important version dependent notes in the Availability section.


Description

  • This function may be used to detect, if the background music queue is still playing.
  • When there is nothing left to play, then this function returns zero.


Availability

  • v0.934

    v0.934

  • v3.1.0

    v3.1.0

  • Apix.png
  • yes

    yes

  • yes

    yes

  • yes

    yes

  • In QB64 and early QB64-PE, this was just implemented as stub function which always returned zero.
  • Since QB64-PE v3.1.0 the function is fully implemented, but unlike QuickBASIC, in QB64-PE this function does not return the number of notes left, but the number of audio samples.
  • Since QB64-PE v3.8.0, if voice& is a number other than zero, then the function will return the amount of time (seconds) left to play.
  • Multi-voice support was introduced in QB64-PE v4.0.0.
  • Since QB64-PE v4.0.0, the function will return the amount of time (seconds) left to play for the tone voice channel specified.


Examples

Example 1
Using PLAY with a single voice.
OPTION _EXPLICIT

CONST MML = "mbv15l16t155o2mnb4p8msbbmnb4p8msbbb8g#8e8g#8b8g#8b8o3e8o2b8g#8e8g#8b8g#8b8o3e8o2mnb4p8msbbmnb4" + _
    "p8msbbmnb4p8msbbmnb4p8msbbb8bbb8b8b8bbb8b8b8bbb8b8b8bbb8b8mlb2b2b8p8p4p4p8mso1bbb8bbb8bbo2e8f#8g#8o1bb" + _
    "b8bbo2e8g#g#f#8d#8o1b8bbb8bbb8bbo2e8f#8g#8eg#mlb4bmsag#f#e8g#8e8o3bbb8bbb8bbo4e8f#8" + _
    "g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bbb8bbb8bbo4e8f#8g#8mleg#b4bag#f#mse8g#8e8o3g#g#g#8g#g#g#8g#g#" + _
    "g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8" + _
    "o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8" + _
    "e8d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8o2bbb8f#f#" + _
    "f#8f#f#f#8g#8a8f#4mna8msg#8mne4msg#8f#8f#8f#8o3f#f#f#8f#f#f#8g#8" + _
    "a8mnf#4msa8g#8mne4msg#8f#8o2bbb8o1bbb8bbb8bbo2mne8f#8g#8o1bbb8bbo2e8g#g#f#8d#8o1b8bbb8bb" + _
    "b8bbo2e8f#8g#8eg#mlb4mnbag#f#e8g#8e8o3bbb8bbb8bbo4e8f#8g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb" + _
    "b8bbb8bbo4e8f#8g#8mleg#mlb4mnbag#f#mne8g#8e8o3mle56f56g56a56b56o4c56d56mne8eee8e8mlg#4g#8" + _
    "mnf#8e8d#8e8c#8mso3bo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#" + _
    "g#f#g#f#g#f#g#f#g#f#d#o2bo3mlbo4c#d#e8d#8e8c#8o3msbo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#" + _
    "ag#ag#abo4c#o3f#g#f#g#f#af#emne8p8mlc#4mnc#o2cmso3c#o2co3d#c#o2baag#ec#c#c#c#c#e" + _
    "d#o1cg#g#g#g#g#g#o2c#eg#o3c#c#c#c#c#o2co3c#o2co3d#c#o2baag#ec#c#c#c#c#ed#o1cg#g#g#g#g#mng#" + _
    "o2c#eg#o3msc#ed#c#d#o2cg#g#g#o3g#ec#d#o2cg#g#g#o3g#ec#d#o2bg#g#a#gd#d#g#gg#gg#ag#f#e" + _
    "o1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#bo3g#f#ed#f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#d#ef#o2g#" + _
    "ag#aco3c#d#eo2f#g#f#g#f#g#f#g#f#g#f#d#o1bco2c#d#eo1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#b" + _
    "o3g#f#ed#f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#d#ef#o2g#ag#abo3c#d#eo2f#o3c#o2co3c#d#c#o2af#mne" + _
    "o3mlef#g#abo4c#d#mne8mseee8e8mlg#4g#8msf#8mse8d#8e8c#8o3bo4c#o3bo4c#o3bo4c#d#eo3a" + _
    "bababo4c#d#o3g#ag#ag#abo4c#o3f#g#f#g#f#g#f#g#f#g#f#d#o2bo3mlbo4c#d#mne8eee8e8mlg#4g#8" + _
    "msf#8e8d#8e8c#8o3bo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#" + _
    "g#f#g#f#ag#f#e8o2b8o3e8g#g#g#8mng#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8" + _
    "d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8" + _
    "g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8d#8c#8g#g#g#8g#g#g#8g#g#g#8" + _
    "o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8a#8b8o2f#f#f#8f#f#f#8g#8a8f#4a8g#8" + _
    "e4g#8f#8o0b8o1b8o2f#f#f#8f#f#f#8g#8a8f#4a8g#8e4g#8f#8bbb8o1bbb8bbb8bbo2e8f#8g#8" + _
    "o1bbb8bbo2e8g#g#f#8d#8o1b8bbb8bbb8bbo2e8f#8g#8eg#mlb4mnbag#f#e8o1b8o2e8o3bbb8bbb8bbo4e8" + _
    "f#8g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bbb8bbb8bbo4e8f#8g#8o3eg#mlb4mnbag#f#mlef#g#mnamlg#abo4mnc#mlo3bo4c#d#mnemld#" + _
    "ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmlef#g#mnamlg#abmno4c#mlo3bo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a" + _
    "o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16" + _
    "mleo4eo3mnep16mlao4ao3mnap16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16" + _
    "mlao4ao3mnao4go3go4go3go4go3go4go3go4msg8e8c8e8o4mng#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8e8o3b8o4e8mng#o3g#o4g#o3g#o4g#" + _
    "o3g#o4g#o3g#o4msg#8f8c#8f8mna#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4msa#8g8e8g8b8p16mna#p16ap16g#p16f#p16ep16" + _
    "d#p16c#p16o3bp16a#p16ap16g#p16f#p16ep16d#p16f#mlef#g#mnamlg#abmno4c#o3mlbo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a" + _
    "o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmlef#g#mnamlg#abmno4c#o3mlb" + _
    "o4c#d#mnemld#ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4a" + _
    "o3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnap16" + _
    "mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnao4go3go4go3go4g" + _
    "o3go4go3go4g8e8c8e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4g#8e8o3b8o4e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8mnf8c#8" + _
    "f8a#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4a#8g8e8g8b8p16a#p16ap16g#p16f#p16ep16d#p16c#p16o3bp16a#p16" + _
    "ap16g#p16f#p16ep16d#p16fmled#ed#mne8bbb8bbb8bbo4e8f#8g#8o3bbb8bbb8bbo4g#8a8b8p8e8f#8g#8p8o3g#8" + _
    "a8b8p8p2o2bco3c#dd#eff#gg#aa#bco4c#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#e" + _
    "d#f#d#e8eo3eo4eo3eo4eo3eo4e8o3bo2bo3bo2bo3bo2bo3b8g#o2g#o3g#o2g#o3g#o2g#o3g8eo2eo3eo2eo3eo2eo3e8eee8" + _
    "e8e8o2bbb8b8b8g#g#g#8g#8g#8eee8e8e8o1b8o2e8o1b8o2g#8e8b8g#8o3e8o2b8o3e8o2b8o3g#8e8b8g#8o4e4" + _
    "p8eee8e8e8e8e4p8p16ee4p8p16o2ee2"

LOCATE 12, 28
PRINT "The William Tell Overture."
PLAY MML

DIM secondsLeft AS LONG

DO
    LOCATE 13, 32

    secondsLeft = PLAY(0)

    PRINT USING "(### seconds left)"; secondsLeft;

    _LIMIT 30
LOOP WHILE secondsLeft _ANDALSO _KEYHIT <> 27

END


Example 2
Using PLAY with 3 voices.
OPTION _EXPLICIT

DIM mml(0 TO 2) AS STRING

PRINT "Playing tune."

DO
    READ mml(0), mml(1), mml(2)
    PLAY mml(0), mml(1), mml(2)
LOOP WHILE LEN(mml(0)) _ORELSE LEN(mml(1)) _ORELSE LEN(mml(2))

PRINT "Waiting for tune to finish playing."

DIM cLine AS LONG: cLine = CSRLIN

DO
    _LIMIT 60
    LOCATE cLine, 1
LOOP WHILE _KEYHIT <> 27 _ANDALSO DisplayVoiceStats

END

DATA "mb w3 q1 v100","mb w3 q1 v100","mb w3 q1 v100"
DATA "v11 t120 o3 e-8 >e-8","v12 t120 o2 p4","v12 t120 o2 e-4"
DATA "o4 <f8 >e-8","o2 p4","o2 e-4"
DATA "o4 <g8 >e-8","o2 p4","o2 p4"
DATA "o4 <a-8 >e-8","o2 p4","o2 c4"
DATA "o4 <b-8 >e-8","o2 p4","o2 c4"
DATA "o4 c8 e-8","o2 p4","o2 p4"
DATA "o4 <b-16 >e-16 d16 c16","o2 p4","o1 g4"
DATA "o4 <b-16 >g16 f16 e-16","o2 p4","o1 a-4"
DATA "o4 d16 c16 <b-16 a-16","o2 p4","o1 b-4"
DATA "o3 g16 a-16 b-16 g16","o2 p4","o1 e-4"
DATA "o3 e-16 g16 b-16 >e-16","o2 p4","o1 g4"
DATA "o4 <f16 a16 >c16 e-16","o2 p4","o1 a4"
DATA "o4 d16 c16 d16 f16","o2 b-8 >b-8","o1 b-4"
DATA "o4 e-16 d16 e-16 g16","o3 c8 b-8","o1 b-4"
DATA "o4 f16 e-16 f16 a-16","o3 d8 b-8","o1 p4"
DATA "o4 g16 f16 g16 b-16","o3 e-8 b-8","o1 b-4"
DATA "o4 d16 c16 d16 b-16","o3 f8 b-8","o1 b-4"
DATA "o4 e-16 d16 e-16 b-16","o3 g8 b-8","o1 p4"
DATA "o4 d8 f8","o3 f16 b-16 a16 g16","o1 b-4"
DATA "o4 b-8 d8","o3 f16 >d16 c16 <b-16","o1 >d4"
DATA "o4 c8 a8","o3 a16 g16 f16 e-16","o2 f4"
DATA "o4 b-8 d8","o3 d16 e-16 f16 d16","o2 b-4"
DATA "o4 f8 d8","o3 <b-16 >d16 f16 b-16","o2 b-4"
DATA "o4 <b-8 >d8","o3 d16 f16 a-16 b-16","o2 p4"
DATA "o4 e-8 p8","o3 g16 f16 g16 b-16","o1 e-8 >e-8"
DATA "o4 e-8 p8","o3 a-16 g16 a-16 >c16","o2 <f8 >e-8"
DATA "o4 e-8 p8","o3 <b-16 a-16 b-16 >d-16","o2 <g8 >e-8"
DATA "o4 e-8 p8","o4 c16 <b-16 >c16 e-16","o2 <a-8 >e-8"
DATA "o4 e-8 p8","o4 <g16 f16 g16 >e-16","o2 <b-8 >e-8"
DATA "o4 e-8 p8","o4 <a-16 g16 a-16 >e-16","o2 c8 e-8"
DATA "o4 p16 e-16 f16 g16","o4 <g8 b-8","o2 <b-8 p8"
DATA "o4 a-16 b-16 >c16 <b-16","o3 >e-8 <g8","o1 >c8 p8"
DATA "o4 a-16 g16 f16 a-16","o3 f8 b-8","o2 d8 p8"
DATA "o4 g8 <b-8","o3 p16 e-16 f16 g16","o2 e-4"
DATA "o3 >c8 <a-8","o3 a-16 b-16 >c16 <b-16","o2 e-4"
DATA "o3 >f4","o3 a-16 g16 f16 a-16","o2 d4"
DATA "o4 p16 a-16 g16 f16","o3 g8 <b-8","o2 e-4"
DATA "o4 e-16 d16 c16 <b-16","o2 >c8 <a-8","o2 a-4"
DATA "o3 a-16 g16 a-16 >f16","o2 >f4","o2 p4"
DATA "o4 <g16 >f16 e-16 d16","o3 p16 a-16 g16 f16","o2 <b4"
DATA "o4 c16 <b-16 a-16 g16","o3 e-16 d16 c16 <b-16","o1 >c4"
DATA "o3 f4","o2 a-16 g16 a-16 >f16","o2 d4"
DATA "o3 p16 a-16 g16 f16","o3 <g16 >f16 e-16 d16","o2 <e-4"
DATA "o3 e-4","o3 c16 <b-16 a-16 g16","o1 a-4"
DATA "o3 p16 d16 e-16 f16","o2 f4","o1 a-4"
DATA "o3 <b8 >d8","o2 p16 a-16 g16 f16","o1 g4"
DATA "o3 g8 b8","o2 e-8 g8","o1 p16 >g16 f16 g16"
DATA "o3 >c8 d8","o2 a8 b8","o2 e-16 f16 d16 e-16"
DATA "o4 e-16 c16 <b16 >c16","o3 c8 p8","o2 c8 e-8"
DATA "o4 <g16 >c16 <b16 >c16","o3 p4","o2 c8 e-8"
DATA "o4 e-16 c16 <b-16 >c16","o3 p4","o2 c8 e-8"
DATA "o4 <a-8 p8","o3 p16 f16 e-16 f16","o2 <f8 >a-8"
DATA "o3 >e-8 p8","o3 c16 f16 e-16 f16","o2 <f8 >a-8"
DATA "o4 e-8 p8","o3 a-16 f16 e-16 f16","o2 <f8 >a-8"
DATA "o4 p16 <b-16 a-16 b-16","o3 d8 p8","o2 <b-8 >d8"
DATA "o3 f16 b-16 a-16 b-16","o3 a-8 p8","o2 <b-8 >d8"
DATA "o3 >d16 <b-16 a-16 b-16","o3 a-8 p8","o2 <b-8 >d8"
DATA "o3 g8 p8","o3 p16 e-16 d-16 e-16","o2 <e-8 >g8"
DATA "o3 >d-8 p8","o3 <b-16 >e-16 d-16 e-16","o2 <e-8 >g8"
DATA "o4 d-8 p8","o3 g16 e-16 d-16 e-16","o2 <e-8 g8"
DATA "o3 p16 a-16 g16 a-16","o3 c16 f16 e16 f16","o1 a-8 >c8"
DATA "o3 f16 a-16 g16 a-16","o3 c16 f16 e16 f16","o2 <a-8 >c8"
DATA "o3 >c16 <a-16 g16 a-16","o3 a-16 f16 e-16 f16","o2 <a-8 >c8"
DATA "o3 f16 b-16 a-16 b-16","o3 d8 f8","o2 <a-8 >d8"
DATA "o3 >d16 <b-16 a-16 b-16","o3 b-4","o2 <a-8 >d8"
DATA "o3 >f16 d16 c16 d16","o3 b-4","o2 <a-8 >d8"
DATA "o4 b-8 g8","o3 p16 <b-16 a-16 b-16","o2 <g8 >e-8"
DATA "o4 e-4","o2 >e-16 <b-16 a-16 b-16","o2 <g8 >e-8"
DATA "o4 e-4","o2 >g16 e-16 d16 e-16","o2 <g8 >e-8"
DATA "o4 p16 d16 c16 <b-16","o3 a16 b-16 a16 g16","o2 <f4"
DATA "o3 a16 b-16 a16 g16","o3 f16 >d16 c16 <b-16","o1 p4"
DATA "o3 f16 >e-16 d16 c16","o3 a16 g16 f16 e-16","o1 p4"
DATA "o3 b-4","o3 d16 c16 d16 f16","o1 b-8 >b-8"
DATA "o3 b-4","o3 e-16 d16 e-16 g16","o2 c8 b-8"
DATA "o3 b-4","o3 f16 e-16 f16 a-16","o2 d8 b-8"
DATA "o3 p16 a16 b-16 >e-16","o3 g16 f16 g16 b-16","o2 e-8 b-8"
DATA "o4 <b-16 a16 b-16 >d16","o3 d16 c16 d16 b-16","o2 f8 b-8"
DATA "o4 c4","o3 e-16 d16 e-16 b-16","o2 g8 b-8"
DATA "o4 p16 g16 f16 e-16","o3 d4","o2 f8 b-8"
DATA "o4 d16 b-16 a16 g16","o3 p16 >d16 c16 <b-16","o2 e-8 b-8"
DATA "o4 f16 e-16 d16 c16","o3 a16 g16 f16 e-16","o2 f8 a8"
DATA "o3 b-8 >f8","o3 d16 b-16 a16 b-16","o1 b-4"
DATA "o4 g8 f8","o3 e-16 b-16 d16 b-16","o1 p4"
DATA "o4 g8 f8","o3 e-16 b-16 c16 b-16","o1 p4"
DATA "o4 f16 b-16 a16 b-16","o3 d8 f8","o1 b-4"
DATA "o4 e-16 b-16 d16 b-16","o3 g8 f8","o1 p4"
DATA "o4 e-16 b-16 c16 b-16","o3 g8 e-8","o1 p4"
DATA "o4 d4","o3 f16 <b-16 >c16 d16","o1 p8 >f8"
DATA "o4 p16 <b-16 >c16 d16","o3 e-4","o2 g8 f8"
DATA "o4 e-16 f16 g16 a16","o3 p16 d16 e-16 c16","o2 g8 e-8"
DATA "o4 b-8 <b-8","o3 f8 d8","o2 d8 g8"
DATA "o3 >c8 p8","o3 e-8 p8","o2 e-8 p8"
DATA "o4 <a4","o3 c4","o2 f4"
DATA "o3 mlb-4","o3 mld4","o1 mlb-4"
DATA "o3 b-4","o3 d4","o1 b-4"
DATA "o3 b-4","o3 d4","o1 b-4"
DATA "","",""

FUNCTION DisplayVoiceStats%%
    DIM voiceTime(0 TO 3) AS _INTEGER64
    DIM i AS LONG

    FOR i = 0 TO 3
        voiceTime(i) = PLAY(i)
        PRINT "Voice"; i; ":"; voiceTime(i); "seconds left"; SPC(10)
    NEXT i

    DisplayVoiceStats = voiceTime(0) > 0 _ORELSE voiceTime(1) > 0 _ORELSE voiceTime(2) > 0 _ORELSE voiceTime(3) > 0
END FUNCTION


See also


Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
Retrieved from "https://qb64phoenix.com/qb64wiki/index.php?title=PLAY_(function)&oldid=9294"