Electronic Music 411 - Qbasic Music - sun ra, noise, qbasic, jams

EM411.com
Electronic Music Production, MP3's, Live Shows, Blogs and Community

Share your music and get feedback.

ricemutt's emID

Seattle, Washington, USA

Message me

View my emID

Qbasic Music

StoreTags: sun ra, noise, qbasic, jams

Author: ricemutt on September 07 2007

Viewed 2966 times. 3 people liked this blog. You can rate it below if you haven't already.

People who enjoyed reading this: license, crazyshadow, bla

--> 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?

Digg it | Delicious

Read ricemutt's other blogs.ricemutt's Recent Blogs

Good Riddance License (Tags: bye, Bye, fatty)

Qbasic Music (Tags: sun ra, noise, qbasic, jams)

And let the fat goose swim, (Tags: goose, geese, fat, merrily)

Comments

09/07/07 + license

haaaaaaaaaa this shit is so amazin'.

Recent blogs: Signing Off, Audio OS?, suspended

09/07/07 + em978

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.

Recent blogs: On the radio, New Release- Any Means To Many -EP1 <-lost15->, Hot Beatz and Dancing

09/07/07 + license

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.

Recent blogs: Signing Off, Audio OS?, suspended

09/07/07 + license

also: lol @ sun ra

Recent blogs: Signing Off, Audio OS?, suspended

09/07/07 + ricemutt

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..

Recent blogs: Good Riddance License, Qbasic Music, And let the fat goose swim,

09/07/07 + crazyshadow

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

Recent blogs: archive>org wont let me in, need to find a recording of a radio show, back to school for me

09/07/07 + ricemutt

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!

Recent blogs: Good Riddance License, Qbasic Music, And let the fat goose swim,

09/07/07 + crazyshadow

finaly got my stuff uploaded

this is the old Qbasic stuff i made from 1995 to about 2001 link
this is the newer stuff i made from 2005 up till this day link

Recent blogs: archive>org wont let me in, need to find a recording of a radio show, back to school for me

09/11/07 + license

shadow that was awesome, you got any more?

Recent blogs: Signing Off, Audio OS?, suspended

09/11/07 + daswesen

+++++ crazy, you should do a blog so it gets a bit more attention

Recent blogs: MachineDrum Notes #2, Generating rhythms with the euclidean algorithm, Tweaking the delay

You must be a member to reply or post. signup or login