Hier noch ein Spiel mit der Turtle aus dem Hause Benjamin Meidt :-)

GraphicsWindow.Title = “Fang den Ball”
GraphicsWindow.BackgroundColor = “Cyan”
GraphicsWindow.Height = 600
GraphicsWindow.Width = 1000
GraphicsWindow.Top = Desktop.Height – Desktop.Height
GraphicsWindow.Left = Desktop.Width – Desktop.Width
GraphicsWindow.BrushColor = “Blue”

Turtle.Show()
Turtle.X =(math.GetRandomNumber(850))
Turtle.Y =(Math.GetRandomNumber(450))
Turtle.PenUp()

AddShape()
GraphicsWindow.ShowMessage(“Lege die Werte für Winkel und Strecke fest um die Turtle den Ball fangen zu lassen! Mit den Tasten ‘Rechts’ oder ‘Links’ legst du die Drehrichtung fest.”,”Spielanleitung”)
GradTextBox = Controls.AddTextBox(100, 499)
GraphicsWindow.DrawText(100, 480, “Gebe den Winkel ein:”)
DistanceTextbox = Controls.AddTextBox(455, 499)
GraphicsWindow.DrawText(455, 480, “Gebe die Strecke ein:”)
LeftButton = Controls.AddButton(“Links”, 300, 500)
Rightbutton = Controls.AddButton(“Rechts”, 370, 500)
HitButton = Controls.AddButton(“Fang”, 650, 500)
Controls.ButtonClicked = ButtonPress
Controls.TextTyped = TextBoxSub

Timer.Interval = 100
Timer.Tick = onTicking
tick = 0

buttonPressed = 0
Turtle.Speed = 9

While (“True”)
Shapes.Move(targetShape, ShapeX, ShapeY)

If (buttonPressed = 1) Then
doTurtleMove()
Program.Delay(1000)
buttonPressed = 0
EndIf

WinScenario()

Program.Delay(100)
EndWhile

Sub AddShape
ShapeX = 150
ShapeY = (Math.GetRandomNumber(450))
TargetShape = Shapes.AddEllipse(80, 80)
EndSub

Sub doTurtleMove
operator = Controls.GetButtonCaption(Controls.LastClickedButton)
If operator = “Links” Then
Turtle.Turn(LeftDegrees)
ElseIf operator = “Rechts” Then
Turtle.Turn(Degrees)
ElseIf operator = “Fang” Then
Turtle.Move(Distance)
EndIf
EndSub

Sub WinScenario
x2= Turtle.X
y1 = Turtle.Y
x1= ShapeX + 40
y2 = ShapeY + 40
D = Math.SquareRoot((x2 – x1) * (x2 – x1) + (y2 – y1) * (y2 – y1))
If (D < 40) Then
GraphicsWindow.ShowMessage(“Du hast gewonnen”, “Gweinner”)
Program.Delay(200)
Program.End()
EndIf
EndSub

Sub TextBoxSub
Degrees = Controls.GetTextBoxText(GradTextBox)
LeftDegrees = 0 – Degrees
Distance = Controls.GetTextBoxText(DistanceTextbox)
EndSub

Sub ButtonPress
buttonPressed = 1
EndSub

Sub onTicking
If (buttonPressed = 0) Then
ShapeX = ShapeX+1
ShapeY = 100
EndIf
EndSub

Advertisements

das TurtlePrgramm ist endlich fertig :-)

so nun im Folgenden der Code, der auf anschauliche Art und Weise das gewünschte Trutleprogramm ausführt:

 

GraphicsWindow.Height =500
GraphicsWindow.Width =800
GraphicsWindow.Title = “Turtleprogramm”
GraphicsWindow.CanResize = “No”
GraphicsWindow.DrawText (20,20, “Dieses Programm kann die Turtle in ein Fenster beliebigen Ausmaßes ein Kreuz zeichnen lassen.”)
GraphicsWindow.DrawText (20,60,”Höhe”)
GraphicsWindow.DrawText (20,100,”Breite”)
hoehe = Controls.AddTextBox(65,60)
breite = Controls.AddTextBox(65,100)
button1 = Controls.AddButton (“Ausführen”,200,300)
GraphicsWindow.ShowMessage (“Bitte geben sie die Werte für Höhe und Breite des Fensters ein und drücken sie auf ausführen, Die Werte für Höhe und Breite müssen mindestens 100 sein.”,”Meldung”)
Controls.TextTyped = textboxsub
Controls.ButtonClicked = ausführen
Sub textboxsub
hoehe1 = Controls.GetTextBoxText(hoehe)
breite1 = Controls.GetTextBoxText(breite)
endsub
Sub ausführen
Program.Delay (500)
GraphicsWindow.Clear()
GraphicsWindow.Width = breite1
GraphicsWindow.Height = hoehe1
GraphicsWindow.Show()
Turtle.Show()
Turtle.PenUp()
Turtle.MoveTo(0, hoehe1/2)
Turtle.PenDown()
Turtle.MoveTo(breite1, hoehe1/2)
Turtle.PenUp()
Turtle.MoveTo(breite1/2,0)
Turtle.PenDown()
Turtle.MoveTo(breite1/2, hoehe1)
EndSub


der Sternenhimmel

 

so….. Im Folgenden das Coding für den Sternenhimmel:

GraphicsWindow.Title = ” Sternenhimmel ”
GraphicsWindow.BackgroundColor = “black”
GraphicsWindow.Height = 400
GraphicsWindow.Width = 450
For i = 1 To 150
x= Math.GetRandomNumber (450)
y= Math.GetRandomNumber (400)
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)
EndFor


Das Programm mit Ergänzung der Rundung der Gesamtnote

der Prgrammcode lautet:

  1. TextWindow.ForegroundColor = “blue”
  2. TextWindow.BackgroundColor = “white”
  3. TextWindow.WriteLine(“Hallo Bitte gebe deinen Namen ein!”)
  4. name = TextWindow.Read ()
  5. TextWindow.WriteLine(“”)
  6. TextWindow.WriteLine(“Hallo ” + name)
  7. TextWindow.WriteLine(“”)
  8. TextWindow.WriteLine(“Bitte gib deine erste Somi-Note ein”)
  9. somi1= TextWindow.ReadNumber ()
  10. TextWindow.WriteLine(“Bitte gib deine zweite Somi-Note ein”)
  11. somi2= TextWindow.ReadNumber ()
  12. TextWindow.WriteLine(“Bitte gib deine erste Klausurnote ein”)
  13. kn1= TextWindow.ReadNumber ()
  14. TextWindow.WriteLine(“Bitte gib deine zweite Klausurnote ein”)
  15. kn2 = TextWindow.ReadNumber()
  16. gsnote = ((somi1 + somi2 + kn1 + kn2)/4)
  17. TextWindow.WriteLine(“Das ist deine errechnete Gesamtnote: ” +gsnote)
  18. gerundet = Math.Round (gsnote)
  19. TextWindow.WriteLine(“”)
  20. TextWindow.WriteLine(“deine Zeugnisnote ist: ” + gerundet)

CC Bild

Von maorix bei Flickr

Ich stelle dieses schöne Foto rein, weas ich bei Flickr gefunden habe und lizensiert ist für die nichtkommerzielle Nutzung!

http://www.flickr.com/photos/maor-x/2971375893/&#8221;


Recherche bei Google…

1.Journal von und für Franken, Band 5

erschienen im Jahr 1972

Das Zitat ist zu finden auf Seite 305

 

2.


Hello world!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!