Probleme mit RotateImage

Übersicht

BlitzBasic

Beginners-Corner

	bruce185 Betreff: Probleme mit RotateImage	Mi, Nov 30, 2005 22:40 Antworten mit Zitat
hi, ich möchte gern ein Bild drehen lassen, das Bild soll sich so lange drehen bis das programm beendet wird, aber bei mir kommt ein fehler "Expecting 'Next', habe zwar hier im Forum schon danach gesucht, aber es hat auch nicht funktioniert, hier mal mein Code: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768,16,2 SetBuffer BackBuffer() Global bild_img = LoadImage(\"bild.bmp\") Dim bild(359) TFormFilter 0 Repeat Cls For winkel=0 To 359 bild(winkel) = RotateImage bild_img,winkel Next Flip Until KeyHit(1) End wisst ihr vieleicht was ich da falsch gemacht habe? ach und noch was, wie kann ich das Bild um die mittel achse drehen lassen? ich würde mich sehr freuen wenn mir da einer helfen kann, ich danke euch schonmal für die hilfe andreas

bruce185

Betreff: Probleme mit RotateImage

Mi, Nov 30, 2005 22:40
Antworten mit Zitat

hi,
ich möchte gern ein Bild drehen lassen, das Bild soll sich so lange drehen bis das programm beendet wird, aber bei mir kommt ein fehler "Expecting 'Next', habe zwar hier im Forum schon danach gesucht, aber es hat auch nicht funktioniert, hier mal mein Code:

BlitzBasic: [AUSKLAPPEN]

Graphics 1024,768,16,2
SetBuffer BackBuffer()


Global bild_img = LoadImage(\"bild.bmp\")

Dim bild(359)

TFormFilter 0

Repeat
 Cls

 For winkel=0 To 359
  bild(winkel) = RotateImage bild_img,winkel
 Next

 Flip
Until KeyHit(1)

End

wisst ihr vieleicht was ich da falsch gemacht habe?

ach und noch was, wie kann ich das Bild um die mittel achse drehen lassen?

ich würde mich sehr freuen wenn mir da einer helfen kann, ich danke euch schonmal für die hilfe Smile

andreas

	sunny	Mi, Nov 30, 2005 22:53 Antworten mit Zitat
Das "expecting next" bedeutet, dass nach einer Forschleife das "Next" fehlt oder er es nicht erkennt. Weiter kann ich dir leider nicht helfen. Wenn du willst, dass es sich um die Mitte dreht musst du erst den Bildlpunkt auf die Mitte setzen. Das machst du mit BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] MidHandle bild oder für alle bilder mit BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] AutoMidHandle Ansonsten hoffe ich mal, dass die Schleife noch nicht vollständig ist denn er dreht nur das Bild zu seinem Ausgangspunkt und zeichnet es noch nicht mal Auch wirst du sehen, dass wen man ein Bild drehen man es nicht mit einer Variable macht sondern einfach nur BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] RotateImage bild,winkel schreibt (steht so zumindest im tutorial und in der Befehlsbeschreibung. Hoffe wenigstens ansatzweise geholfen zu haben

sunny

Mi, Nov 30, 2005 22:53
Antworten mit Zitat

Das "expecting next" bedeutet, dass nach einer Forschleife das "Next" fehlt oder er es nicht erkennt. Weiter kann ich dir leider nicht helfen.

Wenn du willst, dass es sich um die Mitte dreht musst du erst den Bildlpunkt auf die Mitte setzen. Das machst du mit
BlitzBasic: [AUSKLAPPEN]

MidHandle bild

oder für alle bilder mit
BlitzBasic: [AUSKLAPPEN]

AutoMidHandle

Ansonsten hoffe ich mal, dass die Schleife noch nicht vollständig ist
denn er dreht nur das Bild zu seinem Ausgangspunkt und zeichnet es noch nicht mal Wink

Auch wirst du sehen, dass wen man ein Bild drehen man es nicht mit einer Variable macht sondern einfach nur
BlitzBasic: [AUSKLAPPEN]

RotateImage bild,winkel

schreibt (steht so zumindest im tutorial und in der Befehlsbeschreibung.

Hoffe wenigstens ansatzweise geholfen zu haben Laughing

	Justus	Mi, Nov 30, 2005 23:15 Antworten mit Zitat
Schnelle Hilfe bekommst du in diesem Tutorial: RotateImage Tutorial

Justus

Mi, Nov 30, 2005 23:15
Antworten mit Zitat

Schnelle Hilfe bekommst du in diesem Tutorial:

RotateImage Tutorial

	Eclipse	Mi, Nov 30, 2005 23:16 Antworten mit Zitat
RotateImage hat keinen rückgabewert und selbst wenn hättest du die Klammern vergessen edit: mist war zu langsam

Eclipse

Mi, Nov 30, 2005 23:16
Antworten mit Zitat

RotateImage hat keinen rückgabewert und selbst wenn hättest du die Klammern vergessen Wink

edit: mist war zu langsam Mad

	skey-z	Do, Dez 01, 2005 20:31 Antworten mit Zitat
Das rotierte bild solltest du auch vor der Schleife in das Array laden BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768,16,2 SetBuffer BackBuffer() Global bild_img = LoadImage(\"bild.bmp\") Dim bild(359) For winkel = 0 To 359 bild(winkel)= CopyImage (bild_img) RotateImage bild(winkel), winkel Next TFormFilter 0 Repeat Cls For winkel=0 To 359 Cls DrawImage bild(winkel), x, y Flip Next Flip Until KeyHit(1) End versuchs mal damit
Awards: Coffee's Monatswettbewerb Feb. 08: 1. Platz BAC#57: 2. Platz Twitter

skey-z

Do, Dez 01, 2005 20:31
Antworten mit Zitat

Das rotierte bild solltest du auch vor der Schleife in das Array laden

BlitzBasic: [AUSKLAPPEN]


Graphics 1024,768,16,2
SetBuffer BackBuffer()


Global bild_img = LoadImage(\"bild.bmp\")

Dim bild(359)

For winkel = 0 To 359
     bild(winkel)= CopyImage (bild_img)
     RotateImage bild(winkel), winkel
Next

TFormFilter 0

Repeat
 Cls

 For winkel=0 To 359
   Cls
   DrawImage bild(winkel), x, y
   Flip
 Next

 Flip
Until KeyHit(1)

End

versuchs mal damit

Awards:
Coffee's Monatswettbewerb Feb. 08: 1. Platz
BAC#57: 2. Platz
Twitter

	bruce185	Do, Dez 01, 2005 21:07 Antworten mit Zitat
vielen dank, es funktioniert, aber wie kann ich das machen dass das Bild sich um Mittel punkt dreht, mit MidHandle geht das nicht, habe es probiert, aber leider ohne erfolg, ich danke euch schonmal andreas

bruce185

Do, Dez 01, 2005 21:07
Antworten mit Zitat

vielen dank, es funktioniert, aber wie kann ich das machen dass das Bild sich um Mittel punkt dreht, mit MidHandle geht das nicht, habe es probiert, aber leider ohne erfolg, ich danke euch schonmal Very Happy