ein image von etwas umkreisen lassen [erledigt]

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Dragonkiller

Betreff: ein image von etwas umkreisen lassen [erledigt]

BeitragMi, Dez 27, 2006 21:57
Antworten mit Zitat
Benutzer-Profile anzeigen
wie kann ich zum bsp. einen kreis um meinen mauszeiger kreisen lassen?
  • Zuletzt bearbeitet von Dragonkiller am Mi, Dez 27, 2006 22:51, insgesamt einmal bearbeitet

Te(Y)House

BeitragMi, Dez 27, 2006 22:08
Antworten mit Zitat
Benutzer-Profile anzeigen
Mit dem wunderbaren Befehl "Cos"

Auszug aus Onlinehelp:

Zitat:
GRAPHICS 640,480,0,1
SETBUFFER BACKBUFFER()
WHILE KEYDOWN(1)=0
Winkel1=(Winkel1+5) MOD 360
Winkel2=(Winkel2+2) MOD 360
X=320+COS(Winkel1)*200+COS(Winkel2)*120
Y=240+SIN(Winkel1)*160+SIN(Winkel2)*80
CLS
OVAL X-10,Y-10,20,20,1
FLIP
WEND
END


Mfg.
Te(Y)House
--------------
kcvd.rshost.de
-------------

Dragonkiller

BeitragMi, Dez 27, 2006 22:13
Antworten mit Zitat
Benutzer-Profile anzeigen
den hab ich auch schon gesehn aber ich werd aus dem ganzen cos sin und winkel nich schlau und außerdem führt das oval keine gleichmäßige kreisbewegung durch

5k41

BeitragMi, Dez 27, 2006 22:20
Antworten mit Zitat
Benutzer-Profile anzeigen
so:
Code: [AUSKLAPPEN]

Graphics 640,480,32,2
SetBuffer BackBuffer()

distance = 100

While Not KeyDown(1)
   
   winkel = ( winkel + 1 ) Mod 360
   
   X=MouseX()+Sin(winkel)*distance
   Y=MouseY()+Cos(-winkel)*distance
   
   Oval X-10,Y-10,20,20,1
   
   Flip
   Cls

Wend
End
Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image
 

Florian

BeitragMi, Dez 27, 2006 22:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo

Code: [AUSKLAPPEN]

Timer=CreateTimer(40)


;Mauszeiger
X=100
Y=100
D=25

;Kreis
D2=15
ZX=X+D/2-D2/2 ;Mitte des Mauszeigeres berechnen - D2/2
ZY=Y+D/2-D2/2 ;

A=D+30 ;Abstand berechnen


Graphics 400,400,0,2
SetBuffer BackBuffer()




Repeat


; I= I+1 Mod 360

 I=MilliSecs()/10  Mod 360

 Cls

 Color 255,0,255
 Oval X,Y,D,D

 Color 225,255,0
 Oval ZX+Cos(I)*A,ZY+Sin(I)*A,D2,D2
 
 Flip
 WaitTimer Timer
Forever

Dragonkiller

BeitragMi, Dez 27, 2006 22:52
Antworten mit Zitat
Benutzer-Profile anzeigen
danke 5k41 deinen text hab ich am besten verstanden

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group