kreise zeichnen
Übersicht
BlitzBasic Allgemein
totonak5Betreff: kreise zeichnen |
 Mo, Sep 20, 2004 19:22Antworten mit Zitat 
|
|
|---|---|---|
|
hi!
habe jetzt schon lange herumgebastelt aber ich bringe es nicht zusammen: ich möchte ein programm erstellen in dem ich, so ähnlich wie bei paint dass ich im programm kreise zeichnen kann. kann mir irgenwer so einen einfachen quelltext schicken? danke im voraus lg |
||
|
Just for Fun!
Jesus loves U! |
||
|
lucifer |
Mo, Sep 20, 2004 19:38 Antworten mit Zitat
|
|---|---|---|
|
So ich hab jetzt mal was geschrieben. Ist nicht toll, hab das ja auch nur mal kurz gemacht. Aber na ja gucks dir einfach an:
Code: [AUSKLAPPEN] Graphics 800,600,0,0 SetBuffer BackBuffer() Global kreis.kreis Type kreis Field x Field y Field x_aus Field y_aus Field id End Type Global currentid = 0 Color 255,0,0 While Not KeyHit(1) Cls For kreis.kreis = Each kreis Oval kreis\x,kreis\y,kreis\x_aus,kreis\y_aus Next If MouseHit(1) Then kreis.kreis = New kreis currentid = currentid + 1 kreis\id = currentid kreis\x = MouseX() kreis\y = MouseY() FlushMouse While Not MouseHit(1) Cls DebugLog currentid For kreis.kreis = Each kreis If kreis\id = currentid DebugLog kreis\x-MouseX() DebugLog kreis\y-MouseY() kreis\x_aus = Abs(kreis\x-MouseX()) kreis\y_aus = Abs(kreis\y-MouseY()) End If Oval kreis\x,kreis\y,kreis\x_aus,kreis\y_aus Next Flip Wend End If Flip Wend End |
||
totonak5 |
Mo, Sep 20, 2004 19:52 Antworten mit Zitat
|
|
|---|---|---|
|
genau so mein ichs!!
DANKE 
lg |
||
|
Just for Fun!
Jesus loves U! |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group