Search found 123 matches
- Tue May 29, 2012 10:13 pm
- Forum: Examples and tutorials
- Topic: Hot Demos
- Replies: 18
- Views: 29595
Re: Hot Demos
Sines Text. Include "library.cb" SCREEN 640,480,32,1 FrameLimit 90 font=LoadFont("courier",28) SetFont font Global tl,i,x,letter$,z$ z= "HELLO AND WELCOME TO OUR COOLBASIC FORUM !" tl = Len(z) Dim y(44) As Float Dim angle(44) As Float For i=1 To tl angle(i) = 360-i*(360...
- Tue May 29, 2012 10:11 pm
- Forum: Examples and tutorials
- Topic: Hot Demos
- Replies: 18
- Views: 29595
Re: Hot Demos
Collision test. Include "library.cb" SCREEN 640,480,16,1 FrameLimit 200 font=LoadFont("courier",44) SetFont font Function Triangle(x1,y1,x2,y2,r,g,b) Color r,g,b Line x1,y1,x1+x2,y1+y2 Line x1,y1,x1-x2,y1+y2 Line x1-x2,y1+y2,x1+x2,y1+y2 End Function Global px1,py1,px2,py2 py1=200...
- Tue May 29, 2012 4:47 pm
- Forum: Examples and tutorials
- Topic: Hot Demos
- Replies: 18
- Views: 29595
Re: Hot Demos
Something about pixel. Include "library.cb" SCREEN 320,240,16,1 font=LoadFont("courier",24) SetFont font ClearKeys Function BigPixel(x1,y1,x2,y2,w,h) Dim x,y,r,g,b,Col x = x1 y = y1 While y <= y2-h Col = GetPixel(x,y) r = GetColorR (Col) g = GetColorG (Col) b = GetColorB (Col) Co...
- Tue May 29, 2012 4:46 pm
- Forum: Examples and tutorials
- Topic: Hot Demos
- Replies: 18
- Views: 29595
Re: Hot Demos
A few stars include "library.cb" Screen 800,600,16,1 font= LoadFont("times",28) SetFont font Global xRes,yRes Dim xStar(250) Dim yStar(250) Dim speed(250) xRes =800 yRes =600 Function InitStars() Dim i For i = 1 To 250 xStar(i) = Rand(1, xRes -2) yStar(i) = Rand(1, yRes -2) speed...
- Tue May 29, 2012 4:44 pm
- Forum: Examples and tutorials
- Topic: Hot Demos
- Replies: 18
- Views: 29595
Re: Hot Demos
Another Demo: Water Include "library.cb" SCREEN 600,800,32,1 FrameLimit 60 font=LoadFont("cour",28) SetFont font Dim x(1000) Dim y(1000) Dim Xv#(1000) Dim Yv#(1000) Dim LifeSpan(1000) Global Xstart,Ystart,i,bild,drop 'drop = LoadBmp("bmp/drop",0) 'bild = LoadBmp("b...
- Tue May 29, 2012 4:42 pm
- Forum: Examples and tutorials
- Topic: Hot Demos
- Replies: 18
- Views: 29595
Hot Demos
Hi, Some demos. Include "library.cb" SCREEN 640,480,32,1 font = LoadFont("courier",24) SetFont font FrameLimit 90 Global col,anzahl,xscreen,yscreen,ymitte,xmitte,i,aSpeed# anzahl=1000 xscreen=640 yscreen=480 xmitte = xscreen/2 ymitte = yscreen/2 Dim x#(1000) Dim y#(1000) Dim angl...
- Mon May 28, 2012 10:55 pm
- Forum: Problems
- Topic: Bit Operation
- Replies: 6
- Views: 12233
Re: Bit Operation
Hi Latexi95,
yes, it works fine. But something is wrong.
Red must be SHL 24.
Blue must be SHL 8.
I am really silly, I have to open eyes in the future.
I had Bit Operation in my mind, found not this solution!
Anyway, thank you.
yes, it works fine. But something is wrong.
Red must be SHL 24.
Blue must be SHL 8.
I am really silly, I have to open eyes in the future.
I had Bit Operation in my mind, found not this solution!
Anyway, thank you.
- Mon May 28, 2012 10:21 pm
- Forum: Problems
- Topic: Bit Operation
- Replies: 6
- Views: 12233
Re: Bit Operation
Hi Latexi95,
Thank you very much.
Thank you very much.
- Mon May 28, 2012 6:07 pm
- Forum: Problems
- Topic: Bit Operation
- Replies: 6
- Views: 12233
Bit Operation
Hi, does anyone know something about BIT OPERATION in CoolBasic? I need an "Bit AND" and an "Bit OR". No logical operators! for example: value = 12423936 farb = (value shr 16) BIT AND 255 if you are interested, I want to write this function for my library: Function GetColorR(sys_...
Re: Fireworks
Hi CCE,
Not really.
Only if I need a song, and I can not find it,then I will make a song for me.
This is a holdover from the Amiga times. This one is not by me.
Not really.
Only if I need a song, and I can not find it,then I will make a song for me.
This is a holdover from the Amiga times. This one is not by me.
Re: Fireworks
Hi,
These are a lot of flowers for me, but also some other voices.
The finnish members in their Forum are not worse and they have great capacities.
I love the Finns, especially the finnish women. Here, you can see a tree of mine, who stands in my garden.
These are a lot of flowers for me, but also some other voices.
The finnish members in their Forum are not worse and they have great capacities.
I love the Finns, especially the finnish women. Here, you can see a tree of mine, who stands in my garden.
Re: Fireworks
Hi all,
OxygenBasic is a clean shirt. Make a visit, and see yourself what there happens.
http://www.oxygenbasic.org
OxygenBasic is a clean shirt. Make a visit, and see yourself what there happens.
http://www.oxygenbasic.org
Re: Fireworks
Hi,
No panic,
is no Virus, it is OxygenBasic.
No panic,
is no Virus, it is OxygenBasic.
Fireworks
Hi,
A small demo for you.
A small demo for you.
Re: promise
Thanks and much luck in 2012 with your projects!
I wish you and your families merry Christmas and a happy new year.
I wish you and your families merry Christmas and a happy new year.
promise
Hi CoolBasic programmer,
is that promise still valid?
(AND WILL BE RELEASED IN 2011)
Thank you.
is that promise still valid?
(AND WILL BE RELEASED IN 2011)
Thank you.
- Wed Nov 02, 2011 4:46 pm
- Forum: General discussion
- Topic: Lost in the wood
- Replies: 19
- Views: 48333
Re: Lost in the wood
Hi,
Nobody is perfect and that is real life.
Everybody can read anything if all have a bit fantasy.
This not being perfect, is the atmosphere of this forum and really very cool.
I have always much fun!
Nobody is perfect and that is real life.
Everybody can read anything if all have a bit fantasy.
This not being perfect, is the atmosphere of this forum and really very cool.
I have always much fun!
- Wed Nov 02, 2011 1:42 am
- Forum: General discussion
- Topic: Lost in the wood
- Replies: 19
- Views: 48333
Re: Lost in the wood
Yes, this is okay!
I am not evil about that, was fun.
I am not evil about that, was fun.
- Wed Nov 02, 2011 1:22 am
- Forum: General discussion
- Topic: Lost in the wood
- Replies: 19
- Views: 48333
Re: Lost in the wood
Hi esa94,
some corrections:
1.) mind-boggling
2.) homophone
3.) by a Finn
But do not worry, we are all not better!
some corrections:
1.) mind-boggling
2.) homophone
3.) by a Finn
But do not worry, we are all not better!
- Sun Oct 30, 2011 9:58 pm
- Forum: General discussion
- Topic: Lost in the wood
- Replies: 19
- Views: 48333
Re: Lost in the wood
Hi Jare,
Buying a tree is against the nature. If you cut it in some parts, that is very painfully for this tree.
And to the end must he burn, like a witch . Greetings from the dark ages.
Do you like my story?
Buying a tree is against the nature. If you cut it in some parts, that is very painfully for this tree.
And to the end must he burn, like a witch . Greetings from the dark ages.
Do you like my story?