bild von punkt zu punkt fliegen lassen

Übersicht

BlitzBasic

Allgemein

	Gfreak Betreff: bild von punkt zu punkt fliegen lassen	Di, Apr 28, 2009 15:24 Antworten mit Zitat
Hey Leute, ich arbeite seit kurzem mit bb und hab nun folgendes problem: ich möcht das ein image von einem punkt zum andern fliegt, welchen ich mit MouseX und MouseY angebe. ich hab das jetzt so probiert: Code: [AUSKLAPPEN] [EINKLAPPEN] Grad = ATan2 (MouseY-50,MouseX-300) positionX# = positionX# + Cos(Grad) * speed# positionY# = positionY# + Sin(Grad) * speed# Jetzt fliegt nur das Image immer am Mousecursor vorbei. Kann man da was machen. Danke im vorraus

Gfreak

Betreff: bild von punkt zu punkt fliegen lassen

Di, Apr 28, 2009 15:24
Antworten mit Zitat

Hey Leute,
ich arbeite seit kurzem mit bb und hab nun folgendes problem:
ich möcht das ein image von einem punkt zum andern fliegt, welchen ich mit MouseX und MouseY angebe.
ich hab das jetzt so probiert:
Code: [AUSKLAPPEN]

Grad = ATan2 (MouseY-50,MouseX-300)
positionX# = positionX# + Cos(Grad) * speed#
positionY# = positionY# + Sin(Grad) * speed#

Jetzt fliegt nur das Image immer am Mousecursor vorbei.
Kann man da was machen.
Danke im vorraus

	Nicdel	Di, Apr 28, 2009 15:26 Antworten mit Zitat
Wichtig ist MouseX().
Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7

Nicdel

Di, Apr 28, 2009 15:26
Antworten mit Zitat

Wichtig ist MouseX().

Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP
Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7

	Gfreak	Di, Apr 28, 2009 15:28 Antworten mit Zitat
läuft trotzdem nicht:(

Gfreak

Di, Apr 28, 2009 15:28
Antworten mit Zitat

läuft trotzdem nicht:(

	Der_Schläfer	Di, Apr 28, 2009 15:30 Antworten mit Zitat
tjoa liefer halt mehr code... aus dem schnipsel wird wohl niemand schlau, sieht seltsam aus...

Der_Schläfer

Di, Apr 28, 2009 15:30
Antworten mit Zitat

tjoa liefer halt mehr code... aus dem schnipsel wird wohl niemand schlau, sieht seltsam aus...

	SpionAtom	Di, Apr 28, 2009 15:36 Antworten mit Zitat
Ich liefere Code! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 400, 300, 0, 2 SetBuffer BackBuffer() positionX# = GraphicsWidth() / 2 positionY# = GraphicsHeight() / 2 speed# = 2 Repeat Grad = ATan2(MouseY() - positionY,MouseX() - positionX) positionX# = positionX# + Cos(Grad) * speed# positionY# = positionY# + Sin(Grad) * speed# Cls Oval positionX - 2, positionY - 2, 4, 4 Flip() Until KeyDown(1) End
os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

SpionAtom

Di, Apr 28, 2009 15:36
Antworten mit Zitat

Ich liefere Code!

BlitzBasic: [AUSKLAPPEN]

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

	positionX#  = GraphicsWidth() / 2
	positionY#  = GraphicsHeight() / 2
	speed# = 2

	Repeat

	Grad = ATan2(MouseY() - positionY,MouseX() - positionX)
	positionX#  = positionX# + Cos(Grad) * speed#
	positionY#  = positionY# + Sin(Grad) * speed#	
	
		Cls
		Oval positionX - 2, positionY - 2, 4, 4
		Flip()
	
	
	Until KeyDown(1)
	End

os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

	Der_Schläfer	Di, Apr 28, 2009 15:38 Antworten mit Zitat
achso

Der_Schläfer

Di, Apr 28, 2009 15:38
Antworten mit Zitat

achso

	Gfreak	Di, Apr 28, 2009 15:49 Antworten mit Zitat
nicht ganz aber fast: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 mouse=LoadImage("mouse.bmp") bullet=LoadImage("bullet.bmp") punkt_x=50 punkt_y=50 While Not KeyDown(1) mouse_x=MouseX() mouse_y=MouseY() bullet_fired=False If MouseDown(1) bullet_fired=True EndIf If bullet_fired=True mouse_x=MouseX() mouse_y=MouseY() Grad = ATan2 (mouse_y-punkt_y,mouse_x-punkt_x) positionX# = positionX# + Sin(Grad) * 3 positionY# = positionY# + Cos(Grad) * 3 EndIf Cls If bullet_fired=True DrawImage bullet,positionX#,positionY# DrawImage mouse,mouse_x,mouse_y Flip Wend

Gfreak

Di, Apr 28, 2009 15:49
Antworten mit Zitat

nicht ganz aber fast:
Code: [AUSKLAPPEN]

Graphics 800,600
mouse=LoadImage("mouse.bmp")
bullet=LoadImage("bullet.bmp")
punkt_x=50
punkt_y=50
While Not KeyDown(1)
mouse_x=MouseX()
mouse_y=MouseY()
bullet_fired=False
If MouseDown(1)
bullet_fired=True
EndIf
If bullet_fired=True
mouse_x=MouseX()
mouse_y=MouseY()
Grad = ATan2 (mouse_y-punkt_y,mouse_x-punkt_x)
positionX# = positionX# + Sin(Grad) * 3
positionY# = positionY# + Cos(Grad) * 3
EndIf
Cls
If bullet_fired=True DrawImage bullet,positionX#,positionY#
DrawImage mouse,mouse_x,mouse_y
Flip
Wend

	Gfreak	Di, Apr 28, 2009 15:49 Antworten mit Zitat
ich habs mit midhanlde versucht klappt auch nicht

Gfreak

Di, Apr 28, 2009 15:49
Antworten mit Zitat

ich habs mit midhanlde versucht klappt auch nicht

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Apr 28, 2009 17:03 Antworten mit Zitat
Liegt auch nicht an dem... sondern an ATAN2, da du mit den aktuellen Koordinaten rechen mußt! und dann noch cos mit Sin vertauschen! Code: [AUSKLAPPEN] [EINKLAPPEN] Grad = ATan2 (mouse_y-positiony#,mouse_x-positionX#) positionX# = positionX# + Cos(Grad) * 3 positionY# = positionY# + Sin(Grad) * 3
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Apr 28, 2009 17:03
Antworten mit Zitat

Liegt auch nicht an dem...
sondern an ATAN2, da du mit den aktuellen Koordinaten rechen mußt!
und dann noch cos mit Sin vertauschen!
Code: [AUSKLAPPEN]

   Grad = ATan2 (mouse_y-positiony#,mouse_x-positionX#)
   positionX# = positionX# + Cos(Grad) * 3
   positionY# = positionY# + Sin(Grad) * 3

[BB2D | BB3D | BB+]

	Gfreak Betreff: DANKE	Di, Apr 28, 2009 17:07 Antworten mit Zitat
Danke euch allen jetzt gehts

Gfreak

Betreff: DANKE

Di, Apr 28, 2009 17:07
Antworten mit Zitat

Danke euch allen Laughing

jetzt gehts

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

bild von punkt zu punkt fliegen lassen

Betreff: bild von punkt zu punkt fliegen lassen

Betreff: DANKE