MSW Logo

FUNCIONALITAT

Aquest programa serveix per a dibuixar una filera de figures geométriques (Un triangle, un cercle i un quadrat) cada u de un color diferent i també pinta el fons de un color

COMANDAMENTS

para bomba
poncp 3
poncl 0
bp
sl
ponpos [-50 50]
bl
gi 90
repite 3[av 100 gd 120]
av 100
gi 90
sl
av 50
gi 90
Rotula[Triangulo]
granada

Fin

para granada
gi 90
av 50
gd 90
sl
av 200
bl
repite 360[av 1 gi 1]
gd 90
sl
av 50
gd 90
av 50
gd 180
Rotula[Círculo]
bazooka

Fin

para bazooka
gi 90
av 50
gd 90
sl
av 150
bl
repite 4[av 100 gi 90]
gd 90
sl
av 50
gi 90
bl
Rotula[Cuadrado]
misil

Fin

para misil
sl
ponpos [-100 90]
poccr 1
rellena
ponpos [40 110]
poccr 14
rellena
ponpos [190 110]
poccr 13
rellena

Fin

PROGRAMA SEMÀFOR

Per a fer un semàfor els procediments son:

Para semafor
rectangulo
pregun
si :num1 = "A [rojo] [si :num1 = "B [amarillo] [si :num1 = "C [verde]]]
Rotula [Escoge una opción correcta]
semafor

fin

para rectangulo
bp
bl
repite 2[gd 90 av 100 gd 90 av 300]
sl
ponpos [50 -25]
bl
gd 90
repite 360[av 0.5 gd 1]
sl
ponpos [50 -125]
bl
repite 360[av 0.5 gd 1]
sl
ponpos [50 -225]
bl
repite 360[av 0.5 gd 1]
sl
ponpos [35 -300]
bl
gd 180
repite 2[gi 90 av 150 gi 90 av 30]
sl
ponpos [50 -400]
poccr [152 152 152]
rellena
ponpos [25 -100]
poccr [228 115 15]
rellena
ponpos [50 -60]
poccr [0 0 0]
rellena
ponpos [50 -250]
poccr [0 0 0]
rellena
ponpos [50 -150]
poccr [0 0 0]
rellena
fin

Para pregun
Ponpos [-50 150]
gd 180
bl
Rotula [¿Qué color quieres que se encienda?]
sl
Ponpos [-50 130]
bl
Rotula [A = Rojo, B = Amarillo, C = Verde]
Haz "num1 leepalabra
sl
Ponpos [-50 90]
bl
Rotula [¿Por cuantos segundos quieres que esté encendido?]
Haz "num2 leepalabra

fin

para amarillo
sl
ponpos [50 -150]
poccr [252 195 0]
rellena
espera :num2 * 60
noamarillo
alto

fin

para noamarillo
sl
ponpos [50 -150]
poccr [0 0 0]
rellena

fin

para norojo
sl
ponpos [50 -60]
poccr [0 0 0]
rellena

fin

para noverde
sl
ponpos [50 -250]
poccr [0 0 0]
rellena

fin

para rojo
sl
ponpos [50 -60]
poccr [255 0 0]
rellena
espera :num2 * 60
norojo
alto

fin

para verde
sl
ponpos [50 -250]
poccr [0 255 0]
rellena
espera :num2 * 60
noverde

fin

CALCULADORA DE RAICES CUADRADAS

Para hacer una calculadora de raíces cuadradas el procedimiento es:

Para raíz
bp
gd 90
Rotula [De quin nom vols fer la seua arrel cuadrada?]
Haz "num1 leepalabra
sl
Ponpos [0 -25]
bl
Sisino :num1>0 [Rotula (Lista "La "raíz "cuadrada "de :num1 "es "= rc :num1)] [Rotula [No se puede hacer la raíz cuadrada de un número negativo]]

fin

VIDEOJOC DE CARRERES

Aquest es un programa que crea un circuit de carreres on podem jugar a conduir el nostre cotxe. A més, si ens xoquen amb el limit de la carretera el joc ens torna al començament i cuan arribem a la meta ens apareix un menssatge de victoria amb el nostre nom



PROCEDIMENT
para atormentador
bp sl
ponfoco [Pantalla de MSWLogo]
ponteclado [control]
cargadib "circuit.bmp
mt
ponpos [220 -160]
gd 90
comba

fin


para comba
si pixel = [0 0 0] [atormentador]
av 1 repite 500000[]
sisino pixel = [212 25 32] [activa 1] [comba]
ot
sl
ponpos [-150 480]
ponrumbo 90
Rotula (Lista "!!!VICTORIA :nombre "ERES "EL "MEJOR¡¡¡)
alto

fin


para control
haz "tecla car lc
si :tecla = "a [gi 20]
si :tecla = "d [gd 20]

fin


para juego
bp
gd 90
Rotula [¿Cómo te llamas, piloto?]
Espera 120
Haz "nombre leepalabra
atormentador

fin