Steruerung funtzt net

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite 1, 2 Weiter

	Blitzard Betreff: Steruerung funtzt net	Mo, Jul 04, 2005 16:45 Antworten mit Zitat
Hi ich hab mal wieder ein kleines Problem. Ich versteh einfach net warunm diese steuerung net funktioniert BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1280, 1024 For zaehler = 1 To 2000 x = Rnd(0, 1280) y = Rnd(0, 1024) Plot x, y Next Bild = LoadImage (\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\") DrawImage Bild , x, y If KeyDown(203) Then X=X-2 If KeyDown(205) Then X=X+2 Repeat Until KeyHit(1)

Blitzard

Betreff: Steruerung funtzt net

Mo, Jul 04, 2005 16:45
Antworten mit Zitat

Hi ich hab mal wieder ein kleines Problem.

Ich versteh einfach net warunm diese steuerung net funktioniert
BlitzBasic: [AUSKLAPPEN]


 Graphics 1280, 1024

For zaehler = 1 To 2000

x = Rnd(0, 1280)
y = Rnd(0, 1024)

Plot x, y



Next
 



Bild = LoadImage (\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\")
DrawImage Bild , x, y

If KeyDown(203) Then X=X-2 



If KeyDown(205) Then X=X+2






 

Repeat




Until KeyHit(1)

	konstantin	Mo, Jul 04, 2005 16:53 Antworten mit Zitat
du musst die tastatur innerhalb der schleife abfragen, und vermutlich das bild auch, wenn du willst, das es sich bewegt. aber mal ehrlich: so ist der code sondermuell... ich vermute mal, du willst sowas haben? (siehe weiter unten)

konstantin

Mo, Jul 04, 2005 16:53
Antworten mit Zitat

du musst die tastatur innerhalb der schleife abfragen, und vermutlich das bild auch, wenn du willst, das es sich bewegt.

aber mal ehrlich: so ist der code sondermuell...

ich vermute mal, du willst sowas haben? (siehe weiter unten)

Zuletzt bearbeitet von konstantin am Mo, Jul 04, 2005 17:48, insgesamt 4-mal bearbeitet

	Michi	Mo, Jul 04, 2005 16:54 Antworten mit Zitat
du musst die Tastenabfragen und das malen des Bildes in die Schleife packen. [Edit] war mal wieder einer schneller [/Edit]
Aber..Wozu soll er gut sein??? IBM-Ingeneur über die Idee des Mikroprozessors, 1968 Code: [AUSKLAPPEN] [EINKLAPPEN] __ <_/__\_> <--- die Wayne-Zeichnung

Michi

Mo, Jul 04, 2005 16:54
Antworten mit Zitat

du musst die Tastenabfragen und das malen des Bildes in die Schleife packen.

[Edit] war mal wieder einer schneller [/Edit]

Aber..Wozu soll er gut sein???
IBM-Ingeneur über die Idee des Mikroprozessors, 1968
Code: [AUSKLAPPEN]

__
<_/__\_> <--- die Wayne-Zeichnung

	Blitzard	Mo, Jul 04, 2005 16:57 Antworten mit Zitat
Könntest du villeicht meinen Text so abändern des es funtzt denn irgendwie krieg ich des net hin

Blitzard

Mo, Jul 04, 2005 16:57
Antworten mit Zitat

Könntest du villeicht meinen Text so abändern des es funtzt denn irgendwie krieg ich des net hin

	Michi	Mo, Jul 04, 2005 16:59 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1280, 1024 SetBuffer BackBuffer() For zaehler = 1 To 2000 x = Rnd(0, 1280) y = Rnd(0, 1024) Plot x, y Next Bild = LoadImage (\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\") Repeat DrawImage Bild , x, y If KeyDown(203) Then X=X-2 If KeyDown(205) Then X=X+2 Flip Until KeyHit(1) Ich sollte dich aber darauf verweisen, das du beim Code-abschreiben nichts lernst... Nebenbei habe ich noch Doublebuffering eingebaut (siehe OH)
Aber..Wozu soll er gut sein??? IBM-Ingeneur über die Idee des Mikroprozessors, 1968 Code: [AUSKLAPPEN] [EINKLAPPEN] __ <_/__\_> <--- die Wayne-Zeichnung

Michi

Mo, Jul 04, 2005 16:59
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]


 Graphics 1280, 1024
SetBuffer BackBuffer()

For zaehler = 1 To 2000

x = Rnd(0, 1280)
y = Rnd(0, 1024)

Plot x, y



Next
 



Bild = LoadImage (\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\")

Repeat

DrawImage Bild , x, y

If KeyDown(203) Then X=X-2
If KeyDown(205) Then X=X+2


Flip
Until KeyHit(1)

Ich sollte dich aber darauf verweisen, das du beim Code-abschreiben nichts lernst...

Nebenbei habe ich noch Doublebuffering eingebaut (siehe OH)

Aber..Wozu soll er gut sein???
IBM-Ingeneur über die Idee des Mikroprozessors, 1968
Code: [AUSKLAPPEN]

__
<_/__\_> <--- die Wayne-Zeichnung

	konstantin	Mo, Jul 04, 2005 17:04 Antworten mit Zitat
michi: dein code wird eine haessliche spur des bildes hinterlassen ich habs oben ja schon draneditiert... BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] AppTitle(\"pwnage.\") Graphics(1280, 1024) SetBuffer(BackBuffer()) Type tPlot Field x Field y End Type CreatePlots() Type tPlayer Field image Field x Field y End Type Global player.tPlayer = New tPlayer player\image = LoadImage(\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\") player\x = GraphicsWidth() / 2 - ImageWidth(player\image) / 2 player\y = GraphicsHeight() - ImageHeight(player\image) - 20 Repeat Cls If(KeyDown(203)) Then player\x = player\x - 2 If(KeyDown(205)) Then player\x = player\x + 2 For myplot.tPlot = Each tplot Plot myplot\x, myplot\y Next DrawImage(player\image, player\x, player\y) Flip Until(KeyHit(1)) Function CreatePlots() For i = 0 To 200 myplot.tPlot = New tPlot myplot\x = Rand(GraphicsWidth()) myplot\y = Rand(GraphicsHeight()) Next End Function

konstantin

Mo, Jul 04, 2005 17:04
Antworten mit Zitat

michi: dein code wird eine haessliche spur des bildes hinterlassen Smile

ich habs oben ja schon draneditiert...

BlitzBasic: [AUSKLAPPEN]

AppTitle(\"pwnage.\")
Graphics(1280, 1024)
SetBuffer(BackBuffer())

Type tPlot
 Field x
 Field y
End Type

 CreatePlots()

Type tPlayer
 Field image
 Field x
 Field y
End Type

 Global player.tPlayer = New tPlayer
 player\image = LoadImage(\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\")
 player\x = GraphicsWidth() / 2 - ImageWidth(player\image) / 2
 player\y = GraphicsHeight() - ImageHeight(player\image) - 20

Repeat
 Cls
 If(KeyDown(203)) Then player\x = player\x - 2
 If(KeyDown(205)) Then player\x = player\x + 2
 For myplot.tPlot = Each tplot
  Plot myplot\x, myplot\y
 Next
 DrawImage(player\image, player\x, player\y)
 Flip
Until(KeyHit(1))

Function CreatePlots()
 For i = 0 To 200
  myplot.tPlot = New tPlot
  myplot\x = Rand(GraphicsWidth())
  myplot\y = Rand(GraphicsHeight())
 Next
End Function

Zuletzt bearbeitet von konstantin am Mo, Jul 04, 2005 18:49, insgesamt einmal bearbeitet

	Artemis	Mo, Jul 04, 2005 17:26 Antworten mit Zitat
@Alu Also willst du ihn vergraulen?? An seinem Code sieht man, dass er Anfänger ist. Und da kommst du ihm direckt mit Types??

Artemis

Mo, Jul 04, 2005 17:26
Antworten mit Zitat

@Alu

Also willst du ihn vergraulen??

An seinem Code sieht man, dass er Anfänger ist.
Und da kommst du ihm direckt mit Types??

	Jack	Mo, Jul 04, 2005 17:28 Antworten mit Zitat
Stimmt, Types sind wirklich nur was für richtige Profis.
Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

Jack

Mo, Jul 04, 2005 17:28
Antworten mit Zitat

Stimmt, Types sind wirklich nur was für richtige Profis.

Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

	Surat	Mo, Jul 04, 2005 17:36 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Repeat Until KeyHit(1) Ne Hauptschleife ohne Inhalt? Wo hast du das gelernt?
"DER GRÖßTE FEIND IST IN DEN EIGENEN REIHEN" (Trygonia-Xen's Quest) AZUON-Beyond the dark life (2%) SOULS OF DESTINY (23%)

Surat

Mo, Jul 04, 2005 17:36
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]


Repeat


Until KeyHit(1)

Ne Hauptschleife ohne Inhalt? Wo hast du das gelernt?

"DER GRÖßTE FEIND IST IN DEN EIGENEN REIHEN" (Trygonia-Xen's Quest)

AZUON-Beyond the dark life (2%)
SOULS OF DESTINY (23%)

	Artemis	Mo, Jul 04, 2005 17:47 Antworten mit Zitat
@Surat ich denke alles wurde gesagt!

Artemis

Mo, Jul 04, 2005 17:47
Antworten mit Zitat

@Surat ich denke alles wurde gesagt!

	konstantin	Mo, Jul 04, 2005 17:47 Antworten mit Zitat
JonasCleve hat Folgendes geschrieben: @Alu Also willst du ihn vergraulen?? An seinem Code sieht man, dass er Anfänger ist. Und da kommst du ihm direckt mit Types?? und? er kann auf die befehle klicken, und schon bekommt er eine ausfuehrliche beschreibung. was will er mehr? ich werd nen teufel tun ihn mit schlechtem code zu unterstuetzen.

konstantin

Mo, Jul 04, 2005 17:47
Antworten mit Zitat

JonasCleve hat Folgendes geschrieben:

@Alu

Also willst du ihn vergraulen??

An seinem Code sieht man, dass er Anfänger ist.
Und da kommst du ihm direckt mit Types??

und? er kann auf die befehle klicken, und schon bekommt er eine ausfuehrliche beschreibung. was will er mehr?
ich werd nen teufel tun ihn mit schlechtem code zu unterstuetzen.

	BladeRunner Moderator	Mo, Jul 04, 2005 18:38 Antworten mit Zitat
um ein bild in einer schleife zu bewegen braucht man gott bewahre keine types. Und es ist sicher kein schlechter code wenn man es ihm einfach erklärt.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Jul 04, 2005 18:38
Antworten mit Zitat

um ein bild in einer schleife zu bewegen braucht man gott bewahre keine types. Und es ist sicher kein schlechter code wenn man es ihm einfach erklärt.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	konstantin	Mo, Jul 04, 2005 18:45 Antworten mit Zitat
bladerunner: arrays sind nicht meine art, und ich sehe es nicht ein, dass ich einen haufen variablen in den raum werfe. ich habe player\x lieber als player_position_x.

konstantin

Mo, Jul 04, 2005 18:45
Antworten mit Zitat

bladerunner: arrays sind nicht meine art, und ich sehe es nicht ein, dass ich einen haufen variablen in den raum werfe. ich habe player\x lieber als player_position_x.

	BladeRunner Moderator	Mo, Jul 04, 2005 18:47 Antworten mit Zitat
es geht um ein Beispiel mit 3 Variablen. Aber genug des offtopics.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Jul 04, 2005 18:47
Antworten mit Zitat

es geht um ein Beispiel mit 3 Variablen. Aber genug des offtopics.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	azureuz	Mo, Jul 04, 2005 21:00 Antworten mit Zitat
frage: wo ist das "end if"?
...am 11. September 2001 starben 30.000 Kinder weil sie kein Essen hatten...

azureuz

Mo, Jul 04, 2005 21:00
Antworten mit Zitat

frage: wo ist das "end if"?

...am 11. September 2001 starben 30.000 Kinder weil sie kein Essen hatten...

	konstantin	Mo, Jul 04, 2005 21:31 Antworten mit Zitat
azureuz: Wenn man bei erfuellter Bedingung nur eine Anweisung hat, braucht man kein EndIf, also: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If(KeyDown(200)) Print(\"hallo welt.\") EndIf ist das selbe wie BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If(KeyDown(200)) Print(\"hallo welt.\")

konstantin

Mo, Jul 04, 2005 21:31
Antworten mit Zitat

azureuz: Wenn man bei erfuellter Bedingung nur eine Anweisung hat, braucht man kein EndIf, also:

BlitzBasic: [AUSKLAPPEN]

If(KeyDown(200))
 Print(\"hallo welt.\")
EndIf

ist das selbe wie
BlitzBasic: [AUSKLAPPEN]

If(KeyDown(200)) Print(\"hallo welt.\")

	Blitzard	Di, Jul 05, 2005 14:55 Antworten mit Zitat
Danke für eure Hilfe aber irgendwie blick ich durch den code von Alu net so wirklich und JonasCleve hatte recht ich bin wirklich noch ein Ziemlicher anfänger also wenn geht könnte villeicht noch mal jemand einen verständlichen code hier reinschreiben Danke schon mal im Voraus

Blitzard

Di, Jul 05, 2005 14:55
Antworten mit Zitat

Danke für eure Hilfe aber irgendwie blick ich durch den code von Alu net so wirklich und JonasCleve hatte recht ich bin wirklich noch ein Ziemlicher anfänger also wenn geht könnte villeicht noch mal jemand einen verständlichen code hier reinschreiben Danke schon mal im Voraus

	flexo	Di, Jul 05, 2005 15:20 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1280, 1024 For zaehler = 1 To 2000 x = Rnd(0, 1280) y = Rnd(0, 1024) Plot x, y Next Bild = LoadImage (\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\") SetBuffer BackBuffer() ;in B+ nichtmehr nötig Repeat Cls DrawImage Bild , x, y If KeyDown(203) Then X=X-2 If KeyDown(200) Then y=y-2 If KeyDown(208) Then y=y+2 If KeyDown(205) Then X=X+2 Flip Until KeyHit(1) mfg... steht aber alles schon oben was ich gepostet habe, und so schwer ist's nun auch wieder nicht
Du bist eizigartig - genau wie jeder andere auch.

flexo

Di, Jul 05, 2005 15:20
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]


Graphics 1280, 1024 

For zaehler = 1 To 2000 

x = Rnd(0, 1280) 
y = Rnd(0, 1024) 

Plot x, y 

Next 
  
Bild = LoadImage (\"C:\Dokumente und Einstellungen\Markus\Desktop\Playership.png\") 

SetBuffer BackBuffer() ;in B+ nichtmehr nötig

Repeat 

Cls

DrawImage Bild , x, y 

If KeyDown(203) Then X=X-2 

If KeyDown(200) Then y=y-2

If KeyDown(208) Then y=y+2

If KeyDown(205) Then X=X+2 

Flip

Until KeyHit(1)

mfg...
steht aber alles schon oben was ich gepostet habe, und so schwer ist's nun auch wieder nicht Wink

Du bist eizigartig - genau wie jeder andere auch.

	Mo	Di, Jul 05, 2005 18:07 Antworten mit Zitat
Das blöde is nur das mit dem Plot mal gar nix geht... keine Sternchen die funkeln... und wenn du Plot in die Schleife bringst gibts ne Staubexplosion.
500 Euro Studiengebühren... ich glaub ich zieh in den Wald!!! Eine Floßfahrt die ist lustig... sing

Mo

Di, Jul 05, 2005 18:07
Antworten mit Zitat

Das blöde is nur das mit dem Plot mal gar nix geht... keine Sternchen die funkeln... und wenn du Plot in die Schleife bringst gibts ne Staubexplosion.

500 Euro Studiengebühren... ich glaub ich zieh in den Wald!!!

Eine Floßfahrt die ist lustig... *sing* Wink

	Jack	Di, Jul 05, 2005 18:13 Antworten mit Zitat
...nicht wenn du es erst wieder löschst
Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

Jack

Di, Jul 05, 2005 18:13
Antworten mit Zitat

...nicht wenn du es erst wieder löschst Laughing

Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Steruerung funtzt net

Betreff: Steruerung funtzt net