Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Bildschirmschoner "Sterne"
Download
ZIP-Archiv (359 kB)
k. A.- Plattformen:
FreeBASIC 0.20.0
Quelltext enthalten- Angelegt von
unbekannter Virus am 26.01.2010
Bewertung
Punkte: 5,0 bei 1 Stimmen
Ein Bildschirmschoner der sogar mich begeistert obwohl ich ihn geschrieben habe!!!
Im .zip-Archiv finden Sie folgende Dateien:
- sterne.exe (Setup-Programm)
- sterne.scr (Screensaver-Datei)
- sterne.bas (Quellcode)
Falls Sie die Sterne darstellen möchten ohne das Archiv zu downloaden finden Sie hier den Quellcode für die Sterne (nicht für den kompletten Bildschirmschoner):
x = Int(Rnd * 640) + 1
y = Int(Rnd * 480) + 1
farbe = Int(Rnd * 15) + 1
Color farbe
PSet (x,y) ' -
PSet (x-1,y)
PSet (x-2,y)
PSet (x-3,y)
PSet (x-4,y)
PSet (x+1,y) ' -
PSet (x+2,y)
PSet (x+3,y)
PSet (x+4,y)
PSet (x,y-1) ' |
PSet (x,y-2)
PSet (x,y-3)
PSet (x,y-4)
PSet (x,y+1) ' |
PSet (x,y+2)
PSet (x,y+3)
PSet (x,y+4)
PSet (x-1,y-1) ' / Unten
PSet (x-2,y-2)
PSet (x-3,y-3)
PSet (x-4,y-4)
PSet (x+1,y+1) ' / Oben
PSet (x+2,y+2)
PSet (x+3,y+3)
PSet (x+4,y+4)
PSet (x-1,y+1) ' \ Oben
PSet (x-2,y+2)
PSet (x-3,y+3)
PSet (x-4,y+4)
PSet (x+1,y-1) ' \ Unten
PSet (x+2,y-2)
PSet (x+3,y-3)
PSet (x+4,y-4)
Sie müssen nur noch:
Dim As Integer x, y, farbe, mx, my, mr, mt
und:
Screen 12,,,1eingeben um die Sterne zu sehen.
Viel Spaß damit!!!