Scribd
Upload
26 views2 pages

Worksheet-4 1

Lesson

Uploaded by

mariadesireelozada
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
26 views2 pages

Worksheet-4 1

Lesson

Uploaded by

mariadesireelozada
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Republic of the Philippines

Department of Education
Region V – Bicol
SCHOOLS DIVISION OFFICE OF CAMARINES NORTE
JOSE PANGANIBAN NATIONAL HIGH SCHOOL
Jose Panganiban, Camarines Norte

NAME: _______________________________________ SECTION:


_________________

Grade 8
CREATIVE TECHNOLOGIES/ICT
Worksheet 4.1

Part I. Using Small Basic as a guide, draw/write the program being shown/what you see on the
screen. (2 points each)

INSTRUCTIONS
1. TextWindow.WriteLine("Hello World")

2. TextWindow.BackgroundColor = “Cyan”
TextWindow.WriteLine("Hello World")

3. TextWindow.Write(“Enter your Name: “)


Name = TextWindow.Read()
TextWindow.Write(“Hello “ + Name)

4. For i = 1 To 4
GraphicsWindow.PenColor =
GraphicsWindow.GetRandomColor()
Turtle.Move(100)
Turtle.TurnRight()
EndFor

5. If (Clock.Hour < 12) Then


TextWindow.WriteLine("Good Morning World")
EndIf
If (Clock.Hour >= 12) Then
TextWindow.WriteLine("Good Evening World")
EndIf
6. Turtle.Show()
Turtle.TurnLeft()
Turtle.TurnLeft()
Turtle.TurnRight()
Turtle.TurnRight()

7. GraphicsWindow.Title = "Turtle Graphics"


GraphicsWindow.Height = 320
GraphicsWindow.Width = 300 GraphicsWindow.PenColor
= "Purple"
Turtle.Show()
Turtle.Speed = 8
Turtle.X = 150
Turtle.Y = 150
For i = 0 To 200 Step 5
Turtle.Move(i)
Turtle.Turn(90)
EndFor
8. star=145
GraphicsWindow.BackgroundColor="red"
Turtle.Speed=5
Turtle.move (100)
Turtle.Turn (star)
Turtle.Move (100)
Turtle.Turn (star)
Turtle.Move (100)
Turtle.Turn (star)
Turtle.Move (100)
Turtle.Turn (star)
Turtle.move (100)
Turtle.Turn (star)
9. sides = 6

length = 400 / sides


angle = 360 / sides

For i = 1 To sides
For j = 1 To 6
Turtle.Move(length / 12)
Turtle.PenUp()
Turtle.Move(length / 12)
Turtle.PenDown()
EndFor
Turtle.Turn(angle)
EndFor
10 GraphicsWindow.Width = 200
. GraphicsWindow.Height = 200
GraphicsWindow.PenColor = "Green"
GraphicsWindow.DrawLine(10, 10, 100, 100)
GraphicsWindow.PenColor = "Gold"
GraphicsWindow.DrawLine(10, 100, 100, 10)

You might also like