Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

Triangle example

Uploader:Mitglieddarksider3
Datum/Zeit:12.10.2011 17:30:46

'Erstellt einen "Laser" der seine Farbe wechselt, Der
'strahl geht von oben links nach unten unten rechts
#include once "ext/graphics.bi"
#include once "fbgfx.bi"

screenres 320, 220, 32
dim i as integer
i = 0
do while not multikey(FB.SC_ESCAPE)
  i += 1
  screenlock
  cls
  ext.gfx.Triangle( , 1, 1, 1+i, 10+i, 10+i, 1+i, rgb(255-i,0+i,0+i) ) 'Draw a red triangle in the top left corner of the screen
  print str(i)
  screenunlock
  sleep 3
loop 'loop until the user pushes the ESC key