Animation zu schnell

Übersicht

BlitzBasic

Beginners-Corner

	M2M Betreff: Animation zu schnell	Fr, März 02, 2007 18:02 Antworten mit Zitat
Hi Leute, ich hab ein Problem: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() bmpDino = LoadAnimImage("dino.bmp",32,32,0,12) x = 200 y = 200 Repeat Cls If KeyDown(203) I = I+1 x = x-1 EndIf If I = 12 I = 1 ; Zeichnen DrawImage bmpDino,x,y,I Flip Until KeyHit(1) Das Problem ist, das die 12 Animationsframes viel zu schnell abgespielt werden... Was kann ich da verbessern das es klappt? Danke

M2M

Betreff: Animation zu schnell

Fr, März 02, 2007 18:02
Antworten mit Zitat

Hi Leute, ich hab ein Problem:
Code: [AUSKLAPPEN]

Graphics 800,600,16,2
SetBuffer BackBuffer()

bmpDino = LoadAnimImage("dino.bmp",32,32,0,12)
x = 200
y = 200

Repeat
Cls

If KeyDown(203)
I = I+1
x = x-1
EndIf
If I = 12 I = 1

; Zeichnen
DrawImage bmpDino,x,y,I

Flip
Until KeyHit(1)

Das Problem ist, das die 12 Animationsframes viel zu schnell abgespielt werden... Was kann ich da verbessern das es klappt? Danke

	Rallimen Sieger des 30-EUR-Wettbewerbs	Fr, März 02, 2007 18:19 Antworten mit Zitat
Bau einen Timer ein mit millisecs() und wechsel dann nur alle 50 Millisekunden das Frame
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Fr, März 02, 2007 18:19
Antworten mit Zitat

Bau einen Timer ein mit millisecs() und wechsel dann nur alle 50 Millisekunden das Frame

[BB2D | BB3D | BB+]

	juse4pro Betreff: lol	Fr, März 02, 2007 18:34 Antworten mit Zitat
könnte mir vielleicht mal jemand ein 'ANIM' + 'Millisecs()' Beispiel posten??? mfg: mortus
Portfolio \|LinkedIn \|XING

juse4pro

Betreff: lol

Fr, März 02, 2007 18:34
Antworten mit Zitat

könnte mir vielleicht mal jemand ein 'ANIM' + 'Millisecs()' Beispiel posten???

mfg: mortus Question

Portfolio |LinkedIn |XING

	Rallimen Sieger des 30-EUR-Wettbewerbs	Fr, März 02, 2007 18:51 Antworten mit Zitat
Jetzt sind es schon zwei die es gebrauchen können Code: [AUSKLAPPEN] [EINKLAPPEN] If Timer < MilliSecs() Timer = MilliSecs() + 100 Frame =Frame +1 If Frame > Frameanzahl Then Frame = 0 End If Drawimage Bild, x,y,Frame
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Fr, März 02, 2007 18:51
Antworten mit Zitat

Jetzt sind es schon zwei die es gebrauchen können

Code: [AUSKLAPPEN]

If Timer < MilliSecs()
Timer = MilliSecs() + 100
Frame =Frame +1
If Frame > Frameanzahl Then Frame = 0
End If
Drawimage Bild, x,y,Frame

[BB2D | BB3D | BB+]

	Matthias	Fr, März 02, 2007 18:52 Antworten mit Zitat
Das müste so gehen. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() bmpDino = LoadAnimImage("dino.bmp",32,32,0,12) x = 200 y = 200 Repeat Cls If KeyDown(203)=1 and Millisecs()>WarteTimer+50 then I = I+1 x = x-1 WarteTimer=Millisecs() EndIf If I = 12 I = 1 ; Zeichnen DrawImage bmpDino,x,y,I Flip Until KeyHit(1) Mfg Matthias

Matthias

Fr, März 02, 2007 18:52
Antworten mit Zitat

Das müste so gehen.

Code: [AUSKLAPPEN]

Graphics 800,600,16,2
SetBuffer BackBuffer()

bmpDino = LoadAnimImage("dino.bmp",32,32,0,12)
x = 200
y = 200

Repeat
Cls

If KeyDown(203)=1 and Millisecs()>WarteTimer+50 then
I = I+1
x = x-1
WarteTimer=Millisecs()
EndIf
If I = 12 I = 1

; Zeichnen
DrawImage bmpDino,x,y,I

Flip
Until KeyHit(1)

Mfg Matthias

	M2M	Fr, März 02, 2007 19:22 Antworten mit Zitat
Vielen Dank an euch Ich probiers gleich mal aus.

M2M

Fr, März 02, 2007 19:22
Antworten mit Zitat

Vielen Dank an euch Wink

Ich probiers gleich mal aus.

	juse4pro Betreff: thx	Fr, März 02, 2007 20:31 Antworten mit Zitat
lol, von mir auch ein DANKE!!! mfg: mortus
Portfolio \|LinkedIn \|XING

juse4pro

Betreff: thx

Fr, März 02, 2007 20:31
Antworten mit Zitat

lol, von mir auch ein DANKE!!!

mfg: mortus

Portfolio |LinkedIn |XING

	ToeB	Fr, März 02, 2007 20:48 Antworten mit Zitat
Übringens, Er hat Folgendes geschrieben: Code: [AUSKLAPPEN] [EINKLAPPEN] ... If I > Framenzahl then I = 1 ... Das ist aber ziemlich langsam. Ich würde zu Code: [AUSKLAPPEN] [EINKLAPPEN] I = I + 1 Mod Framenzahl Raten. Weil es schneller und übersichtlicher ist
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

Fr, März 02, 2007 20:48
Antworten mit Zitat

Übringens, Er hat Folgendes geschrieben:

Code: [AUSKLAPPEN]

...
If I > Framenzahl then I = 1
...

Das ist aber ziemlich langsam. Ich würde zu
Code: [AUSKLAPPEN]

I = I + 1 Mod Framenzahl

Raten. Weil es schneller und übersichtlicher ist Wink

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!

	aMul Sieger des Minimalist Compo 01/13	Fr, März 02, 2007 20:51 Antworten mit Zitat
Crack93 hat Folgendes geschrieben: ch würde zu Code: [AUSKLAPPEN] [EINKLAPPEN] I = I + 1 Mod Framenzahl Raten. Weil es schneller und übersichtlicher ist Das funktioniert nur nicht, wenn dann bitte: Code: [AUSKLAPPEN] [EINKLAPPEN] I = (I + 1) Mod Framenzahl
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