Gwbasic "Play " statement for TP7

Trooka

Delphi Developer

Wed, 18 Jun 1902 08:00:00 GMT

Gwbasic "Play " statement for TP7

i was digging thu some of my old gwbasic / qbasic code and i came across a
statement play

play allows u to put a string of notes,lengths and timing and it will play
this into the backgound ( assuming it uses the timer interupt ??)

i would like some code that allows me to do the same thing in tp

Ken Fisch

Delphi Developer

Wed, 18 Jun 1902 08:00:00 GMT

Re:Gwbasic "Play " statement for TP7

Quote

Trookat (no.j...@my.box) wrote:

: i was digging thu some of my old gwbasic / qbasic code and i came across a
: statement play
:
: play allows u to put a string of notes,lengths and timing and it will play
: this into the backgound ( assuming it uses the timer interupt ??)
:
: i would like some code that allows me to do the same thing in tp

I just posted the code a couple of weeks ago,
if you can't find it with a search for "Phil Burns music"
at www.dejanews.com then email me and I can attach it.
But BASIC is able to play both foreground and
background music, and I haven't seen any code to do
that in Borland Pascal.

Frederi

Delphi Developer

Wed, 18 Jun 1902 08:00:00 GMT

Re:Gwbasic "Play " statement for TP7

Trookat schrieb:

Quote

> i was digging thu some of my old gwbasic / qbasic code and i came across a
> statement play

> play allows u to put a string of notes,lengths and timing and it will play
> this into the backgound ( assuming it uses the timer interupt ??)

> i would like some code that allows me to do the same thing in tp

> ta

You could write a procedure parsing the whole string, and playing
each note, taking signs like # into consideration. You only need to
know the frequencies of each note ('A' for example would be 440
Hz), and then play them using the Sound procedure of the CRT unit.

Jani Mikkone

Delphi Developer

Wed, 18 Jun 1902 08:00:00 GMT

Re:Gwbasic "Play " statement for TP7

Quote

>i would like some code that allows me to do the same thing in tp

As allways, SWAG archives are the answer for you.. I have seen that
procedure there..

Other Threads

1. "data" statement in TP7

2. The keys "-"/"+"/"*"

3. OOP (TP7): "THIS"?

4. TP7:no mousecursor using "SVGA256.BGI"

5. TP7: no mouse using "SVGA256.BGI"

6. playing "voive"-files to modem

7. "odd" statement

8. "data" statement in TP

9. "AND"-statement in TTable filter?

10. SQL statements don't accept "/"