Schildkrötenhausaufgabe

TextWindow.BackgroundColor = „blue“

TextWindow.ForegroundColor = „red“

TextWindow.WriteLine („Hallo“)

Hoehe = 10000

Breite = 10000

While ((Hoehe > 600) or (Hoehe < 50))

TextWindow.Write („Wie hoch soll das Fenster für deine Schildkröte sein? „)

Hoehe = TextWindow.ReadNumber()

TextWindow.WriteLine („“)

EndWhile

While ((Breite > 1000) Or (Breite < 50))

TextWindow.Write („Wie breit soll das Fenster für deine Schildkröte sein? „)

Breite = TextWindow.ReadNumber()

TextWindow.WriteLine („“)

EndWhile

TextWindow.Hide()

GraphicsWindow.Height = Hoehe

GraphicsWindow.Width = Breite

GraphicsWindow.BackgroundColor = „yellow“

GraphicsWindow.Title = „Schildkröte“

GraphicsWindow.Show()

GraphicsWindow.PenColor = „blue“

Turtle.X = 0

Turtle.Y = Hoehe/2

Turtle.PenDown()

Turtle.MoveTo (Breite,Hoehe/2)

Turtle.PenUp()

Turtle.MoveTo (Breite/2,0)

Turtle.PenDown()

Turtle.MoveTo (Breite/2,Hoehe)

Turtle.PenUp()

Turtle.MoveTo (Breite/2,Hoehe/2)

 

Strenenhimmelhausaufgabe

GraphicsWindow.BackgroundColor = „Black“
GraphicsWindow.PenColor = „Yellow“
GraphicsWindow.Title = „Sternenhimmel“
GraphicsWindow.Width = 450
GraphicsWindow.Height = 400
GraphicsWindow.Show()
For i = 1 To 150
x = Math.GetRandomNumber (440) + 5
y = Math.GetRandomNumber (390) + 5
GraphicsWindow.DrawLine (x-5,y,x+5,y)
GraphicsWindow.DrawLine (x,y-5,x,y+5)
GraphicsWindow.DrawLine (x-5,y-5,x+5,y+5)
GraphicsWindow.DrawLine (x+5,y-5,x-5,y+5)
EndFor

Hallo liebe Abi-Onliner

So hier gibts nun meinen zweiten Blog, sozusagen mein Hausaufgabenheft. Speziell und nur für euch (und eigentlich natürlich für mich).

Für alle, die sich für den zweiten Blog interessieren mach ich hier mal ein wenig Werbung:

http://www.super-sarfoersjoerning.blogspot.com

Warum der erste Blog?

Schaut es euch einfach mal an, was man damit alles machen kann und ihr findet dort auch eine Erklärung für Warum? Wieso? Weshalb?

Bis dahin wünsche ich euch liebe Grüße aus dem kalten Norden!

Christina