CO1603 Project

Done by: Md Shahrul Sabri Bin Sabli (03B3565)

  BSc Education

  Azraei Bin Hj Akop (03B5362)

  BSc Education

LOGO project   EXCEL project

1. LOGO project                                                                   back to top

Title: A Computer Set

to trapezium :length :breadth
fd :length 
rt 120 
fd :breadth 
rt 60 
fd :length - 2 * :breadth * Cos 60 
rt 60 
fd :breadth 
rt 120
end

to parallelogram :length :breadth
repeat 2[fd :length rt 60 fd :breadth rt 120]
end

to rectangle :length :breadth
repeat 2[fd :length rt 90 fd :breadth rt 90]
end

to square :sides
repeat 4[fd :sides rt 90]
end

to table
pu
setpos [-480 0]
pd
setpensize [2 2]
rt 90
rectangle 800 20
pu
setpos [320 -20]
pd
lt 90
parallelogram 20 180
rt 60
fd 160
rt 120
fd 390
pu
setpos [-440 -20]
pd
rectangle 400 20
fd 400
lt 120
fd 158
lt 60
fd 228
pu
setpos [40 -20]
pd
rt 180
rectangle 400 20
fd 400
lt 120
fd 158
lt 60
fd 136
pu
setpos [300 -20]
pd
rt 180
rectangle 400 20
fd 400
lt 120
fd 185
pu
setpos [40 -20]
pd
rt 120
repeat 2[fd 40 lt 90 pu fd 120 pd arc 360 10 pu fill bk 120 rt 90 pd fd 40 lt 90 rectangle 240 12 rt 90 fd 12]
pu
setpos [-440 -100]
lt 90
pd
rectangle 460 12
lt 30
fd 158
pu
home
end

to mouse
setpensize [2 2]
pd
arc 60 50
pu
bk 50
lt 60
fd 25
rt 180
pd
arc 180 25
pu
lt 30
fd 25
pd
arc 45 35
pu
bk 35
lt 60
fd 20
lt 90
fd 5
pd
fd 8
pu
bk 15
setfc [0 0 0]
fill
end

to cpu
pd
setpensize [2 2]
rectangle 280 120
fd 184
repeat 3[rt 90 fd 120 bk 120 lt 90 fd 32]
rt 90
fd 5
rt 90
repeat 2[pu fd 4 lt 90 pd rectangle 110 16 rt 90 pu fd 20 lt 90 pd rectangle 12 4 fd 12 rectangle 12 4 bk 12 rt 90 pu fd 8]
pu
fd 42
lt 90
fd 20
pd
rectangle 72 20
pu
fd 4
rt 90 
fd 4
lt 90
pd
rectangle 64 4
pu
rt 90
fd 8
lt 90
fd 12
pd
rectangle 8 4
pu
fd 32
pd
rectangle 8 4
lt 90
pu
setpos [-420 20]
rt 90
fd 24
lt 90
fd 20
rt 90
pd
rectangle 72 20
pu
fd 8
rt 90
fd 8
lt 90
repeat 2[pd rectangle 8 4 fd 8 pu fd 8]
rt 90
fd 2
lt 90
fd 4
repeat 2[pd arc 360 4 pu fd 16]
fd 8
lt 90
fd 88
pd
setpensize [1 1]
arc 360 4
setfc [255 0 0]
fill
pu
fd 12
pd 
arc 360 4
setfc [255 200 100]
fill
pu
fd 12
pd 
arc 360 4
setfc [255 200 100]
fill
pu
setpensize [2 2]
setpencolor [0 0 0] 
fd 8
lt 90
fd 4
rt 90
pd
rectangle 16 10
rt 90
fd 4
lt 90
pu
fd 5
setfc [130 130 130]
fill
setpos [-300 20]
pd
rt 60
fd 80
lt 60
pu
setpos [-300 300]
pd
rt 120
fd 70
lt 120
pu
end

to monitor
pd
setpensize [2 2]
rectangle 240 280
rt 90
fd 20
lt 90
pu
fd 20
pd
rectangle 200 240
pu
bk 20
rt 90
fd 260
lt 90
pd
trapezium 240 80
rt 60
fd 80
lt 60
fd 20
trapezium 120 20
bk 20
lt 120
fd 20
lt 60
fd 10
rt 60
fd 60
rt 30
fd 260
rt 90
fd 10
pu
setfc [0 0 0]
rt 90
fd 50
lt 90
bk 5
fill
fd 30
fill
bk 10
setfc [210 210 210] 
fill
rt 90
fd 210
lt 90
fd 50
rt 60
fd 20
setfc [170 170 170]
fill
fd 65
setfc [150 150 150]
fill
lt 60
end

to keyboard
setpensize [2 2]
pd
rt 90
rectangle 200 10
lt 30
fd 30
pu
fd 5
pd
fd 5
rt 30
fd 200
rt 150
fd 5
rt 30
fd 200
lt 30
pu
fd 5
lt 150
pd
fd 200
rt 150
fd 30
lt 150
pu
fd 5
pd
rectangle 50 10
lt 30
fd 30
pu
fd 5
pd
fd 5
rt 30
fd 50
rt 150
fd 5
rt 30
fd 50
lt 30
pu
fd 5
lt 150
pd
fd 50
rt 150
fd 30
lt 60
fd 10
lt 120
fd 30
lt 60
fd 10
rt 60
pu
fd 5
rt 120
pd
fd 10
lt 120
fd 5
lt 60
fd 10
bk 5
rt 90
fd 15
rt 90
fd 10
rt 60
fd 55
rt 30
fd 275
rt 90
fd 10
rt 60
fd 20
pu
rt 30
fd 200
rt 90
fd 8
lt 120
pd
fd 6
lt 60
fd 6
pu
rt 90
fd 60
lt 30
setfc [0 0 0]
fill
fd 27
fill
bk 35
rt 30
bk 55
fill
end

to clock
setpensize [2 2]
pd
rt 30 
fd 180 
repeat 2[rt 120 fd 180]
rt 180 
fd 90
lt 90
pu
fd 50
pd
arc 360 3
pu
repeat 2[fd 30 pd fd 10 pu bk 70 pd bk 10 pu fd 40 rt 90]
pd
bk 15
fd 15
lt 45
fd 25
bk 25
rt 45
pu
fd 50
lt 90
pd
fd 90 
lt 60 
fd 30 
lt 65 
fd 162
lt 65
fd 10
pu
lt 80
fd 20
setfc [255 0 0]
fill
lt 90
fd 15
setfc [200 0 0]
fill
end

to bookrack
setpensize [2 2]
pd
repeat 2[pd rt 90 rectangle 440 12 rt 90 fd 12 lt 60 fd 60 lt 30 fd 440 lt 150 fd 60 rt 60 fd 12 rt 120 fd 60 rt 60 fd 12 rt 90 fd 440 rt 30 fd 60 rt 60 pu fd 80]
rt 90
fd 20
lt 90
bk 70
setfc [255 255 0]
fill
bk 15
setfc [0 0 0]
fill
bk 55
setfc [255 255 0]
fill
bk 15
setfc [0 0 0]
fill
rt 90
fd 440
lt 90
setfc [230 230 0]
fill
fd 70
fill
end

to paint
setfc [255 200 0]
setpos [0 10]
fill
setfc [255 180 0]
setpos [50 -50]
fill
setpos [350 -50]
fill
setpos [50 -150]
fill
setfc [0 0 200]
setpos [0 -10]
fill
setpos [350 10]
fill
setfc [0 0 150]
setpos [290 -105]
fill
setpos [50 -105]
fill
setpos [30 -105]
fill
setpos [0 -105]
fill
setpos [-450 -105]
fill
setpos [50 -195]
fill
setfc [255 170 0]
setpos [50 -230]
fill
setpos [-400 -230]
fill
setfc [250 160 0]
setpos [-400 -40]
fill
setfc [255 180 0]
setpos [-400 -90]
fill
fd 120
rt 90
fd 40
lt 90
setfc [130 130 130]
fill
fd 20
setfc [0 0 190]
fill
fd 130
setfc [0 0 0]
fill
fd 40
setfc [0 0 190]
fill
fd 20
setfc [0 0 0]
fill
fd 35
fill
rt 90
fd 70
setfc [0 0 160]
fill
lt 90
fd 50
setfc [180 180 255]
fill
lt 90
fd 150
setfc [190 180 255]
fill
end

setfc [0 0 0]
setpencolor [0 0 0]
pu
home
table
bk 20
mouse
pu
home
setpos [-420 20]
cpu
pu
setpos [-480 0]
pd
rt 60
fd 68
lt 60
pu
setpos [-240 60]
monitor
pu
setpos [-360 -60]
keyboard
pu
home
setpos [180 60]
clock
pu
home
setpos [475 90]
lt 90
pd
fd 100
pu
fd 180
pd
fd 105
rt 90
pu
setpos [-396 300]
pd
fd 199
pu
setpos [-499 -499]
pd
square 998
pu
rt 90
setpos [-499 -400]
pd
fd 50
lt 90
pu
setpos [-240 380]
bookrack
pu
home
paint
ht

The output/bitmap:

2. Excel project                                                                        back to top

A spreadsheet for the head of a family to forecast the cost of raising children over their entire lifetime as dependents.

Legend : 

  Example of a filled spreadsheet: