hey, does anyone up here have qbasic code for they want to post?
me and mr. laws are making the qbasic action..
post this into your qbasic:
x = 0
readfreq = .1
WHILE INKEY$ = ""
sineVar = SIN(x)
x = x + .1 + readfreq
sineVarb = SIN(x * 1.5)
readfreq = readfreq + sineVarb
freq = ABS(readfreq)
SOUND 37 + (freq * freq * freq * 100), .1
WEND
I keep getting OVERFLOW errors... where's the overflow?
 Seattle, Washington, USA
About me
if you want to contact me, get me at "johnfisha" on aim, or at myopic fisher >>>>> gmail.com
+Most Recent Blogs
|
Electronic Music other: Qbasic Music
Store
Written September 07 2007 , Tags: sun ra, noise, qbasic, jams
Comments
haaaaaaaaaa this shit is so amazin'.
sorry not my language of choice. If I was to guess I would think if it was a stack overflow you would have something recursive with not termination.
I think it's in the cubed thing.
I also think we can do primitive error handling and we should try to write a handler that outputs freq when that happens. hey, peoples... now try this one! my masterpiece... of the day
pixcolor = 150 SCREEN 13 x = 0 readfreq = .1 sqvar = 5 sqcount = 0 sqspeed = 137 WHILE INKEY$ = "" sinevar = SIN(x) x = x + .1 + readfreq sineVarb = SIN(x * 2 * freq) readfreq = readfreq + sineVarb freq = ABS(readfreq) sqcount = sqcount + 1 IF sqcount > sqspeed THEN sqvar = sqvar * -1: sqcount = 0 END IF IF sqspeed > sqcount * 1.5 THEN sqspeed = 1: pixcolor = RND * 254 sqspeed = spqspeed + (readfreq * 5) + (RND * 5) - 2.5 finalfreq = (ABS(freq * freq * (sqvar * 1000)) / 5000) + 38 IF finalfreq > 1000 THEN x = readfreq SOUND finalfreq, ABS(sqspeed * .002) 'HERE IS THE SOUND pixcolor = pixcolor - 15 IF pixcolor < 1 THEN pixcolor = 150 x2 = ABS(sineVarb * 300) + 10 y2 = ABS(readfreq * 6) LINE (x1, y1)-(x2, y2), pixcolor x1 = x2 y1 = y2 'print finalfreq 'print sqspeed 'PRINT sineVarb PRINT readfreq WEND by the way, I write the ugliest code ever.. sorry.. omg now that Qbasic music im gonna check the archive and if its out of its dont work phaze im uploading some of my Qbasic jem and i will post the link in here but my stuff is realy not as good as yours but still interesting
haha, my code is so bad.. just looking at it now I can tell there's some shit that's completely wrong, but hey it runs.
yeah crazy I really want to check your stuff! show me where it is! shadow that was awesome, you got any more?
+++++ crazy, you should do a blog so it gets a bit more attention
Signup to comment
|