Probleme mit Sin und Winkelberechnung

Übersicht

BlitzBasic

Allgemein

	MichaelD1 Betreff: Probleme mit Sin und Winkelberechnung	Mo, Apr 26, 2004 21:28 Antworten mit Zitat
Graphics 800,600,32,2 SetBuffer BackBuffer() Dim Tuerme(359) For winkel=0 To 359 Tuerme(winkel)=LoadImage("grafiken\PanzerTurm.bmp") RotateImage Tuerme(winkel),winkel MidHandle Tuerme(winkel) Next Maus=LoadImage("grafiken\Maus.bmp") ;--------------------------------------------------- x=400 y=300 mx=200 my=200 ;--------------------------------------------------- While ende=0 Cls If KeyHit(1) Then ende=1 ;--------------------------------------------------- mx=MouseX() my=MouseY() If MouseDown(1) Then zmx=MouseX():zmy=MouseY() Gegenkathete=zmx-x Ankathete=zmy-y m=Gegenkathete/Ankathete w#=Sin(m) Locate 10,10:Print "Dies ist m: "+m Locate 10,20:Print "Dies ist der Winkel:"+w DrawImage Maus,mx,my DrawImage Tuerme(w#),x,y Flip Wend Was mache ich falsch, ich will ja den Winkel alpha rausfinden um dann mit ihm die Grafik auf die Maus ausrichten, aber irgendwie bekomme ich komische Fehlermeldungen

MichaelD1

Betreff: Probleme mit Sin und Winkelberechnung

Mo, Apr 26, 2004 21:28
Antworten mit Zitat

Graphics 800,600,32,2
SetBuffer BackBuffer()
Dim Tuerme(359)
For winkel=0 To 359
Tuerme(winkel)=LoadImage("grafiken\PanzerTurm.bmp")
RotateImage Tuerme(winkel),winkel
MidHandle Tuerme(winkel)
Next
Maus=LoadImage("grafiken\Maus.bmp")
;---------------------------------------------------
x=400
y=300
mx=200
my=200
;---------------------------------------------------
While ende=0
Cls
If KeyHit(1) Then ende=1
;---------------------------------------------------
mx=MouseX()
my=MouseY()
If MouseDown(1) Then zmx=MouseX():zmy=MouseY()

Gegenkathete=zmx-x
Ankathete=zmy-y
m=Gegenkathete/Ankathete
w#=Sin(m)
Locate 10,10:Print "Dies ist m: "+m
Locate 10,20:Print "Dies ist der Winkel:"+w
DrawImage Maus,mx,my
DrawImage Tuerme(w#),x,y
Flip
Wend

Was mache ich falsch, ich will ja den Winkel alpha rausfinden um dann mit ihm die Grafik auf die Maus ausrichten, aber irgendwie bekomme ich komische Fehlermeldungen

	Dreamora	Mo, Apr 26, 2004 21:35 Antworten mit Zitat
sin alpha = ankathete / hypo => alpha = asin ( ankathete / hypo )
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.