# 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
To Mitth: Right, but its still amazing!! :wink:

To Shift: He he, a longitutal wave!!! sweet!!!

To Mitth(Rels comment): He means to compile it.. exegenate..

To Kylemc: Thats cool!!!

To xteraco: Hay, come on, this is for fun, might learn something.. :wink:
i exeignated it for ya :wink:

http://68.102.38.232:8080/sin.exe

just let me know when you got it so i can delete it off my server
nice, this latest shiftlynx demo compiled and ran fine!

reminds me of those spinning things at like six flags that you have to guide the loop around and if you toch the wire the thing buzzes...

and then you dont get the big teddy bear
Actully Shift's latest is what an actual sound wave would look like as a diagram,. they are normaly grafted as a sin curve as my challenge aplied, (but shift's still meets the definition of sound wave, and it still counts :wink: ),..

An even more real sound wave expands it a 3d sphere and disapates to the inverse square law of the distance from the source.. :wink:
Rattra:
When I said that's great, that wasn't sarcasim....I really ment I loved it!!!

Lynax's was good too.
Eh? I was commenting on your post about your 3D wave... oh well... :lol:
:o Oh, ya....ummm....ya.
Ok. opps :oops:
Ok, what the hell. I whipped one up real quick.
Code:
```'Coded in Qbasic V7.1 'I left some different things to try ;) 1 AMP = ABS(SIN(i& * 3.14159 / 180) * COS(i& * 3.1415 / 150) * 100) 'AMP = (i& MOD 100) XOR (TIMER MOD 100) 'AMP = ABS(SIN(i& * 3.14159 / 90)) * 90 + 10 'AMP = i& MOD 100 'AMP = ABS(TAN(i& * 3.14159 / 180) * 100) MOD 100 'AMP = i& MOD 20 'AMP = INT(RND * 100) 'AMP = LOG(i& MOD 100 + 1) * 30 'AMP = ASC(MID\$("I can't think of any more algorithms for AMP!", i& MOD 45 + 1, 1)) 'AMP = ASC(MID\$("Cool. It sounds like crickets chirping!#!@\$*!", i& MOD 45 + 1, 1)) 'AMP = ASC(MID\$("I really need to go to fucking sleep!!!!!!!!!", i& MOD 45 + 1, 1)) 2 i& = i& + 1 AND &HFFF 3 SCREEN 7, 0, i& AND 1, (i& AND 1) XOR 1 4 LINE (0, 0)-(319, 199), 0, BF 5 FOR x = 0 TO 319 6   PSET (x, SIN((x + i& * 5) * 3.14159 / 180) * AMP + 100), 2 7 NEXT 8 SOUND AMP * 100 + 100, .1 9 IF INKEY\$ = "" THEN GOTO 1```

Here is an old progam I wrote.

.... must ...sleep... nowww.......
He he, you added sound.. :wink: .. but it changes in frequincy (SOUND statment) not amps, amps is the volume of sound and not its pitch.. but since there is no adjustment for amps for the sound statment,. I think its rather alsome...

That water ripple was cool to, :wink:
Pages: 1 2 3 4 5 6 7 8