Sehr komisches problem

Übersicht

BlitzBasic

Beginners-Corner

	joni8a Betreff: Sehr komisches problem	So, Apr 08, 2007 17:49 Antworten mit Zitat
Wieso funktioniert dieses programm nicht: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() Dim raumschiff(359) TFormFilter 0 For winkel = 0 to 359 raumschiff(winkel)=LoadImage("raumschiff1.bmp" ) RotateImage raumschiff(winkel),winkel MaskImage raumschiff(winkel),255,0,255 Next Global x#,y# Global geschwindigkeit#=1 While Not Keyhit(1) ;Beginn der Hauptschleife Cls If KeyDown(203) then winkel= winkel -1 ; Winkel wird verkleinert If KeyDown(205) then winkel= winkel +1 ; Winkel wird erhöht If winkel > 359 Then winkel = 0 If winkel < 0 Then winkel = 359 If KeyDown(200) Then x = x + Cos(winkel)geschwindigkeit y = y - Sin(winkel)geschwindigkeit EndIf DrawImage raumschiff(winkel),x,y Flip Wend End

joni8a

Betreff: Sehr komisches problem

So, Apr 08, 2007 17:49
Antworten mit Zitat

Wieso funktioniert dieses programm nicht:
Code: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()

Dim raumschiff(359)
TFormFilter 0
For winkel = 0 to 359
raumschiff(winkel)=LoadImage("raumschiff1.bmp" )
RotateImage raumschiff(winkel),winkel
MaskImage raumschiff(winkel),255,0,255
Next
Global x#,y#
Global geschwindigkeit#=1
While Not Keyhit(1) ;Beginn der Hauptschleife
Cls
If KeyDown(203) then winkel= winkel -1 ; Winkel wird verkleinert
If KeyDown(205) then winkel= winkel +1 ; Winkel wird erhöht
If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359
If KeyDown(200) Then
x = x + Cos(winkel)*geschwindigkeit
y = y - Sin(winkel)*geschwindigkeit
EndIf
DrawImage raumschiff(winkel),x,y
Flip
Wend
End

	aMul Sieger des Minimalist Compo 01/13	So, Apr 08, 2007 17:52 Antworten mit Zitat
Entschuldige, meine Glaskugel ist im Urlaub. Du musst uns wohl oder übel mitteilen was nicht funktioniert.
Panic Pong - ultimate action mashup of Pong and Breakout <= aktives Spiele-Projekt, Downloads mit vielen bunten Farben! advASCIIdraw - the advanced ASCII art program <= aktives nicht-Spiele-Projekt, must-have für ASCII/roguelike/dungeon-crawler fans! Alter BB-Kram: ThroughTheAsteroidBelt - mit Quelltext! \| RGB-Palette in 32²-Textur / Farbige Beleuchtung mit Dot3 \| Stereoskopie in Blitz3D \| Teleport-Animation Screensaver

aMul

Sieger des Minimalist Compo 01/13

So, Apr 08, 2007 17:52
Antworten mit Zitat

Entschuldige, meine Glaskugel ist im Urlaub. Du musst uns wohl oder übel mitteilen was nicht funktioniert.

Panic Pong - ultimate action mashup of Pong and Breakout <= aktives Spiele-Projekt, Downloads mit vielen bunten Farben!
advASCIIdraw - the advanced ASCII art program <= aktives nicht-Spiele-Projekt, must-have für ASCII/roguelike/dungeon-crawler fans!
Alter BB-Kram: ThroughTheAsteroidBelt - mit Quelltext! | RGB-Palette in 32²-Textur / Farbige Beleuchtung mit Dot3 | Stereoskopie in Blitz3D | Teleport-Animation Screensaver

	joni8a	So, Apr 08, 2007 17:53 Antworten mit Zitat
Sry war grad in eile. Er zeigt das bild nicht an.

joni8a

So, Apr 08, 2007 17:53
Antworten mit Zitat

Sry war grad in eile. Er zeigt das bild nicht an.

	aMul Sieger des Minimalist Compo 01/13	So, Apr 08, 2007 17:54 Antworten mit Zitat
Funktioniert es, wenn du die Befehle RotateImage und MaskImage weglässt/auskommentierst?
Panic Pong - ultimate action mashup of Pong and Breakout <= aktives Spiele-Projekt, Downloads mit vielen bunten Farben! advASCIIdraw - the advanced ASCII art program <= aktives nicht-Spiele-Projekt, must-have für ASCII/roguelike/dungeon-crawler fans! Alter BB-Kram: ThroughTheAsteroidBelt - mit Quelltext! \| RGB-Palette in 32²-Textur / Farbige Beleuchtung mit Dot3 \| Stereoskopie in Blitz3D \| Teleport-Animation Screensaver

aMul

Sieger des Minimalist Compo 01/13

So, Apr 08, 2007 17:54
Antworten mit Zitat

Funktioniert es, wenn du die Befehle RotateImage und MaskImage weglässt/auskommentierst?

	Eingeproggt	So, Apr 08, 2007 17:56 Antworten mit Zitat
Es geht an sich eh. Ich hab nur eine Kleinigkeit geändert (beim Laden): Code: [AUSKLAPPEN] [EINKLAPPEN] img=LoadImage("Raumschiff.bmp" ) MaskImage img,255,0,255 MidHandle img For winkel = 0 To 359 raumschiff(winkel)=CopyImage(img) RotateImage raumschiff(winkel),winkel Next Und nicht zu vergessen: Rechne doch mal X - Cos
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

So, Apr 08, 2007 17:56
Antworten mit Zitat

Es geht an sich eh. Ich hab nur eine Kleinigkeit geändert (beim Laden):
Code: [AUSKLAPPEN]

img=LoadImage("Raumschiff.bmp" )
MaskImage img,255,0,255
MidHandle img
For winkel = 0 To 359
raumschiff(winkel)=CopyImage(img)
RotateImage raumschiff(winkel),winkel
Next

Und nicht zu vergessen:
Rechne doch mal X - Cos

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	joni8a	So, Apr 08, 2007 17:58 Antworten mit Zitat
Ja, aber nu kann ich das objekt nicht mehr um 360 grad drehen und das will ich ja

joni8a

So, Apr 08, 2007 17:58
Antworten mit Zitat

Ja, aber nu kann ich das objekt nicht mehr um 360 grad drehen und das will ich ja

	Eingeproggt	So, Apr 08, 2007 18:01 Antworten mit Zitat
Bei mir gehts. Probiers mal aus.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

So, Apr 08, 2007 18:01
Antworten mit Zitat

Bei mir gehts. Probiers mal aus.

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	joni8a	So, Apr 08, 2007 18:02 Antworten mit Zitat
Nachdem du die sahen weggelassen hast?

joni8a

So, Apr 08, 2007 18:02
Antworten mit Zitat

Nachdem du die sahen weggelassen hast?

	Eingeproggt	So, Apr 08, 2007 18:04 Antworten mit Zitat
Hab ich heut ne lange Leitung - nein. Haargenau dein Code mit meinen Änderungen funktioniert. Hab aMuls Posts noch gar nicht gesehen.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

So, Apr 08, 2007 18:04
Antworten mit Zitat

Hab ich heut ne lange Leitung - nein. Haargenau dein Code mit meinen Änderungen funktioniert. Hab aMuls Posts noch gar nicht gesehen.

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	ToeB	Mo, Apr 09, 2007 18:54 Antworten mit Zitat
Dieser Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 Global schiff = CreateImage(20,50) SetBuffer ImageBuffer(schiff) Rect 0,0,20,50,0 SetBuffer BackBuffer() Dim raumschiff(359) TFormFilter 0 MidHandle schiff For winkel = 0 To 359 raumschiff(winkel)=CopyImage(schiff) RotateImage raumschiff(winkel),winkel MaskImage raumschiff(winkel),255,0,255 Next Global x#=100,y#=100 Global geschwindigkeit#=1 While Not KeyHit(1) ;Beginn der Hauptschleife Cls If KeyDown(203) Then winkel= winkel -1 ; Winkel wird verkleinert If KeyDown(205) Then winkel= winkel +1 ; Winkel wird erhöht If winkel > 359 Then winkel = 0 If winkel < 0 Then winkel = 359 If KeyDown(200) Then x = x - Sin(winkel)geschwindigkeit y = y + Cos(winkel)geschwindigkeit EndIf DrawImage raumschiff(winkel),x,y Flip Wend End Funtzt bei mia sehr gut
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Mo, Apr 09, 2007 18:54
Antworten mit Zitat

Dieser Code: [AUSKLAPPEN]

Graphics 640,480,16,2
Global schiff = CreateImage(20,50)
SetBuffer ImageBuffer(schiff)
Rect 0,0,20,50,0
SetBuffer BackBuffer()

Dim raumschiff(359)
TFormFilter 0
MidHandle schiff
For winkel = 0 To 359
raumschiff(winkel)=CopyImage(schiff)
RotateImage raumschiff(winkel),winkel
MaskImage raumschiff(winkel),255,0,255
Next
Global x#=100,y#=100
Global geschwindigkeit#=1
While Not KeyHit(1) ;Beginn der Hauptschleife
Cls
If KeyDown(203) Then winkel= winkel -1 ; Winkel wird verkleinert
If KeyDown(205) Then winkel= winkel +1 ; Winkel wird erhöht
If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359
If KeyDown(200) Then
x = x - Sin(winkel)*geschwindigkeit
y = y + Cos(winkel)*geschwindigkeit
EndIf
DrawImage raumschiff(winkel),x,y
Flip
Wend
End

Funtzt bei mia sehr gut Surprised

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Apr 09, 2007 19:12 Antworten mit Zitat
Wenn dann hab ich das so in Erinnerung... Code: [AUSKLAPPEN] [EINKLAPPEN] x = x + Cos(winkel)geschwindigkeit y = y + Sin(winkel)geschwindigkeit 0Grad =rechts 90Grad nach unten da es sonst Probleme mit Atan2 usw geben könnte
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Apr 09, 2007 19:12
Antworten mit Zitat

Wenn dann hab ich das so in Erinnerung...

Code: [AUSKLAPPEN]

x = x + Cos(winkel)*geschwindigkeit
y = y + Sin(winkel)*geschwindigkeit

0Grad =rechts
90Grad nach unten
da es sonst Probleme mit Atan2 usw geben könnte

[BB2D | BB3D | BB+]

	Smily	Mo, Apr 09, 2007 19:16 Antworten mit Zitat
eigentlich so: Code: [AUSKLAPPEN] [EINKLAPPEN] x = x + Cos(winkel)geschwindigkeit y = y - Sin(winkel)geschwindigkeit du vergisst, dass auf dem Bildschirm die y-Koordinaten umgedreht verlaufen. bei 90° müsste ein Objekt sich nach oben bewegen. Gruß, Smily0412
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Mo, Apr 09, 2007 19:16
Antworten mit Zitat

eigentlich so:

Code: [AUSKLAPPEN]

x = x + Cos(winkel)*geschwindigkeit
y = y - Sin(winkel)*geschwindigkeit

du vergisst, dass auf dem Bildschirm die y-Koordinaten umgedreht verlaufen.

bei 90° müsste ein Objekt sich nach oben bewegen.

Gruß, Smily0412

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Sehr komisches problem

Betreff: Sehr komisches problem