Wie kann ich Schleifen in einer Function ausführen

Übersicht

BlitzBasic

Allgemein

	tommyglocke Betreff: Wie kann ich Schleifen in einer Function ausführen	Mo, Feb 12, 2007 11:46 Antworten mit Zitat
Ich habe versucht in einer Function eine Schleife auszuführen. Aber das klappt irgendwie nicht. Es solte sich ein bild von oben ein Bild in die Mitte des Bildschirmes bewegen. Kann mir Jemand helfen

tommyglocke

Betreff: Wie kann ich Schleifen in einer Function ausführen

Mo, Feb 12, 2007 11:46
Antworten mit Zitat

Ich habe versucht in einer Function eine Schleife auszuführen.
Aber das klappt irgendwie nicht. Es solte sich ein bild von oben ein
Bild in die Mitte des Bildschirmes bewegen.

Kann mir Jemand helfen

	hectic Sieger des IS Talentwettbewerb 2006	Mo, Feb 12, 2007 11:51 Antworten mit Zitat
Das Bild muss dann als Global geladen sein. Global bild=LoadImage("bild.png")

hectic

Sieger des IS Talentwettbewerb 2006

Mo, Feb 12, 2007 11:51
Antworten mit Zitat

Das Bild muss dann als Global geladen sein.

Global bild=LoadImage("bild.png")

	tommyglocke	Mo, Feb 12, 2007 11:55 Antworten mit Zitat
ja es ist als global gelagen kannst du mir mal eine beispiel-function zeigen danke

tommyglocke

Mo, Feb 12, 2007 11:55
Antworten mit Zitat

ja es ist als global gelagen kannst du mir mal eine beispiel-function
zeigen

danke

	hectic Sieger des IS Talentwettbewerb 2006	Mo, Feb 12, 2007 12:03 Antworten mit Zitat
Wenn du eine Funktion eingebaut hast, welche ein Bild bewegt musst du auch Flip da rein machen (empfehle ich aber nicht). Ansonsten wird zwar das Bild bewegt, nur man sieht es nicht, weil alles nur im BackBuffer gezeichnet wurde. Poste doch mal deinen Code, dann können wir mal sehen.

hectic

Sieger des IS Talentwettbewerb 2006

Mo, Feb 12, 2007 12:03
Antworten mit Zitat

Wenn du eine Funktion eingebaut hast, welche ein Bild bewegt musst du auch Flip da rein machen (empfehle ich aber nicht). Ansonsten wird zwar das Bild bewegt, nur man sieht es nicht, weil alles nur im BackBuffer gezeichnet wurde. Poste doch mal deinen Code, dann können wir mal sehen.

	tommyglocke	Mo, Feb 12, 2007 12:07 Antworten mit Zitat
AppTitle "MyGame" Graphics 800, 600, 32, 1 SetBuffer BackBuffer() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBALS Global hmbackpic = LoadImage("Data\Backs\HauptmenueBack.bmp") Global hmparticle1 = LoadImage("Data\Backs\HauptmenueParticle1.bmp") Global hmparticle1y% = 0 Global menuevariable% = 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTSCHLEIFE While Not End Cls If menuevariable% = 0 Then EndProg() If menuevariable% = 1 Then HauptMenue() Flip Wend End ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTMENUE() Function HauptMenue() If KeyHit(1) Then menuevariable% = 0 DrawImage hmbackpic, 0, 0 DrawImage hmparticle1, 200, hmparticle1y% Repeat hmparticle1y% = hmparticle1y% + 1 Until hmparticle1y% = 50 End Function ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BEENDEN() Function EndProg() FreeImage hmbackpic FreeImage hmparticle1 Delay 500 End End FunctionCode: [AUSKLAPPEN] [EINKLAPPEN]

tommyglocke

Mo, Feb 12, 2007 12:07
Antworten mit Zitat

AppTitle "MyGame"

Graphics 800, 600, 32, 1
SetBuffer BackBuffer()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBALS

Global hmbackpic = LoadImage("Data\Backs\HauptmenueBack.bmp")
Global hmparticle1 = LoadImage("Data\Backs\HauptmenueParticle1.bmp")
Global hmparticle1y% = 0

Global menuevariable% = 1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTSCHLEIFE

While Not End

Cls

If menuevariable% = 0 Then EndProg()
If menuevariable% = 1 Then HauptMenue()

Flip
Wend
End

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTMENUE()

Function HauptMenue()

If KeyHit(1) Then menuevariable% = 0

DrawImage hmbackpic, 0, 0
DrawImage hmparticle1, 200, hmparticle1y%

Repeat

hmparticle1y% = hmparticle1y% + 1

Until hmparticle1y% = 50

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BEENDEN()

Function EndProg()

FreeImage hmbackpic
FreeImage hmparticle1

Delay 500

End

End FunctionCode: [AUSKLAPPEN]

	hectic Sieger des IS Talentwettbewerb 2006	Mo, Feb 12, 2007 12:19 Antworten mit Zitat
Gut, ich weiß jetzt nicht warum da so viele Sachen so kompliziert waren. Aber ich denke das dies dein Ziel zu sein schien. Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle "MyGame" Graphics 800, 600, 32, 1 SetBuffer BackBuffer() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBALS Global hmbackpic = LoadImage("data\tex\201.png") Global hmparticle1 = LoadImage("data\tex\202.png") Global hmparticle1y% = 0 Global menuevariable% = 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTSCHLEIFE While Not KeyHit(1) Cls If menuevariable% = 0 Then End If menuevariable% = 1 Then DrawImage hmbackpic, 0, 0 DrawImage hmparticle1, 200, hmparticle1y% hmparticle1y% = hmparticle1y% + 1 End If Flip Wend End ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTMENUE() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BEENDEN() Falls du denoch deine alte Strucktur haben willst (bin garnicht klar gekommen damit), so hast du kein Flip in der Funktion wo deine Bilder gezeichnet werden innerhalb der Schleife.

hectic

Sieger des IS Talentwettbewerb 2006

Mo, Feb 12, 2007 12:19
Antworten mit Zitat

Gut, ich weiß jetzt nicht warum da so viele Sachen so kompliziert waren. Aber ich denke das dies dein Ziel zu sein schien.

Code: [AUSKLAPPEN]

AppTitle "MyGame"

Graphics 800, 600, 32, 1
SetBuffer BackBuffer()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBALS

Global hmbackpic = LoadImage("data\tex\201.png")
Global hmparticle1 = LoadImage("data\tex\202.png")
Global hmparticle1y% = 0

Global menuevariable% = 1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTSCHLEIFE

While Not KeyHit(1)
Cls
If menuevariable% = 0 Then End

If menuevariable% = 1 Then
DrawImage hmbackpic, 0, 0
DrawImage hmparticle1, 200, hmparticle1y%
hmparticle1y% = hmparticle1y% + 1
End If
Flip
Wend
End

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTMENUE()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BEENDEN()

Falls du denoch deine alte Strucktur haben willst (bin garnicht klar gekommen damit), so hast du kein Flip in der Funktion wo deine Bilder gezeichnet werden innerhalb der Schleife.

	tommyglocke	Mo, Feb 12, 2007 12:26 Antworten mit Zitat
ok Danke aber das soll in einer function ablaufen aust du da auch was für mich ?

tommyglocke

Mo, Feb 12, 2007 12:26
Antworten mit Zitat

ok Danke aber das soll in einer function ablaufen aust du da auch was für mich ?

	hectic Sieger des IS Talentwettbewerb 2006	Mo, Feb 12, 2007 12:33 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle "MyGame" Graphics 800, 600, 32, 1 SetBuffer BackBuffer() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBALS Global hmbackpic = LoadImage("data\tex\201.png") Global hmparticle1 = LoadImage("data\tex\202.png") Global hmparticle1y% = 0 Global menuevariable% = 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTSCHLEIFE While Not KeyHit(1) If menuevariable% = 1 Then HauptMenue() Flip Cls Wend End ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HAUPTMENUE() Function HauptMenue() DrawImage hmbackpic, 0, 0 DrawImage hmparticle1, 200, hmparticle1y% hmparticle1y% = hmparticle1y% + 1 End Function

hectic

Sieger des IS Talentwettbewerb 2006

Mo, Feb 12, 2007 12:33
Antworten mit Zitat

Code: [AUSKLAPPEN]

	tommyglocke	Mo, Feb 12, 2007 12:36 Antworten mit Zitat
Klasse Danke Jetzt Gehts bei mir auch !

tommyglocke

Mo, Feb 12, 2007 12:36
Antworten mit Zitat

Klasse Danke Jetzt Gehts bei mir auch !

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Wie kann ich Schleifen in einer Function ausführen

Betreff: Wie kann ich Schleifen in einer Function ausführen