Qbasicnews.com

Full Version: Sound Wave Bar.....
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6 7 8
no that was a question, I really don't. :-?
You serious? I broke apart the code, it looks more like ya ment it, or saw what it was doing and centered it... but its right here thats doing it...

PSET (((i% + amp) * SIN(r% * 3.141593 / 180)) + 160, ((r% + amp) * SIN(i% * 3.141593 / 180)) + 100), (i% MOD 255)

And this seems to be the code you might have been shooting for.. :wink:

Code:
SCREEN 13
amp = 10
DO
r% = (r% + 1)
IF r% = 200 THEN r% = -120
FOR i% = 1 TO 360
    PSET (i%, ((r% + amp) * SIN(i% * 3.141593 / 180)) + 100), (i% MOD 255)
NEXT i%
WAIT &H3DA, 8
CLS
LOOP

Your orrig still counts, except its under both you and Shift's, since he modified it to 8 lines 4 ya... :wink:
No your wrong.
That was intentional what I did (it was a ripple effect)
But then I decided to switch the radii and make both sin instead of x cos and y sin.
Then I saw it looked like your thing in here so I posted it.
But I was asking why it was looking 3D. :wink:
Thought you might find this interesting Big Grin
Found it in the old ABC packets:

[syntax="qbasic"]
DEFINT D, G
DEFLNG H
SCREEN 12
CLS
OPEN "c:\windows\media\ding.wav" FOR BINARY AS #1
s = 45
g = 0
d = 0
px = 0
py = 240
np = 0
ns = 5
WHILE NOT (EOF(1)) AND s < 300000
c = 0
h = 0
WHILE c < ns
GET 1, s, g
g = ABS(g MOD 256)
h = h + g
s = s + 1
c = c + 1
IF EOF(1) THEN END
WEND
h = h / ns
LINE (np, h + 112)-(px, py)
PSET (np, 240), 2
py = h + 112
px = np
np = np + 1
IF np > 640 THEN np = 0: SLEEP: CLS : px = 0
WEND
[/syntax]

Needless to say Windows 2k/XP users might need to change the path to winnt\media\ .

[/code]
Sad To others, but I have no sound support,.......
Have you actually run it? It doesn't play sound. It displays WAV files in a graphical form.
Quote:Mabey in FB but the default in QB is SCREEN 0, which is text mode.

The graphics statements like PSET don't work in text mode.

thnx lynax. Big Grin

I was using qb 4.5
You must have hit F5 after you deleted the SCREEN 13, instead of shift+F5 to restart it.
No, i didn't. Hmm, maybe qb bugged a little or something and didn't restaert even though i told it to.

Well, i don't have qb to worry about anymore. i now am a part of the FB community. Porting the forest demo is going to be a HELL load of work.
:barf:
Pages: 1 2 3 4 5 6 7 8