| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
 Verfasst am: 02.05.2008, 21:23 Titel: Blitzgenerator |
 |
|
Für so einen kleinen Code schon fast ein Wunder 
| Code: | 'Blitzgenerator 1.0 written by AndT
'Nicht -exx kompatibel
type xycor
x as integer
y as integer
end type
dim as xycor punkte (1 to 32)
screenres 1024,768
randomize timer
dim as integer r,v1,v2
v1 = 1
v2 = -1
do
for punkt as integer = 1 to 32
punkte(punkt).y = int(rnd*768)+1
if punkte(punkt).y < punkte(punkt-1).y then punkt-=2
next
for punkt as integer = 1 to 32
punkte(punkt).x = int(rnd*1024)+1
if punkte(punkt).x < punkte(punkt-1).x then punkt-=2
next
for r as integer = 32 to 1 step -1
line(punkte(r).x,punkte(r).y)-(punkte(r+1).x,punkte(r+1).y),14
line(punkte(r).x-v1,punkte(r).y-v1)-(punkte(r+1).x+v1,punkte(r+1).y+v1),14
line(punkte(r).x+v2,punkte(r).y+v2)-(punkte(r+1).x+v2,punkte(r+1).y+v2),15
next
if inkey <> "" then end
loop |
_________________
Bis irgendwann...  |
|
| Nach oben |
|
 |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 02.05.2008, 22:22 Titel: |
|
|
das ist ganz ehrlich viel zu viel code, also kein wunder...
diese blitze sehen besser aus...
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 02.05.2008, 22:48 Titel: |
|
|
dito. vor allem finde ich die zweite zeile echt lustig. "Nicht -exx kompatibel". Weißt du was die Meldung bedeutet, die ausgegeben wird, wenn du mit -exx kompilierst und dann das prog startest? Das heißt ganz einfach, dass du das Array außerhalb des Bereiches ansprechen möchtest. Und eine solche Meldung darf man nicht einfach ignorieren.
Auf den ersten Blick ist mir auch schon 1 Fehler aufgefallen:
| Code: | dim as xycor punkte (1 to 32)
[...]
if punkte(punkt).y < punkte(punkt-1).y then punkt-=2
|
punkt hat einen wert zwischen 1 und 32. fällt dir irgendwas auf?
gleiches übrigens im teil wo gezeichnet wird:
| Code: | | line(punkte(r).x,punkte(r).y)-(punkte(r+1).x,punkte(r+1).y),14 |
r nimmt einen wert von 32 bis 1 an...
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 02.05.2008, 22:54 Titel: |
|
|
Sry. aber da geht garnix
MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
| Verfasst am: 02.05.2008, 23:30 Titel: |
|
|
Joa der Regenmacher sieht toll aber ist leider nicht mehr 0.18 kompatibel 
_________________
Bis irgendwann... |
|
| Nach oben |
|
|
Random
Anmeldungsdatum: 09.03.2006
Beiträge: 47
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
