types

Übersicht

BlitzBasic

Allgemein

	dominik Betreff: types	Fr, Jul 02, 2004 16:53 Antworten mit Zitat
ich hab bisher immer mit dims gearbeitet und wollt mir jetzt mal die types anschauen allerdings funtzt noch nich so ganz. ich hab mal zumtesten nen kleines sternen prog gemacht allerdings fallen die immer in "zeilen" ich hab aber oben seedrnd stehen also kanns ja nix mit dem zufall zu tun haben. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024, 768, 32, 1 SeedRnd MilliSecs() SetBuffer BackBuffer() Type star Field x Field y Field gw End Type For i = 1 To 500 s.star = New star s\x = Rnd(1,1024) s\y = - 5 s\gw = Rnd(1, 20) Next Repeat Cls For s.star = Each star If s\y < 768 Then s\y = s\y + s\gw Else s\y = - 5 s\x = Rand(1, 1024) EndIf Plot s\x, s\y Next Flip Until KeyDown(1) End

dominik

Betreff: types

Fr, Jul 02, 2004 16:53
Antworten mit Zitat

ich hab bisher immer mit dims gearbeitet und wollt mir jetzt mal die types anschauen allerdings funtzt noch nich so ganz.
ich hab mal zumtesten nen kleines sternen prog gemacht allerdings fallen die immer in "zeilen" ich hab aber oben seedrnd stehen also kanns ja nix mit dem zufall zu tun haben.
Code: [AUSKLAPPEN]

Graphics 1024, 768, 32, 1
SeedRnd MilliSecs()
SetBuffer BackBuffer()

Type star
Field x
Field y
Field gw
End Type

For i = 1 To 500
s.star = New star
s\x = Rnd(1,1024)
s\y = - 5
s\gw = Rnd(1, 20)
Next

Repeat
Cls

For s.star = Each star
If s\y < 768 Then
s\y = s\y + s\gw
Else
s\y = - 5
s\x = Rand(1, 1024)
EndIf
Plot s\x, s\y
Next

Flip
Until KeyDown(1)
End

	Bfox	Fr, Jul 02, 2004 17:00 Antworten mit Zitat
Wenn du hier: Code: [AUSKLAPPEN] [EINKLAPPEN] For i = 1 To 500 s.star = New star s\x = Rnd(1,1024) s\y = - 5 s\gw = Rnd(1, 20) Next Statt Code: [AUSKLAPPEN] [EINKLAPPEN] s\y = - 5 z.B. Code: [AUSKLAPPEN] [EINKLAPPEN] s\y = Rnd(-200,0) eingibst. Fallen sie nicht mehr in reihen!
Glauben ist Mangel an Wissen!