Basic256 Programme AND
Quellcode
Basiswissen
Das untenstehende Programm kann direkt in Basic256 ausgeführt werden.
Quellcode
# Sonnensystem
#
# 2016, Open Source
# Simulation der Umlaufzeiten der acht Planeten:"
# Merkur: 88 Tage
# Venus: 224 Tage
# Erde: 365 Tage
# Mars: 687 Tage
# Jupiter: 11,86 Jahre
# Saturn: 29 Jahre
# Uranus: 84 Jahre
# Neptun: 164,8 Jahre
#
# Initialisierungen
taste=0
zeit=0
#
# Graphikausgabe einrichten
Graphsize 300,300
Fastgraphics
#
# Simulieren bis Leertaste gedrückt wird
while taste <>32
taste=key
#
# Zeit seit Simulationsbeginn in Jahren
zeit = zeit + 1/365
cls
print "Ungefähre Standorte der Planeten"
print "Stop mit Leertaste"
print "Laufzeit in Jahren: ";
print zeit
refresh
#
#Graphikausgabe löschen
clg
# Schwarzer Himmel
color black
rect 0,0,300,300
#
# Sonne
color yellow
circle 150,150,4
#
# Merkur
x1=10*cos(zeit*2*pi/88*365)+150
y1=10*sin(zeit*2*pi/88*365)+150
color darkyellow
circle x1,y1,2
#
# Venus
x2=20*cos(zeit*2*pi/224*365)+150
y2=20*sin(zeit*2*pi/224*365)+150
color grey
circle x2,y2,2
#
# Erde
x3=30*cos(zeit*2*pi)+150
y3=30*sin(zeit*2*pi)+150
color blue
circle x3,y3,2
#
# Mars
x4=45*cos(zeit*2*pi/687*365)+150
y4=45*sin(zeit*2*pi/687*365)+150
color red
circle x4,y4,2
#
# Jupiter
x5=70*cos(zeit*2*pi/4329*365)+150
y5=70*sin(zeit*2*pi/4329*365)+150
color orange
circle x5,y5,3
#
# Saturn
x6=90*cos(zeit*2*pi/10585*365)+150
y6=90*sin(zeit*2*pi/10585*365)+150
color white
circle x6,y6,3
#
# Uranus
x7=110*cos(zeit*2*pi/30660*365)+150
y7=110*sin(zeit*2*pi/30660*365)+150
color darkgreen
circle x7,y7,3
#
# Neptun
x8=130*cos(zeit*2*pi/60152*365)+150
y8=130*sin(zeit*2*pi/60152*365)+150
color darkblue
circle x8,y8,3
#
# Alles neu zeichnen
refresh
#
end while
print "Die Simulation wurde angehalten."
end