Steuerung eines Bildes

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	Mansoor Betreff: Steuerung eines Bildes	Sa, Apr 03, 2004 17:09 Antworten mit Zitat
Kann jemand mir erklären wie ich eine Bilddatei mit der Tastertur bewege? Ich komme damit nicht so klar !!! Das ist ein Beispiel, was net funktioniert: Code: [AUSKLAPPEN] [EINKLAPPEN] ; Level 1 Graphics 800, 600,2,2 SetBuffer BackBuffer() hintergrund = LoadImage ("data\hintergrundbild.png") bauer = LoadImage ("data\bauer.png") X=300 Y=570 Repeat ; Verarbeiten von geladenen Daten H = H + 1 If H=200 Then H=0 TileBlock hintergrund,0,H DrawImage bauer,X,Y Flip Until (1) ; Steuerung des Bauer If KeyDown (200) = 1 Then Y = Y - 1 If KeyDown (208) = 1 Then Y = Y + 1 If KeyDown (205) = 1 Then X = X + 2 If KeyDown (203) = 1 Then X = X - 2 ; Schrängt die Spielfigur Bewegung ein If X < 0 Then X= 0 If X > 790 Then X = 790 If Y < 0 Then Y = 0 If Y > 590 Then Y = 590 WaitMouse Danke!

Mansoor

Betreff: Steuerung eines Bildes

Sa, Apr 03, 2004 17:09
Antworten mit Zitat

Kann jemand mir erklären wie ich eine Bilddatei mit der Tastertur bewege? Ich komme damit nicht so klar Crying or Very sad

!!!

Das ist ein Beispiel, was net funktioniert:
Code: [AUSKLAPPEN]

; Level 1
Graphics 800, 600,2,2
SetBuffer BackBuffer()
hintergrund = LoadImage ("data\hintergrundbild.png")
bauer = LoadImage ("data\bauer.png")
X=300
Y=570

Repeat

; Verarbeiten von geladenen Daten
H = H + 1
If H=200 Then H=0
TileBlock hintergrund,0,H
DrawImage bauer,X,Y
Flip
Until (1)

; Steuerung des Bauer
If KeyDown (200) = 1 Then Y = Y - 1
If KeyDown (208) = 1 Then Y = Y + 1
If KeyDown (205) = 1 Then X = X + 2
If KeyDown (203) = 1 Then X = X - 2

; Schrängt die Spielfigur Bewegung ein
If X < 0 Then X= 0
If X > 790 Then X = 790
If Y < 0 Then Y = 0
If Y > 590 Then Y = 590

WaitMouse

Danke!

	x.Force	Sa, Apr 03, 2004 17:11 Antworten mit Zitat
Du hast UNTIL vergessen und was soll das waitmouse?
AMD Athlon XP 2000+ \| 1024mb DDR-Ram \| Asus Radeon 9600XT \| BENQ FP757 17°Zoll TFT Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

x.Force

Sa, Apr 03, 2004 17:11
Antworten mit Zitat

Du hast UNTIL vergessen und was soll das waitmouse?

AMD Athlon XP 2000+ | 1024mb DDR-Ram | Asus Radeon 9600XT | BENQ FP757 17°Zoll TFT

Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

	Blitzkrieg Bop	Sa, Apr 03, 2004 17:11 Antworten mit Zitat
grm
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Sa, Apr 03, 2004 17:11
Antworten mit Zitat

grm

~ Hey Ho Let's Go ~

	Mansoor	Sa, Apr 03, 2004 17:15 Antworten mit Zitat
Ich danke dir !!! Bin ich blöd

Mansoor

Sa, Apr 03, 2004 17:15
Antworten mit Zitat

Ich danke dir Wink

!!! Bin ich blöd

	ChrisAttack	Sa, Apr 03, 2004 20:11 Antworten mit Zitat
Es liegt nicht daran das er until vergessen hat, die Steuerung muss in die Hauptschleife, also vor Until!!! Und was soll eigentlich Until (1)??? Meintest du vielleicht Until Keyhit(1), also bis Esc gedrückt wird?
B3D MSVC++ DX9SDK

ChrisAttack

Sa, Apr 03, 2004 20:11
Antworten mit Zitat

Es liegt nicht daran das er until vergessen hat, die Steuerung muss in die Hauptschleife, also vor Until!!!

Und was soll eigentlich Until (1)??? Meintest du vielleicht Until Keyhit(1), also bis Esc gedrückt wird?

Very Happy

B3D
MSVC++
DX9SDK

	Mr.Keks	Sa, Apr 03, 2004 20:26 Antworten mit Zitat
Until(1) ist wohl zur verschönerung bewirkt ja im prinzip nichts
MrKeks.net

Mr.Keks

Sa, Apr 03, 2004 20:26
Antworten mit Zitat

Until(1) ist wohl zur verschönerung Wink

bewirkt ja im prinzip nichts Smile

MrKeks.net

	x.Force	Sa, Apr 03, 2004 21:03 Antworten mit Zitat
oh das until hab ich wohl vorhin übersehen
AMD Athlon XP 2000+ \| 1024mb DDR-Ram \| Asus Radeon 9600XT \| BENQ FP757 17°Zoll TFT Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

x.Force

Sa, Apr 03, 2004 21:03
Antworten mit Zitat

oh das until hab ich wohl vorhin übersehen

AMD Athlon XP 2000+ | 1024mb DDR-Ram | Asus Radeon 9600XT | BENQ FP757 17°Zoll TFT

Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

	Unplugged	Sa, Apr 03, 2004 23:20 Antworten mit Zitat
Das Waitmouse benutze ich auch, denn der Bauer wird ja mit der Tastutur bewegt!
User posted image

Unplugged

Sa, Apr 03, 2004 23:20
Antworten mit Zitat

Das Waitmouse benutze ich auch, denn der Bauer wird ja mit der Tastutur bewegt!

User posted image

	Unplugged	Sa, Apr 03, 2004 23:25 Antworten mit Zitat
Trotzdem, ich würd auch ma gern wissen, warum der Code net funzt!
User posted image

Unplugged

Sa, Apr 03, 2004 23:25
Antworten mit Zitat

Trotzdem, ich würd auch ma gern wissen, warum der Code net funzt!

User posted image

	Jolinah	Sa, Apr 03, 2004 23:29 Antworten mit Zitat
Wegen Waitmouse: Braucht es nicht wenn das Programm in ner Schleife läuft. Meistens bricht man die Schleife ja ab wenn man ESC drückt. Wenn du die Schleife mit der Maus abbrechen willst macht man halt Repeat Until MouseDown(1) Denke so sollte es funktionieren (nicht getestet): Code: [AUSKLAPPEN] [EINKLAPPEN] ; Level 1 Graphics 800, 600,0,2 SetBuffer BackBuffer() hintergrund = LoadImage ("data\hintergrundbild.png") bauer = LoadImage ("data\bauer.png") X=300 Y=570 Repeat Cls ; Verarbeiten von geladenen Daten H = H + 1 If H=200 Then H=0 TileBlock hintergrund,0,H DrawImage bauer,X,Y ; Steuerung des Bauer If KeyDown (200) = 1 Then Y = Y - 1 If KeyDown (208) = 1 Then Y = Y + 1 If KeyDown (205) = 1 Then X = X + 2 If KeyDown (203) = 1 Then X = X - 2 ; Schrängt die Spielfigur Bewegung ein If X < 0 Then X= 0 If X > 790 Then X = 790 If Y < 0 Then Y = 0 If Y > 590 Then Y = 590 Flip Until Keyhit(1) End

Jolinah

Sa, Apr 03, 2004 23:29
Antworten mit Zitat

Wegen Waitmouse:

Braucht es nicht wenn das Programm in ner Schleife läuft.
Meistens bricht man die Schleife ja ab wenn man ESC drückt. Wenn du die Schleife mit der Maus abbrechen willst macht man halt Repeat Until MouseDown(1)

Denke so sollte es funktionieren (nicht getestet):
Code: [AUSKLAPPEN]

; Level 1
Graphics 800, 600,0,2
SetBuffer BackBuffer()
hintergrund = LoadImage ("data\hintergrundbild.png")
bauer = LoadImage ("data\bauer.png")
X=300
Y=570

Repeat
Cls

; Verarbeiten von geladenen Daten
H = H + 1
If H=200 Then H=0
TileBlock hintergrund,0,H
DrawImage bauer,X,Y

; Steuerung des Bauer
If KeyDown (200) = 1 Then Y = Y - 1
If KeyDown (208) = 1 Then Y = Y + 1
If KeyDown (205) = 1 Then X = X + 2
If KeyDown (203) = 1 Then X = X - 2

; Schrängt die Spielfigur Bewegung ein
If X < 0 Then X= 0
If X > 790 Then X = 790
If Y < 0 Then Y = 0
If Y > 590 Then Y = 590

Flip
Until Keyhit(1)

End

	Unplugged	Sa, Apr 03, 2004 23:39 Antworten mit Zitat
bei mir kommt image does not exist! seltsam, der code stimmt doch!
User posted image

Unplugged

Sa, Apr 03, 2004 23:39
Antworten mit Zitat

bei mir kommt image does not exist! seltsam, der code stimmt doch!

User posted image

	Travis	Sa, Apr 03, 2004 23:41 Antworten mit Zitat
@ Unplugged Zitat: Das Waitmouse benutze ich auch, denn der Bauer wird ja mit der Tastutur bewegt! Bitte was? Weil du eine Tastatursteuerung hast, benutzt du WaitMouse. Nun gut, ok. EDIT: Dann wird das Image wohl nicht vorhanden sein, oder der Code wurde nicht gespeichert, oder der Dateiname wurde falsch angegeben.
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

Sa, Apr 03, 2004 23:41
Antworten mit Zitat

@ Unplugged
Zitat:

Das Waitmouse benutze ich auch, denn der Bauer wird ja mit der Tastutur bewegt!

Bitte was? Weil du eine Tastatursteuerung hast, benutzt du WaitMouse. Nun gut, ok.

EDIT: Dann wird das Image wohl nicht vorhanden sein, oder der Code wurde nicht gespeichert, oder der Dateiname wurde falsch angegeben.

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

	Unplugged	Sa, Apr 03, 2004 23:49 Antworten mit Zitat
Wollen wir etwa, dass der hintergrund sich bewegt? Code: [AUSKLAPPEN] [EINKLAPPEN] ; Level 1 Graphics 800, 600,0,2 SetBuffer BackBuffer() hintergrund% = LoadImage ("hintergrund.bmp") bauer = LoadImage ("tierle.bmp") X=300 Y=570 Repeat Cls ; Verarbeiten von geladenen Daten H = H + 0 If H=200 Then H=200 TileBlock hintergrund ,0 ,H DrawImage bauer , X,Y ; Steuerung des Bauer If KeyDown (200) = 1 Then Y = Y - 1 If KeyDown (208) = 1 Then Y = Y + 1 If KeyDown (205) = 1 Then X = X + 2 If KeyDown (203) = 1 Then X = X - 2 ; Schrängt die Spielfigur Bewegung ein If X < 0 Then X= 0 If X > 790 Then X = 790 If Y < 0 Then Y = 0 If Y > 590 Then Y = 590 Flip Until KeyHit(1) End
User posted image

Unplugged

Sa, Apr 03, 2004 23:49
Antworten mit Zitat

Wollen wir etwa, dass der hintergrund sich bewegt?
Code: [AUSKLAPPEN]

; Level 1
Graphics 800, 600,0,2
SetBuffer BackBuffer()
hintergrund% = LoadImage ("hintergrund.bmp")
bauer = LoadImage ("tierle.bmp")
X=300
Y=570

Repeat
Cls

; Verarbeiten von geladenen Daten
H = H + 0
If H=200 Then H=200
TileBlock hintergrund ,0 ,H
DrawImage bauer , X,Y

; Steuerung des Bauer
If KeyDown (200) = 1 Then Y = Y - 1
If KeyDown (208) = 1 Then Y = Y + 1
If KeyDown (205) = 1 Then X = X + 2
If KeyDown (203) = 1 Then X = X - 2

; Schrängt die Spielfigur Bewegung ein
If X < 0 Then X= 0
If X > 790 Then X = 790
If Y < 0 Then Y = 0
If Y > 590 Then Y = 590

Flip
Until KeyHit(1)

End

User posted image

	Jolinah	Sa, Apr 03, 2004 23:52 Antworten mit Zitat
Er meinte das mit WaitMouse wohl eher so: Falls man hier die links taste drücken würde wäre WaitKey erfüllt. Ok, gibt noch Flushkeys befehl. Code: [AUSKLAPPEN] [EINKLAPPEN] If keyhit(203) then x = x + 1 WaitKey() In diesem Fall jedoch kann man alle möglichen Tasten drücken, erst mit der Maus gehts weiter. Code: [AUSKLAPPEN] [EINKLAPPEN] If keyhit(203) then x = x + 1 WaitMouse() Aber trotzdem.. in ner Schleife ist sowas ja nie der Fall weil WaitMouse und WaitKey den Programmablauf unterbrechen würde bis die Maus oder eine Taste gedrückt wurde. Da benutzt man immer KeyHit, Keydown, getkey usw..

Jolinah

Sa, Apr 03, 2004 23:52
Antworten mit Zitat

Er meinte das mit WaitMouse wohl eher so:

Falls man hier die links taste drücken würde wäre WaitKey erfüllt. Ok, gibt noch Flushkeys befehl.

Code: [AUSKLAPPEN]

If keyhit(203) then x = x + 1

WaitKey()

In diesem Fall jedoch kann man alle möglichen Tasten drücken, erst mit der Maus gehts weiter.

Code: [AUSKLAPPEN]

If keyhit(203) then x = x + 1

WaitMouse()

Aber trotzdem.. in ner Schleife ist sowas ja nie der Fall weil WaitMouse und WaitKey den Programmablauf unterbrechen würde bis die Maus oder eine Taste gedrückt wurde. Da benutzt man immer KeyHit, Keydown, getkey usw..

	Mansoor	Sa, Apr 03, 2004 23:54 Antworten mit Zitat
Leute habe das schon hinbekommen, ich danke euch, das ihr mir geholfen habt!!! Link zum gamedownload: http://mitglied.lycos.de/musik...killer.exe oder http://mitglied.lycos.de/musikserver1/ PS: Das Game is mein erstes Game, was ich Programmiert habe, also net lachen.

Mansoor

Sa, Apr 03, 2004 23:54
Antworten mit Zitat

Leute habe das schon hinbekommen, ich danke euch, das ihr mir geholfen habt!!!

Link zum gamedownload:
http://mitglied.lycos.de/musik...killer.exe
oder
http://mitglied.lycos.de/musikserver1/

PS: Das Game is mein erstes Game, was ich Programmiert habe, also net lachen.

	Unplugged	So, Apr 04, 2004 0:15 Antworten mit Zitat
If Spiel würde funzen Then Ich könnte lachen aber das Spiel funz nicht, schade.
User posted image

Unplugged

So, Apr 04, 2004 0:15
Antworten mit Zitat

If Spiel würde funzen Then Ich könnte lachen
aber das Spiel funz nicht, schade.

User posted image

	Mansoor	So, Apr 04, 2004 0:24 Antworten mit Zitat
If Spiel= Nicht Finktionieren Then Print " Wieso fubnktioniert das net, bei mir und bei meinen Freund läuft das! und bei meinen anderen Freund läuft das auch net"

Mansoor

So, Apr 04, 2004 0:24
Antworten mit Zitat

If Spiel= Nicht Finktionieren Then Print " Wieso fubnktioniert das net, bei mir und bei meinen Freund läuft das! und bei meinen anderen Freund läuft das auch net"

Crying or Very sad

	Unplugged	So, Apr 04, 2004 0:35 Antworten mit Zitat
fnt=LoadFont("Arial",10000000000,True,True,True) SetFont fnt Text 100,100, "WARUM MUSS IMMER BEI MIR ALLES NICHT KLAPPEN UND SCHIEF GEHEN" Bildschirmexplodier
User posted image

Unplugged

So, Apr 04, 2004 0:35
Antworten mit Zitat

fnt=LoadFont("Arial",10000000000,True,True,True)
SetFont fnt
Text 100,100, "WARUM MUSS IMMER BEI MIR ALLES NICHT KLAPPEN UND SCHIEF GEHEN"
*Bildschirmexplodier*

User posted image

	soli	So, Apr 04, 2004 4:40 Antworten mit Zitat
Wo sind die Vögel? Die Hintergrundfarbe vom Bauern solltest du Transparent machen. Und warum kann man den Bauern über den ganzen Bildschirm bewegen? soli
solitaire

soli

So, Apr 04, 2004 4:40
Antworten mit Zitat

Wo sind die Vögel?

Die Hintergrundfarbe vom Bauern solltest du Transparent machen.
Und warum kann man den Bauern über den ganzen Bildschirm bewegen?

soli

solitaire

	Mansoor	So, Apr 04, 2004 10:00 Antworten mit Zitat
Ist ja auch nicht fertig , das Spiel ! Das sollte nur zur Steuerung dienen, als beispiel.

Mansoor

So, Apr 04, 2004 10:00
Antworten mit Zitat

Ist ja auch nicht fertig Wink

, das Spiel ! Das sollte nur zur Steuerung dienen, als beispiel.

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Steuerung eines Bildes

Betreff: Steuerung eines Bildes