Schildkrötenkreuz

TextWindow.WriteLine(„Guten Taaaag!“)
TextWindow.WriteLine(„Ich, die flinke Schildkröte, male dir ein Kreuz ins Fenster.“)
TextWindow.WriteLine(„Dazu musst du mir nur deine gewünschte Höhe und Breite des Fensters angeben.“)

typewidth:
TextWindow.Write(„Und jetzt bitte die Breite (auch größer als 100 Pixel): „)
width = TextWindow.ReadNumber()
If width < 100 Then
Goto typewidth
EndIf

typeheight:
TextWindow.Write(„Nenne mir bitte die Höhe (aber bitte größer als 100 Pixel): „)
height = TextWindow.ReadNumber()
If height < 100 Then
Goto typeheight
EndIf

TextWindow.Hide()
GraphicsWindow.Width = width
GraphicsWindow.Height = height
GraphicsWindow.BrushColor = „black“
GraphicsWindow.FontSize = (width/20+height/20)/2
GraphicsWindow.CanResize = 0

Turtle.Speed = 9
Turtle.PenUp()
Turtle.MoveTo(width/2, 0)
Turtle.PenDown()
Turtle.MoveTo(width/2, height)
Turtle.PenUp()
Turtle.MoveTo(0, height/2)
Turtle.PenDown()
Turtle.MoveTo(width, height/2)
Turtle.PenUp()
Turtle.MoveTo(width-width/6, height/6)
Turtle.Angle = 225
GraphicsWindow.DrawText(5*width/8, height/4, „Cool, ne?“)

Sternenhimmel

GraphicsWindow.BackgroundColor = „black“
GraphicsWindow.Width = 450
GraphicsWindow.Height = 400

For i = 1 to 150
x = Math.GetRandomNumber(440)
y = Math.GetRandomNumber(390)
stern()
EndFor

Sub stern
GraphicsWindow.PenColor = „yellow“
GraphicsWindow.DrawLine(x, y, x+10, y+10)
GraphicsWindow.DrawLine(x, y+10, x+10, y)
GraphicsWindow.DrawLine(x+5, y, x+5, y+10)
GraphicsWindow.DrawLine(x, y+5, x+10, y+5)
EndSub

Noch ein Programm

‚Quadrate jagen

GraphicsWindow.Width = 640
GraphicsWindow.Height = 480
GraphicsWindow.FontSize = 20
i = 0
time = Clock.Second
If time >= 30 Then
time = time-60
EndIf

start:
x = Math.GetRandomNumber(610)
y = Math.GetRandomNumber(450)
GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
GraphicsWindow.FillRectangle(x, y, 30, 30)
GraphicsWindow.BrushColor = „white“
GraphicsWindow.DrawText(x+3, y+2, i)

startif:
If Clock.Second = time+30 Then
Goto end
EndIf
if GraphicsWindow.MouseX > x And GraphicsWindow.MouseX < x + 30 Then
if GraphicsWindow.MouseY > y And GraphicsWindow.MouseY < y + 30 Then
GraphicsWindow.Clear()
i = i + 1
Goto start
EndIf
EndIf

Goto startif

end:
GraphicsWindow.Clear()
GraphicsWindow.BrushColor = „black“
GraphicsWindow.DrawText(190, 240, „Du hast “ + i + “ Quadrate berührt“)

Aufgabe 11

Biddeschöön!

 

‚Aufgabe:
‚Schreibe einen Programmcode in SmallBasic,
‚der in blauer Schrift auf weißem Hintergrund
‚den Benutzer zuerst nach seinem Namen fragt,
‚ihn dann begrüßt und ihn anschließend bittet,
‚zwei SoMi-Noten und zwei Klausurnoten einzugeben.
‚Der Computer errechnet dann den Durchschnitt der Noten
‚und verabschiedet sich mit den Worten:
‚„Mach’s gut und danke für den Fisch!“

‚Formatierung des Textfensters
TextWindow.Title = „Berechnung der Zeugnisnote“
TextWindow.BackgroundColor = „white“
TextWindow.ForegroundColor = „blue“

‚Name und Begrüßung
TextWindow.Write(„Wie ist dein Name? „)
name = TextWindow.Read()
TextWindow.WriteLine(„Hallo “ + name + „, wie geht’s?“)

‚Abfrage der SoMi-Noten
TextWindow.WriteLine(„Gib bitte nacheinander zwei SoMi-Noten ein.“)
TextWindow.Write(„SoMi 1: „)
somi1 = TextWindow.ReadNumber()
TextWindow.Write(„SoMi 2: „)
somi2 = TextWindow.Readnumber()

‚Abfrage der Klausurnoten
TextWindow.WriteLine(„Gib bitte nacheinander zwei Klausurnoten ein.“)
TextWindow.Write(„Klausur 1: „)
klau1 = TextWindow.Readnumber()
TextWindow.Write(„Klausur 2: „)
klau2 = TextWindow.Readnumber()

‚Errechnung des Durchschnitts
durch = (somi1 + somi2 + klau1 + klau2)/4
TextWindow.WriteLine(„Die Zeugnisnote wird eine “ + durch)

‚Verabschiedung
TextWindow.WriteLine(„Mach’s gut und danke für den Fisch!“)

Aufgabe 9

Der Titel meines Blogs:

01000100 01100101 01110010 01000110 01110101 01101000 01110011

Aufgabe 6

Creative Commons License
This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 Unported License.

Quelle: http://www.picasa.com/

Ist das so richtig?

Aufgabe 5

Also hier ist der Link zum Beitrag in ungesichteter Version

http://de.wikipedia.org/w/index.php?title=Wesseling&stable=0&redirect=no

Bearbeitet hab ich den Beitrag Dienstag abend um 20.00 Uhr (und Mittwoch gegen 12.30 Uhr nochmal), aber bis jetzt ist nichts passiert.

Sollte der Link nicht mehr verfügbar sein ist das bei Wiki der Beitrag über die Stadt Wesseling.