; Definer planeterne og deres egenskaber
Til planet:Navn:Størrelse:Farve:Afstand:OrbitSpeed
SetPos [0 0]
Penup
Fremad:Afstand
Pendown
Setheading 0
Gentag 360 [
Fremad:størrelse * 0,5
Tilbage:Størrelse * 0,5
Højre:Orbitspeed
]
Setheading 0
Fremad:størrelse * 0,5
Penup
Tilbage:Størrelse * 0,5
Pendown
Setheading:Orbitspeed
Fremad:størrelse * 0,5
Penup
Tilbage:Størrelse * 0,5
Pendown
Setheading 0
Cirkel:størrelse
Penup
SetPos [0 0]
Pendown
Setheading 0
Fremad:Afstand
Pendown
Setheading:Orbitspeed
Cirkel:størrelse
Penup
SetPos [0 0]
Pendown
Label:Navn
Penup
SetPos [0 0]
Pendown
Setheading 0
ende
; Tegn solen
Cirkel 50
Setheading 0
Penup
frem 50
Pendown
Setheading 0
Label "Sol"
Penup
SetPos [0 0]
Pendown
; Tegn kviksølv
Planet "Mercury" 5 "Gray" 70 2
; Tegn Venus
Planet "Venus" 8 "Gul" 90 1.5
; Tegn jorden
planet "jord" 10 "blå" 110 1
; Tegn Mars
Planet "Mars" 7 "rød" 130 0,8
; Tegn Jupiter
Planet "Jupiter" 20 "Orange" 160 0,5
; Tegn Saturn
Planet "Saturn" 18 "gul" 200 0,3
; Tegn Uranus
Planet "Uranus" 15 "lyseblå" 250 0,2
; Tegn Neptune
Planet "Neptune" 14 "mørkeblå" 300 0,15
`` `
Forklaring:
1. `Planet` Procedure: Denne procedure definerer planetens egenskaber:
- `:Navn`:Navn på planeten (brugt til mærkning).
- `:størrelse`:størrelse på planeten i pixels.
- `:Farve ':Planetens farve.
- `:Afstand`:Afstand fra solen i pixels.
- `:OrbitSpeed`:hastigheden af bane i grader pr. Trin (kontrollerer hvor hurtigt planeten bevæger sig).
2. tegning af solen:
- `Circle 50` trækker solen som en cirkel med en radius på 50 pixels.
- `Setheading 0` indstiller skildpaddens retning til 0 grader (vandret).
- `Penup` løfter pennen for at forhindre tegning, mens du bevæger sig.
- `frem 50 'bevæger skildpadden frem 50 pixels til højre.
- `Pendown` lægger pennen ned for at begynde at tegne.
- `Setheading 0` indstiller skildpaddens retning til 0 grader igen.
- `Etiket" Sun "skriver etiketten" Sol "på den aktuelle position.
- `Penup` løfter pennen for at bevæge sig til oprindelsen.
- `SetPos [0 0]` sætter skildpadden tilbage til oprindelsen.
- `Pendown` lægger pennen ned for at tegne.
3. tegning af planeterne:
- For hver planet kaldes 'Planet' -proceduren med de passende egenskaber.
- Gentag 360` loop trækker bane -stien.
- Inde i løkken bevæger skildpadden sig fremad og tilbage og skaber et lille linjesegment.
- `Rigtigt:OrbitSpeed` roterer skildpadden med kredsløbshastigheden, hvilket får planeten til at bevæge sig i en cirkel.
- Planeten er tegnet med den specificerede farve og størrelse.
kører koden:
1. Gem denne kode i en fil med navnet "Solar_system.lg" (eller ethvert andet navn).
2. Åbn MSWLOGO og indlæs filen ved at skrive `LOAD 'SOLAR_SYSTEM.LG" `.
3. Kør koden ved at skrive "Kør".
Dette vil skabe en grundlæggende visuel repræsentation af solsystemet. Du kan ændre koden for at tilpasse planeterne farver, størrelser, afstande og banehastigheder. Du kan også tilføje yderligere funktioner som måner, kometer eller asteroider.
Sidste artikelEr der et sted på jorden, hvor solen kun skinnede en gang?
Næste artikelHvorfor ser du ikke en fuldmåne hver dag?