Hilfe bitte

Übersicht

BlitzBasic

Beginners-Corner

	mabox Betreff: Hilfe bitte	Mi, Dez 06, 2006 19:49 Antworten mit Zitat
Hi ich bin gerade dabei ein Game zu programmieren und komm nicht weiter. die sache so: Ich will dass unterschiedlich viele Bilder mit unterschiedlicher geschwindigkeit an unterschiedlichen stellen runter fallen. kann mir jemand helfen

mabox

Betreff: Hilfe bitte

Mi, Dez 06, 2006 19:49
Antworten mit Zitat

Hi
ich bin gerade dabei ein Game zu programmieren und komm nicht weiter.
die sache so: Ich will dass unterschiedlich viele Bilder mit unterschiedlicher geschwindigkeit an unterschiedlichen stellen runter fallen.
kann mir jemand helfen

	PowerProgrammer	Mi, Dez 06, 2006 19:51 Antworten mit Zitat
Was hast du denn bis jetzt für einen Code?
www.xairro.com Alles für Webmaster und Programmierer! Es gibt mehr als bloß einen Counter!

PowerProgrammer

Mi, Dez 06, 2006 19:51
Antworten mit Zitat

Was hast du denn bis jetzt für einen Code?

www.xairro.com Alles für Webmaster und Programmierer! Es gibt mehr als bloß einen Counter!

	Lion	Mi, Dez 06, 2006 19:52 Antworten mit Zitat
Types ? Such mal hier im Forum nach , gabs schon sehr oft...
Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

Lion

Mi, Dez 06, 2006 19:52
Antworten mit Zitat

Types ? Such mal hier im Forum nach , gabs schon sehr oft...

Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb
Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb
AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

	BladeRunner Moderator	Mi, Dez 06, 2006 19:52 Antworten mit Zitat
Genauere Angaben wären echt toll. ~VERSCHOBEN~ Dieser Thread passte nicht in das Forum, in dem er ursprünglich gepostet wurde. EDIT: Und ein passenderer Titel wär auch noch nett.
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

Mi, Dez 06, 2006 19:52
Antworten mit Zitat

Genauere Angaben wären echt toll.

~VERSCHOBEN~
Dieser Thread passte nicht in das Forum, in dem er ursprünglich gepostet wurde.

EDIT: Und ein passenderer Titel wär auch noch nett.

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

Zuletzt bearbeitet von BladeRunner am Mi, Dez 06, 2006 19:53, insgesamt einmal bearbeitet

	mabox Betreff: code	Mi, Dez 06, 2006 19:52 Antworten mit Zitat
der Code sieht so aus: Code: [AUSKLAPPEN] [EINKLAPPEN] graphics 1024,768 SetBuffer BackBuffer() AppTitle "dönerfresser 1.0" start = LoadImage ("start.bmp") DrawImage start, 1,1 qwe = LoadSound("döner,döner,döner.mp3") PlaySound qwe Flip ;muss auf ca 5000 sein Delay 5000 FreeImage start fontno=LoadFont("ziperhead",70) SetFont fontno hintergrund = LoadImage ("hintergrund.bmp") doenerfresser = LoadImage ("dönerfresser.bmp") doener = LoadImage ("döner2.bmp" ) ResizeImage doener,63,49:ResizeImage doener,66.2,51.84 ResizeImage doenerfresser,80,105:ResizeImage doenerfresser,72,94.5 MaskImage doenerfresser, 255, 0, 255 sound1 = LoadSound ("schmatz") doenerfresser_x=477 doenerfresser_y=672 doener_x=Rnd(0,960) doener_y=0 doenererstellen=Rnd(1,10) ;Punkte initialisieren Punkte=0 While Not KeyDown(1) ;beim drücken der rechten Pfeiltaste... If KeyDown(203) ;...doenerfresser nach links bewegen doenerfresser_x=doenerfresser_x-10 ;doenerfresser am Bildschirmende stoppen If doenerfresser_x<0 Then doenerfresser_x=0 EndIf ;beim drücken der rechten Pfeiltaste... If KeyDown(205) ;...doenerfresser nach rechts bewegen doenerfresser_x=doenerfresser_x+10 ;doenerfresser am Bildschirmende stoppen If doenerfresser_x>960 Then doenerfresser_x=960 EndIf ;Geschwindigkeit doener_y=doener_y+Rnd(1,10) ;Wenn Döner und Dönerfresser zusammenstoßen If ImagesCollide( doener,doener_x,doener_y,0,doenerfresser,doenerfresser_x,doenerfresser_y,0 ) ;Punkte erhöhen Punkte=Punkte+10 ;Döner initialisieren doener_y=0 doener_x=Rnd(0,960) EndIf If doener_y=>740 Then doener_y=0 ;Bildschirm löschen Cls ;Döner anzeigen DrawImage doener,doener_x,doener_y DrawImage hintergrund, x=1,y=1 ;Dönerfresser anzeigen DrawImage doenerfresser,doenerfresser_x,doenerfresser_y ;Punkte anzeigen Text 965,2,Punkte,1 Flip Wend EDIT: codetags hinzugefügt BladeRunner

mabox

Betreff: code

Mi, Dez 06, 2006 19:52
Antworten mit Zitat

der Code sieht so aus:

Code: [AUSKLAPPEN]

graphics 1024,768

SetBuffer BackBuffer()

AppTitle "dönerfresser 1.0"

start = LoadImage ("start.bmp")
DrawImage start, 1,1
qwe = LoadSound("döner,döner,döner.mp3")
PlaySound qwe
Flip
;muss auf ca 5000 sein
Delay 5000

FreeImage start

fontno=LoadFont("ziperhead",70)
SetFont fontno

hintergrund = LoadImage ("hintergrund.bmp")
doenerfresser = LoadImage ("dönerfresser.bmp")
doener = LoadImage ("döner2.bmp" )
ResizeImage doener,63,49:ResizeImage doener,66.2,51.84
ResizeImage doenerfresser,80,105:ResizeImage doenerfresser,72,94.5
MaskImage doenerfresser, 255, 0, 255
sound1 = LoadSound ("schmatz")

doenerfresser_x=477
doenerfresser_y=672

doener_x=Rnd(0,960)
doener_y=0
doenererstellen=Rnd(1,10)

;Punkte initialisieren
Punkte=0

While Not KeyDown(1)

;beim drücken der rechten Pfeiltaste...
If KeyDown(203)

   ;...doenerfresser nach links bewegen
   doenerfresser_x=doenerfresser_x-10

   ;doenerfresser am Bildschirmende stoppen
   If doenerfresser_x<0 Then doenerfresser_x=0

EndIf

;beim drücken der rechten Pfeiltaste...
If KeyDown(205)

   ;...doenerfresser nach rechts bewegen
   doenerfresser_x=doenerfresser_x+10

   ;doenerfresser am Bildschirmende stoppen
   If doenerfresser_x>960 Then doenerfresser_x=960

EndIf

   ;Geschwindigkeit
   doener_y=doener_y+Rnd(1,10)

   ;Wenn Döner und Dönerfresser zusammenstoßen
   If ImagesCollide( doener,doener_x,doener_y,0,doenerfresser,doenerfresser_x,doenerfresser_y,0 )

      ;Punkte erhöhen
      Punkte=Punkte+10

      ;Döner initialisieren
      doener_y=0

      doener_x=Rnd(0,960)

EndIf

   If doener_y=>740 Then doener_y=0

;Bildschirm löschen
Cls

;Döner anzeigen
DrawImage doener,doener_x,doener_y

DrawImage hintergrund, x=1,y=1

;Dönerfresser anzeigen
DrawImage doenerfresser,doenerfresser_x,doenerfresser_y

;Punkte anzeigen
Text 965,2,Punkte,1

Flip

Wend

EDIT: codetags hinzugefügt
BladeRunner

	BladeRunner Moderator	Mi, Dez 06, 2006 19:53 Antworten mit Zitat
Und wo wir grade dabei sind: Codetags sind super. Bitte nutzen.
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

Mi, Dez 06, 2006 19:53
Antworten mit Zitat

Und wo wir grade dabei sind:
Codetags sind super. Bitte nutzen.

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

	StepTiger	Mi, Dez 06, 2006 19:55 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] dim rnd(3) rnd(1)=LoadImage("bla1.bmp") rnd(2)=LoadImage("bla2.bmp") rnd(3)=LoadImage("bla3.bmp") type image field image field speed field y end type for x=1 to 10 s.image=New image ran=rnd(2)+1 s\image=CopyImage(rnd(ran)) s\speed=rnd(3,5) next wenn das nicht reicht, kann ich nur sagen: Schau dir die Tutorials an! edit Besser?
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Mi, Dez 06, 2006 19:55
Antworten mit Zitat

Code: [AUSKLAPPEN]

dim rnd(3)
rnd(1)=LoadImage("bla1.bmp")
rnd(2)=LoadImage("bla2.bmp")
rnd(3)=LoadImage("bla3.bmp")

type image
field image
field speed
field y
end type

for x=1 to 10
s.image=New image
ran=rnd(2)+1
s\image=CopyImage(rnd(ran))
s\speed=rnd(3,5)
next

wenn das nicht reicht, kann ich nur sagen:
Schau dir die Tutorials an!

*edit* Besser?

Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

Zuletzt bearbeitet von StepTiger am Mi, Dez 06, 2006 19:58, insgesamt einmal bearbeitet

	mabox Betreff: codetags	Mi, Dez 06, 2006 19:56 Antworten mit Zitat
sorry ich bin neu hier was sind codetags

mabox

Betreff: codetags

Mi, Dez 06, 2006 19:56
Antworten mit Zitat

sorry ich bin neu hier
was sind codetags

	PowerProgrammer	Mi, Dez 06, 2006 19:58 Antworten mit Zitat
Schreib mal: [code]Hallo[/code] dann kommt ein codefeld, da muss der code rein. du kannst deinen beitrag editieren, wenn du sie hinzufügen möchtest.
www.xairro.com Alles für Webmaster und Programmierer! Es gibt mehr als bloß einen Counter!

PowerProgrammer

Mi, Dez 06, 2006 19:58
Antworten mit Zitat

Schreib mal:

[code]Hallo[/code]

dann kommt ein codefeld, da muss der code rein. du kannst deinen beitrag editieren, wenn du sie hinzufügen möchtest.

www.xairro.com Alles für Webmaster und Programmierer! Es gibt mehr als bloß einen Counter!

	mabox Betreff: danke	Mi, Dez 06, 2006 20:20 Antworten mit Zitat
danke schon mal. aber da ist noch ein kleines problem bei [code]s\image=CopyImage(Rnd(ran))/[code] sagt der jetzt array index out of bounds oder so was

mabox

Betreff: danke

Mi, Dez 06, 2006 20:20
Antworten mit Zitat

danke schon mal.
aber da ist noch ein kleines problem bei [code]s\image=CopyImage(Rnd(ran))/[code] sagt der jetzt array index out of bounds oder so was

	mabox Betreff: sorry	Mi, Dez 06, 2006 20:21 Antworten mit Zitat
sorry ich meinte bei Code: [AUSKLAPPEN] [EINKLAPPEN] s\image=CopyImage(Rnd(ran)) sagt der jetzt array index out of bounds oder so was

mabox

Betreff: sorry

Mi, Dez 06, 2006 20:21
Antworten mit Zitat

sorry ich meinte bei Code: [AUSKLAPPEN]

s\image=CopyImage(Rnd(ran))

sagt der jetzt array index out of bounds oder so was

	BladeRunner Moderator	Mi, Dez 06, 2006 20:22 Antworten mit Zitat
Du solltest bb-code aktivieren, damit die Tags funzen. Ist eine der Auswahlboxen wenn du einen Beitrag schreibst. Index out of bounds heisst dass du auf ein Arrayfeld zugreifen willst was nicht existiert. (Wenn du zB. dim a(10) machst und a(12) schreibst.)
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

Mi, Dez 06, 2006 20:22
Antworten mit Zitat

Du solltest bb-code aktivieren, damit die Tags funzen. Ist eine der Auswahlboxen wenn du einen Beitrag schreibst.

Index out of bounds heisst dass du auf ein Arrayfeld zugreifen willst was nicht existiert.

(Wenn du zB. dim a(10) machst und a(12) schreibst.)

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

	mabox	Mi, Dez 06, 2006 20:23 Antworten mit Zitat
ok danke

mabox

Mi, Dez 06, 2006 20:23
Antworten mit Zitat

ok danke

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Hilfe bitte

Betreff: Hilfe bitte

Betreff: code

Betreff: codetags

Betreff: danke

Betreff: sorry