Code "entschlacken"

Übersicht

BlitzBasic

Beginners-Corner

	Längenausdehnungskoeffiz. Betreff: Code "entschlacken"	Di, März 22, 2005 15:34 Antworten mit Zitat
Graphics 640, 480, 32, 1 ;;;; Schnee = LoadImage("Schnee.bmp") Boden = LoadImage("SchneeBoden.bmp") BgY = 1 ;;;; Repeat Cls BgY = BgY + 1 If BgY = 200 Then BgY = 0 TileBlock Schnee, 0, BgY DrawBlock Boden, 1, 460 Delay 40 Until KeyHit(1) End Kann man diesen Code noch schneller machen??? Ich hab nen etwas älteren PC, und das ruckelt hin und wieder...

Längenausdehnungskoeffiz.

Betreff: Code "entschlacken"

Di, März 22, 2005 15:34
Antworten mit Zitat

Graphics 640, 480, 32, 1
;;;;
Schnee = LoadImage("Schnee.bmp")
Boden = LoadImage("SchneeBoden.bmp")
BgY = 1
;;;;
Repeat
Cls
BgY = BgY + 1
If BgY = 200 Then BgY = 0
TileBlock Schnee, 0, BgY
DrawBlock Boden, 1, 460
Delay 40
Until KeyHit(1)
End

Kann man diesen Code noch schneller machen???
Ich hab nen etwas älteren PC, und das ruckelt hin und wieder...

	maximilian	Di, März 22, 2005 15:35 Antworten mit Zitat
Delay 40 rausnehmen. LordChaos
Variety is the spice of life. One day ignore people, next day annoy them.

maximilian

Di, März 22, 2005 15:35
Antworten mit Zitat

Delay 40 rausnehmen.

LordChaos

Variety is the spice of life. One day ignore people, next day annoy them.

	Weazle25 Betreff: Re: Code "entschlacken"	Di, März 22, 2005 15:38 Antworten mit Zitat
Was soll eigentlich das "Delay 40"? Mach das weg und Dein Code wird etwas schneller. Gruss Weazle

Weazle25

Betreff: Re: Code "entschlacken"

Di, März 22, 2005 15:38
Antworten mit Zitat

Was soll eigentlich das "Delay 40"?
Mach das weg und Dein Code wird etwas schneller.

Gruss
Weazle

	Längenausdehnungskoeffiz.	Di, März 22, 2005 15:39 Antworten mit Zitat
ich meine nicht in dem sinne schneller machen, sondern von der leistung her.........

Längenausdehnungskoeffiz.

Di, März 22, 2005 15:39
Antworten mit Zitat

ich meine nicht in dem sinne schneller machen, sondern von der leistung her.........

	Längenausdehnungskoeffiz.	Di, März 22, 2005 15:41 Antworten mit Zitat
das ist absicht damit das realistischert ist

Längenausdehnungskoeffiz.

Di, März 22, 2005 15:41
Antworten mit Zitat

das ist absicht damit das realistischert ist

	regaa Betreff: Re: Code "entschlacken"	Di, März 22, 2005 15:42 Antworten mit Zitat
Weazle25 hat Folgendes geschrieben: Was soll eigentlich das "Delay 40"? Mach das weg und Dein Code wird etwas schneller. Gruss Weazle
UltraMixer Professional 3 - Download QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

regaa

Betreff: Re: Code "entschlacken"

Di, März 22, 2005 15:42
Antworten mit Zitat

Weazle25 hat Folgendes geschrieben:

Was soll eigentlich das "Delay 40"?
Mach das weg und Dein Code wird etwas schneller.

Gruss
Weazle

UltraMixer Professional 3 - Download
QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

	Längenausdehnungskoeffiz.	Di, März 22, 2005 15:46 Antworten mit Zitat
-.- Das soll ja langsam laufen, aber nicht stocken (man sieht z. b. wie SchneeBoden gamalt wird....

Längenausdehnungskoeffiz.

Di, März 22, 2005 15:46
Antworten mit Zitat

-.-

Das soll ja langsam laufen, aber nicht stocken (man sieht z. b. wie SchneeBoden gamalt wird....

	diGGa GruppenKaspar	Di, März 22, 2005 15:53 Antworten mit Zitat
Graphics 640, 480, 32, 1 frametimer = CreateTimer (30) ;Um das Spiel auf alle Rechnerkonfigurationen gleich schnell laufen ;;;; Schnee = LoadImage("Schnee.bmp") Boden = LoadImage("SchneeBoden.bmp") BgY = 1 ;;;; Repeat Cls BgY = BgY + 1 If BgY = 200 Then BgY = 0 TileBlock Schnee, 0, BgY DrawBlock Boden, 1, 460 WaitTimer (frametimer) ;Den gewählten Zeitgeber warten Until KeyHit(1) End so bleibt der pc wenigst nich stehen

diGGa

GruppenKaspar

Di, März 22, 2005 15:53
Antworten mit Zitat

Graphics 640, 480, 32, 1
frametimer = CreateTimer (30) ;Um das Spiel auf alle Rechnerkonfigurationen gleich schnell laufen
;;;;
Schnee = LoadImage("Schnee.bmp")
Boden = LoadImage("SchneeBoden.bmp")
BgY = 1
;;;;
Repeat
Cls
BgY = BgY + 1
If BgY = 200 Then BgY = 0
TileBlock Schnee, 0, BgY
DrawBlock Boden, 1, 460
WaitTimer (frametimer) ;Den gewählten Zeitgeber warten
Until KeyHit(1)
End

so bleibt der pc wenigst nich stehen

Zuletzt bearbeitet von diGGa am Di, März 22, 2005 15:53, insgesamt einmal bearbeitet

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, März 22, 2005 15:53 Antworten mit Zitat
benutzte den Backbuffer dann siehste das auch nicht das zeichnen
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, März 22, 2005 15:53
Antworten mit Zitat

benutzte den Backbuffer dann siehste das auch nicht das zeichnen

[BB2D | BB3D | BB+]

	Längenausdehnungskoeffiz.	Di, März 22, 2005 16:01 Antworten mit Zitat
thx, nur noch eine frage... sind functions schneller, als wenn ich das komplett da ein baue? Das mit dem Buffer hatte ich mir schon gedacht, trotzdem thx. aber kommt der mit in die schleife (setbuffer) ?

Längenausdehnungskoeffiz.

Di, März 22, 2005 16:01
Antworten mit Zitat

thx, nur noch eine frage... sind functions schneller, als wenn ich das komplett da ein baue? Das mit dem Buffer hatte ich mir schon gedacht, trotzdem thx. aber kommt der mit in die schleife (setbuffer) ?

	Artemis	Di, März 22, 2005 16:47 Antworten mit Zitat
nein functions sind nicht schneller aber übersichtlicher! alle sprünge innerhalb des programms beieinflussen die geschwindigkeit! Trotzdem würde ich functions verwenden, da du dann eine routine oder function ganz oft an beliebiger stelle aufrufen kannst! außerdem wie gesagt übersichtlicher!

Artemis

Di, März 22, 2005 16:47
Antworten mit Zitat

nein functions sind nicht schneller aber übersichtlicher!
alle sprünge innerhalb des programms beieinflussen die geschwindigkeit!
Trotzdem würde ich functions verwenden, da du dann eine routine oder function ganz oft an beliebiger stelle aufrufen kannst!
außerdem wie gesagt übersichtlicher!

	diGGa GruppenKaspar	Di, März 22, 2005 16:49 Antworten mit Zitat
graphics 640, 480 setbuffer backbuffer() repeat cls ... flip until keyhit(1) end

diGGa

GruppenKaspar

Di, März 22, 2005 16:49
Antworten mit Zitat

graphics 640, 480
setbuffer backbuffer()

repeat
cls

...

flip
until keyhit(1)
end

	Artemis	Di, März 22, 2005 16:50 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 32, 1 milisekundenwarten = 10 ;Hier die Zeit eingeben die gewartet werden soll (millisekunden) ;;;; Graphics 800,600,32,2 Schnee = LoadImage(\"Schnee.bmp\") Boden = LoadImage(\"SchneeBoden.bmp\") BgY = 1 SetBuffer(BackBuffer()) ;;;; Repeat Cls BgY = (BgY+1) Mod 200 TileBlock Schnee, 0, BgY DrawBlock Boden, 1, 460 Flip Repeat Until (MilliSecs()-zeitgeber) > millisekundenwarten zeitgeber = MilliSecs() Until KeyHit(1) End

Artemis

Di, März 22, 2005 16:50
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Graphics 640, 480, 32, 1 
milisekundenwarten = 10 ;Hier die Zeit eingeben die gewartet werden soll (millisekunden)
;;;; 
Graphics 800,600,32,2
Schnee = LoadImage(\"Schnee.bmp\") 
Boden = LoadImage(\"SchneeBoden.bmp\") 
BgY = 1 
SetBuffer(BackBuffer())
;;;; 
Repeat 
  Cls 
  BgY = (BgY+1) Mod 200 
  TileBlock Schnee, 0, BgY 
  DrawBlock Boden, 1, 460 
  Flip
  Repeat
  Until (MilliSecs()-zeitgeber) > millisekundenwarten
  zeitgeber = MilliSecs()
Until KeyHit(1) 
End

	Weazle25	Di, März 22, 2005 17:55 Antworten mit Zitat
So ist es besser: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 32, 1 milisekundenwarten = 10 ;Hier die Zeit eingeben die gewartet werden soll (millisekunden) ;;;; Graphics 800,600,32,2 Schnee = LoadImage(\"Schnee.bmp\") Boden = LoadImage(\"SchneeBoden.bmp\") BgY = 1 SetBuffer(BackBuffer()) ;;;; Repeat If (MilliSecs()-zeitgeber) > millisekundenwarten Then Cls BgY = (BgY+1) Mod 200 TileBlock Schnee, 0, BgY DrawBlock Boden, 1, 460 Flip zeitgeber = MilliSecs() EndIf Until KeyHit(1) End Gruss Weazle

Weazle25

Di, März 22, 2005 17:55
Antworten mit Zitat

So ist es besser:

BlitzBasic: [AUSKLAPPEN]

Graphics 640, 480, 32, 1 
milisekundenwarten = 10 ;Hier die Zeit eingeben die gewartet werden soll (millisekunden)
;;;; 
Graphics 800,600,32,2
Schnee = LoadImage(\"Schnee.bmp\") 
Boden = LoadImage(\"SchneeBoden.bmp\") 
BgY = 1 
SetBuffer(BackBuffer())
;;;; 
Repeat 
  If (MilliSecs()-zeitgeber) > millisekundenwarten Then
    Cls 
    BgY = (BgY+1) Mod 200 
    TileBlock Schnee, 0, BgY 
    DrawBlock Boden, 1, 460 
    Flip
    zeitgeber = MilliSecs()
  EndIf
Until KeyHit(1) 
End

Gruss
Weazle

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Code "entschlacken"

Betreff: Code "entschlacken"

Betreff: Re: Code "entschlacken"

Betreff: Re: Code "entschlacken"